Требуется Помощь

  • Автор темы kreativ4eg
  • Дата начала
K

kreativ4eg

#1
Доброго времени суток.

Вот клиент:

Код:
Private Sub Command1_Click()
Winsock1.Connect
End Sub

Private Sub Form_Load()
Winsock1.RemoteHost = "192.168.0.1"
Winsock1.RemotePort = 1009
End Sub

Private Sub Text1_Change()
Winsock1.SendData Text1.Text
End Sub

Private Sub Text2_Change()
Dim D As String
Winsock1.GetData D
Text2.Text = D
End Sub
вот сервак
Код:
Private Sub Form_Load()
Winsock1.LocalPort = 1009
Winsock1.Listen
End Sub

Private Sub Text1_Change()
Winsock1.SendData Text1.Text
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End Sub


Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim DD As String
Winsock1.GetData DD
Text2.Text = DD
End Sub
В итоге ошибка 40006, в чем дело?
Это два компа соединенные между собой.
 

Aliquam

New member
17.03.2012
4
0
#2
Возможно ты запускаешь сначала клиента и лишь потом сервер :)

Добавлено: Сделай проверку доступности сервера или пытайся читать данные с выключенного сервера)

Добавлено: http://support.microsoft.com/kb/183987