FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
BackUp Restore Automático
Hola foro,
Mi consulta es la siguiente. Se puede hacer una especie de utilitario para hacer un back up y Restore sobre una base de datos Interbase, desde Delphi? Es decir, Cuáles son las ordenes en Delphi para hacer un back up y Restore desde una aplicación? Muchas gracias |
#2
|
||||
|
||||
Hola.
Existen unos componentes IBX en la pestaña Interbase Admin para eso. Són el IBBackupService y IBRestoreService. Aunque personalmente llamo al gbak desde la aplicación Delphi, pasandole los parámetros adecuados para que haga el Backup y el Restore, mediante un ShellExecute. Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). |
#3
|
||||
|
||||
Hola Guillomart:
Me sumo a la inquietud de jsanchez y me parece muy interesante la opcion de "llamar a gbak desde la aplicación Delphi, pasandole los parámetros adecuados para que haga el Backup y el Restore, mediante un ShellExecute." Por favor podrias explicarnos un poco mas de este punto. Muchas gracias |
#4
|
||||
|
||||
Hola.
Os envío el código que utilizo. Código:
var RutaGbak, Params: String; begin RutaGbak := ExtractFilePath(Application.ExeName) + 'Firebird\bin\gBak.exe'; Params := AnsiQuotedStr(ExtractFilePath(Application.ExeName) + 'BBDD\Datos.gdb', '"'); Params := Params + ' ' + AnsiQuotedStr(txtArchivo.Text, '"'); Params := Params + ' -V -USER SYSDBA -PAS masterkey'; FileExecuteWait(RutaGbak, Params, ExtractFilePath(Application.ExeName), esNormal); if not FileExists(txtArchivo.Text) then begin ShowMessage('No se ha podido realizar la Copia de Seguridad'); end; end; Finalmente, en este caso utilizo la función FileExecuteWait que viene con las RxLib, porqué me es más cómoda que la función ShellExecute. Aunque si no teneis instaladas las RxLib, podeis utilizar perfectamente la función ShellExecute. NOTA : El Restore es muy similar, solo hay que añadir un -R en los parámetros, y especificar primero el archivo de copia de seguridad y después el de base de datos. Espero que esta muestra os sea de utilidad. Saludos.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). Última edición por guillotmarc fecha: 10-09-2003 a las 21:18:23. |
#5
|
|||
|
|||
Es increhible, cuando veo los forums, me doy cuanta que este mundo no ta to perdió....
Gracias por el código, ha sido muy util. Saludos Fernando Buitrago |
#6
|
|||
|
|||
Gracias !
Muy útil ! |
#7
|
||||
|
||||
Buenas, siguiendo a guillotmarc, añadir la que uso yo con la diferencia que no hace falta copiar el gbak sino que lo busca donde este instalado y ya de paso hace una restauracion porque gbak deja una copia comprimida. De paso os mando una funcion para ejecutar programas externos con un poco mas de control sobre la ejecucion.
De nada
__________________
Disfruta de la vida ahora, vas a estar muerto mucho tiempo. Última edición por cesarsoftware fecha: 27-03-2013 a las 21:04:52. |
#8
|
||||
|
||||
Cita:
Sin menoscabo de las útiles rutinas que nos regalas, viendo la primera de ellas me permito hacer una versión un poco mejorada: Saludos. P.D. Aprovecho para saludar a Marc y Raúl (segundo y tercer mensaje), donde quiera que se encuentren después de tantos años de intenso Delphi. Última edición por Al González fecha: 28-03-2013 a las 00:06:29. |
#9
|
||||
|
||||
Hola Al, es cierto si se usa openkeyreadonly da menos problemas en caso de que el registro este bloqueado al usuario.
Saludos.
__________________
Disfruta de la vida ahora, vas a estar muerto mucho tiempo. |
|
|
|