Discussion :

[fred033]

bonjour a tous je vous explique mon problème :
j'ai une application serveur qui gère la multiconnection (pour avoir plusieurs client connecté en même temps)
voici le code pour accepter une connection :

Code :

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

1
2
3
4
5
6
7
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
    nb = nb + 1
    Load Wsck(nb)
    Wsck(nb).Accept requestID
    Wsck(nb).SendData ("F" & "Bonjour" & "<FIN>")
    DoEvents
End sub

jusque la pas de problème. Maintenant je voudrai pouvoir envoyer un message a tous mes clients connectés pour cela j ai pensé a une boucle for each que j'ai réalisé comme cela :

Code :

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

1
2
3
4
5
Dim W as Winsock
For Each W In Wsck
        W.SendData ("V" & "blablabla" & "<FIN>")
        DoEvents
Next W

quand je lance mon application j'ai une erreur 40006. J'aimerai avoir un peu d'aide pour réussir à résoudre ce problème. Merci d'avance à tous

[Delbeke]

Que se passe t'il quand un client ferme la connection ? , le winsock est toujours la, ou il a été déchargé ?
Parce qu'il est difficile de faire un senddata sur un winsock dont la connection a été fermée

[fred033]

pour ceux qui ce sont un peu penché sur mon problème je viens de découvrir quelque chose si ca peut vous aider pour me dire d ou vient mon soucis. En fait après avoir accepter la connection j'ai rajouter un

Code :

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

label1.caption=wsck.count

et la a ma grande surprise il m'affiche 2 alors qu'un seul client se connecte. Si vous savez d ou cela peut provenir

[Delbeke]

Normal, le winsock d'indice zéro a été défini au desing time. tu ajoutes un winsock à chaque connection. donc dès le permier client, tu a deux controles winsock

[fred033]

quand un client quitte la connection j'ai l'evenement quivant qui se lance :

Code :

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

1
2
3
4
Private Sub Wsck_Close(index As Integer)
    Unload Wsck(index)
    If Wsck.Count - 1 = 0 Then nb = 0
End Sub

Et j'ai mis dans mon code un for each justement pour ne pas avoir le problème d'envoie d'une donnée sur un client qui n'est pas connecté

[fred033]

donc en fait ca serai ce winsock 0 qui me genererait ce problème. Est il possible de ne pas tenir compte de ce winsock????

[Delbeke]

Seulement le winsock d'indice zéro n'est jamais connecté, c'est probablement lui qui n'aime pas les senddata

[fred033]

oui c est cela car j ai essayé en pas a pas et si dans ma boucle for je saute le premier passage ca fonctionne. Il faudrai donc que j'arrive a ne pas tenir compte de ce winsock 0 Mais comment ?????

[Delbeke]

Peso, j'utilises une chaine de caractères blanc dont la longeur correspond au nombres de connection maxi que j'autorise. quand je connecte le Xième client , je remplace le xieme caractère de la chaine par un X, que je remetrais à blanc à la deconnection.
ensuite je fais une boucle du premier au dernier caractere , si j'ai un blanc, la cionnection est fermée, si j'ai un x, je peux envoyer un senddata.
Par la même occasion, je charge / decharge le winsock en suivant bien cette chaine de caracteres, ce qui permet de réutiliser les trous (un client qui s'est déconnecté)

[fred033]

ok merci beaucoup delbeke je vais tester votre solution et je vous tien au courant.

[Delbeke]

Pour t'aider j'ai ecrit vite fait ce bout de code
Inspire tois en

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
  NumConnection = InStr(ListeConnect, " ")
  Mid(ListeConnect, NumConnection, 1) = "X"
  Load Wsck(NumConnection)
  Wsck(NumConnection).Accept requestID
  Wsck(NumConnection).SendData ("F" & "Bonjour" & "<FIN>")
  DoEvents
End Sub
 
Private Sub SendToAll(Text)
  Dim iPnt As Integer
  For iPnt = 1 To Len(ListeConnect)
    If Mid(ListeConnect, iPnt, 1) = "X" Then
      Wsck(iPnt).SendData Text & vbcrlf
    End If
  Next
End Sub
 
Private Sub Wsck_Close(index As Integer)
  Unload Wsck(index)
  Mid(ListeConnect, Index, 1) = " " 
End Sub

[fred033]

merci a toi delbeke mon problème est résolu grâce a toi. Ta fonction fonctionne très bien encore un grand merci