Delphi Zlib 压缩数据流解压通用函数

最新推荐文章于 2025-01-12 09:00:00 发布

原创最新推荐文章于 2025-01-12 09:00:00 发布 · 556 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

>> Delphi 专栏收录该内容

20 篇文章

订阅专栏

这段代码展示了如何使用Zlib库通过流存储进行数据解压缩。它创建了一个TDecompressionStream对象，从输入流读取压缩数据，并将解压缩的数据写入输出流。

用 Zlib 压缩数据, 通过流存储，可以使用下面函数实现解压：

function UnZipStream(Input, Output: TStream; var Buf: PByte): Boolean;
var
  DS: TDecompressionStream;
  nBufSize: Integer;
begin
  Result := False;
  if Assigned(Input) and Assigned(Output) then
  begin
    Input.Position := 0;
    Output.Position := 0;
    DS := TDecompressionStream.Create(Input);
    try
      nBufSize := DS.Read(Buf^, ZIP_MAX_BUF_SIZE);
      while nBufSize > 0 do
      begin
        Output.Write(Buf^, nBufSize);
        nBufSize := DS.Read(Buf^, ZIP_MAX_BUF_SIZE);
      end;
      if Output.Position > 0 then
      begin
        Result := true;
        Exit;
      end;
    finally
      DS.Free;
    end;
  end;
end;