[VB] Appli Winsock | mystère du code
Bonjour à tous,
voilà, je m'amuse en ce moment à développer une application clients/serveur avec les controles winsock.
Il y a un serveur et les clients s'y connectent. Chaque client peut envoyer un texte au serveur et le serveur renvoie ce texte à tous les clients connectés.
Ceci dit, un truc obscur pour moi se produit :
Voici la procedure:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
| Private Sub Wcs_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim data As String
Wcs(Index).GetData data
For n = 1 To Nb
MsgBox n
Wcs(n).SendData data
Next
i = i + 1
End Sub |
J'explique le truc: le message reçu par le serveur est stocké dans la variable data.
Il y a ensuite la boucle de distribution, pour chaque client connecté, on envoie "data".
Ce truc fonctionne uniquement s'il y a le MsgBox dans la boucle !!!!
Etrange non?
Si vous avez réponse a mon problème, je l'attend avec joie ;-)
Merci d'avance.
