Binary to Base64 (Delphi)

Question

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 1

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;