Delphi中对Gzip解压代码
使用函数前请安装第三方控件ZlibEX控件,本人博客内 有下载资源procedure DecompressGZip(AInStream, AOutStream: TStream);var pb1, pb2: Byte;begin AInStream.Seek(1, 0); AInStream.Read(pb1, 1); AInStream.Seek(2, 0); AInStream.Read(pb2, 1); AInStream.Position := 0; AOutSt...
原创
2020-08-11 14:27:04 ·
898 阅读 ·
1 评论