EncodeBase64(Data : Blob/String) : String
Зашифровать строку или блоб в BASE64

Функция EncodeBase64 зашифровывает строку или блоб в формате BASE64.

Пример:

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