Danke für die schnelle Antwort.
Hier ist der interface Teil.
Delphi-Quellcode:
uses
{$ifdef NEXTGEN_FIXES}
ORawByteString,
{$endif}
Sysutils;
function Base64EncodeStr(
const Value: AnsiString): AnsiString;
overload;
{ Encode a string into Base64 format }
function Base64DecodeStr(
const Value: AnsiString): AnsiString;
overload;
{ Decode a Base64 format string }
{$IFDEF UNICODE}
function Base64EncodeStr(
const Value: UnicodeString): UnicodeString;
overload;
{ Encode a Unicode string into Base64 format }
function Base64DecodeStr(
const Value: UnicodeString): UnicodeString;
overload;
{ Decode a Base64 format Unicode string }
{$ENDIF}
function Base64Encode(pInput: pointer; pOutput: pointer; Size: longint): longint;
{ Encode a lump of raw data (output is (4/3) times bigger than input) }
function Base64Decode(pInput: pointer; pOutput: pointer; Size: longint): longint;
{ Decode a lump of raw data }