Socket : Réindicer les index d'un groupe de controle de sockets (question à 100Résolu

Question

Bonjour,
Je cherche d&#233;sesp&#233;r&#233;ment la solution pour r&#233;indicer un groupe de controle de socket apr&#232;s la fermeture de l'un d'eux.
Il est vrai qu'on peut aller jusqu'a un indice sup&#233;rieur &#224; 32 000 mais pour mon code j'ai besoin  de d&#233;caler en cascade les index de mes sockets dans le groupe de controle.

Si j' unload socket(5) , le socket(6) doit devenir le socket(5), le 7 devenir le 6, etc
Si quelqu'un &#224; la solution miracle ...

For i = 1 To intmax
    If (sckTCP(i).State = 8) Then
        sckTCP(i).Close
        lst_clients.RemoveItem (i - 1)
        Unload sckTCP(i)
    End If
Next

Software Is Like Sex, It's Better When It's Free

cs_Jack · Accepted Answer

Re
Tu prends le probl&#232;me &#224; l'envers : Ce n'est pas le ListBox qui est maitre, c'est la collection de Winsock, la ListBox doit s'adapter.
Pour r&#233;utiliser les WinSocks pr&#233;c&#233;demment ferm&#233;s, je t'ai dit comment faire.
Pour faire le lien entre un Winsock et un des &#233;l&#233;ments de ton ListBox, modifie ta mani&#232;re de les m&#233;moriser :
Remplace ton ListBox par un ListView simple (&#224; une colonne) en mode Report.
Ce controle fonctionne pratiquement comme une ListBox, mais il a la possibilit&#233; de poss&#233;der -1- des SubItems (colonnes secondaires) -2- un Tag pour chaque ligne.
La gestion des SubItems n'&#233;tant plus compliqu&#233;e que les Tags, je te conseille donc ces derniers : Dedans, tu pourras y stocker ... l'index du Winsock correspondant : Facile &#224; &#233;crire et &#224; relire !

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_Jack · Answer

Salut
Non, tu ne peux pas r&#233;indicer sans risquer de perdre la comm avec tes clients.
La solution consiste &#224; ne pas cr&#233;er de nouveau WinSock &#224; la suite, mais de r&#233;utiliser les WinSock qui ne servent plus.
Au moment ou tu t'appr&#234;tes &#224; faire un Load WinSock(xxx), fait ceci (&#224; tester) :

Dim Trouv&#233; As Long
Trouv&#233; = 0
For r = 1 To UBound(WinSock)
   If Not Winsock(r) Is Nothing Then
     If WinSock(r).State <> sckConnected Then 
         Trouv&#233; = r
         Exit For
     End If
  End If
Next r
If Trouv&#233; > 0 Then
   ' On r&#233;utilise celui l&#224;
Else
   ' Sinon, on en charge un tout neuf
   Load WinSock(UBound(Winsock) + 1)
End If

Vala
Jack
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

cs_snow_angel · Answer

Plus exactement, je fais un serveur de tchat gerant plusieurs connexions simultan&#233;es.

J'ai mon socket d'&#233;coute sckTCP(0) qui cr&#233;&#233; un nouveau sckTCP(x) par incr&#233;ment de 1 &#224; chaque nouvelle tentative de connexion.

En meme temps, l'IP du client apparait dans une listbox



Vu que la listbox d&#233;marre &#224; 0 =>

Indice du socket client = indice du client dans la listbox + 1



Si un client d&#233;connecte, il est retir&#233; de la listbox des connect&#233;s et les autres arriv&#233;s apr&#232;s perde 1 d'indice.

Donc l'id&#233;al serait que l'indi&#231;age des sockets suivent avec.


Sinon on m'as dis d'utiliser des collections plutot qu'un groupe de contr&#244;le 

Software Is Like Sex, It's Better When It's Free

cs_snow_angel · Answer

C'est parfait, merci de ton aide 

Software Is Like Sex, It's Better When It's Free

cs_Jack · Answer

... et ils sont o&#249; mes 100 points ?

cs_snow_angel · Answer

Il faut appeler un num&#233;ro Allopass 

Software Is Like Sex, It's Better When It's Free

Socket : Réindicer les index d'un groupe de controle de sockets (question à 100

6 réponses

Discussions similaires