SPDY协议指定使用预定义的数据块初始化名称/值数据的压缩:
http://mbelshe.github.com/SPDY-Specification/draft-mbelshe-spdy-00.xml#rfc.section.2.6.9.1
(zlib压缩的工作方式是,对于“看起来”再次出现更多的字符串,它将使用更少的位,因此如果您使用通常的嫌疑人预加载压缩,那么在压缩之后您可能会得到更少的位当时.但现在我真正的问题:)
这可能来自ZLib单元的Delphi的TCompressionStream吗?
解决方法
您需要使用
deflateSetDictionary.它可以在Delphi XE2的ZLib.pas中使用,但压缩流类不会公开TZStreamRec字段来调用它.类助手可以访问关联类的私有字段,因此您可以通过向TCustomZStream添加一个来解决该限制(将其添加到TZCompressionStream将不起作用).
type TCustomZStreamHelper = class helper for TCustomZStream function SetDictionary(dictionary: PByte; dictLength: Cardinal): Integer; end; function TCustomZStreamHelper.SetDictionary(dictionary: PByte; dictLength: Cardinal): Integer; begin if Self is TZCompressionStream then Result := deflateSetDictionary(Self.FZStream,dictionary,dictLength) else if Self is TZDecompressionStream then Result := inflateSetDictionary(Self.FZStream,dictLength) else raise Exception.Create('Invalid class type'); end;
在创建压缩流后立即使用SPDY字符串调用SetDictionary.