Convertion toutes données vers chaine representation binaire

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 763 fois - Téléchargée 8 fois


Contenu du snippet

{ ToBinStr
   
   convertion d'un buffer vers representation binaire
   params : 
      Buffer [i] constante non typée
      BufferSize [i] taille du buffer en octets
   returns :
      String, chaine de caractere representant buffer en binaire.
}
function ToBinStr(const Buffer; const BufferSize : integer) : string;
var
  pB : ^byte;
  pR : PChar;
  N  : integer;
const
  BC : array[boolean] of char = '01';
begin
  pB := @Buffer;
  inc(pB, BufferSize-1);
  SetLength(result, BufferSize shl 3);
  pR := PChar(Result);
  for N := 0 to BufferSize-1 do
  begin
    pR[0] := BC[ (pB^ and $80) = $80 ];
    pR[1] := BC[ (pB^ and $40) = $40 ];
    pR[2] := BC[ (pB^ and $20) = $20 ];
    pR[3] := BC[ (pB^ and $10) = $10 ];
    pR[4] := BC[ (pB^ and $08) = $08 ];
    pR[5] := BC[ (pB^ and $04) = $04 ];
    pR[6] := BC[ (pB^ and $02) = $02 ];
    pR[7] := BC[ (pB^ and $01) = $01 ];
    dec(pB);
    inc(pR,8);
  end;
end;

Compatibilité : Delphi 5

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.