Wie funktioniert TIdBase64Encoder

[sCrAPt]

HiH :o

Weiß jemand wie TIdBase64Encoder und der Decoder funktioniert?

:chat:, sCrAPt

[sakura]

Schon, aber wenn es nicht VCL sein muss, dann emfehle ich Dir folgende Routinen, die sind um weites schneller: http://www.delphipraxis.net/internal...ect.php?t=1153

Ansonsten müsste ich noch einmal nachschauen :roll:

...:cat:...

[sCrAPt]

Ich brauch es aber über die Indy's...

:chat:, sCrAPt

[sakura]

Da Du mir sagtest (ICQ), daß Du es eher generell als speziell für Base64 meintest, hier mal ein Beispiel für das URL Coding der Indy's

Delphi-Quellcode:

function URLEncode(Txt: AnsiString): AnsiString;
begin
  Result := TIdURI.ParamsEncode(Txt);
end;

function URLDecode(Txt: AnsiString): AnsiString;
begin
  Result := TIdURI.URLDecode(Txt);
end;

...:cat:...

[sCrAPt]

Jetzt sagt er aber zu

Delphi-Quellcode:

  Result := IdBase64Encoder1.ParamsEncode(Txt);

Zitat:

Zitat von Delphi

[Fehler] Unit1.pas(32): Undefinierter Bezeichner: 'ParamsEncode'

:chat:, sCrAPt

[sakura]

Die Encoding- und Decodingroutinen heißen je nach Codec unterschiedlich. Da musst Du einfach mal (mit Strg+Leer) nachschauen...

...:cat:...

[scp]

Bei Indy 9 heisst der Base64 Encoder/Decoder jetzt IdEncoderMIME/IdDecoderMIME und wird so verwendet:

Delphi-Quellcode:

  Result := IdEncoderMIME1.Encode(Txt);

  Result := IdDecoderMIME1.DecodeString(Txt);

[sCrAPt]

Delphi-Quellcode:

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

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

Jetzt ist Result aber leer?
Da gibt es aber ne Menge propertys wie Version (?), Key (?), Filename (?) usw.

:chat:, sCrAPt

[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;