From Clomosy Docs
function Clomosy.FileToBase64(AFileName:string):string;
FileToBase64 is a function used in Clomosy to convert the content of a file to Base64 format. This function reads the content of a file, loads it into a TclMemoryStream object in memory, and then converts this stream to Base64 format.
Example
In the example, when a button is clicked, it writes an image obtained from the project files to a TclMemo object in Base64 format.
var
Form1 : TCLForm;
loadImageButton : TClProButton;
noteMemo : TclMemo;
void memoFileToBase64Click;
{
noteMemo.Lines.Text = Clomosy.FileToBase64(clPathCombine('apple.png',Clomosy.AppFilesPath));
}
//------ Main Code ------
{
Form1 = TCLForm.Create(Self);
Form1.AddAssetFromUrl('https://clomosy.com/demos/apple.png');
noteMemo = Form1.AddNewMemo(Form1,'noteMemo','---');
noteMemo.Align = alMostTop;
noteMemo.Height = 300;
noteMemo.StyledSettings = ssFamily;
noteMemo.TextSettings.WordWrap = True;
loadImageButton = Form1.AddNewProButton(Form1,'loadImageButton','Add FileToBase64');
loadImageButton.Align = alMostBottom;
loadImageButton.Margins.Top = 20;
loadImageButton.clProSettings.FontSize = 16;
loadImageButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');
loadImageButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#6966ff');
loadImageButton.clProSettings.RoundHeight = 10;
loadImageButton.clProSettings.RoundHeight = 10;
loadImageButton.SetclProSettings(loadImageButton.clProSettings);
Form1.AddNewEvent(loadImageButton,tbeOnClick,'memoFileToBase64Click');
Form1.Run;
}