二进制到 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;

Answer 2

In ancient Delphi versions, you can use synapse ( link here )

Just put synacode.pas in your uses e call EncodeBase64/EncodeBase64.

Cheers

Answer 3

As also mentioned in the comments, since Delphi XE8 you can use the System.NetEncoding.TNetEncoding.Base64 class property.
It also returns a string instead of an AnsiString :

function TryEncodeFile(const AFileName: string; out ABase64string: string): Boolean;
var
  MemStream: TMemoryStream;
begin
  MemStream := TMemoryStream.Create;
  try
    MemStream.LoadFromFile(AFileName);
    ABase64string :=
      TNetEncoding.Base64.EncodeBytesToString(MemStream.Memory, MemStream.Size);
    Result := True;
  finally
    MemStream.Free;
  end;
end;