Crear una carpeta comprimida (comprimida) usando Delphi

Question

¿Puedo crear una carpeta comprimida (comprimida) de Windows XP usando Delphi?

Answer 1

Según un hilo en eggheadcafe, puede usar CreateFile Function con FILE_FLAG_BACKUP_SEMANTICS para crear una carpeta comprimida.

Para la ruta de extensiones de shell, consulte Using Windows XP "Compressed Folder" shell extension to work with .zip files por Namespace Edanmo, que está escrito en VB.

Acabo de encontrar la pregunta similar en C++. Eche un vistazo al Creating a ZIP file on Windows (XP/2003) in C/C++. Tengo la sensación de que la ruta más fácil es comprar ZipForge. Ver Zip a file in Delphi code sample.

Answer 2

Puede usar alguna versión de línea de comando de cualquier compresor como 7zip y realizar la tarea utilizando ShellExecute, o puede usar un componente comercial o gratuito como cualquiera de these.

He usado ZipMaster y se comporta muy bien para mi propósito. No sé cuáles son sus requisitos de tamaño, espacio y rendimiento.

Answer 3

Puede usar TurboPower Abbrevia que ahora es de código abierto.

Answer 4

Tome un vistazo a estos:

• File Compression
• FSCTL_SET_COMPRESSION

Answer 5

Hace algún tiempo, he intentado todas las bibliotecas de compresión de Delphi que he podido encontrar, y eventualmente terminó usando KaZip por Kiril Antonov.

Mis requisitos eran:

• Libre;
• Código abierto;
• Código nativo de Delphi;
• Sin dependencias externas (dll, exe). Mi requisito más importante;
• Huella de memoria pequeña;
• Fácil de usar;

Lo uso principalmente para convertir archivos .kml en .kmz, y lo hace increíblemente rápido.

Aquí hay un ejemplo de cómo 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 "cremallera" carpeta en Windows no es más que un archivo ZIP comprimido con cualquier biblioteca postal estándar. Las carpetas comprimidas son un animal diferente y requieren un formato de disco NTFS.

Para el archivo "Zip", sugiero fuertemente el Turbo Power Abbrevia, que es de código abierto y funciona bien. Es posible que desee comprobar este sitio alternate si usa Delphi 2009, ya que podría ser una copia más reciente.

Si desea utilizar la opción de carpetas comprimidas, deberá modificar los indicadores de directorio en el manejador de directorio.Esto solo afectará a los archivos NUEVOS agregados a ese directorio y no comprimirá automáticamente los archivos existentes. Si tiene un directorio existente que está intentando comprimir, cambie el nombre de cada archivo existente y cárguelo y guárdelo de nuevo en el nombre original, eliminando el archivo original cuando lo complete con cada uno. Yozey tenía un buen enlace a la documentación MSDN. Solo recuerda que esto solo funciona con discos formateados en NTFS, por lo que deberás agregar un cheque para eso en tu código.

Answer 7

Echa un vistazo a este OpenSource SynZip unit. Es incluso más rápido para la descompresión que la unidad predeterminada incluida con Delphi, y generará un exe más pequeño (las tablas crc se crean al inicio).

No se necesita dll externo. Funciona desde Delphi 6 hasta XE. No hay problema con la versión Unicode de Delphi. Todo en una sola unidad.

Acabo de realizar algunos cambios para manejar los nombres de archivo Unicode dentro del contenido Zip, no solo el juego de caracteres Win-Ansi, sino también cualquier carácter Unicode. Comentarios son bienvenidos.

Answer 8

Si está utilizando Delphi X2, sólo tiene que utilizar TZipFile de System.Zip:

Para comprimir una carpeta, utilice:

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

Para comprimir archivos, utilice:

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

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