Delphi 压缩流转Base64字符串

• 函数类型：　自定义函数

• 函数说明：

压缩流转Base64字符串

• 代码如下：

 
function ZipStreamToBase64String(AStream: TStream): string;
var
  B: TBytes;
begin
  AStream.position := 0;
  SetLength(B, AStream.Size);
  AStream.ReadBuffer(B, AStream.Size);
  Result := TNetEncoding.Base64.EncodeBytesToString(B);
end;

• 用法示例：

无　

《学习大师原创文档，请勿转载，侵权必究》