如何將任何類型的文件編碼爲base64字符串，然後使用Lazarus/Delphi將其解碼爲文件？

Question

你能告訴我我該怎麼做？有沒有可以爲我做這個的Freepascal單元？我需要這樣做，所以我的程序可以將二進制數據存儲在基於XML的文件格式中。

Answer 1

使用base64單位及其兩個等級TBase64EncodingStream和TBase64DecodingStream。

這裏是一個simple example：

program demo; 

uses Classes, base64; 

var 
    DecodedStream: TStringStream; 
    EncodedStream: TStringStream; 
    Encoder: TBase64EncodingStream; 
    Output: string; 
begin 
    DecodedStream := TStringStream.Create('Hello World!'); 
    EncodedStream := TStringStream.Create(''); 
    Encoder  := TBase64EncodingStream.Create(EncodedStream); 
    Encoder.CopyFrom(DecodedStream, DecodedStream.Size); 

    Output := EncodedStream.DataString; 
    { Outputs 'SGVsbG8gV29ybGQh' } 
    WriteLn(Output); 

    DecodedStream.Free; 
    EncodedStream.Free; 
    Encoder.Free; 
end. 

並且，在opposite direction：

program demo; 

uses Classes, base64; 

var 
    DecodedStream: TStringStream; 
    EncodedStream: TStringStream; 
    Decoder: TBase64DecodingStream; 
    Output: string; 
begin 
    EncodedStream := TStringStream.Create('SGVsbG8gV29ybGQh'); 
    DecodedStream := TStringStream.Create(''); 
    Decoder  := TBase64DecodingStream.Create(EncodedStream); 
    DecodedStream.CopyFrom(Decoder, Decoder.Size); 

    Output := DecodedStream.DataString; 
    { Outputs 'Hello World!' } 
    WriteLn(Output); 

    DecodedStream.Free; 
    EncodedStream.Free; 
    Decoder.Free; 
end. 

或速記encodestringbase64和decodestringbase64（2.4.4+）用於非流基於使用：

Uses Base64; 
var 
    s : AnsiString; 
Begin 
    s:=EncodeStringBase64('Hello world!'); 
    Writeln('Encoded : ',s); 
    s:=DecodeStringBase64(s); 
    Writeln('Decoded again : ',s);  
end.