Wie benutzt man Wolfgang Erhardts Base64 Unit?

[Schokohase]

Delphi-Quellcode:

function EncodeStringUtf8Base64(const Text: string): string;
var
  bufferIn: TArray<Byte>;
  outstr:AnsiString;
  Len: word;
begin
  // wir brauchen ein buffer mit bytes
  bufferIn := TEncoding.UTF8.GetBytes(Text);
  // die ausgabe erfolgt als ansistring
  SetLength(outstr, Length(bufferIn)*3);
  // aufruf der funktion
  base2n.EncodeBase64(@bufferIn[0], PAnsiChar(outstr), Length(bufferIn), Length(outstr), Len);
  // länge des outstr setzen
  SetLength(outstr, Len);
  // ausgabe als string
  Result := string(outstr);
end;

Nur so zur Info:

Mit Base64 werden binäre Daten (Bytes) in einem 7-bit ASCII-Text dargestellt (bzw. alle verwendeten Zeichen gehören in die Menge der 7-bit ASCII Zeichen).
Nicht mehr, nicht weniger.

[p80286]

Zu dem setlength :
Es werden 2 Eingabebytes in 3 Ausgabebytes umgesetzt darum sollte das eigentlich
outlength:=((length(instring)*sizeof(char)+1) shr 1) *3 lauten. Ausserdem ein String als Eingabe für binäre Daten ist freundlich formuliert fehlerträchtig.

Gruß
K-H

[Neutral General]

Du hast zwar gesagt du willst keine andere Unit nutzen... auch nicht die, die bei Delphi dabei ist?

Delphi-Quellcode:

uses
  System.NetEncoding;

var base64: String;
begin
  base64 := TNetEncoding.Base64.Encode(Text);
end;

Du brauchst keine externe Unit und die Funktionen sind einfach aufzurufen.