Transformar Texto em Binario
15/02/2006
0
Tem como fazer isso com o Delphi
como ???????????????????
Fabiano Góes
Posts
15/02/2006
Aroldo Zanela
Você quer transformar o valor ASCII de cada caractere em um sequência binária? É isso?
16/02/2006
Fabiano Góes
Você pode me ajudar ????
Ficaria muito grato !!!!
17/02/2006
Aroldo Zanela
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;
Clique aqui para fazer login e interagir na Comunidade :)