Array
(
)

Transformar Texto em Binario

Fabiano Góes
   - 15 fev 2006

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

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

Aroldo Zanela
   - 15 fev 2006

Colega,

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

Fabiano Góes
   - 16 fev 2006

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

Ficaria muito grato !!!!

Alanbesen
   - 17 fev 2006

UPP

Truck1n
   - 17 fev 2006

tbm quero saber me interessei!!!

boa cara bom tópico!

Aroldo Zanela
   - 17 fev 2006

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;