Delphi解压缩Gzip，使用ZlibEx[转]
之前碰到用wininet下载下来的网页的源码为乱码的现象，刚开始以为是编码所致，但尝试各种解码方法之后发现，原来不是编码的问题。而是代码经过压缩了。在HTTP请求头里加上“accept-encoding: gzip, deflat”，可返回压缩之后的代码。如果不加，返回的就是未经过处理的代码。
但是，有些网站，不加“accept-encoding: gzip, deflat”HTTP头，还是返回经过压缩的代码。这就需要解压了。解压其实很简单，ZLibEx里的一个函数就搞定了。
1 procedure DecompressGZip(AInStream, AOutStream: TStream);
2 var
3 pb1, pb2: Byte;
4 begin
5 AInStream.Seek(1, 0);
6 AInStream.Read(pb1, 1);
7 AInStream.Seek(2, 0);
8 AInStream.Read(pb2, 1);
9 AInStream.Position := 0;
10 AOutStream.Position := 0;
11 if (pb1 = $8B) and (pb2 = $8) then
12 ZDecompressStream2(AInStream, AOutStream, 47)
13 else
14 AOutStream.CopyFrom(AInStream, AInStream.Size);
2 var
3 pb1, pb2: Byte;
4 begin
5 AInStream.Seek(1, 0);
6 AInStream.Read(pb1, 1);
7 AInStream.Seek(2, 0);
8 AInStream.Read(pb2, 1);
9 AInStream.Position := 0;
10 AOutStream.Position := 0;
11 if (pb1 = $8B) and (pb2 = $8) then
12 ZDecompressStream2(AInStream, AOutStream, 47)
13 else
14 AOutStream.CopyFrom(AInStream, AInStream.Size);
15 end;
前面比较开头的两个字节$8B和$8是为了判断代码是否经过压缩。至于ZDecompressStream2的第三个参数“47”，在网上看到还有为“-10”的，不过在我这里写“-10”不行，这个参数还有待研究。
另一篇对windowbits研究的博客
连上网搜资料加读代码，一共花了大约3个小时，到现在，大约清楚了这么几个问题：
- deflate 是最基础的算法，在 zlib 里面有实现
- gzip 在 deflate 的 raw data 前增加了 10 个字节的 gzheader，尾部添加了 8 个字节的校验字节（可选 crc32 和 adler32） 和长度标识字节，gzip 的 magic number 是 0×1f, 0×8b
- zlib 自己也有 header 和尾部校验的数据，如果使用 deflateInit 而不是 deflateInit2，或者 windowBits 设置为正数8~15的话
- zlib windowBits 设置为 16 第4位设置为1（即在原来值的基础上加16,感谢 antonio 同学的更正） 的时候，zlib 自己会产生一个 gzip 的头和尾，这种情况下 OS_CODE 被设置为 255（unknown），尾部校验使用 crc32 。问题是，既然 zlib 本身就提供了这种功能，为什么 apache 和 nginx 不用，反而都选择手工添加呢？
- 为 nginx 添加 deflate 支持，只需要把输出中的头，尾去掉，并把 Content-Encoding 改为 deflate 即可。18 个字节，就这样省下来了。
