Discussion :

[blumax]

Bonjour,
Je poste un message pour un problème de SOCKET en Visual Basic 6.
Ce problème survient sur un logiciel de chat, le serveur est OK, les client peuve parler entre eux, tout le monde recoit bien le message ! Je souhaite que le serveur puise aussi envoyer des messages. J'utilise ce code :

Code :

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

1
2
3
4
5
6
Private Sub SendMsg_Click()
For k = 0 To TailleTab - 1
    SckChat(Users(k, 0)).SendData "Admin > " & ChatText.Text
Next k
DialChat.Text = DialChat.Text & "Admin > " & ChatText.Text & vbCrLf
End Sub

Il envoi le message a un seul client, je me suis dit que je devais tester les indices du socket, donc j'ai fait :

Code :

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

1
2
3
4
5
6
7
Private Sub SendMsg_Click()
For k = 0 To TailleTab - 1
    MsgBox Users(k, 0)
    SckChat(Users(k, 0)).SendData "Admin > " & ChatText.Text
Next k
DialChat.Text = DialChat.Text & "Admin > " & ChatText.Text & vbCrLf
End Sub

Et ben devinez quoi ??? Vous trouvez pas ??? Tout les client reçoives bien le message , grâce au MsgBox.

Je ne ces pas si c'est du a une répétition trop rapide des l'envoi de message ou ...
Avez vous une solution a mon problème ?
Je vous remercie grandement d'avance de vos réponses

[OhMonBato]

tu utilises quel protocole de communication ?

[blumax]

J'utilise sa pour ouvrir le socket :

Code :

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

1
2
SckChat(0).LocalPort = 2228
SckChat(0).Listen

Donc ce qui est pris par défaut (Je c'est pas ce qui est pris par défaut a mon avis TCP )
Merci

[rv26t]

Bonjour,

Met un petit temps d'attente derrière

Code :

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

SckChat(Users(k, 0)).SendData "Admin > " & ChatText.Text

en utilisant GetTickCount et DoEvents

A+, Hervé.

[blumax]

J'ai rajouter cela :

Code :

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

1
2
3
4
5
6
7
Dim lgTime As Long
lgTime = GetTickCount
Do While lgTime + lgMSec > GetTickCount
    DoEvents
    DoEvents
    DoEvents
Loop

Mais... (dsl), sa ne change rien. Le plus étonnant c'est que j'utilise la même chose quand le message provient d'un client. Et cela fonctionne parfaitement. Je ne comprend pas.

Merci d'avoir éditer mon code maintenant je c'est mettre le code en valeur