Delphi JCL 7zCompressionは、ファイル操作なしでメモリ内ストリームを圧縮/解凍するために使用できますか？

Question

TJcl7zCompressArchive/TJcl7zDecompressArchiveを使用して以前にアーカイブ操作を行っていました。

今、ファイル操作なしで直接メモリ内ストリームを圧縮/解凍したいと思います。しかし、WebでのJCLデモの検索の例を見ると、そのlibを使用する方法を見つけることができません。私はそれを行うための他のツールを見つけましたが、圧縮率は7zipほど良くないようです。

これを実現する方法やサンプルコードは、誰でも教えてください。どうもありがとう！

Answer 1

私はJCLラッパーを使ってGZIPストリームを圧縮します.TJcl7ziCompresspArchiveを使用するだけで動作するかどうかはわかりません。

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;