Visual Basic - WINSOCK

Life is soft - evento anual de software empresarial
   
Vista:

WINSOCK

Publicado por Pablo2492 (35 intervenciones) el 09/05/2008 14:30:43
Hola: me estoy iniciandoen el uso del control Winsock , tengo una aplicación muy tonta para ver como funciona, un programa servidor que lo ejecuto en una maquina de mi lan y el cliente que lo ejecuto en mi maquina al parecer la conexión se realiza pero al momento de mandar algun dato (todo por medio de textbox) me arroja el siguiente error: Run Time error 4006 : “wrong protocol or connection state for the request or request “

Les paso las lineas del cliente y el servidor para ver si me pueden ayudar.

PROGRAMA CLIENTE

Private Sub Command1_Click()
Winsock1.RemoteHost = Text3.Text
Winsock1.Connect
End Sub

Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
End Sub

PROGRAMA SERVIDOR

Private Sub Command1_Click()
Winsock1.Listen
End Sub

Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar

End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
End Sub

Gracias de Antemano….
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:WINSOCK

Publicado por Corregidor (12 intervenciones) el 09/05/2008 22:23:27
Yo lo que te propongo es que instales un Visual Basic en tu máquina, pero en español ya que así no te dará el error "wrong protocol or connection state for the request or request “ sino otro que podamos entender los que no hablamos (ni queremos) el inglis.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:WINSOCK

Publicado por maxi (8 intervenciones) el 10/05/2008 05:17:27
hola

le asicnaste un puerto al cual el server va escuchar y el cliente se va a conectar?


tambien puedes usar la propiedad de winsock.state , te devuelve el estado de la
conexión

if winsock1.state = sckconnected then
winsock1.senddata= "Hola ;)"
else
msgbox "se ha perdido la conexión con el servidor "
winsock1.close
end if
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar