Delphi XE 自带了 Base64编码解码

在Delphi XE10.2中自带了 Base64 编解码。
引用单元
uses EncdDecd;

这个单元提供两套四个公开函数：

对流的编解码：
procedure EncodeStream(Input, Output: TStream); // 编码
procedure DecodeStream(Input, Output: TStream); // 解码

// 对字符串的编解码：
function EncodeString(const Input: string): string; // 编码
function DecodeString(const Input: string): string; // 解码