Base64ToFile

Base64ToFile is a function used in Clomosy to convert a Base64 string to a file. This function allows writing a Base64 string to the desired file path by either creating a new file or overwriting the content of an existing file.

Clomosy.Base64ToFile(AFileName,ABase64:string);

Example:
In the example, an image located in the project file directory is converted to Base64 format and written onto a TclMemo object. Then, this object, containing the image in Base64 format, is used to save a new image to the desired project directory using the Base64ToFile feature.

TRObject Syntax

 var
   Form1 : TCLForm;
   loadImageButton : TClProButton;
   noteMemo : TclMemo;

 void memoFileToBase64Click;
 {
   noteMemo.Lines.Text = Clomosy.FileToBase64(clPathCombine('apple.png',Clomosy.AppFilesPath));
   Clomosy.Base64ToFile(clPathCombine('newApple.png',Clomosy.AppFilesPath),noteMemo.Lines.Text);
 }
 
 //------ 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;
 }

Base Syntax

var
  Form1 : TCLForm;
  loadImageButton : TClProButton;
  noteMemo : TclMemo;

procedure memoFileToBase64Click;
begin
  noteMemo.Lines.Text := Clomosy.FileToBase64(clPathCombine('apple.png',Clomosy.AppFilesPath));
  Clomosy.Base64ToFile(clPathCombine('newApple.png',Clomosy.AppFilesPath),noteMemo.Lines.Text);
end;

//------ Main Code ------
begin
  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;
end;