Help sur WinSock

Question

j'ai un gros problème lors de l'utilisation de WinSock ::
lorsque que l'appel de SendData se fait dans des boucles, le WinSock n'envioe rien, il stocke les valeur, et les envoie seulmenent lors du prochain appel d'un SendData après la fin de la boucle...

très chiant, si quelq'un à une soluce....

cs_OphidiaN · Answer

mets voir des doevents dans ta boucle:

Lissyx · Answer

comment ça?
j'ai une boucle comme ça ::

Function SendEtat()
For i = 0 To Server.Serveur.ubound Step 1
    For i2 = 0 To UBound(Pseudo) Step 1
        If Etat(i2) = True Then
            Server.Serveur(i).SendData "STATEOK " & Pseudo(i2) & "=" & Etat(i2)
            AddConsole "Envoie sur " & Server.Serveur(i).RemoteHostIP & ":" & Server.Serveur(i).RemotePort & " via server.serveur(" & i & ") STATEOK " & Pseudo(i2) & "=" & Etat(i2), True
        End If
    Next i2
Next i
End Function

cs_OphidiaN · Answer

tu peux faire un truc dans le genre:
Function SendEtat()
For i = 0 To Server.Serveur.ubound Step 1
For i2 = 0 To UBound(Pseudo) Step 1
If Etat(i2) = True Then
DoEvents
Server.Serveur(i).SendData "STATEOK " & Pseudo(i2) & "=" & Etat(i2)
DoEvents
'' mets en plusieurs si nécessaire!
AddConsole "Envoie sur " & Server.Serveur(i).RemoteHostIP & ":" & Server.Serveur(i).RemotePort & " via server.serveur(" & i & ") STATEOK " & Pseudo(i2) & "=" & Etat(i2), True
End If
Next i2
DoEvents
Next i
End Function

++

Lissyx · Answer

et en fait, ça sert à quoi les DoEvents ?

cs_OphidiaN · Answer

La fonction DoEvents permet de laisser aux autres applications, et aux commandes envoyées le temps de s'executer. Si tu mets pas ça dans ta boucle, les infos sont envoyées à winsock, mais celui ci n'a pas le tps de les interpretés alors que voila un nouvel arrivage de donnees qui lui parviennent. Ainsi, winsock n'executra que la derniere, a la fin de la boucle.
Essaye Form_Load
Do
Loop
EndSub
-> Ton PC va planter.
Essaye Form_Load
Do
DoEvents
Loop
End Sub
-> Tu pourras e'teindre le prog sans probs..

++

Lissyx · Answer

c'est bon, un Doevents avant le Senddata et un après, et ça amrche sans pb!

cs_OphidiaN · Answer

:)

Lissyx · Answer

tu saurais po comment je pourrais gérer une génération dynamique de forms? en fait, ça serais pr les créer sur demande, un peu comme AIM, ICQ et autres Messengers...

cs_OphidiaN · Answer

je crois que là il ya des tonnes d'exemples sur vbfrance. Recherche simplement bloc-notes ou notepad pour voir, ils se servent de feuilles MDI pour génerer des form filles... a volonté :)

Lissyx · Answer

ok merci, mais avant je fini de reconfig NT [ma fait un INACCESSIBLE_BOOT_DEVICE ce matin]

Help sur WinSock

10 réponses

Discussions similaires