Base64 Encode/Decode-Funktion noch nicht in Basisfunktion verfügbar

[Bernhard Geyer]

Zitat von Bummi:

ich bin noch bei XE (ohne 2) und es funktioniert nur sauber mit folgenden Overloads ....

Mit den Overloads ist klar. Aber wieso im Namespace SOAP ...

[Bummi]

Frag mich nicht, ich habe kein XE2, also kein NameSpace

[Uwe Raabe]

Zitat von Bernhard Geyer:

Zitat von Bummi:

ich bin noch bei XE (ohne 2) und es funktioniert nur sauber mit folgenden Overloads ....

Mit den Overloads ist klar. Aber wieso im Namespace SOAP ...

Ich glaube, Bernhard meint, warum diese Funktionalität im SOAP-Bereich (NameSpace) untergebracht ist und nicht in der RTL.

[Bummi]

@Uwe Rabe
Danke, ich hatte verstanden unter XE2 hätte sich der Name geändert in der Syntax wir bei Generics.Collections.pas

[Foxpro]

Moin NG,

ich sitze seit gestern mit BASE64 rum und will das in XE2 zum laufen bringen, nun startet zwar das Programm und die Funktion schmeißt auch keine Fehler,
aber wie bekomme ich base64 dazu eine base64-codierte Datei auch zu schreiben?

@Bummi
könntest Du mir die Base64.pas die bei Dir läuft zukommen lassen?

Gruß an Alle und schon mal Danke vorab

[p80286]

Versuch es mal hiermit:http://www.delphipraxis.net/991-base...-decoding.html

Gruß
K-H

[Foxpro]

Hallo p80286

Danke läuft ....

[Foxpro]

Hallo p80286,

Danke läuft ...

Gruß
Michael

[Bbommel]

Mal eine kleine Ergänzung zu diesem etwas älteren Thread hier, da einen der Gockel hierher schickt, wenn man nach "Base64 Delphi" sucht, was ich gestern getan habe.

In aktuellen Delphi-Versionen (zumindest bei mir in Delphi 10 Seattle - ab wann, weiß ich aber nicht) gibt es die gesuchte Funktionalität mittlerweile auch dort, wo sie eigentlich hingehört, also nicht irgendwo im Bereich SOAP, sondern in der Unit System.Netencoding. Dort gibt es die Klassen TNetEncoding, TBase64Encoding und weitere.

TNetEncoding ist die Basisklasse für die konkreten Kodierungsklassen, das heißt, wenn man etwas mit Base64 kodieren will, dann erstellt man sich dafür entweder eine Instanz von TBase64Encoding oder man nutzt die Class-Property "Bae64" von TNetEncoding.

Konkret:

Delphi-Quellcode:

function GetBase64 (aInStr: string): string;
begin
  Result:=TNetEncoding.Base64.Encode(aInStr);
end;

Alternativ kann auch von Stream zu Stream oder TBytes zu TBytes kodiert werden oder auch, besonders praktisch für mich gestern, direkt von TBytes zu String:

Delphi-Quellcode:

procedure DoSomethin;

var
  myBytes: TBytes;
  myBase: string;

begin
  [...]  // irgendwas, wo das Bytes-Array gefüllt wird
  myBase:=TNetEncoding.Base64.EncodeBytesToString(myBytes);
  [...]
end;

So, ich hoffe, diese kleine Ergänzung erspart manchem, der per Google hier landet, eine kleine Ehrenrunde. Bin immer mal wieder üebrrascht, was mittlerweile doch alles in Delphi eingebaut ist...

Bis denn
Bommel