Delphi 11.0执行ZLib压缩代码报Invalid ZStream operation错误如何解决

该报错是Delphi 11.0版本对System.ZLib单元底层实现调整导致的兼容问题：Delphi 10及更早版本中TZCompressionStream支持自定义WindowBits参数的构造逻辑存在兼容缺陷，11.0版本修复部分ZLib标准兼容问题的同时，改变了自定义WindowBits场景下的流写入行为，CopyFrom方法触发了ZLib顺序流不支持的操作校验。

• 方案1（推荐）：使用Delphi 11新增的官方GZip模式构造重载，不需要手动配置WindowBits，完全兼容原生实现：

procedure ZLibCompressStream(Source, Dest: TStream; const Level: TZLibCompressionLevel;
        const GZipFormat: Boolean);
    var
      Zip: TZCompressionStream;
    begin
      // 显式复位源流位置，避免源流位置不在开头导致的空压缩问题
      Source.Position := 0;
      // 使用官方重载构造，自动处理GZip格式的WindowBits配置
      Zip := TZCompressionStream.Create(Level, Dest, GZipFormat);
      try
        Zip.CopyFrom(Source, 0);
      finally
        FreeAndNil(Zip);
      end;
    end;

该方案同时兼容普通Deflate和GZip格式，不需要再维护WindowBits常量，稳定性更高。

• 方案2：如果需要保留自定义WindowBits的配置逻辑，可将CopyFrom调用替换为手动读写逻辑，避免触发流校验异常：

// 替换原逻辑中的 Zip.CopyFrom(Source, 0); 部分
const BUF_SIZE = 4096;
var
  Buffer: array[0..BUF_SIZE-1] of Byte;
  ReadCount: Integer;
begin
  Source.Position := 0;
  while Source.Position < Source.Size do
  begin
    ReadCount := Source.Read(Buffer, BUF_SIZE);
    if ReadCount = 0 then Break;
    Zip.WriteBuffer(Buffer, ReadCount);
  end;
end;

你的测试代码中s1、s2两个内存流使用后未释放，存在内存泄漏，建议补充释放逻辑：

procedure TForm85.Button1Click(Sender: TObject);
var s1,s2:TMemoryStream;
begin
  s1:=TMemoryStream.Create;
  s2:=TMemoryStream.Create;
  try
    s1.LoadFromFile('h:\1.txt');
    ZLibCompressStream(s1,s2,zcDefault,true);
    // 后续处理压缩后的s2流逻辑
  finally
    s1.Free;
    s2.Free;
  end;
end;

内容的提问来源于stack exchange，提问作者A.K.D.