Discussion :

[Chad.]

salut,

Je suis en train de coder un petit chat et quand je fais ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Command3_Click()
DoEvents
Winsock1.RemotePort = "7812"
Winsock1.RemoteHost = txthost.Text
Winsock1.Connect
'Teste
DoEvents
Winsock1.SendData "OK"
DoEvents
Winsock1.SendData "TEST"
End Sub

--------------------------------------------------------------------------

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Buffer As String
Winsock1.GetData Buffer
'Ajoute les data a list1
DoEvents
List1.AddItem Buffer
End Sub

--------------------------------------------------------------------------
Bon le problem est que quand je recois les datas ils sont collés example: je recois "OKTEST" j'ai essayer toute les facons que je connais mais sans succes je voudrais recevoir les donnés un-a-un "separé" si quelqun peut m'aider j'en serais tres reconnaissant.
Merci d'avance.

[Delbeke]

tout depends du serveur et de la façon qu'il construit ses envois.
examine les caractères contenus dans buffer, tu y trouveras probablement la sequence qui sépare les différents eléments

[Chad.]

oui mais tu crois que l'erreur est dans l'envoie des datas ou dans data arrival?

[Delbeke]

si tu as la possibilité d'agir sur l"envoi des datas, mette un vbCrLf au bout de chaque data envoyée serait bien utile, non ?
ensuite etablis un dialogue, le serveur n'envoie la suite que quand le client a répondu ok par exemple

[Chad.]

VBCrlf a fonctionné! merci beaucoup