Wie funktioniert TIdBase64Encoder

[scp]

Hast du noch Indy 8? Na dann probiers mal so:

Delphi-Quellcode:

function TForm1.URLEncode(Txt: AnsiString): AnsiString; 
begin 
  IdBase64Encoder1.CodeString(Txt); 
  Result := Coder.CompletedInput;
end; 

function TForm1.URLDecode(Txt: AnsiString): AnsiString; 
begin 
  IdBase64Decoder1.CodeString(txt); 
  Result := Coder.CompletedInput;
end;