Découpage de bytes

http://www.gentag.fr

salut,
tu peux utliser un shr(valeur,decalage) puis faire un and 000xxx pour effacer les bits non significatifs

@+
jlen

Il n'y a pas besoin de "transformer" en binaire, une valeur entière est toujours représentée en binaire en mémoire.
tu dois te renseigner sur les opératiosn binaires en revanche
( 1 or 1 ) = 1
( 1 or 0 ) = 1
( 0 or 0 ) = 0

( 1 xor 1 ) = 0
( 1 xor 0 ) = 1
( 0 xor 0 ) = 0

( 1 and 1 ) = 1
( 1 and 0 ) = 0
( 0 and 0 ) = 0

//Attention c'est en binaire 1=1, 10=2,  11=3, 100=4, etc...
( 100 shr 0 ) = 100   ( 1 shl 0 ) = 1
( 100 shr 1 ) = 010   ( 1 shl 1 ) = 10
( 100 shr 2 ) = 001   ( 1 shl 2 ) = 100
bon, a supposer que les secondes soient dans les bits de gauche:

0000 0000  0000 0000   0000 0000  0000 0000

function COMTimeStampToString(TimeStamp: Cardinal): String;
Begin
    //Years
    Result:=IntToStr(TimeStamp And $0000003F) + 'Years, ';  // On  prend  que  les  6  derniers  bits de la variable et on masque les autres
    //Month
    Result:=Result+IntToStr((TimeStamp shr 6) And $0000000F)+'Months, ' // Idem, mais avant on décale de 6 bits vers la droite pour virrer l'année
    //Day
    result:=result+IntToStr((TimeStamp shr 10) And $0000001F)+'Days, ' // Idem mais on décale de 10 ( 6 + 4 )
    //etc.
End;

exemple
tes bits ( valeurs au pif ):
1100 1111   0000 1111  1010 1111   1111 0000
And
0000 0000   0000 0000  0011 1111 ( $0000003F en hexa )
=
0000 0000   0000 0000  0000 0000   0011 0000

autre example

1100 1111  0000 1111  1010 1111  1111 0000
shr 6 =
0100 1111  0011 1100   00111110  1011  1111
And
0000 0000  0000 0000   0000 0000  0000 1111 ( $0000001F en hexa )
=
0000 0000  0000 0000   0000 0000   0000 1111

voilà  voilà

bouh

oops, j'ai oublié des zéros à la seconde ligne du premier exemple ^^'

bouh

autre example:
1100 1111  0000 1111  1010 1111  1111 0000
shr 6 = ( tu décale de 6 vers la droite )
0000 0011  0011 1100   0011 1110  1011 1111
And
0000 0000  0000 0000   0000 0000  0000 1111 ( $0000001F en hexa )
=
0000 0000  0000 0000   0000 0000  0000 1111

là c'est mieu déjà ( j'sais pas ce que j'avais fouttu... fatigué moi... )

bouh

en passant: function EncodeDate(Year, Month, Day: Word): TDateTime; ca risque de t'aider...

Salut,

Un petit exemple:

 {
  seconds (6 bits)
  minutes (6 bits)
  hours (5 bits)
  days (5 bits)
  months (4 bits)
  years (6 bits)
  }
  TCOMTimeStamp = class
     private

     FValues: array[0..5] of Dword;

     FPacket: DWORD;
     procedure Display;
     procedure GetCOMTimeStampFrom(Packet: DWORD);
     function GetValue(indice: integer): DWORD;
     public
     constructor Create(Packet: Dword);
     published
       property Seconds: DWord index 0 read GetValue;
       property Minutes: DWord index 1 read GetValue;
       property Hours: DWord index 2 read GetValue;
       property Days: DWord index 3 read GetValue;
       property Months: DWord index 4 read GetValue;
       property Years: DWord index 5 read GetValue;
  end;


constructor TCOMTimeStamp.Create(Packet: DWord);
begin
GetCOMTimeStampFrom(Packet);
end;

procedure TCOMTimeStamp.GetCOMTimeStampFrom(Packet: DWord);
  const ShrValues: array[0..5] of Byte = (6,6,5,5,4,0);
  const MaskValues: array[0..5] of Byte = ($3f,$3f,$1f,$1f,$0f,$ff);
  var i: integer;
begin
//Sauvegarde
FPacket := Packet;
  for i := Low(MaskValues) to High(MaskValues) do
  begin
      FValues[i] := Packet and MaskValues[i] ;
      Packet := Packet shr ShrValues[i];
  end;
end;

function TCOMTimeStamp.GetValue(indice: integer):DWORD;
begin
result := FValues[indice];
end;

procedure TCOMTimeStamp.Display;
begin
ShowMessage(Format('%d années : %d mois : %d jours : %d heures : %d minutes : %d secondes', [FValues[5],FValues[4],FValues[3],FValues[2],FValues[1],FValues[0]]));
end;


j!nH

Oups place juste la procédure Display en public.

C'est bien sûr optimisable et tu peux enjoliver le tout avec des constantes pour les indices.
C'est uniquement conceptuel comme code...

j!nH

Bonjour à tous et merci pour votre rapidité, J'ai essayé la classe et le resultat de display n'est pas correct: maVar,maVarTemp: LongWord; cts: TCOMTimeStamp; temp := ''; MaVar := 0; for j := 0 to 3 do begin MaVar := MaVar+LongWord(tampon[nblu-4+j]) shl (j*8); end; cts := TCOMTimeStamp.Create(MaVar); cts.Display; cts.Free; Voyez vous le pb ?