سوال: تبدیل Image به base64 و برعکس

uses Soap.EncdDecd

function EncodeFile(const FileName: string): AnsiString;

var

  stream: TMemoryStream;

begin

  stream := TMemoryStream.Create;

  try

    stream.LoadFromFile(Filename);

    result := EncodeBase64(stream.Memory, stream.Size);



  finally

    stream.Free;

  end;

end;



function DecodeFile(const FileName: AnsiString): AnsiString;

var

  stream: TMemoryStream;

  size:integer;

begin

  stream := TMemoryStream.Create;

  stream.Position:= 0;

  try

      size:=sizeof(DecodeBase64(FileName));



        stream.Write(DecodeBase64(FileName), size);



        form1.image1.Picture.Bitmap.LoadFromStream(stream)  ;

  finally

    stream.Free;

  end;

end;



procedure TForm1.EncodeButton1Click(Sender: TObject);

begin

  str:= EncodeFile('d:pic.jpg');

end;



procedure TForm1.DecodeButton2Click(Sender: TObject);

begin

     DecodeFile(str);

end;