二进制到Base64（Delphi）

Question

如何获取exe文件的内容并将其转换为Base64编码？

修改

我使用D2010，我想知道它究竟是如何可能的？

• open an exe file
• convert its content into base64

Answer 1

在Delphi 2009/2010 / XE中，单元EncdDecd.pas（Delphi XE2的Soap.EncdDecd.pas）包含函数EncodeBase64和DecodeBase64。您可以将exe文件加载到内存流中，然后调用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

在古代Delphi版本中，您可以使用synapse（link here）

只需将synacode.pas放入您的使用e调用EncodeBase64 / EncodeBase64。

干杯