二进制到Base64（Delphi）

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

编辑

我使用D2010 ，我想知道它究竟有多可能？

• open an exe file
• convert its content into base64

Answer 1

在Delphi EncdDecd.pas / XE中有单元EncdDecd.pas （Delphi XE2的EncodeBase64 ），包含函数EncodeBase64和DecodeBase64 。 您可以将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; 

Answer 2

在古老的Delphi版本中，可以使用synapse （ 链接在这里 ）

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

干杯