क्या डेल्फी जेसीएल 7zCompression फ़ाइल ऑपरेशन के बिना इन-मेमोरी स्ट्रीम को संपीड़ित/डिकंप्रेस करने के लिए उपयोग किया जा सकता है?

Question

मैंने पहले TJcl7zCompressArchive/TJcl7zDecompressArchive का उपयोग आर्काइव ऑपरेशन करने के लिए किया था।

अब मैं फ़ाइल ऑपरेशन के बिना सीधे मेमोरी स्ट्रीम को संपीड़ित/डिकंप्रेस करना चाहता हूं। हालांकि, जब वेब पर खोज रहे जेसीएल डेमो के उदाहरण देख रहे हैं, तो मुझे उस lib का उपयोग करने का कोई तरीका नहीं मिल रहा है। मुझे ऐसा करने के लिए अन्य टूल्स मिल गए लेकिन संपीड़न अनुपात 7zip जितना अच्छा नहीं लगता है।

कोई भी कुछ दिशा-निर्देश या नमूना कोड दे सकता है जो इसे प्राप्त करने के तरीके को दिखाता है। आपका बहुत बहुत धन्यवाद!

Answer 1

मैं एक जीजेपीआईपी स्ट्रीम को संपीड़ित करने के लिए जेसीएल रैपर का उपयोग करता हूं - यह सुनिश्चित नहीं है कि यह केवल 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;