function DecodeB64(aValue: string): string

Syntax:

function DecodeB64(aValue: string): string;

Beschreibung:

DecodeB64 wandelt den Base64 codierten string aValue in seine String Codierung um.
Mann muss diese Funktion auch dazu verwenden um Binärdaten (Bilder, .doc, .xls) aus der Datenbank auszulesen,
dann sonst die XML Übertragung Probleme bereiten kann.
Natürlich muss der String vorher codiert in die Datenbank abgelegt worden sein.

Beispiel:


procedure codePasword;
   var
   aPassword : string;
   aCodePassword: string;
begin
   aPassword := 'TestPassword';
   aCodePassword := EncodeB64(aPassword);
   message_dlg('Ihr Password in Base64: '+aCodePassword);
   message_dlg('Ihr Password wieder decodiert: '+DecodeB64(aCodePassword));
end;