Comprimir con Zipmaster y subcarpetas

[[newtron]]

Hola a tod@s.

Normalmente uso Zipmaster para comprimir/descomprimir archivos pero ahora se me plantea la necesidad de comprimir una carpeta que tiene otras carpetas con archivos dentro. He estado echando un vistazo y hace tiempo había un post que se quedó inconcluso en el que Casimiro recomendaba activar la propiedad "AddRecurseDirs" pero nada, lo ejecuto, no da error pero tampoco crea el fichero. La situación es la siguiente:

Tengo estas carpetas:

C:\Carpeta\Carpeta1
C:\Carpeta\Carpeta2
C:\Carpeta\Carpeta3

cada una con sus archivos dentro.

Mi código sería:

Código Delphi [-]
    ZipMaster.ZipFileName := 'C:\TEMP\carpeta.zip';
    ZipMaster.FSpecArgs.Clear;
    ZipMaster.FSpecArgs.Add('C:\Carpeta\*.*');
    try
      ZipMaster.Add;
    except
      raise exception.Create( 'Error al comprimir los archivos.' );
    end;

Como comentaba, teniendo la propiedad "AddRecurseDirs" en True ejecuto esas líneas y no da error pero tampoco crea el fichero.

Saludos

[Casimiro Notevi]

Hace años que no uso esto, pero en la documentación pone lo siguiente:

How to Use and Store Relative Paths

1) Set the AddOptions to AddRecurseDirs and AddDirNames:

Código Delphi [-]
with ZipMaster1 do
AddOptions := AddOptions + [AddRecurseDirs, AddDirNames];

2) Add a file specification like *.* or *.pas or something like this:

Código Delphi [-]
ZipMaster1.FSpecArgs.Append( '*.*' );

3) Set the RootDir property to the desired base directory, Drive and Directory where the relative path should start.

Código Delphi [-]
ZipMaster1.RootDir :='C:\aBaseDir\AnotherBaseDir';

4) Now do an Add, and you should have the desired result. The Drive ID and Dirname of your base directory will not be stored in the archive.

Código Delphi [-]
ZipMaster1.Add;

NOTE: The reason that demo1 saves whole pathnames is because it's GUI design intentionally stores complete pathnames in the FSpecArgs.

[[newtron]]

Estupendo, así si.

Gracias

[Casimiro Notevi]

Sí, es así, por ejemplo, si quieres añadir contraseña:
Primero 'limpias' y luego vas añadiendo las opciones que necesites:

Código Delphi [-]
Zip.AddOptions := [];
Zip.AddOptions := Zip.AddOptions + [AddEncrypt];

[[newtron]]

Empezado por Casimiro Notevi

Primero 'limpias' y luego vas añadiendo las opciones que necesites:

Claro... siempre primero hay que "limpiar la era"...

Gracias y saludos

[radenf]

Excelente aporte Casimiro.
Decidí migrar desde ZipForge a ZipMaster y fue facilísimo gracias a tu ayuda.

Saludos

[Casimiro Notevi]

Gracias
Solamente seguí este sencillo tutorial

[radenf]

Yo seguí el mismo tutorial y sólo con tu código logré dar en el clavo.

Un modesto aporte para quien le interese:
Si en la propiedad OnProgress de ZipMaster añadimos el siguiente código:

Código Delphi [-]
procedure TForm1.ZipMaster1Progress(Sender: TObject; Details: TZMProgressDetails);
begin
ProgressBar1.Position := Details.TotalPerCent;
Application.ProcessMessages;
end;

Podemos ver la progresión de la compresión del archivo o carpeta seleccionada, en un ProgressBar.

Saludos y muchas gracias