Help sur WinSock

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....

mets voir des doevents dans ta boucle:

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


-------------------------------
Réponse au message :
-------------------------------

mets voir des doevents dans ta boucle:

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

++

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



-------------------------------
Réponse au message :
-------------------------------

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

++

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..

++

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

-------------------------------
Réponse au message :
-------------------------------

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..

++

:)

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...

-------------------------------
Réponse au message :
-------------------------------

:)

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é :)