二进制到Base64(Delphi)

我怎样才能得到一个exe文件的内容,并将其转换为Base64编码?

编辑

我使用D2010 ,我想知道它究竟有多可能?

  • open an exe file
  • convert its content into base64

在Delphi EncdDecd.pas / XE中有单元EncdDecd.pas (Delphi XE2的EncodeBase64 ),包含函数EncodeBase64DecodeBase64 。 您可以将exe文件加载到内存stream中,然后调用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; 

在古老的Delphi版本中,可以使用synapse ( 链接在这里 )

只需把synacode.pas放在你的使用电话EncodeBase64 / EncodeBase64。

干杯