Envois de données avec Winsock !!!

Question

Salut ! g une probleme ! kan j'envois des données avec winsock, si j'en envois par exemple 2 d'affilée comme ceci : winsock.senddata "1er envois" winsock.senddata "2e envois" ben winsock les colle comme ceci : "1er envois2e envois" et ca me gene bcp car si par exemple je créé 2 fonctions et ke je dois les traiter a la reception (getdata), mon programme ne fonctionne pas correctement ! exemple : Private Sub winsock_DataArrival(ByVal bytesTotal As Long) dim rec as string winsock.getData rec if mid$(rec, 1, 6) = "" then 'et tout le reste if mid$(rec, 1, 5) = "" then 'et tout le reste end sub Private Sub Command1_Click() winsock.senddata "Message" winsock.senddata "Membre" end sub donc si le programme recoit ca "MessageMembre" ben le programme ne pourra pas detecter le "DEL" vu ke le "MESS" est avant. Alors si vous pouvez m'aider merci, je cherche juste a savoir comment mon programme pourrait les detecter tous les deux alors kils sont sur la meme ligne. Je sais ke c compliké mais merci kan meme d'avoir lu. @+ et bons progz :)

psykocrash · Answer

essai sa :

sub tonsub()
call Envoyer("message1")
call Envoyer("message2")
end sub

public function Envoyer(byval data as string)
doevents
DataSended = 0
winsock.senddata data
doevents
while DataSended <> 1
doevents
wend
DataSended = 0
end function

et dans winsck_SendComplet(...), tu ajoute la ligne suivante :
DataSended = 1
et voila je pense ke sa devrais aller :)

Envois de données avec Winsock !!!

1 réponse

Discussions similaires