VBNet - Форум - Проблема с Winsock

Вопрос: Проблема с Winsock Добавлено: 12.11.03 22:29

Автор вопроса: Casper

Код этот был мною где то скопирован. По моему все должно работать, но...нет. Смысл в том что в конечном итоге сервер должен принять текстовое сообщение (у клиента в text поле что-то пишем - нажимаем Send - в text поле на сервере появляется то что у клиента) - ЭТОГО НЕ ПРОИСХОДИТ, но соединение происходит в виду того , что на сервере появляется запись"Запрос на соединение".
СЕРВЕР
Private Sub cmdListen_Click()
wskServer.Listen
End Sub
Private Sub wskServer_ConnectionRequest(ByVal requestID As Long)
If wskServer.State <> sckClosed Then
wskServer.Close
End If
wskServer.Accept requestID 'принимаем запрос на соединение
frmServer.Caption = "Запрос на соединение"
End Sub
Private Sub wskServer_DataArrival(ByVal bytesTotal As Long)
Dim strData As String 'заводим переменную для прибывших данных
wskServer.GetData strData, vbString, bytesTotal 'серверный WinSock записывает данные в strData
txtData.Text = strData 'данные записываются в txtData
End Sub

КЛИЕНТОтветить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

Casper

Вопросов: 38
Ответов: 28

Профиль | | #1

Добавлено: 12.11.03 22:31

СЕРВЕР

Private Sub cmdConnect_Click()

  wskClient.Connect "127.0.0.1", 2000 ' подсоединяемся к серверу (локальному)

End Sub

Private Sub cmdSend_Click()

  wskClient.SendData txtData ' посылка данных из txtData серверу

End Sub

Ответить

Номер ответа: 2 Автор ответа: Casper Вопросов: 38 Ответов: 28	Профиль \| \| #2	Добавлено: 12.11.03 22:33
	Извиняюсь последнее сообщение относится к клиенту! Ответить

Номер ответа: 3
Автор ответа:

ZoomerSD

ICQ: 148640473

Вопросов: 135
Ответов: 270

Профиль | | #3

Добавлено: 13.11.03 23:25

возможно глупый вопрос, но ты у сервера порт прописал?

Ответить

Страница: 1 |