Ola a todos.
Hasta hoy nunca habia probado los Winsocks, pero hoy ya me he puesto al encontrar un manual sencillo y que parece bueno. En este manual te dan el codigo fuente de dos programas pero al ejecutarlos no consigo que funcionen.
Loc codigos son:
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_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text + datos
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept requestID
End Sub
El puerto se pone en las propiedades solo crearlo con el valor 888
Cliente
Private Sub Command1_Click()
Winsock1.RemoteHost = Text3.Text
Winsock1.Connect
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
text1.Text = text1.Text + datos
End Sub
Private Sub Command2_Click()
Dim enviar As String
enviar = Text2.Text
Winsock1.SendData enviar
End Sub
Lo mismo del puerto ya esta puesto al principio.
Pongo a la escucha el servidor, no pasa nada y lo curioso es que el cortafuegos del kaspersky no me dice nada de que se ponga un puerto a la escucha, tampoco se muy bien si tendria que saltar...
Ejecuto el cliente y al poner la ip 127.0.0.1 y darle a conectar sale un error en esta linea:
Winsock1.Connect
Nose que puede estar fallando agradezco cualquier cosa.
Un saludo.
Hey porque puerto vas a entrar???
-.-
Winsock1.Connect txtIP, txtPuerto
en cliente
lo que deberias hacer es simpre antyes de acciones tipo connect o listen es cerrar el winsock1 de esta manera
winsock1.close
winsock1.connect
De lo contrario podriaas recibir errores tipo peticion erronea para el estado actual o algo asi... o tbn doreccion en uso.
y si configutras el winsock desde un principio fijate bien que en el server el puerto 888 este en localport y en el cliente el 888 en remoteport. Salu25
Yaaaaaaaaaaaaaaaaaaaaaaa esta.
Al final era lo que decias tu ..::Fireb0y::.., en el cliente ponia el puerto 888 en localport en vez de en remoteport.
Muchas gracias por las respuestas a todos.
Un saludo.