candela
14 de Enero del 2004

Enviado por Candela el día 14 de enero de 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

reventador nikomedes
14 de Enero del 2004

hola candela, veo que tienes mucha prisa, jeje...

Mira, tienes un par de errores y te faltan un par de cosas.

El error lo tienes en la funcion de Enviar, debes tenerlo asi:

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


Lo que te falta es en la funcion de Escuchar, cerrar antes el Winsock y deberías establecer la propiedad LocalPort del Winsock a un valor válido:


Private Sub CmdEscuchar_Click()
If Winsock1.State<>0 Then Winsock1.Close
DoEvents
Winsock1.LocalPort = .... 'Un valor de puerto válido
Winsock1.Listen
End Sub


Un saludo