Delphi Base64字符串转流并压缩

  • 函数类型: 自定义函数

  • 函数说明:

Base64字符串转流并压缩


  • 代码如下:



 procedure Base64StringToZipStream(AStream: TStream; const s: string);
var
  B: TBytes;
begin
  B := TNetEncoding.Base64.DecodeStringToBytes(s);
  AStream.WriteBuffer(B, Length(B));
  AStream.position := 0;
end;



  • 用法示例:

无 



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





联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678