Delphi 2009 中的 Zlib

Question

我正在将一个应用程序升级到Delphi 2009。该应用程序使用Soap，我们使用Zlib 压缩soap 请求和响应流。 这在 Delphi 2006 中工作正常，但在 Delphi 2009 中不行。

所以我回到 Delphi 2006 并更改为使用 FastZlib。 它在 Delphi2006 中一切正常，但在 Delphi 2009 中不起作用，并且出现解压缩错误。

有没有其他人有这个问题？

我该如何解决这个问题？

桑迪普

Answer 1

在D2009中你可以使用Zcompress/ZDecompress代替CompressBuf/DecompressBuf
我测试了一下，没有问题。

Answer 2

我刚刚查看了内置的 Zlib.pas，它似乎已正确更新为 D2009。 是什么给你带来了问题？

Answer 3

在delphi 2006中，我有以下使用Zlib（来自Delphi 2006）压缩和解压缩的方法，

procedure CompressStream(inpStream, outStream: TStream);
var
  InpBuf, OutBuf: Pointer;
  InpBytes, OutBytes: Integer;
begin
  InpBuf := nil;
  OutBuf := nil;
  try
    GetMem(InpBuf, inpStream.Size);
    inpStream.Position := 0;
    InpBytes := inpStream.Read(InpBuf^, inpStream.Size);
    CompressBuf(InpBuf, InpBytes, OutBuf, OutBytes);
    outStream.Write(OutBuf^, OutBytes);
  finally
    if InpBuf <> nil then FreeMem(InpBuf);
    if OutBuf <> nil then FreeMem(OutBuf);
  end;
end;


{ Decompress a stream }
procedure DecompressStream(inpStream, outStream: TStream);
var
  InpBuf, OutBuf: Pointer;
  OutBytes, sz: Integer;
begin
  InpBuf := nil;
  OutBuf := nil;
  sz     := inpStream.Size - inpStream.Position;
  if sz > 0 then 
    try
      GetMem(InpBuf, sz);
      inpStream.Read(InpBuf^, sz);
      DecompressBuf(InpBuf, sz, 0, OutBuf, OutBytes);
      outStream.Write(OutBuf^, OutBytes);
    finally
      if InpBuf <> nil then FreeMem(InpBuf);
      if OutBuf <> nil then FreeMem(OutBuf);
    end;
  outStream.Position := 0;
end;

我应该更改什么才能使这些方法在Delphi 2009中工作？

Answer 4

可能值得尝试的事情 - 压缩数据，然后对其进行 UUENCODE，并在另一端反转该过程。 这将检测某些代码是否未正确处理嵌入的零。

抱歉，这只是帮助您缩小问题范围的部分解决方案。

Answer 5

原来的海报很清楚这个问题： CompressBuf 和 DecompressBuf 已经消失了。

我还有一个项目，在 D7 中编译得很好，但在 D2010 中编译失败，因为它找不到“CompressBuf”或“DecompressBuf”。

使用 D7 非常愉快的 find 命令进行搜索，将例程定位在
c:\Program Files\Borland\Delphi7\Source\Rtl\Common\ZLib.pas

但是使用 D2010 的（笨拙的单独）“在文件中查找”命令进行搜索无法在任何地方找到 CompressBuf 或 DecompressBuf。

令人非常不安的是，升级 IDE 会导致项目中使用和需要的例程消失！