Creazione della cartella compressa (con cerniera) usando Delphi

Question

Posso creare una cartella compressa (con cerniera) di Windows XP usando Delphi?

Answer 1

In base a una discussione in eggheadcafe, è possibile utilizzare CreateFile Function con FILE_FLAG_BACKUP_SEMANTICS per creare una cartella compressa.

Per il percorso delle estensioni della shell, dai un'occhiata a Using Windows XP "Compressed Folder" shell extension to work with .zip files di Namespace Edanmo, che è scritto in VB.

Ho appena trovato la domanda simile posta su C++. Dai un'occhiata a Creating a ZIP file on Windows (XP/2003) in C/C++. Ho la sensazione che il percorso più semplice sia acquistare ZipForge. Vedi Zip a file in Delphi code sample.

Answer 2

È possibile utilizzare una versione da riga di comando di qualsiasi compressore come 7zip ed eseguire l'attività utilizzando ShellExecute oppure è possibile utilizzare un componente gratuito o commerciale come chiunque di these.

Avevo utilizzato ZipMaster e si comporta molto bene per il mio scopo. Non so quali siano le dimensioni, lo spazio e le prestazioni richieste.

Answer 3

È possibile utilizzare TurboPower Abbrevia che ora è open source.

Answer 4

Date un'occhiata a questi:

• File Compression
• FSCTL_SET_COMPRESSION

Answer 5

Qualche tempo fa, ho provato tutte le librerie di compressione Delphi che ho potuto trovare, e alla fine ho finito utilizzando KaZip entro il Kiril Antonov.

miei requisiti erano:

• gratuito;
• Open source;
• codice Delphi nativo;
• Nessuna dipendenza esterna (dll, exe). Il mio requisito più importante;
• Ingombro di memoria ridotto;
• Facile da usare;

Io lo uso principalmente per trasformare file .kml in .kmz, e lo fa incredibilmente veloce.

Ecco un esempio di come lo uso:

uses 
    KaZip; 

... 

// replaces a .kml file with a .kmz file 
procedure KmlToKmz(const aFileName: string); 
var 
    FS: TFileStream; 
    KaZip:TKaZip; 
    KmzFileName:TFileName; 
begin 
    KmzFileName := ChangeFileExt(aFileName, '.kmz'); 
    KaZip := TKaZip.Create(nil); 
    try 
    // create an empty zipfile with .kmz extension: 
    FS := TFileStream.Create(KmzFileName, fmOpenReadWrite or FmCreate); 
    try 
     KaZip.CreateZip(FS); 
    finally 
     FS.Free; 
    end;   

    KaZip.Open(KmzFileName); // Open the new .kmz zipfile 
    KaZip.Entries.AddFile(aFileName); // add the .kml 
    KaZip.Close; 
    DeleteFile(aFileName); // delete the .kml 
    finally 
    KaZip.Free; 
    end; 
end; 

Answer 6

A "zip" cartella in Windows non è altro che un file .ZIP compresso utilizzando qualsiasi libreria zip standard. Le cartelle compresse sono un animale diverso e richiedono un formato disco NTFS.

Per il file "Zip", suggerisco caldamente lo Turbo Power Abbrevia, che è open source e funziona bene. Potresti voler controllare questo sito alternate se utilizzi Delphi 2009 in quanto potrebbe essere una copia più recente.

Se si desidera utilizzare l'opzione cartelle compresse, sarà necessario modificare i flag di directory sull'handle della directory.Ciò avrà un impatto solo sui nuovi file aggiunti a quella directory e non comprimerà automaticamente i file esistenti. Se si dispone di una directory esistente che si sta tentando di comprimere, rinominare ciascun file esistente e caricarlo e salvarlo sul nome originale eliminando il file originale quando è completo con ciascuno di essi. Yozey aveva un buon collegamento con la documentazione di MSDN. Ricorda solo che funziona solo con dischi formattati NTFS, quindi dovrai aggiungere un controllo per quello nel tuo codice.

Answer 7

Dai un'occhiata a questo OpenSource SynZip unit. È ancora più veloce per la decompressione rispetto all'unità predefinita fornita con Delphi e genererà un exe più piccolo (le tabelle crc vengono create all'avvio).

Non è necessaria alcuna DLL esterna. Funziona da Delphi 6 fino a XE. Nessun problema con la versione Unicode di Delphi. Tutto in una singola unità.

Ho appena apportato alcune modifiche per gestire i nomi dei file Unicode all'interno del contenuto Zip, non solo il set di caratteri di Win-Ansi ma tutti i caratteri Unicode. Il feedback è benvenuto

Answer 8

Se si utilizza Delphi X2, basta usare TZipFile da System.Zip:

a zip in una cartella, utilizzare:

TZipFile.ZipDirectoryContents('ZipFile.zip', 'C:\Zip\this\right\now'); 

zip file, uso:

Zip := TZipFile.Create; 
try 
    Zip.Open('ZipFile.zip', zmWrite); 

    Zip.Add('FileToBeZipped.txt'); 
    Zip.Add('ThisWillBeCompressedAgainForSureAndBecomeSmaller.zip'); 
finally 
    Zip.Free; 
end