Discussion :

[johnson95]

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.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
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

[jmfmarques]

Je pense qu'il faudrai transformer la fonction ci dessus en fonction

comment changer du chocolat en chocolat ?
Surveille ta terminologie (c'est important) et explique-toi avec précision sur ce que tu envoies pour traitement, comment tu l'envoies, et comment tu veux qu'il te soit renvoyé.

[ThierryAIM]

Sous quoi, Delphi, C++ ?? !!!

[johnson95]

désolé!

Alors tous d'abord je travaille sur VB 6

ensuite voici mon probleme :

J'utilise une apllication avec winsock.
je souhaite envoyer 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

1 essai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
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"

2e essai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
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

J'utilise ensuite l'évenement data arrival afin de récuperer les données mais mon probleme est que je ne peux récuperer les données de ce sub
(j'ai essayé de transformer ce sub en fonction mais on ne peut y toucher, j'ai aussi une nouvelle fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
public function data_arrival ()
dim data
winsock1.getdata data
data_arrival data
end function

ensuite dans mon programme principale je recupere le tableau mais lorsque j'esssaye de lire data(3) j'ai l'erreur 9 "subscript out range")

3 essai :
J'ai réessayer la premiere methode en déclarant data en variable globale mais ceci ne fonctionne pas non plus.

Avez vous une solution a me proposer ?

Merci
Johnson