-------------------------------
Réponse au message :
-------------------------------
> Voici une procédure qui extrait les bits 7 par 7 d'un tableau :
>
> procedure TForm1.Button1Click(Sender: TObject);
> Var Tableau : Array[0..799] Of Byte;
> Mot : Word;
> SeptBits : Integer;
> NumBit : Integer;
> begin
> // ...
> // Chargement du tableau
> // ...
Merci pour la réponser: j'essaye.
Bonnes fêtes et à bientôt.
Florent
> NumBit:=0;
> While NumBit<(SizeOf(Tableau)*8-7) Do
> Begin
> // On copie les deux octets contenant les bits voulus dans un mot
> Move(Tableau[NumBit Div 8],Mot,2);
> // Dans le mot de 16 bit on masque les 7 bits utiles,
> // et on les décales à droite afin qu'ils soient de 0 à 6
> SeptBits:=(Mot And ($7F Shl (NumBit Mod 8)))Shr (NumBit Mod 8);
> // ...
> // Traitement sur le groupe de 7 bits contenu dans 7 bits
> // ...
> Inc(NumBit,7);
> End;
> end;
>
> ---
Nono40@fr.st
---
> Nouveau --->
Nono40.fr.st>
>
> -------------------------------
> Réponse au message :
> -------------------------------
>
> > Dans un array[1..100] of byte, comment lire les 800 bytes de 7 en 7 bits, donc du bit 1 au bit 7, du bit 8 au bit 14, du bit 15 au bit 21, etc ... Il s'agit d'un problème de cryptage. Merci.
>