Delphi 使用 ZLib 压缩和解压 GZip
标签：ast res overload mat 压缩 之一 isp rfc 它的
ZLib是DEFLATE算法的实现库，它的API同时支持gzip文件格式以及一个简化的数据流格式。zlib数据流格式、DEFLATE以及gzip文件格式均已被分别标准化为 RFC 1950、RFC 1951、RFC 1952。
gzip在 HTTP压缩，一种在万维网中加速传输HTML和其他内容的技术。它是在 RFC 2016 中规定的三种标准HTTP压缩格式之一。这个RFC页定义了一种叫做"DEFLATE"的zlib格式，它和gzip格式相同，除了gzip添加了11字节头部和尾部的负载。但是，现在还是建议使用gzip而不是zlib，因为根据 RFC 1950, IE还没有正确的实现该标准，还不能处理zlib格式。
Delphi 使用 ZLib 压缩和解压 GZip：
uses System.ZLib;
const
ZLIB_GZIP_WINDOWBITS = 31;
ZLIB_DEFLATE_WINDOWBITS = 15;
type
TZLibCompressionLevel = TZCompressionLevel;
///
/// 使用 ZLib 压缩流
///
/// 要压缩的数据流
/// 压缩后的数据流
/// 压缩级别
/// 是否使用 GZip 压缩算法
procedure ZLibCompressStream(Source, Dest: TStream;
const Level: TZLibCompressionLevel = zcFastest;
const GZipFormat: Boolean = True); overload;
///
/// 使用 ZLib 解压缩流
///
/// 要解压的数据流
/// 解压后的数据流
/// 是否使用 GZip 压缩算法
procedure ZLibDecompressStream(Source, Dest: TStream;
const GZipFormat: Boolean = True); overload;
procedure ZLibCompressStream(Source, Dest: TStream; const Level: TZLibCompressionLevel;
const GZipFormat: Boolean);
var
WindowBits: Integer;
Zip: TZCompressionStream;
begin
if GZipFormat then
WindowBits := ZLIB_GZIP_WINDOWBITS
else
WindowBits := ZLIB_DEFLATE_WINDOWBITS;
Zip := TZCompressionStream.Create(Dest, Level, WindowBits);
try
Zip.CopyFrom(Source, 0);
finally
FreeAndNil(Zip);
end;
end;
procedure ZLibDecompressStream(Source, Dest: TStream; const GZipFormat: Boolean);
var
WindowBits: Integer;
UnZip: TDecompressionStream;
begin
if GZipFormat then
WindowBits := ZLIB_GZIP_WINDOWBITS
else
WindowBits := ZLIB_DEFLATE_WINDOWBITS;
UnZip := TDecompressionStream.Create(Source, WindowBits);
try
Dest.CopyFrom(UnZip, 0);
finally
FreeAndNil(UnZip);
end;
end;
Delphi 使用 ZLib 压缩和解压 GZip
标签：ast res overload mat 压缩 之一 isp rfc 它的
原文地址：https://www.cnblogs.com/rtcmw/p/12863055.html
评论