codigo para descomprimir un archivo .zip

[igest2000]

Bueno yo hace tiempo busque también info sobre el tema y encontre la solución con los componentes TPAbrevia. Creo que funcionan bastante bien para comprimir y descomprimir archivos en formato ".zip".

[Osorio]

Hace unas semanas tenia la necesidad de automatizar las copias de seguridad de mi base de datos firebird y entre pruebas, otras pruebas, y otras pruebas hice esto y resulto mejor que hacer un ZIP

Crear un Backup:
Paso 1. generar un backup de la base de datos con gbak.exe
Paso 2. Comprimir el archivo resultante del paso 1 con Makecab.exe


Restaurar un Backup
Paso 1. Expandir el archivo de seguridad con Expand.exe
Paso 2. Restaurar el archivo resultante del paso 1 con gbak.exe


Archivo de base de datos: 50 MB
Archivo generando un Zip: 11.1 MB
Archivo generado con gbak+ makecab: 4.9 MB

si a alguien mas le parece una buena alternativa:

Esciba un archivo Backup.bat

Código Delphi [-]
path = C:\Archivos de programa\Firebird\bin'
gbak -b origen.gdb temp.tmp -user sysdba -password masterkey -v
path = %Windir%\System32
makecab temp.tmp destino.bak
del temp.tmp
pause

Escriba un archivo Restore.bat

Código Delphi [-]
path = %Windir%\System32
pause
pause
expand destino.bak temp.tmp 
pause
path = C:\Archivos de programa\Firebird\bin'
pause
gbak -r temp.tmp origen.gdb  -user sysdba -password masterkey -v
pause
del temp.tmp

Espero que sea de utilidad


Saludos.