二進制到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。

乾杯