Delphi JCL 7zCompression可以用于压缩/解压缩内存流而不需要文件操作吗？

Question

我之前使用过TJcl7zCompressArchive / TJcl7zDecompressArchive 进行Archive 操作。

现在我想直接压缩/解压缩内存中的流，而不进行文件操作。但是，当看到在网络中搜索的 JCL 演示中的示例时，我找不到使用该库来执行此操作的方法。我确实找到了其他工具来做到这一点，但压缩率似乎不如 7zip。

任何人都可以给出一些指示或示例代码来展示如何实现这一目标。多谢！

Answer 1

我使用 JCL 包装器来压缩 GZIP 流 - 不确定它是否可以简单地使用 TJcl7ziCompresspArchive。要压缩流，我使用以下命令：

procedure _CompressStreamGZIP( const ASourceStream, ADestinationStream: TStream );
var
  LArchive : TJclCompressArchive;
begin
  ADestinationStream.Position := 0;
  ASourceStream.Position := 0;
  LArchive := TJclGZipCompressArchive.Create( ADestinationStream, 0, False );

  try
    LArchive.AddFile( '..\Stream.0', ASourceStream, false );
    LArchive.Compress();
  finally
    if ( Assigned( LArchive ) ) then FreeAndNil( LArchive );
  end;
end;

要解压缩流：

procedure _DecompressStreamGZIP( const ASourceStream, ADestinationStream : TStream );
var
  LArchive : TJclDecompressArchive;
begin
  ADestinationStream.Position := 0;
  ASourceStream.Position := 0;
  LArchive := TJclGZipDecompressArchive.Create( ASourceStream, 0, false );

  try
    LArchive.ListFiles();
    LArchive.Items[0].Stream := ADestinationStream;
    LArchive.Items[0].OwnsStream := false;
    LArchive.Items[0].Selected := True;
    LArchive.ExtractSelected();
  finally
    if ( Assigned( LArchive ) ) then FreeAndNil( LArchive );
  end;
end;