Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   codigo para descomprimir un archivo .zip (https://www.clubdelphi.com/foros/showthread.php?t=29675)

JAI_ME 29-01-2006 00:23:29

codigo para descomprimir un archivo .zip
 
:confused: tengo un problemilla, tengo una aplicacion hecha en delphi 6 y uso como base de datos interbase 6...
Resulta que tengo que hacer los bacuk o copias de seguridad, y debo comprimir dicha copia....
tengo un código con la cual comprimo la DB, pero no se cómo descomprimir ésta.
claro, usando delphi..
si alguien me pudiera ayudar, se lo agradecería mucho....
de ante mano muchas gracias....:)
si no es mucha molestia me podrían, enviar sus respuestas a mi correo, es que soy nuevo en esa página y no se cómo buscar o encontrarlas...

jmelendez01@gmail.com

dec 29-01-2006 01:33:44

Hola,

JAI_ME, primero que nada deja que te dé la bienvenida al ClubDelphi. Permite también que te recomiende que eches un vistazo a la guía de estilo de estos Foros.

Respecto de la cuestión que planteas, existen no pocos componentes para Delphi que puedes utilizar tanto para comprimir como para descomprimir archivos en formato Zip.

Ha bastado una búsqueda en los Foros con la palabra "comprimir" para que vea ya algunos resultados que seguro serán de utilidad para ti. Si te queda alguna duda ya sabes dónde puedes plantearla.

[Gunman] 29-01-2006 13:32:18

Hay un montón de componentes que te pueden servir, te aconsejo que mires por www.torry.net.
un saludo ;-)

igest2000 30-01-2006 16:19:19

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 30-01-2006 18:37:08

Buena alternativa
 
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.


La franja horaria es GMT +2. Ahora son las 19:12:35.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi