Converter imagem para Base64 e o Inverso

Com estas funções pode converter uma imagem inserida num Timage em Base64 e converter um Base64 em Imagem.

uses
  System.SysUtils,
 System.Classes,
 FMX.Graphics,
 Soap.EncdDecd;

function Base64FromBitmap(Bitmap: TBitmap): string;
var
  Input: TBytesStream;
  Output: TStringStream;
  F: TextFile; // Apenas para exemplo
begin
  Input := TBytesStream.Create;
  try
    Bitmap.SaveToStream(Input);
    Input.Position := 0;
    Output := TStringStream.Create('', TEncoding.ASCII);
    try
      Soap.EncdDecd.EncodeStream(Input, Output);
      Result := Output.DataString;
   
    //Criar um ficheiro txt com o codigo base 64  apenas para exemplo
      AssignFile(f,'imagem.txt');
      Rewrite(f); //abre o arquivo para escrita
      Writeln(f,Result);
      Closefile(f);

    finally
      Output.Free;
    end;
  finally
    Input.Free;
  end;
end;

function BitmapFromBase64(const base64: string): TBitmap;
var
  Input: TStringStream;
  Output: TBytesStream;

begin
  Input := TStringStream.Create(base64, TEncoding.ASCII);
  try
    Output := TBytesStream.Create;
    try
      Soap.EncdDecd.DecodeStream(Input, Output);
      Output.Position := 0;
      Result := TBitmap.Create;
      try
        Result.LoadFromStream(Output);
      except
        Result.Free;
        raise;
      end;
    finally
      Output.Free;
    end;
  finally
    Input.Free;
  end;
end;

COMO USAR A FUNÇÃO


Crie um Timage e atribua uma imagem .
Crie um Botão e na função click insira o seguinte codigo.

procedure btconverterimagemClick(Sender: TObject);
begin
    showmessage(Base64FromBitmap(nomedoTimage.Bitmap));
end;