Découpage de bytes

Version imprimable

31/08/2006, 10h12
dacid

Découpage de bytes

Bonjour,

Je récupère des paquets via le port COM que je dois traiter ensuite.
Notament, dans ce paquet, il y a un timestamp sur 4 bytes répartis de cette manière:
seconds (6 bits)
minutes (6 bits)
hours (5 bits)
days (5 bits)
months (4 bits)
years (6 bits)

N'ayant jamais fait ce genre de chose, je vous demande de l'aide.

(Il faut transformer en binaire et recopier la longueur voulue dans un byte en rajoutant des 0 devant, nan ?)

Merci d'avance.
31/08/2006, 10h42
TicTacToe

pour récupérer des parties il faut utiliser les opérateurs binaires, les masques et les décalages.
Il n'y a pas de "transformation" a faire, un nombre est un nombre, il est représenté sous forme binaire, hexa ou décimale.

Pour les minutes par exemple, qui sont dans la zone

MaVar = 00000000 00000000 000001111 11000000

1. tu décales de 6 bits vers la droite (pour éliminer la zone des secondes)

Code:

MaVarTemp := MaVar shr 6;

2. puis tu masques selon la taille à récupérer

Code:

Minutes := MaVarTemp and $3F

étant donné de $3F est un masque sur les 6 1ers bits

ainsi de suite pour toutes tes zones

bonc code :):

:EDIT:
pour l'opération inverse, il faut faire qqchose du style

Code:

MaVar := ( Secondes and $ 3F ) + ( Minute and $ 3F ) shl 6 + (heure and $1F ) shl 12 + ...
31/08/2006, 11h43
dacid

Ok, merci... Je vais essayer ça tout de suite !

Heu, juste comme ça... MaVar, tu la vois de quel type ? array[0..3] of Char ?

Et tu l'initialiserais comme ça:
maVar[0] := tampon[nblu-4];
maVar[1] := tampon[nblu-3];
maVar[2] := tampon[nblu-2];
maVar[3] := tampon[nblu-1];

Nan ?

Salut,

Je pense qu'il faut prendre le type LongWord , 32 bits non signés.

Pour l'initialiser, ceci pourrait faire l'affaire
Code:

1 2 3 4 5 6 7 var MaVar: LongWord; i: Integer; begin for i := 0 to 3 do MaVar := MaVar + LongWord( tampon[ i ] ) shl ( i * 8 ) ... // ou (3 - i ) en indice du tableau selon l'ordre de réception... ?

Bon, ca ne marche pas...

Voici mon code:
Code:

1 2 3 4 5 6 7 8 temp := ''; MaVar := 0; for j := 0 to 3 do begin MaVar := MaVar+LongWord(tampon[nblu-4+j]) shl (j*8); temp := temp+'('+IntToStr(Integer(tampon[nblu-4+j]))+')'; end; maVarTemp := maVar shr 6; temp := temp+'>'+IntToStr(MaVarTemp and $3F);
Il m'affiche toujours 22, les bits sont pourtant bien les bons.

Voici les 4 bits pour 11:28:37 AM 8/31/06: (149)(197)(254)(6)
149 en binaire donne: 10010101
Les 6 premiers bits sont: 100101 et ça fait bien 37 secondes !

31/08/2006, 12h36
TicTacToe

non c correct :D

attention à l'ordre des bits.
dans ton exemple, tu as les bytes succ stockés:
(149)(197)(254)(6)

-> ton binaire final est donc le suivant, en prenant 149 en 1er de droite à gauche:

0000 0110 1111 1110 1100 0101 1001 0101

Après le shr 6 -> on décale ce binaire de 6 vers la droite ce qui donne
0000 0110 1111 1110 1100 0101 10, en regroupant pour le visuel:
00 0001 1011 1111 1011 0001 0110

Ensuite le masque prend les 6 derniers bits qui sont
01 0110

--> ce qui fait bien 22
31/08/2006, 14h27
dacid

Je ne comprends pas trop...

Je ne veux pas 22 mais 37... en fait, les six bits, tu me les enlèves alors que je les veux. 8O
C'est plutot de 32-6 qu'il faudrait décaler, nan ?

Et pourquoi tu m'inverse les bytes ?

Je suis un peu perdu... Un bout de code ne serait pas de trop.
31/08/2006, 15h01
TicTacToe

1 pièce(s) jointe(s)

Citation:

Je ne veux pas 22 mais 37... en fait, les six bits, tu me les enlèves alors que je les veux.

22 est le résultat...
Mais je crois en effet que tu es perdus entre les bits de poids fort, et de poids faible.
Et également, attention à ne pas faire le mélange entre bit et byte (=octet=8bits).

de plus, l'exemple porte sur le nombre de minutes et pas sur le nombre de seconde

On construit MaVar, comme un empilage d'octets que tu recois. Le 1er octets qu'on empile est l'octet de poids le plus faible (ici 149) et qui se retrouve dans la partie droite, ensuite 197 etc...

en décimal, cela se passerait de cette manière si j'ai 3 chiffres à empiler (4)(7) et (2). (:edit ouppss, j'ai oublié la suite)
MaVar= 4 + 7*10 + 2 * 100
ou 4 est l'unité et représente le poids faible

mais je te fais un schéma en Excel pour que tu comprennes un peu mieux le mécanisme
Pièce jointe 4314

LE code que tu as fais corresponds au Cas 1,
Essaye avec le Cas 2 (mais ce sera 56 et pas 37...) en remplacant en indice de tableau j par (3 - j) :)
31/08/2006, 15h28
dacid

Ni 56 ni 22... Tu as raison, plus j'avance et plus je me perds. :(
(si c'est les minutes, ce n'est pas 37 mais 28 qu'il faut, ce n'est pas bon non plus).

J'aimerais déjà empiler dans le bon sens (celui qui me parrait logique en tout cas), le cas 2.

Suffit-il de faire un down to ?
31/08/2006, 15h31
TicTacToe

non, il suffit de remplacer strictement j par j-3 en indice de ton tableau

mais j'ai mis cet ordre pour sec., min. etc... de droite à gauche car cela me paraissait logique, mais c'est peut-être l'inverse aussi, dans ce cas, il faut en tenir compte dans la manière de décoder

mais essaye déjà avec j par j - 3

PS: tu as mis nblue-4 en plus dans l'indice -> je ne sais pas a quoi cela correspond...

si ton tableau fait uniquement 4 octets, il faut juste mettre j-3 et c'est tout.
Sinon, NbLue + j - 3 à mon sens
31/08/2006, 15h36
dacid

NbLue C'est la quantité de bytes dans le paquet, le timestamp commence à l'incide NbLue-4, c'est tout !
(Le paquet à une longueur variable et il y a d'autres données avant le timestamp).

Bon, j'ai fait le cas 2 et le résultat ne donne toujours rien, je désespère.
31/08/2006, 15h42
TicTacToe

ca y est j' ai trouvé ton 37 secondes :)

en fait, tes temps son empilés en sens inverse (les sec. sont dans le poids fort et les années dans le poids faible, et tout ca dans le cas 2, je complété la capture et je la relance...)

mais rassure moi, tu cherche a avoir 37 sec, car tu en a la confirmation à la source ?
31/08/2006, 15h48
dacid

Oui, c'est ça... Comme dit précedemment, les 4 bytes: (149)(197)(254)(6) doivent donner: 11:28:37 AM 8/31/06. (format americain)

Exemple pour les secondes:
(149)(197)(254)(6) donne:
10010101 11000101 11111110 00000110
Les 6 premiers bits sont: 100101 et ça fait bien 37 secondes
les 6 suivants sont: 011100 donnent bien 28 minutes.
...

C'est ce comportement que je m'efforce de reproduire avec delphi.
C'est tellement simple sur papier ! :lol:

essaye avec ceci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 MaVar := 0; // construction du longword for j := 0 to 3 do MaVar := MaVar+LongWord(tampon[nblu-4+ j-3]) shl (j*8); // séparation des bits en temps y := MaVar and $3F; MaVar := MaVar shr 6; mo := MaVar and $0F; mo := MaVar shr 4; d := MaVar and $1F; MaVar := MaVar shr 5; h := MaVar and $1F; MaVar := MaVar shr 5; m := MaVar and $3F; MaVar := MaVar shr 6; s := MaVar and $3F; MaDate := EncodeDateTime( y, mo, d, h, m, s, 0 );
C'etait tout simplement tout à l'envers au début...
et l'empilage des octets sources
et le décodage des temps...

:EDIT: Gloups :oops: j'ai décodé en partant des sec. au lieu des années...
Ne tiens je te reformule le code attend qq minutes ...

:EDIT2: rectifié...

31/08/2006, 16h04
dacid

Bin non, ça ne marche pas...
A mon avis, c'est le for qui n'est pas bon vu que ça me retourne
2512780806 au lieu de
2504610384
31/08/2006, 16h12
TicTacToe

heu, 2 erreurs dans mon sources après relecture, mais je vais tester en réel,

- le + de l'incrémentation est peut-être prioritaire sur le shl -> calcul faux
- c'est 3 - j qu'il faut mettre et non j - 3 comme je l'ai martelé :)

je teste mon code et je reviens

Ce Code est correct et renvoie ce que tu souhaites,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
procedure TFStockE.Button1Click(Sender: TObject);
var
   j: Integer;
   t: array[ 0..3] of byte;
   s,m,h,d,mo,y: longword;
   MaVar: LongWord;
   MaDate: TDateTime;
begin
       // tableau initial
 
       t[ 0 ] := 149;
       t[ 1 ] := 197;
       t[ 2 ] := 254;
       t[ 3 ] := 6;
 
       // construction du longword
       MaVar := 0;
       for j := 0 to 3
         do MaVar := MaVar + (  LongWord( t[3-j] ) shl (j*8) );
 
       // décomposition
       y := MaVar and $3F;
       MaVar := MaVar shr 6;
 
       mo := MaVar and $0F;
       MaVar := MaVar shr 4;
 
       d := MaVar and $1F;
       MaVar := MaVar shr 5;
 
       h := MaVar and $1F;
       MaVar := MaVar shr 5;
 
       m := MaVar and $3F;
       MaVar := MaVar shr 6;
 
       s := MaVar and $3F;

Il est pratiquement inchangé, mais attention, tu ne peux pas l'encode directement dans EncodeDateTime à cause de l'année.

Sinon, les nombres que tu cites, le code renvoyait le résultat correct:
2 512 780 806 ...

31/08/2006, 17h18
dacid

Extra, ça marche à merveille.

J'ai sauté ta variable t:
MaVar := 0;
for j := 0 to 3 do
MaVar := MaVar+(LongWord(tampon[nblu-1-j]) shl (j*8));

Et j'ai ajouté 2000 à y pour le EncodeDateTime (il n'y aura jamais 19..).

Merci pour tout, merci mille fois.