Delphi XE 和 ZLib 问题

我在 Delphi XE 中，ZLib 例程遇到一些问题......

我正在尝试压缩一些字符串（并对它进行编码以通过 SOAP Web 服务发送 - 并不重要 - ）

ZDecompressString 的字符串结果与 ZcompressString 中使用的字符串结果不同。

示例1：

uses ZLib;
// compressing string
// ZCompressString('1234567890', zcMax); 
// compressed string ='xÚ3426153·°4'

// Uncompressing the result of ZCompressString, don't return the same:
// ZDecompressString('xÚ3426153·°4'); 
// uncompressed string = '123456789'

if '1234567890' <> ZDecompressString(ZCompressString('1234567890', zcMax)) then
  ShowMessage('Compression/Decompression fails');

示例2：

Uses ZLib;
// compressing string
// ZCompressString('12345678901234567890', zcMax) 
// compressed string ='xÚ3426153·°40„³'

// Uncompressing the result of ZCompressString, don't return the same:
// ZDecompressString('xÚ3426153·°40„³') 
// uncompressed string = '12345678901'

if '12345678901234567890' <> ZDecompressString(ZCompressString('12345678901234567890', zcMax)) then
  ShowMessage('Compression/Decompression fails');

使用的函数来自其他一些关于压缩和解压缩的帖子

function TForm1.ZCompressString(aText: string; aCompressionLevel: TZCompressionLevel): string;
var
  strInput,
  strOutput: TStringStream;
  Zipper: TZCompressionStream;
begin
  Result:= '';
  strInput:= TStringStream.Create(aText);
  strOutput:= TStringStream.Create;
  try
    Zipper:= TZCompressionStream.Create(strOutput, aCompressionLevel);
    try
      Zipper.CopyFrom(strInput, strInput.Size);
    finally
      Zipper.Free;
    end;
    Result:= strOutput.DataString;
  finally
    strInput.Free;
    strOutput.Free;
  end;
end;

function TForm1.ZDecompressString(aText: string): string;
var
  strInput,
  strOutput: TStringStream;
  Unzipper: TZDecompressionStream;
begin
  Result:= '';
  strInput:= TStringStream.Create(aText);
  strOutput:= TStringStream.Create;
  try
    Unzipper:= TZDecompressionStream.Create(strInput);
    try
      strOutput.CopyFrom(Unzipper, Unzipper.Size);
    finally
      Unzipper.Free;
    end;
    Result:= strOutput.DataString;
  finally
    strInput.Free;
    strOutput.Free;
  end;
end;

我哪里错了？

还有人有同样的问题吗？？

ZLib 和我所知道的所有压缩代码一样，是一种二进制压缩算法。它对字符串编码一无所知。您需要为其提供字节流以进行压缩。当你解压缩时，你会得到字节流。

但是您正在使用字符串，因此需要在编码文本和字节流之间进行转换。这TStringStream类正在您的代码中完成这项工作。您在创建字符串流实例时为其提供文本编码。

只有您的代码不提供编码。因此使用默认的本地 ANSI 编码。这是第一个问题。这不是完整的 Unicode 编码。一旦您使用本地 ANSI 代码页之外的字符，该链就会崩溃。

通过在创建字符串流实例时提供编码来解决该问题。将编码传递给TStringStream构造函数。一个合理的选择是TEncoding.UTF8。创建的时候传这个strInput在压缩机中，以及strOutput在减压器中。

现在您面临的下一个也是更大的问题是，您的压缩数据在任何编码中可能都不是有意义的字符串。如果您切换到使用，您可能会使现有代码正常工作AnsiString代替string。但这是一个相当脆弱的解决方案。

从根本上来说，您犯了将二进制数据视为文本的错误。压缩后，您将获得二进制数据。我的建议是您不要尝试将压缩的二进制文件解释为文本。将其保留为二进制。压缩为TBytesStream。并从一个解压TBytesStream。所以压缩器函数返回TBytes解压器收到相同的信息TBytes.

如果由于某种原因必须压缩为字符串，则必须对压缩的二进制文件进行编码。使用 base64 执行此操作。 EncdDecd 单元可以为您做到这一点。

压缩器的流程如下所示：字符串 -> UTF-8 字节 -> 压缩字节 -> base64 字符串。显然你反转箭头来减压。