TCompressionStream使用数据初始化

Question

SPDY协议指定使用预定义的数据块初始化名称/值数据的压缩：

http://mbelshe.github.com/SPDY-Specification/draft-mbelshe-spdy-00.xml#rfc.section.2.6.9.1

（zlib压缩的工作方式是，对于“看起来”重复出现的字符串，它将使用较少的位，所以如果你使用通常的嫌疑人预加载压缩，你很可能会得到更少的位经过多次压缩之后。但现在我真正的问题是：）

这可能来自ZLib单元的Delphi的TCompressionStream吗？

Answer 1

您需要使用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, dictionary, dictLength)
  else raise Exception.Create('Invalid class type');
end;

在创建压缩流后立即使用SPDY字符串调用SetDictionary。

Answer 2

所需的功能在ZLib中，但Delphi没有公开。

Delphi XE2的documentation for it's ZLib具有所需的函数deflateSetDictionary，仅供内部使用。 ZLib manual advanced functions section中的功能说明清楚地表明它具有您想要的功能。