[delphi-br] BASE 64 - ENCODE E DECODE

Fri, 22 Sep 2006 09:55:59 -0700 

Alguem tem algum exemplo de como reealizar o encode e decode, com o 
componente iDDecodeMIME e idEncodeMIME da paleta indyMisc, de um 
arquivo executavel?
Algo como o codigo abaixo:
...
var
  Form1: TForm1;
ResultCode, OutPutFile : string;
Variavel : string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
//Encode
begin
variavel:= IdEncodeMime1.encode('C:/windows/system32/Calc.exe');
end;

procedure TForm1.Button2Click(Sender: TObject);
//Decode
begin
OutPutfile := 'C:\Calc2.exe';
IdDecoderMIME1.DecodeToStream(variavel,OutPutFile);
end;
end.







-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

<*> Para ver as mensagens antigas, acesse:
    http://br.groups.yahoo.com/group/delphi-br/messages

<*> Para falar com o moderador, envie um e-mail para:
    [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
    http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
    [EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
    http://br.yahoo.com/info/utos.html

Responder a