Search code examples
delphiencodingdelphi-2010base64

Binary to Base64 (Delphi)

How can I get content of an exe file and convert it into Base64 encoding ?

Edit

I use D2010 and I want to know how is it possible exactly ?

  • open an exe file
  • convert its content into base64
Solution

  • In Delphi 2009/2010/XE there is unit EncdDecd.pas (Soap.EncdDecd.pas for Delphi XE2) containing the functions EncodeBase64 and DecodeBase64. You can load the exe file into a memorystream and then call EncodeBase64.

    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;