Binary to Base64 (Delphi)

Kermia picture Kermia · Apr 26, 2011 · Viewed 61.2k times · Source

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

Answer

Uwe Raabe picture Uwe Raabe · Apr 26, 2011

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;