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;