É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

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (gabchampagne)