delphi 10.1 berlin版本中,有好几个 base64 编码的单元可以使用,例如 Indy, MessageDigest_5,还有 CnBase64,我现在使用自带的 System.NetEncoding。
var
params: string;
Digest: TBytes;
Base64: TBase64Encoding;
begin
Base64 := TBase64Encoding.Create;
params := Base64.EncodeBytesToString(Digest);//对数组进行编码
Base64.Encode(InStream, OutStream);//对内存流进行编码
Base64.Free;
end;
简单。