DevMedia

Fórum DevMedia

Navegação: Fórum HOME - Sala: Delphi (Win32, Mac, iOS, DataSnap, FireMonkey, FireDac, dbExpress etc)

Tópico: Transformar Texto em Binario

Novo Tópico  Responder
Autor
Mensagem

Transformar Texto em Binario

Fabiano Góes
Sem Foto

País:
Estado:
Cidade:
Mensagens: 567
Ícone Post  Postado em:
 
Tenho um arquivo texto e preciso transforma em arquivo Binario
Tem como fazer isso com o Delphi

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



Transformar Texto em Binario

Aroldo Zanela
Sem Foto

País:
Estado:
Cidade: Brasília - DF
Mensagens: 5208
Ícone Post  Postado em:
Citar 
Colega,

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



Transformar Texto em Binario

Fabiano Góes
Sem Foto

País:
Estado:
Cidade:
Mensagens: 567
Ícone Post  Postado em:
Citar 
É isso ai Aroldo,
Você pode me ajudar ????

Ficaria muito grato !!!!



Transformar Texto em Binario

alanbesen
Sem Foto

País:
Estado:
Cidade:
Mensagens: 1
Ícone Post  Postado em:
Citar 
UPP



Transformar Texto em Binario

Truck1n
Sem Foto

País:
Estado:
Cidade:
Mensagens: 68
Ícone Post  Postado em:
Citar 
tbm quero saber me interessei!!!

boa cara bom tópico!



Transformar Texto em Binario

Aroldo Zanela
Sem Foto

País:
Estado:
Cidade: Brasília - DF
Mensagens: 5208
Ícone Post  Postado em:
Citar 
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;