[VB6] Invio di messaggi ad ogni client collegato con WinSock

[daniele50]

Ciao a tutti,
tramite Winsock devo madare più messaggi con un ciclo FOR ad ogni client collegato:

*SERVER

Private Sub InviaDati(ByVal Index As Integer, ByVal Message As String)
Winsock1(Index).SendData Message
End Sub

Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
...
For cl = 1 To numero
messaggio = "&&&"
Call InviaDati(cl, messaggio)
For ip = 1 To numero
messaggio = "$$$" + Winsock1(ip).RemoteHostIP
Call InviaDati(cl, messaggio)
Next
Next
...

*CLIENT

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim mess As String
Winsock1.GetData mess
MsgBox (mess)
End Sub


Il problema è che nel client non mi arrivano tante msgbox quanti i cicli FOR, ma una sola che contiene tutti i messaggi concatenati in un unica stringa.

Come faccio ad inviare ripetutamente più messaggi riuscendo a "scinderli"?

[vonkranz]

Devi mettere un ritardo nel ciclo for tra un invio e l'altro per dare il tempo al client di leggere e svuotare il buffer di ricezione.

Nel tuo caso, il ciclo for e' talmente piu' veloce del protocollo di trasporto dati che quest'ultimo vede i dati come fossero un unico invio.

[LeleFT]

Per VB c'è il relativo sub-forum.
Ti sposto lì.


Ciao.

[daniele50]

Che cosa devo usare per "creare un ritardo"?

[dado86ssj]

Puoi usare un timer, ad esempio impostalo per inviare una stringa ogni 5 secondi.

In alternativa invia tutte le stringhe insieme e delimitale con qualche carattere speciale, poi nel client che riceve i dati usi Split per ottenere le varie sottostringhe.