【Delphi】Base64 Encode/Decode

 
uses EncdDecd;

...
...


// 串流
procedure EncodeStream(Input, Output: TStream);    // 編碼
procedure DecodeStream(Input, Output: TStream);    // 解碼

// 字串
function EncodeString(const Input: string): string;    // 編碼
function DecodeString(const Input: string): string;    // 解碼