Respaldo de Tablas Paradox

[lKinGl]

Hola amigos foristas..

Verán hace tiempo vi un software que tenia la opción de Respaldar la Base de Datos y se Podia Recuperar por si acaso....

el sistema era así...

Para Respaldar:

recuerdo que era un form con un boton examinar
al pulsar examinar se abria un opendialog para elegir donde se quiere guardar la base de datos y al darle aceptar se creaba una carpeta en el sitio elegido con el nombre de la fecha (HOY) y salia un mensaje que decia que se ha respaldado correctamente

Para Recuperar:

era otro form con el botón examinar
al pulsar examinar se abria un opendialog para buscar la base de datos con la que vamos a sustituir la que está actualmente

Luego de dar aceptar preguntaba ¿Esta Seguro? le presionaba si y se sustituia la base de datos



mi pregunta es ¿Como hago ese sistema? para Respaldar y Recuperar la base de datos


Gracias Adelantadas

[[eduarcol]]

en paradox es tan sencillo como comprimir y descomprimir el directorio de los datos, pero ten cuidado que no hayan archivos en uso si no corres el riesgo de corromperlos

[lKinGl]

Ok pero como hago el procedimiento y eso

[[eduarcol]]

busca en los foros y encontraras varios ejemplos

[marcoszorrilla]

Puedes utilizar los componentes ZipMaster que son gratuitos.

Aquí te pongo un ejemplo.

Código Delphi [-]
Procedure Crear_Zip();
var
ZipArch: string;
begin

  if FileExists(ZipArch) then
  DeleteFile(ZipArch);
  

 ZipArch:= '\\Facturacion\facturas\xxxx\Copias_Seguridad\FactPdx'+FormatDateTime('YYYYmmddhhmm',Now)+'.zip';
 frCopiaSeg.pnMsge.Caption:='Comprimiendo ficheros en '+ZipArch;

  if FileExists(ZipArch) then
  DeleteFile(ZipArch);

  frCopiaSeg.Zip.ZipFilename := ZipArch;

  if frCopiaSeg.Zip.ZipFilename = '' then
  begin
    frCopiaSeg.mVisor.Lines.Add('Fallo al añadir archivo '+ZipArch);
    exit;
  end;

  frCopiaSeg.Zip.AddOptions := [];
  frCopiaSeg.Zip.FSpecArgs.Add('\\Facturacion\facturas\xxxx\AniPdx\*.Db');
  frCopiaSeg.Zip.FSpecArgs.Add('\\Facturacion\facturas\xxxx\AniPdx\*.Mb');
  frCopiaSeg.Zip.FSpecArgs.Add('\\Facturacion\facturas\xxxx\AniPdx\*.Px');
  frCopiaSeg.Zip.FSpecArgs.Add('\\Facturacion\facturas\xxxx\AniPdx\*.X*');
  frCopiaSeg.Zip.FSpecArgs.Add('\\Facturacion\facturas\xxxx\AniPdx\*.Y*');
  try
     frCopiaSeg.Zip.Add;
     frCopiaSeg.mVisor.Lines.Add('El archivo '+ZipArch+' se creo con éxito!');
  except
     frCopiaSeg.mVisor.Lines.Add('Fallo al añadir archivo '+ZipArch);
  end;

Un Saludo.