Transformar Texto em Binario

15/02/2006

0

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

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


Fabiano Góes

Fabiano Góes

Responder

Posts

15/02/2006

Aroldo Zanela

Colega,

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


Responder

16/02/2006

Fabiano Góes

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

Ficaria muito grato !!!!


Responder

17/02/2006

Alanbesen

UPP


Responder

17/02/2006

Truck1n

tbm quero saber me interessei!!!

boa cara bom tópico!


Responder

17/02/2006

Aroldo Zanela

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;



Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar