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

[PatriotIK]

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

[Ramzes]

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

смотри:
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]

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

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

[alibek]

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

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

[PatriotIK]

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

[Ramzes]

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

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

а строчка:

Код: Выделить всё

'помоему, я точно не помню, но вроде так!
ws1.remouteip = 213.156.56.56


[tyomitch]

а строчка:

Код: Выделить всё

'помоему, я точно не помню, но вроде так!
ws1.remouteip = 213.156.56.56


:мотаю головой:
RemoteIP афаик только для чтения.
надо:

Код: Выделить всё

ws1.RemoteHost = "213.156.56.56"