Transformar Texto em Binario

Delphi

15/02/2006

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

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


Fabiano Góes

Fabiano Góes

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

15/02/2006

Colega,

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


GOSTEI 0
Fabiano Góes

Fabiano Góes

15/02/2006

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

Ficaria muito grato !!!!


GOSTEI 0
Alanbesen

Alanbesen

15/02/2006

UPP


GOSTEI 0
Truck1n

Truck1n

15/02/2006

tbm quero saber me interessei!!!

boa cara bom tópico!


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

15/02/2006

Colega,

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

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;



GOSTEI 0
POSTAR