Delphi中处理gzip压缩编码数据遇错误，需自行实现GZIP类吗？

核心结论 #

2024年完全不需要自行实现GZIP处理类，Delphi已经提供了多套内置方案，直接复用即可解决你的问题。

关于EZDecompressionError(data error)异常的常见原因 #

• 响应数据存在格式问题：比如HTTP响应头未完全剥离，或者GZIP数据包含额外的校验字段、可选扩展头，自定义逻辑未处理
• 下载的压缩数据不完整：传输过程中被截断，导致解压时格式校验失败
• 自定义解压逻辑未严格遵循GZIP规范：比如忽略了GZIP的10字节固定头部、尾部的CRC32校验码和原始数据长度字段

Delphi内置GZIP处理方案 #

1. 使用System.Zip单元

TZipFile类支持直接解压GZIP格式数据，无需额外依赖：

var
  CompressedStream, DecompressedStream: TMemoryStream;
begin
  CompressedStream := TMemoryStream.Create;
  DecompressedStream := TMemoryStream.Create;
  try
    // 将获取到的gzip压缩响应写入CompressedStream
    CompressedStream.Position := 0;
    // 第二个参数设为False表示处理GZIP而非ZIP归档
    TZipFile.ExtractZipItem(CompressedStream, DecompressedStream, False);
    // 此时DecompressedStream中即为解压后的原始数据
  finally
    CompressedStream.Free;
    DecompressedStream.Free;
  end;
end;

2. 使用Indy组件自动处理

如果你的HTTP请求是用Indy的TIdHTTP发起的，只需简单配置即可自动解压gzip/deflate响应：

var
  IdHTTP: TIdHTTP;
  ResponseStream: TMemoryStream;
begin
  IdHTTP := TIdHTTP.Create(nil);
  ResponseStream := TMemoryStream.Create;
  try
    IdHTTP.Request.AcceptEncoding := 'gzip, deflate';
    IdHTTP.HandleRedirects := True;
    // 发起请求时自动解压响应，直接得到原始数据
    IdHTTP.Get('https://target-url.com', ResponseStream);
  finally
    IdHTTP.Free;
    ResponseStream.Free;
  end;
end;

3. 使用System.ZLib单元底层处理

若需要更精细的控制，可直接调用ZLib底层API，但需手动处理GZIP头部：

var
  CompressedStream, DecompressedStream: TMemoryStream;
  DecompressionStream: TDecompressionStream;
begin
  CompressedStream := TMemoryStream.Create;
  DecompressedStream := TMemoryStream.Create;
  try
    // 将压缩数据写入CompressedStream
    CompressedStream.Position := 10; // 跳过GZIP的10字节固定头部
    DecompressionStream := TDecompressionStream.Create(CompressedStream);
    try
      DecompressedStream.CopyFrom(DecompressionStream, 0);
    finally
      DecompressionStream.Free;
    end;
  finally
    CompressedStream.Free;
    DecompressedStream.Free;
  end;
end;

排查建议 #

1. 先验证原始压缩数据的有效性：将获取到的响应数据保存为.gz文件，用系统自带的压缩工具打开，若无法打开则说明数据本身不完整或格式错误
2. 替换自定义解压逻辑为上述内置方案，避免手动处理格式细节导致的错误

内容的提问来源于stack exchange，提问作者Walter Verhoeven