二进制到Base64（德尔福）

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（link here）

只要把synacode.pas在你使用的是E通话EncodeBase64/EncodeBase64。

干杯