Нужна помощ! (Сеть)

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
PatriotIK
Обычный пользователь
Обычный пользователь
 
Сообщения: 65
Зарегистрирован: 09.08.2004 (Пн) 12:00
Откуда: Город герой Москва

Нужна помощ! (Сеть)

Сообщение PatriotIK » 12.09.2004 (Вс) 23:02

Вот у меня ситуация.
Хотелось бы сделать прогу типа: клиент - сервер. Причем чтобы у сервера, в папке с прогой, лежал некий текстовый файл с информацией. Клиент должен, в следствие какого нибудь события, получать информацию из етого файла. А также чтобы клиент мог например нажав на кнопку отправить энную информацию в этот файл.
Нужно так же, чтобы клиент подсоединился к серверу набрав IP.
Не смейтесь! Знаю что прошу многово, но всеже если кто-то сможет пожалуйста помогите!
Visual Basic остольное не важно!

Ramzes
Скромный человек
Скромный человек
Аватара пользователя
 
Сообщения: 5004
Зарегистрирован: 12.04.2003 (Сб) 11:59
Откуда: Из гробницы :)

Сообщение Ramzes » 13.09.2004 (Пн) 0:43

в принцыпе тут ничего сложного нет :).
должен признаться я тоже когдато задавал похожий вопрос :)

смотри:
1) делаешь приложение клиент сервер:
Код: Выделить всё
'klient
'он должен открывать файл дла чтения \ записи и передавать его на_ сервер
sub form_load()
open app.path & "\myFile.txt" for input as #1
do until eof(1)
line input #1, mt
mytxt=mytxt+mt
loop
close #1
end sub
'все прочли файл и закрыли его
'добавляешь на форму компонент WINSOCK.OCX (name = ws1) и_ кнопку (name = command1)
private sub command1_click()
' чисто теоретически сервак уже создан (мы эго создадим чуток позже)
ws1.RemoteHost = "localhost"
ws1.RemotePort = 123
ws1.Connect
end sub

' еще одну кнопку дабы отправить на сервак файл который мы прочли
private sub command2_click()
ws1.senddata mytxt
end sub
Private Sub ws1_ConnectionRequest(ByVal requestID As Long)
ws1.Close
ws1.Accept requestID
End Sub

'все клиент готов (потом если разобрался можешь еще всяких_ полезных функцый вставить

Код: Выделить всё
'server
Private Sub Form_Load()
ws1.LocalPort = 123
ws1.Listen 'прослушиваем не пошлет ли нам чего клиент?
End Sub

Private Sub ws1_ConnectionRequest(ByVal requestID As Long)
ws1.Close
ws1.Accept requestID
End Sub

Private Sub ws1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
ws1.GetData Data
text1.text = data
'еще добавим текстовое поле
end sub

вроде все, может где ошибся но суть ты должен понять а так чего спрашивай ответят:)

codemaster
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 604
Зарегистрирован: 13.02.2004 (Пт) 13:35

Re: Нужна помощ! (Сеть)

Сообщение codemaster » 13.09.2004 (Пн) 13:34

PatriotIK писал(а):Вот у меня ситуация.
Хотелось бы сделать прогу типа: клиент - сервер. Причем чтобы у сервера, в папке с прогой, лежал некий текстовый файл с информацией. Клиент должен, в следствие какого нибудь события, получать информацию из етого файла. А также чтобы клиент мог например нажав на кнопку отправить энную информацию в этот файл.
Нужно так же, чтобы клиент подсоединился к серверу набрав IP.
Не смейтесь! Знаю что прошу многово, но всеже если кто-то сможет пожалуйста помогите!


Если надо ловить события от сервера на клиенте
тебе придется использовать DCOM

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 13.09.2004 (Пн) 16:10

codemaster, мне кажется, что подразумевалось проще. Т.е. по факту какого-то события сервер уведомляет клиента о том, что клиенту нужно скачать новую информацию.

PatriotIK, поищи в "проектах" или в статьях тему "Пример приложений клиент-сервер", там я как-то выкладывал один из вариантов реализации клиент-сервера.
Lasciate ogni speranza, voi ch'entrate.

PatriotIK
Обычный пользователь
Обычный пользователь
 
Сообщения: 65
Зарегистрирован: 09.08.2004 (Пн) 12:00
Откуда: Город герой Москва

Сообщение PatriotIK » 13.09.2004 (Пн) 17:10

Для Рамзеса!
Вообщем получается пока!
Все пашет, пока токо на моем компе!
Уже зделал некое подобие чата!
Вот токо вопрос- через инет я могу пользоваться этой прогой? или токо по локалке? если да то очень обидно, дабы обладаю я анлимом, а вот с локалкой напряг получается.
А еще напиши строчку, как там с IP работать, а то я только чисто теоретически понимаю как енто спрогить
Visual Basic остольное не важно!

Ramzes
Скромный человек
Скромный человек
Аватара пользователя
 
Сообщения: 5004
Зарегистрирован: 12.04.2003 (Сб) 11:59
Откуда: Из гробницы :)

Сообщение Ramzes » 13.09.2004 (Пн) 23:43

PatriotIK писал(а):Для Рамзеса!
Вот токо вопрос- через инет я могу пользоваться этой прогой?

Теоретически да, если занешь IP адрес удаленного компа.

а строчка:
Код: Выделить всё
'помоему, я точно не помню, но вроде так!
ws1.remouteip = 213.156.56.56

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 14.09.2004 (Вт) 0:30

Ramzes писал(а):а строчка:
Код: Выделить всё
'помоему, я точно не помню, но вроде так!
ws1.remouteip = 213.156.56.56

:мотаю головой:
RemoteIP афаик только для чтения.
надо:
Код: Выделить всё
ws1.RemoteHost = "213.156.56.56"
Изображение


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot, Mail.ru [бот], Yandex-бот и гости: 19

    TopList  
cron