二进制到Base64(Delphi)

Question

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

编辑

我用D2010,我想知道它究竟是怎么可能的？

• open an exe file
• convert its content into base64

Answer 1

在Delphi 2009/2010/XE中,有单元EncdDecd.pas(Soap.EncdDecd.pas用于Delphi XE2)包含函数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(链接在这里)

只需synacode.pas输入你的用途e调用EncodeBase64/EncodeBase64.

干杯