在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; // 解码