Czy Delphi JCL 7zCompression może kompresować/dekompresować strumień w pamięci bez operacji na plikach?

Question

Użyłem TJcl7zCompressArchive/TJcl7zDecompressArchive do wykonania operacji archiwizacji wcześniej.

Teraz chciałbym kompresować/dekompresować strumienie w pamięci bezpośrednio bez operacji na plikach. Jednak widząc przykłady z dem wyszukiwania JCL w Internecie, nie mogę znaleźć sposobu, aby to zrobić za pomocą tej biblioteki. Znalazłem inne narzędzia do tego, ale współczynnik kompresji nie wydaje się tak dobry jak 7zip.

Czy ktoś może podać wskazówki lub przykładowy kod pokazujący, jak to osiągnąć. Wielkie dzięki!

Answer 1

Używam wrapper JCL do kompresji strumienia GZIP - nie jestem pewien, czy to działa po prostu za pomocą TJcl7ziCompresspArchive. Do kompresji strumienia używam następujący:

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; 

do dekompresji strumienia:

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;