DevMedia

Transformar Texto em Binario

0
Tenho um arquivo texto e preciso transforma em arquivo Binario
Tem como fazer isso com o Delphi

como ???????????????????


Publicidade

Respostas (5)

0
Colega,

Você quer transformar o valor ASCII de cada caractere em um sequência binária? É isso?


0
É isso ai Aroldo,
Você pode me ajudar ????

Ficaria muito grato !!!!


0
Colega,

Para reproduzir o exemplo abaixo, solte um componente TButoon (btnCrypt) e um TMemo (mmo1). Fiz uma procedure execute para facilitar o entendimento:

#Código
function IntToBin(B: Byte): string;

type
  TCrypt = class
  private
    FLineData: String;
    FLineBinary: String;
    procedure SetLineData(const Value: String);
  public
    procedure Execute;
    property LineData: String read FLineData write SetLineData;
    property LineBinary: String read FLineBinary;
  end;


var
  Form1: TForm1;

implementation

{$R *.dfm}


{ TCrypt }

procedure TCrypt.Execute;
var I, N: SmallInt;
begin
  N := Length(FLineData);
  for I := 1 to N do
  begin
    FLineBinary := FLineBinary + IntToBin(Ord(FLineData[I]));
  end;
end;

procedure TCrypt.SetLineData(const Value: String);
begin
  FLineData   := Value;
end;

procedure TForm1.btnCryptClick(Sender: TObject);
var Crypt: TCrypt;
begin
  Crypt   := TCrypt.Create;
  Crypt.LineData    := ´Aroldo Zanela´;
  Crypt.Execute;

  mmo1.Lines.Add(Crypt.LineBinary);
  Crypt.Free;
end;

function IntToBin(B: Byte): string;
var
  I: Integer;
begin
  Result := ´´;
  for I := 0 to 7 do
  begin
    if Odd(B) then
      Result := ´1´ + Result
    else
      Result := ´0´ + Result;
    B := B shr 1;
  end;
end;



0
tbm quero saber me interessei!!!

boa cara bom tópico!


0
UPP