Bonjour,  
 
Je développe une application qui se sert des sockets et j'aimerais  
pouvoir recuperer les données se trouvant dans la fonction  
data_arrival.  
 
 
Public sub data_arrival(byval bytes as long)  
dim data  
winsock1.getdata data  
end sub  
 
 
Je pense qu'il faudrai transformer la fonction ci dessus en fonction  
afin de pouvoir renvoyer le tableau dans mon programme lorsque  
j'appelerais la fonction data arrival mais comment faut t'il faire ?  
 
 
Quelqu'un peut il m'aider svp ?  
 
 
Merci  
Johnson  
 

Tu as essayés :
 
Public Function data_arrival(byval bytes as long)  
dim data  
winsock1.getdata data  
data_arrival=data
end function
 
et d'appeler dans ton prog :
 Res=data_arrival

ca ne fonctionne pas! Lorsque par exemple j'envoit tous d'abord un paquet avec la commande send vers mon serveur je veux ensuite récupere un ACK pour me dire que mon paquet a bien été recu voici mon code
 
dim buffer(4) as byte
dim buffer1
buffer(3) = 1
Winsock1.send buffer
'une fois que mon serveur a recu mon buffer mon il doit simplement mettre la valeur 2 dans le buffer qu'il va me renvoyer je relit donc ensuite les données
 
winsock1.getdata buffer1
'je fais ensuite une condition qui me montrera que ce que je fais est correcte
 
if buffer1(3) = 2 then
MsgBox ("reception ok" )
 
Je trouve l'erreur 9 "subscript  out of range"
 
Savez vous d'ou vient l'erreur ?
Avec vous un exemple ou une aide ?
 
Merci
Johnson