【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;    // 解碼