conversion binaire en caractèreRésolu

Question

Bonjour,
voulez vous m'aider pour convertir un texte en binaire à un texte en caractère, c'est-à-dire prendre chaque 8bits et le convertir utilisant le code Ascii, j'ai essayé la fonction "chr " mais elle ne marche pas, par exemple pour chr(01000001) elle me donne le "A" et c'est vrai mais pour chr(01000010) elle me donne "J " et c'est normalement le "B",
Merci d'avance.

codepvc · Accepted Answer

Merci à tous de me répondre
j'ais trouvé sur ce site un petit algorithme trés simple qui atteint mon objectif, le voila:

Conversion binaire à un caractère

procedure TForm1.Button1Click(Sender: TObject);
var Nbr,result,B,N: integer  ;
begin
  result := 0;
  B := 1; { le premier est a 1 }
  For N := Length(Edit1.Text) downto 1
  do begin                         { si le caractere a la position N est egal a 1 }
      if Edit1.Text[N] = '1' then
      result := result + B;        { alors on additionne Result avec la valeur courrante de B }
      B := B*2;                 { a chaque passage on additionne B avec lui meme }
  end;



  Nbr := result;
  Label1.Caption := chr(Nbr) ;
end;

Merci encore une deuxième fois.

cs_cantador · Answer

Bonsoir,
pour B
Showmessage(chr(01000002));
cantador

f0xi · Answer

function StrToStrBin(const S: string): string;
var pOutput : pChar;
    pInput : ^byte;
    N, LenInput : integer;
const
  AtBin : array[boolean] of char = '01';
begin
  LenInput := Length(S);
  SetLength(Result, LenInput shl 3);
  pInput := @S[1];
  pOutput := pChar(result);
  for N := 1 to LenInput do
  begin
    pOutput[0] := AtBin[(pInput^ and $80) = $80];
    pOutput[1] := AtBin[(pInput^ and $40) = $40];
    pOutput[2] := AtBin[(pInput^ and $20) = $20];
    pOutput[3] := AtBin[(pInput^ and $10) = $10];
    pOutput[4] := AtBin[(pInput^ and $08) = $08];
    pOutput[5] := AtBin[(pInput^ and $04) = $04];
    pOutput[6] := AtBin[(pInput^ and $02) = $02];
    pOutput[7] := AtBin[(pInput^ and $01) = $01];
    inc(pOutput,8);
    inc(pInput);
  end;
end;

function StrBinToStr(const S: string): string;
var pInput : PChar;
    pOutput: ^Byte;
    N, LenInput: integer;
const
  AtBin : array['0'..'1'] of byte = (0,1);
begin
  LenInput := Length(S);
  SetLength(result, LenInput shr 3);
  LenInput := Length(result);
  pInput := PChar(S);
  pOutput := @result[1];
  for N := 1 to LenInput do
  begin
    pOutput^ := 0;
    pOutput^ := byte( (AtBin[pInput[0]] shl 7) or
                      (AtBin[pInput[1]] shl 6) or
                      (AtBin[pInput[2]] shl 5) or
                      (AtBin[pInput[3]] shl 4) or
                      (AtBin[pInput[4]] shl 3) or
                      (AtBin[pInput[5]] shl 2) or
                      (AtBin[pInput[6]] shl 1) or
                       AtBin[pInput[7]]
                  );
    inc(pInput, 8);
    inc(pOutput);
  end;
end;






-> S = "le petit chien fait caca" 
SB := StrToStrBin(S);
-> SB = "01101100 01100101 00100000 01110000 01100101 01110100 01101001 01110100 00100000 01100011 01101000 01101001 01100101 01101110 00100000 01100110 01100001 01101001 01110100 00100000 01100011 01100001 01100011 01100001" 
S := StrBinToStr(SB);
-> S = "le petit chien fait caca"

cs_cantador · Answer

Je le savais que f0xi viendrait dans cet exercice dans lequel il excelle..

cantador

codepvc · Answer

pour B se n'est pas Showmessage(chr(01000002));
car j'ai dit binaire c'est à dire uniquement le 0 et le 1;
f0xi, est ce que tu peut m'expliquer chaque instruction car j'ai pas compris le programme, je suis qu'un débutant en delphi,
Merci cantador et f0xi.

cs_cantador · Answer

essaie avec "le petit chien l'a dans le baba"

cantador

cs_cantador · Answer

une explication un peu juste..

B: code ascii: 66
showmessage(chr(66)) donne B
et 66 en binaire donne 1000010
et en servant du code à f0xi :
showmessage(strbintoStr('01000010')) donne B

en attendant le tuto..
cantador

f0xi · Answer

function StrToStrBin(const S: string): string;

StrToStrBin renvois la representation binaire (texte) d'un texte 

var pOutput : pChar;  // pointeur sur sortie de fonction
    pInput : ^byte;   // pointeur sur entrée de fonction

    N, LenInput : integer;

const
  AtBin : array[boolean] of char = '01'; // convertion directe booléen vers 0 ou 1 (false=0 et true=1)

begin

  // recuperation de la taille du texte en entrée
  LenInput := Length(S);

  // definition de la taille de la representation binaire du texte en sortie (LenInput * 8 puisque 1 byte = 8 bits) 
  SetLength(Result, LenInput shl 3);

  // pointage sur premier elements du texte en entrée (premier octet)
  pInput := @S[1];

  // pointage sur sortie (pChar, voir l'aide delphi)
  pOutput := pChar(result);

  // pour 1 a taille du texte en entrée
  for N := 1 to LenInput do
  begin
    // pOuput[x] = '1' si bit[y] de pInput = 1, sinon '0'
    { $80 = 10000000 (bit 7)
      $40 = 01000000 (bit 6)
      $20 = 00100000 (bit 5)
      $10 = 00010000 (bit 4)
      $08 = 00001000 (bit 3)
      $04 = 00000100 (bit 2)
      $02 = 00000010 (bit 1)
      $01 = 00000001 (bit 0)
      
      exemple :
      'd' vaut #100 : $64 : 01100100
      

      'd' and $80 01100100 and 10000000 00000000 = '0'

      'd' and $40 01100100 and 01000000 01000000 = '1'

      'd' and $20 01100100 and 00100000 00100000 = '1'

      'd' and $10 01100100 and 00010000 00000000 = '0'

      'd' and $08 01100100 and 00001000 00000000 = '0'

      'd' and $04 01100100 and 00000100 00000100 = '1'

      'd' and $02 01100100 and 00000010 00000000 = '0'

      'd' and $01 01100100 and 00000001 00000000 = '0'
      chaine '01100100' 01100100 = 'd'


    }

    pOutput[0] := AtBin[(pInput^ and $80) = $80];
    pOutput[1] := AtBin[(pInput^ and $40) = $40];
    pOutput[2] := AtBin[(pInput^ and $20) = $20];
    pOutput[3] := AtBin[(pInput^ and $10) = $10];
    pOutput[4] := AtBin[(pInput^ and $08) = $08];
    pOutput[5] := AtBin[(pInput^ and $04) = $04];
    pOutput[6] := AtBin[(pInput^ and $02) = $02];
    pOutput[7] := AtBin[(pInput^ and $01) = $01];

    // increment le pointeur de sortie de 8 bytes
    inc(pOutput,8);

    // incremente le pointeur d'entrée de 1 byte
    inc(pInput);
  end;
end;

// la même chose mais en sens inverse
function StrBinToStr(const S: string): string;
var pInput : PChar;
    pOutput: ^Byte;
    N, LenInput: integer;
const
  AtBin : array['0'..'1'] of byte = (0,1);
begin
  LenInput := Length(S);
  SetLength(result, LenInput shr 3);
  LenInput := Length(result);
  pInput := PChar(S);
  pOutput := @result[1];
  for N := 1 to LenInput do
  begin
    pOutput^ := 0;
    pOutput^ := byte( (AtBin[pInput[0]] shl 7) or
                      (AtBin[pInput[1]] shl 6) or
                      (AtBin[pInput[2]] shl 5) or
                      (AtBin[pInput[3]] shl 4) or
                      (AtBin[pInput[4]] shl 3) or
                      (AtBin[pInput[5]] shl 2) or
                      (AtBin[pInput[6]] shl 1) or
                       AtBin[pInput[7]]
                  );
    inc(pInput, 8);
    inc(pOutput);
  end;
end;

cs_cantador · Answer

merci f0xi

cantador

jlen100 · Answer

salut 
dans l'exemple que tu donnes(chr(01000001)) 01000001 n'est pas une valeur binaire mais un valeur décimale il est donc normal que chr(01000010) affiche 'J' puisque 'J' est le 10éme caractère

@+
jlen

Conversion binaire en caractère

10 réponses

Votre réponse

Discussions similaires