DecodeBase64(Data : String) : Blob
Расшифровать BASE64

Функция DecodeBase64 расшифровывать строку в формате BASE64. Функция возвращает блоб. При необходимости, его можно преобразовать в стркоу функцией ToStr.

Пример:

Procedure OnCreate;                    
Var
  B : Blob;
Begin                   
  B := LoadBlobFile('c:/autoexec.bat');
  Warning(EncodeBase64(B));   
  
  Warning(EncodeBase64('Hello world')); // Результат SGVsbG8gd29ybGQ
  
  B := DecodeBase64('SGVsbG8gd29ybGQ');
  Warning(ToStr(B)); // Результат Hello world в виде Blob
End;

© RTIT