Hola.
Bueno, me surgio un inconveniente mas. Tengo el server y el cliente en localhost.
Pero la cosa es que el server queda escuchando y el cliente conectando. Pero al cabo de un ratito se produce un timeout y da error; o sea, ni se conecta.
Server:
Dim WithEvents Socket As CSocketMaster
Private Sub Form_Load()
App.TaskVisible = False
Me.Hide
If App.PrevInstance Then
End
End If
Set Socket = New CSocketMaster
Socket.Protocol = sckTCPProtocol
Socket.LocalPort = 42376
Socket.Bind
Socket.Listen
End Sub
Private Sub Socket_ConnectionRequest(ByVal requestID As Long)
Socket.CloseSck
Socket.Accept requestID
End Sub
Private Sub Socket_DataArrival(ByVal bytesTotal As Long)
Dim sCommand As String
Socket.GetData sCommand
MsgBox sCommand
End Sub
Cliente:
Socket.CloseSck
Socket.RemoteHost = txtServer.Text
Socket.RemotePort = txtPort.Text
Socket.Connect txtServer.Text, txtPort.Text
'solo pongo la parte de la conexion.
PD: Se nota pero por las dudas, uso el CSocketMaster.
Alguien tiene idea de porque no anda?
Saludos
Mostrar Mensajes
