delphi - 二进制到 Base64 (Delphi)

Question

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

编辑

我使用 D2010，我想知道它到底是如何实现的？

• 打开exe文件
• 将其内容转换为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;