probleme pour un protocole de communication

Le
francois
Bonjour,

j'ai besoin d'envoyer des données sous vb6 avec winsock d'un pc à un autre
en respectant un protocole défini.

Et je suis un peu perdu pour respecter les tailles des données binaires à
envoyer.

J'ai bien pensé créer un type personnalisé, mais je bloque completement.

Voila ce que dit le protocole.

Il y a 2 types. Le type integer qui fait un octet. Et le type chaine qui a
une taille indéfini de caracteres ascii et qui fini par un NULL.

Le paquet que je dois envoyer par tcp/ip se présente par exemple sous la
forme suivante :

1er champ :
Integer taille : 4 octets taille du paquet
2e champ :
Integer taille : 4 octets type de commande
3e champ :
chaine nom de commande
4e champ :
Integer taille : 6 octets type d'argument
5e champ :
chaine nom d'argument
6e champ :
Integer taille : 1 octet instruction

Dans le paquet que je dois envoyer, le champ taille correspond à la taille
total du paquet.

Pour le type de commande, j'ai 28

Pour le nom de commande j'ai "TEST"

Pour le type d'argument j'ai 155

Pour le nom d'argument j'ai "ARGUMENT TEST"

pour le champ instruction j'ai 5

Quelqu'un sait où je pourrais trouver une aide pour coder cela de facon à ce
que mon windosck.SendData puisse envoyer le paquet en respectant bien les
tailles des champs binaires ( qui font 4 ou 6 octets et donc en remplissant
avec des 0 ) ?

Merci pour votre aide, ca me rendra vraiment beaucoup service.
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
François Picalausa
Le #15579031
Hello,

Sous VB les Integer font 2 octets, les Long en font 4.
Donc, pour envoyer une commande sur 4 octets, tu peux employer quelquechose
comme:
Dim Blah As Long
Blah = &h1C '28
Winsock.SendData Blah

Il est aussi possible de définir implicitement le type de donénes:
Winsock.SendData &H1C&

Pour envoyer une chaine de caractères à la suite, tu peux initier un nouveau
SendData:
Winsock.SendData &H1C&
Winsock.SendData "TEST" & vbNullChar

Pour des integer de 6 octets, par contre, ça se corse... il n'y a pas ce
genre de types prédéfinis.
Néanmoins, 6 = 2 + 4 (ordre important) et donc, un peu de convertion et deux
SendData (un Integer suivit d'un Long ou l'inverse, suivant la procédure de
convertion) peuvent fonctionner.

--
François Picalausa

"francois"
Bonjour,

j'ai besoin d'envoyer des données sous vb6 avec winsock d'un pc à un
autre en respectant un protocole défini.

Et je suis un peu perdu pour respecter les tailles des données
binaires à envoyer.

J'ai bien pensé créer un type personnalisé, mais je bloque
completement.
Voila ce que dit le protocole.

Il y a 2 types. Le type integer qui fait un octet. Et le type chaine
qui a une taille indéfini de caracteres ascii et qui fini par un NULL.

Le paquet que je dois envoyer par tcp/ip se présente par exemple sous
la forme suivante :

1er champ :
Integer taille : 4 octets taille du paquet
2e champ :
Integer taille : 4 octets type de commande
3e champ :
chaine nom de commande
4e champ :
Integer taille : 6 octets type d'argument
5e champ :
chaine nom d'argument
6e champ :
Integer taille : 1 octet instruction

Dans le paquet que je dois envoyer, le champ taille correspond à la
taille total du paquet.

Pour le type de commande, j'ai 28

Pour le nom de commande j'ai "TEST"

Pour le type d'argument j'ai 155

Pour le nom d'argument j'ai "ARGUMENT TEST"

pour le champ instruction j'ai 5

Quelqu'un sait où je pourrais trouver une aide pour coder cela de
facon à ce que mon windosck.SendData puisse envoyer le paquet en
respectant bien les tailles des champs binaires ( qui font 4 ou 6
octets et donc en remplissant avec des 0 ) ?

Merci pour votre aide, ca me rendra vraiment beaucoup service.


francois
Le #15579011
"François Picalausa"
Hello,

Sous VB les Integer font 2 octets, les Long en font 4.
Donc, pour envoyer une commande sur 4 octets, tu peux employer
quelquechose comme:
Dim Blah As Long
Blah = &h1C '28
Winsock.SendData Blah




Bonjour,

C'est un apostrophe que vous avez mis entre 1C et 28 ? Pourquoi ?

Donc, si j'envoye un Long avec SendData, il partira forcément sur 4 octet
même si la valeur est inférieur à 255 ?

Merci de votre réponse.
Jacques
Le #15579001
Bonsoir,
francois a écrit :
"François Picalausa"

Hello,

Sous VB les Integer font 2 octets, les Long en font 4.
Donc, pour envoyer une commande sur 4 octets, tu peux employer
quelquechose comme:
Dim Blah As Long
Blah = &h1C '28
Winsock.SendData Blah





Bonjour,

C'est un apostrophe que vous avez mis entre 1C et 28 ? Pourquoi ?



' (apostrophe) indique le début d'un commentaire

&h1C : &h indique une valeur hexadécimale. 1C en hexa = 28 en décimal


Donc, si j'envoye un Long avec SendData, il partira forcément sur 4 octet
même si la valeur est inférieur à 255 ?



Oui.

Dans ton cas, pour tout ce qui n'est pas chaine de caractères tu devrait
peut être utiliser :

Dim Blah as string

Blah = chr$(28) ' pour un octet
Blah = chr$(x) & chr$(y) ' pour 2 octets
' (x et y étant les valeurs à envoyer)
etc ...
--
Cordialement,

Jacques.
François Picalausa
Le #15578991
Hello,

En VB l'apostrophe désigne un commentaire.
J'ai de cette manière noté à côté du nombre hexadécimal sa valeur
décimale... Ceci simplement parce que l'on perçoit généralement mieux la
taille d'une donnée en hexadécimal...

Sion, oui, un Long de VB fait 4 octets et fera toujours 4 octets, qu'il soit
en mémoire, ou qu'ilpasse par winsock ou qu'il soit stoqué dans un fichier
ou ...
La valeur importe peu, c'est le type qui définit la taille.

--
François Picalausa

"francois"
"François Picalausa" news:
Hello,

Sous VB les Integer font 2 octets, les Long en font 4.
Donc, pour envoyer une commande sur 4 octets, tu peux employer
quelquechose comme:
Dim Blah As Long
Blah = &h1C '28
Winsock.SendData Blah




Bonjour,

C'est un apostrophe que vous avez mis entre 1C et 28 ? Pourquoi ?

Donc, si j'envoye un Long avec SendData, il partira forcément sur 4
octet même si la valeur est inférieur à 255 ?

Merci de votre réponse.


francois
Le #15578971
"François Picalausa" OdGK7$
Hello,

En VB l'apostrophe désigne un commentaire.
J'ai de cette manière noté à côté du nombre hexadécimal sa valeur
décimale... Ceci simplement parce que l'on perçoit généralement mieux la
taille d'une donnée en hexadécimal...

Sion, oui, un Long de VB fait 4 octets et fera toujours 4 octets, qu'il
soit en mémoire, ou qu'ilpasse par winsock ou qu'il soit stoqué dans un
fichier ou ...
La valeur importe peu, c'est le type qui définit la taille.




Bonjour,

je viens de tester cela :

Dim chaine As String
Dim test As Long

test = 45
chaine = Chr(test)
SmppSendPrime.SendData chaine

et il renvoit uniquement un octet et pas 4.

d'ailleurs c'est confirmé puisque si je fais un len(chaine) il me renvoye
un.

Avez vous une solution ?

Je bloque complétement.

merci à tous.
francois
Le #15578961
"francois"

"François Picalausa" news: OdGK7$
Hello,

En VB l'apostrophe désigne un commentaire.
J'ai de cette manière noté à côté du nombre hexadécimal sa valeur
décimale... Ceci simplement parce que l'on perçoit généralement mieux la
taille d'une donnée en hexadécimal...

Sion, oui, un Long de VB fait 4 octets et fera toujours 4 octets, qu'il
soit en mémoire, ou qu'ilpasse par winsock ou qu'il soit stoqué dans un
fichier ou ...
La valeur importe peu, c'est le type qui définit la taille.




Bonjour,

je viens de tester cela :

Dim chaine As String
Dim test As Long

test = 45
chaine = Chr(test)
SmppSendPrime.SendData chaine

et il renvoit uniquement un octet et pas 4.

d'ailleurs c'est confirmé puisque si je fais un len(chaine) il me renvoye
un.

Avez vous une solution ?

Je bloque complétement.

merci à tous.



J'ai essayé Chr(CLng(test)) ca ne change rien il envoye toujours sur 1
octets.

j'ai essayé CLng(Chr(test)) il me renvoye type incompatible.
Jacques
Le #15578951
Bonsoir,
francois a écrit :
"François Picalausa" OdGK7$

Hello,

En VB l'apostrophe désigne un commentaire.
J'ai de cette manière noté à côté du nombre hexadécimal sa valeur
décimale... Ceci simplement parce que l'on perçoit généralement mieux la
taille d'une donnée en hexadécimal...

Sion, oui, un Long de VB fait 4 octets et fera toujours 4 octets, qu'il
soit en mémoire, ou qu'ilpasse par winsock ou qu'il soit stoqué dans un
fichier ou ...
La valeur importe peu, c'est le type qui définit la taille.





Bonjour,

je viens de tester cela :

Dim chaine As String
Dim test As Long

test = 45
chaine = Chr(test)
SmppSendPrime.SendData chaine

et il renvoit uniquement un octet et pas 4.




Chr$() renvoie un octet (8 bits).

Si tu veux envoyer 4 caractères :

chaine = chr$(Test) & chr$(0) & chr$(0) & chr$(0)

Ensuite cela dépend aussi de l'ordre dans lequel le programme récepteur
interprete les données :

Pour Intel, avec un entier de type Long (32 bits)

Low-Word (16 bits) / High-Word (16 bits)

et à l'intérieur de chaque mots de 16 bits

Low-Byte (8 bits) / High Byte (8 bits)

c'est à dire que la valeur hexa 0x12 34 56 78 sera stockée sous la forme
0x78 0x56 0x34 0x12 .

Notation dite little Endian.


--
Cordialement,

Jacques.
Jean-Marc
Le #15578931
"francois" news:

> Dim chaine As String
> Dim test As Long
>
> test = 45
> chaine = Chr(test)
> SmppSendPrime.SendData chaine
>
> et il renvoit uniquement un octet et pas 4.
>
> d'ailleurs c'est confirmé puisque si je fais un len(chaine) il me


renvoye
> un.



On croit rêver. Vous m'envoyez chier sur un autre groupe
de discussion en me disant que "Oui, concatener des
chaînes, je sais faire" ...

Lisez la doc de Chr() et Chr$() au lieu de faire des
"essais" débiles :-((

Allez, je suis pas rancunier:

Dim s as String

s = chr(0) & chr(0) & chr(0) & chr(45)

debug.print len(s) ' <= Oh joie! Ca fait 4 !

winsock.senddata s ' <= taddaa!! miracle, ça marche!

<hs action="conseil">
si vous voulez de l'aide, être grossier
n'est pas le meilleur moyen.
</hs>

--
Jean-marc
"There are only 10 kind of people
those who understand binary and those who don't."
francois
Le #15578921
"Jean-Marc" news: 4249c4c0$0$30160$
"francois" news:

> Dim chaine As String
> Dim test As Long
>
> test = 45
> chaine = Chr(test)
> SmppSendPrime.SendData chaine
>
> et il renvoit uniquement un octet et pas 4.
>
> d'ailleurs c'est confirmé puisque si je fais un len(chaine) il me


renvoye
> un.



On croit rêver. Vous m'envoyez chier sur un autre groupe
de discussion en me disant que "Oui, concatener des
chaînes, je sais faire" ...

Lisez la doc de Chr() et Chr$() au lieu de faire des
"essais" débiles :-((

Allez, je suis pas rancunier:

Dim s as String

s = chr(0) & chr(0) & chr(0) & chr(45)




je vous remercie de votre aide.

je veux pas être grossier et je m'en excuse sincerement si j'ai donné
l'impression de l'avoir été..

Mais là aussi (comme dans vos messages dans l'autre forum), ce que vous
proposez, je peux le faire sans probleme et j'y avais déjà pensé.

Mais je vous rappelle que le nombre à envoyer est un long. Et si le nombre à
envoyer est 300 et que je tape

s = chr(0) & chr(0) & chr(0) & chr(300)

Ca ne marchera pas.

Donc, sans être grossier (et j'espere sincerement que vous ne prendrez pas
mal ma réponse car ce n'est pas le but et je vous suis reconnaissant d'avoir
essayé de faire avance le chmilblick), votre solution ne me sert strictement
à rien.

Ce que j'aimerais, ce serait une solution qui marche à tous les coups et pas
uniquement dans certains cas très particuliers....
francois
Le #15578911
"Jacques" news:
Bonsoir,
francois a écrit :
"François Picalausa" news: OdGK7$

Hello,

En VB l'apostrophe désigne un commentaire.
J'ai de cette manière noté à côté du nombre hexadécimal sa valeur
décimale... Ceci simplement parce que l'on perçoit généralement mieux la
taille d'une donnée en hexadécimal...

Sion, oui, un Long de VB fait 4 octets et fera toujours 4 octets, qu'il
soit en mémoire, ou qu'ilpasse par winsock ou qu'il soit stoqué dans un
fichier ou ...
La valeur importe peu, c'est le type qui définit la taille.





Bonjour,

je viens de tester cela :

Dim chaine As String
Dim test As Long

test = 45
chaine = Chr(test)
SmppSendPrime.SendData chaine

et il renvoit uniquement un octet et pas 4.




Chr$() renvoie un octet (8 bits).

Si tu veux envoyer 4 caractères :

chaine = chr$(Test) & chr$(0) & chr$(0) & chr$(0)




Merci de votre réponse.

Dans mon cas c'est du Big Endian. Donc ce serait
chaine = chr$(0) & chr$(0) & chr$(0) & chr$(Test)

Mais comme je l'ai dit à une autre personne, cette solution ne me convient
pas puisque Test est un Long.

Et que si Test = 300, ca ne fonctionne pas.

En fait, si quelqu'un me donne les calculs (ca devient trop complique pour
moi :):) ) me permettant de remplir le s 3 premiers chr$ si test est
superieur à 255... je pourrais me débrouiller :)

merci de votre aide.
Publicité
Poster une réponse
Anonyme