candela
15 de Enero del 2004

Hola que tal estoy realizando una practica con el control winsock y no
me funciona porque la parte de servidor no quiere escuchar el puerto local
me aparece "error 10047 La familia de direcciones no es compatible"
el codigo es el siguiente

Private Sub CEnviar_Click()

Dim enviar As String
enviar = TxtEnviado.Text
Winsock1.SendData enviar

End Sub







Private Sub Form_Load()

If Winsock1.State <> 0 Then Winsock1.Close
DoEvents

Winsock1.LocalPort = 80

Winsock1.listen




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
TxtEnviado.Text = TxtEnviado.Text + datos
End Sub




cualquier ayuda sera muy agradecida

jose luis
15 de Enero del 2004

Private Sub sckRecep1_DataArrival(ByVal bytesTotal As Long)

Dim datos As String

sckRecep1.GetData datos
Text1.Text = Text1.Text + datos

End Sub

'CLIENTE!!!!
Private Sub Command1_Click()

If sckRecep1.State = sckConnected Then
sckRecep1.Close
Else
Text3.Text = "127.0.0.1"
sckRecep1.RemoteHost = Text3.Text
sckRecep1.RemotePort = 50205
sckRecep1.Connect
Text1.Text = "Cliente conectado a servidor..." & vbNewLine
Text1.Text = Text1.Text & "Utilizando puerto: " & sckRecep1.LocalPort & vbNewLine
Command1.Enabled = False
End If
End Sub

Private Sub Command2_Click()

Dim enviar As String
enviar = Text2.Text
sckRecep1.SendData enviar
Text1.Text = "Enviando datos..." & vbCrLf

End Sub

lo de arriba es el cliente, a continuacion servidor

'Servidor!!!!!
Private Sub Command1_Click()
If sckRecep.State = sckListening Then
Text1.Text = "Status Port: Listening...."
Command1.Enabled = False
Else
sckRecep.LocalPort = 50205
sckRecep.Listen
Text1.Text = "Puerto en Escucha...." & vbNewLine
Text1.Text = Text1.Text & "Puerto utlizado: " & sckRecep.LocalPort & vbNewLine
End If
End Sub

Private Sub Command2_Click()
Dim enviar As String

enviar = Text2.Text
sckRecep.SendData enviar

End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub sckRecep_ConnectionRequest(ByVal requestID As Long)
sckRecep.Close
sckRecep.Accept requestID
End Sub

Private Sub sckRecep_DataArrival(ByVal bytesTotal As Long)
Dim datos As String

sckRecep.GetData datos
Text1.Text = Text1.Text + datos

End Sub

Cualquier cosa no dudes en decirmelo, este es mi msn