Candela
14 de Enero del 2004

Hola que tal estoy tratando de haciendo una practica con winsock
pero cuando trato de hacer que el servidor escuche el puerto local
me aparece un error diciendo "la familia de errores no es compatible"
y si presiono de nuevo ejecutar me dice error en el metodo listen.
porque sera

el codigo es asi

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

End Sub

Private Sub CmdEscuchar_Click()
Winsock1.Listen
End Sub

Private Sub Form_Load()

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