post icon

Comprimir y Descomprimir ficheros ZIP con Delphi

Ya que vengo con los articulos de compresión y descompresión de ficheros .zip, veremos como hacerlo con Delphi. Es tan sencillo que da miedo, necesitaremos descargarnos el siguiente componente ZipForge, el mismo es de paga, aunque tiene una versión free para uso comercial personal. El mismo nos permite comprimir, descomprimir, asignarle un password, encriptarlo en distintos algoritmos, entre otros.

Yo lo utilizo en Code Gear 2007, ustedes pueden descargarse para la versión que esten usando. Para instalarlo deben tener cerrado su IDE, y el mismo se encargará de instalare en la paleta de componentes, asi los .DPK no tendremos que instalarlos manualmente (que para mi gusto son un fastidio)

El único problema con esta versión es que siempre nos saldrá una pantalla de créditos al iniciar el IDE, a no ser que lo paguemos, pero creo que es un mal menor, supongo que no abren su IDE 24 veces al día.

Veamos lo sencillo que es usarlo

Comprimir

1
2
3
4
5
6
7
8
9
10
With ZipForge1 do
begin
  FileName := 'D:\Devtroce\devtroce.zip';
  OpenArchive( fmCreate );
  BaseDir := 'D:\Devtroce\';
  TempDir := 'D:\Devtroce\';
  Password := '******'; // en caso que querramos poner pass al fichero zip
  AddFiles( '*.avi' ); // comprimira todos los .avi
  CloseArchive;
end;

Descomprimir

1
2
3
4
5
6
7
8
9
10
with ZipForge1 do
  begin
    FileName := 'D:\Devtroce\devtroce.zip';
    OpenArchive(fmOpenRead);
    BaseDir := 'D:\Devtroce\';
    Password := '******'; // en caso que tenga pass el fichero zip
    TempDir := 'D:\Devtroce\';
    ExtractFiles('*.*');
    CloseArchive;
  end;

Comentarios desde Facebook:

Sin Comentarios aun, puedes tú ser el primero en comentar!

Deja tu Comentario

Responder