Problema con WINSOCK

[encore121]

Pues mira, por la forma en la ke trabaja el winsock no puedes enviar un dato tras otro ya ke no le da tiempo de saber donde termina uno y empieza otro, para hacer esto tienes dos opciones

1. enviar un pakete, esperar un tiempo y despues enviar el siguiente, unos 10 milisegundos bastaran

2. el siguiente es ke cuando recivas el dato en el evento DataArrival, regreses algun valor al ke te lo envio, supongamos esto:

En el cliente tendras esto:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos
Text1.Text = Text1.Text & vbCrLf & datos
...
Proceso ke hagas aki
...
Winsock1.SendData "a"
End Sub

Y en el cliente tendras algo asi:

Private Sub Command2_Click()
Winsock1.SendData "HOLA"
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim a As String
Winsock1.GetData a
Winsock1.SendData "CHAU"
End Sub

asi cada vez ke el servidor reciva un dato le regresara algo al cliente, a este no le importa ke recive solo se hace esto para esperar a ke el servidor reciva lo ke se le envio antes

De ti depende ke metodo escojes cual se te acomoda mas a tus nescesidades