Éviter que les paquets se mélange lors de l'envoie avec winsock

Commenter

Contenu du snippet

j'ai trouver une solution à ce problème et je voudrai la partager avec vous.

Source / Exemple : 


'1- vous devez mettre sa dans la feuille où il y a le contrôle winsock
Private pile As New Collection
private rendu as long
Public Sub Vider_Pile()
Set pile = New Collection
End Sub

'2- créer un Timer, donné la valeur 1 à la propriété interval et méttez sa dans 'son evenement Timer :
dim encour as long
If pile.Count = 0 Then
Else
If pret = False Then
rendu=rendu+1
encour=rendu
socket.SendData pile.Item(encour)
pile.Remove encour
rendu=rendu-1
End If
End If

'3- dans votre controle winsock, dans l'evenement send complete marquez ca
pret = False

'4-dans ce meme controle winsock, dans l'évenement sendprogress marquez sa

pret = True 

'5- quand vous devez envoyer des données marquez sa à la place 
'de .senddata

pile.Add "Données"

Conclusion :


c tout. dites moi vos commentaires

A voir également

Du même auteur (gabchampagne)