Delphi 使用 ZLib 压缩和解压 GZip

马了个巴子 發表於 2020-5-10 13:53:00

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：
<div class="cnblogs_code">
<pre>uses System.ZLib;

const
ZLIB_GZIP_WINDOWBITS = 31;
ZLIB_DEFLATE_WINDOWBITS = 15;

type
TZLibCompressionLevel = TZCompressionLevel;

/// <summary>
/// 使用 ZLib 压缩流
/// </summary>
/// <param name="Source">要压缩的数据流</param>
/// <param name="Dest">压缩后的数据流</param>
/// <param name="Level">压缩级别</param>
/// <param name="GZipFormat">是否使用 GZip 压缩算法</param>
procedure ZLibCompressStream(Source, Dest: TStream;
const Level: TZLibCompressionLevel = zcFastest;
const GZipFormat: Boolean = True); overload;

/// <summary>
/// 使用 ZLib 解压缩流
/// </summary>
/// <param name="Source">要解压的数据流</param>
/// <param name="Dest">解压后的数据流</param>
/// <param name="GZipFormat">是否使用 GZip 压缩算法</param>
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;</pre>
</div>
 

</audio>

</div>
<div id="MySignature" role="contentinfo">
<div id="AllanboltSignature">
<p style="border-top: #e0e0e0 1px dashed; border-right: #e0e0e0 1px dashed; border-bottom: #e0e0e0 1px dashed; border-left: #e0e0e0 1px dashed; padding-top: 5px; padding-right: 10px; padding-bottom: 10px; padding-left: 60px; background: url("https://images.cnblogs.com/cnblogs_com/lloydsheng/239039/o_copyright.gif") #e5f1f4 no-repeat 1% 50%; font-family: 微软雅黑; font-size: 11px" id="PSignature">
 作者：
 oldfarmer
 出处：
 http://www.cnblogs.com/rtcmw/
 欢迎探讨交流 DELPHI 相关技术，QQ:64445322 QQ群：734515869
 本文版权归作者和博客园共有，欢迎转载，但未经作者同意必须保留此段声明，且在文章页面明显位置给出原文连接，否则保留追究法律责任的权利。
</div>
<div>

</div> 
来源：https://www.cnblogs.com/rtcmw/p/12863055.html

頁: [1]

琼殿技术论坛's Archiver

Delphi 使用 ZLib 压缩和解压 GZip