![]() |
Wie funktioniert TIdBase64Encoder
HiH :o
Weiß jemand wie TIdBase64Encoder und der Decoder funktioniert? :chat:, sCrAPt |
Re: Wie funktioniert TIdBase64Encoder
Schon, aber wenn es nicht VCL sein muss, dann emfehle ich Dir folgende Routinen, die sind um weites schneller:
![]() Ansonsten müsste ich noch einmal nachschauen :roll: ...:cat:... |
Re: Wie funktioniert TIdBase64Encoder
Ich brauch es aber über die Indy's...
:chat:, sCrAPt |
Re: Wie funktioniert TIdBase64Encoder
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:
...:cat:...
function URLEncode(Txt: AnsiString): AnsiString;
begin Result := TIdURI.ParamsEncode(Txt); end; function URLDecode(Txt: AnsiString): AnsiString; begin Result := TIdURI.URLDecode(Txt); end; |
Re: Wie funktioniert TIdBase64Encoder
Jetzt sagt er aber zu
Delphi-Quellcode:
Result := IdBase64Encoder1.ParamsEncode(Txt);
Zitat:
|
Re: Wie funktioniert TIdBase64Encoder
Die Encoding- und Decodingroutinen heißen je nach Codec unterschiedlich. Da musst Du einfach mal (mit Strg+Leer) nachschauen...
...:cat:... |
Re: Wie funktioniert TIdBase64Encoder
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); |
Re: Wie funktioniert TIdBase64Encoder
Delphi-Quellcode:
Jetzt ist Result aber leer?
function TForm1.URLEncode(Txt: AnsiString): AnsiString;
begin Result := IdBase64Encoder1.CodeString(Txt); end; function TForm1.URLDecode(Txt: AnsiString): AnsiString; begin Result := IdBase64Decoder1.CodeString(txt); end; Da gibt es aber ne Menge propertys wie Version (?), Key (?), Filename (?) usw. :chat:, sCrAPt |
Re: Wie funktioniert TIdBase64Encoder
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; |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:53 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz