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

[Bummi]

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

Delphi-Quellcode:

function EncodeString(const Input: UTF8String): UTF8String; overload;
var
  InStr, OutStr: TStringStream;
begin
  InStr := TStringStream.Create(Input, TEncoding.UTF8);
  try
    OutStr := TStringStream.Create('', TEncoding.UTF8);
    try
      EncodeStream(InStr, OutStr);
      Result := OutStr.DataString;
    finally
      OutStr.Free;
    end;
  finally
    InStr.Free;
  end;
end;

function DecodeString(const Input: UTF8String): UTF8String;overload;
var
  InStr, OutStr: TStringStream;
begin
  InStr := TStringStream.Create(Input, TEncoding.UTF8);
  try
    OutStr := TStringStream.Create('', TEncoding.UTF8);
    try
      DecodeStream(InStr, OutStr);
      Result := OutStr.DataString;
    finally
      OutStr.Free;
    end;
  finally
    InStr.Free;
  end;
end;