• 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(10);
     6   AInStream.Read(pb1, 1);
     7   AInStream.Seek(20);
     8   AInStream.Read(pb2, 1);
     9   AInStream.Position := 0;
    10   AOutStream.Position := 0;
    11   if (pb1 = $8B) and (pb2 = $8then
    12     ZDecompressStream2(AInStream, AOutStream, 47)
    13   else
    14     AOutStream.CopyFrom(AInStream, AInStream.Size);  

    15 end;

    前面比较开头的两个字节$8B和$8是为了判断代码是否经过压缩。至于ZDecompressStream2的第三个参数“47”,在网上看到还有为“-10”的,不过在我这里写“-10”不行,这个参数还有待研究。 

    另一篇对windowbits研究的博客

    连上网搜资料加读代码,一共花了大约3个小时,到现在,大约清楚了这么几个问题:

    1. deflate 是最基础的算法,在 zlib 里面有实现
    2. gzip 在 deflate 的 raw data 前增加了 10 个字节的 gzheader,尾部添加了 8 个字节的校验字节(可选 crc32 和 adler32) 和长度标识字节,gzip 的 magic number 是 0×1f, 0×8b
    3. zlib 自己也有 header 和尾部校验的数据,如果使用 deflateInit 而不是 deflateInit2,或者 windowBits 设置为正数8~15的话
    4. zlib windowBits 设置为 16 第4位设置为1(即在原来值的基础上加16,感谢 antonio 同学的更正) 的时候,zlib 自己会产生一个 gzip 的头和尾,这种情况下 OS_CODE 被设置为 255(unknown),尾部校验使用 crc32 。问题是,既然 zlib 本身就提供了这种功能,为什么 apache 和 nginx 不用,反而都选择手工添加呢?
    5. 为 nginx 添加 deflate 支持,只需要把输出中的头,尾去掉,并把 Content-Encoding 改为 deflate 即可。18 个字节,就这样省下来了。

     原文链接:http://blog.developers.api.sina.com.cn/?p=47

  • 相关阅读:
    HDU 1434 幸福列车(优先队列)
    HDU 4287 Intelligent IME(字典树)
    HDU 1671 Phone List(字典树)
    HDU 1711 Number Sequence(KMP匹配数字串)
    HDU 1251 统计难题(字典树计算前缀数量)
    HDU 2087 剪花布条(KMP基础应用)
    HRBUST 1909 理工门外的树(双数组实现线段树功能)
    HDU 1166 敌兵布阵(线段树)
    HDU 1754 I Hate It(线段树基础应用)
    HDU 1260 Tickets(基础dp)
  • 原文地址:https://www.cnblogs.com/lojon/p/2167506.html
Copyright © 2020-2023  润新知