34 respuestas en este tema

[egostar]

Hola amigos,

Estreno este foro publicando un programa para realizar respaldos y restaurar bases de datos Firebird.

En este programa uso los siguientes componentes

Básicos

5 Edits
3 Botones
1 ComboBox
1 Speedbutton
1 Statusbar
6 Labels
1 OpenDialog

Adicionales

1 XPManifest
1 ActionManager

Especiales (Si no cuentan con estos componentes no funcionará esta herramienta)

1 IBBackupService
1 IBRestoreService

Aquí una imagen de la herramienta:

Adjunto el código fuente esperando sea de utilidad

Salud OS

Archivos adjuntos

•  49_.zip   10,71KB   190 descargas

[Caral]

Hola
Gracias amigo por el aporte, por supuesto que es útil.
Saludos

[egostar]

Hola
Gracias amigo por el aporte, por supuesto que es útil.
Saludos

, pero ni bajaste el código 

Salud OS

[Caral]

Hola
Ya sabes que no uso Firebird amigo.
Pero en cuanto lo use sabes que es el primer lugar donde lo buscare.
Esta muy bien, no necesito bajarlo para saber de lo que eres capaz amigo.
Saludos

[seoane]

Yo si he bajado el código pero no lo puedo probar porque no tengo el IBBackupService  , pero se ve bastante bien.

Solo dos sugerencias (para la versión 2.0  ): guardar los parámetros en un ini y poder iniciar el proceso desde la linea de comandos, así seria sencillo crear una copia automática utilizando la "Tareas programadas" de windows.

[egostar]

Yo si he bajado el código pero no lo puedo probar porque no tengo el IBBackupService  , pero se ve bastante bien.

Solo dos sugerencias (para la versión 2.0  ): guardar los parámetros en un ini y poder iniciar el proceso desde la linea de comandos, así seria sencillo crear una copia automática utilizando la "Tareas programadas" de windows.

Pues amigo seoane, a metele mano y vamos mejorando el programita, esa es el punto, que de una idea aislada, hagamos algo que realmente se agradezca

Lo del INI es facil, lo que no se es lo que dices de utilizar las tareas programadas,

Salud OS

[Caral]

Hola
Y luego dicen, si la versión dos es la buena.
saludos

[eduarcol]

Las tareas programadas lo que hacen es ejecutar una linea de comando, esto quiere decir que si el ejecutable recibieras como parametro los valores de configuracion y se ejecutara automaticamente al abrir no deberia tener mayor problemas

[egostar]

Las tareas programadas lo que hacen es ejecutar una linea de comando, esto quiere decir que si el ejecutable recibieras como parametro los valores de configuracion y se ejecutara automaticamente al abrir no deberia tener mayor problemas

ok ok, entendi.

Pues manos a la obra.

Salud OS

[felipe]

Hola Eliseo... gracias por el aporte 
Solo una pregunta, que opciones usas para crear el backup... sería bueno que el programa tuviera las opciones en pantalla también 

[egostar]

Hola Eliseo... gracias por el aporte 
Solo una pregunta, que opciones usas para crear el backup... sería bueno que el programa tuviera las opciones en pantalla también 

Hola Felipe

     DatabaseName
     BackupFile
     Protocol
     ServerName
     Params
     Active
     ServiceStart

De los componentes

IBBackupService y IBRestoreService

Salud OS

[felipe]

Ahh... ok... ya te entiendo 

[egostar]

Hola.

Pues buscando por aqui y por allá me encontré con una solución para incluir parametros a la aplicación, inicialmente pensé en usar la función FindCmdLineSwitch() pero no pude obtener los siguientes datos depues del parámetro switch  .

Sin embargo me encontré con esta función

Funcion creada por Mike Heydon
Tomada de: http://www.delphi300...le_1924.asp?SK=

delphi

function GetParamVal(const TaggedParm : string;
                     IgnoreCase : boolean = true) : string;
var Retvar : string;
    i,Len : integer;
    Comp1,Comp2 : string;
begin
  RetVar := '';
  Comp1 := TaggedParm + '=';
  if IgnoreCase then Comp1 := UpperCase(Comp1);
  Len := length(Comp1);
 
  for i := 1 to ParamCount do begin
      Comp2 := copy(ParamStr(i),1,Len);
      if IgnoreCase then Comp2 := UpperCase(Comp2);
      if (Comp1 = Comp2) then begin
         RetVar := copy(ParamStr(i),Len + 1,length(ParamStr(i)));
         break;
      end;
  end;
 
  Result := RetVar;
end;

Paso los parámetros a la aplicación de esta forma

FBBackRestore /DB=C:\DATOS\BASE.FDB /BK=C:\DATOS\BASE.FBK /SN=MISERVIDOR /U=MIUSUARIO /PW=MIPASSWORD

Donde:

/DB  Nombre de la Base de Datos (Ruta y nombre)
/BK  Nombre de archivo respaldo (Ruta y Nombre)
/SN  Nombre del servidor
/U    Usuario
/PW  Contraseña

Y en el evento OnShow de la forma hago esto:

delphi

procedure TForm1.FormShow(Sender: TObject);
begin
  if ParamCount > 0 then begin
     edDB.Text := GetParamVal('/DB');
     edDBBK.Text := GetParamVal('/BK');
     edServerName.Text := GetParamVal('/SN');
     edUser.Text := GetParamVal('/U');
     edPassw.Text := GetParamVal('/PW');
  end;
end;

A ver que les parece

Salud OS

[eduarcol]

Simple y preciso 

Ahora leyendo mejor el comentario de seoane tambien existe la posibilidad de un archivo Ini, lo qu ete ahorraria los parametros y cargarias los valores ya guardados.  En este caso solo pasarias un parametro llamado Auto que le indicaria al programa que se ejecute con los valores ya guardados

[egostar]

Simple y preciso 

Ahora leyendo mejor el comentario de seoane tambien existe la posibilidad de un archivo Ini, lo qu ete ahorraria los parametros y cargarias los valores ya guardados.   En este caso solo pasarias un parametro llamado Auto que le indicaria al programa que se ejecute con los valores ya guardados

Asi es pero pienso que deberia de tener las dos opciones ya que eso haria mas genérica la aplicación , creo que esta herramienta da para mas

Salud OS

[egostar]

Bueno paso a pasito, ya incluí en los parámetros la opción de ejecutar automáticamente la acción deseada, ya que de otra forma se ejecutaba el prgrama pero esperaba que el usuario ejecutara alguna acción manualmente.

delphi

{
  Los parámetros son los siguientes:
 
/DB   Nombre de la Base de Datos (Ruta y nombre)
/BK   Nombre de archivo respaldo (Ruta y Nombre)
/SN   Nombre del servidor
/P    Protocolo (0=Local, 1=TCP)
/U    Usuario
/PW   Contraseña
/F    Función (B=Backup, R=Restore)
 
}
procedure TForm1.FormShow(Sender: TObject);
begin
  if ParamCount > 0 then begin
     edDB.Text := GetParamVal('/DB');
     edDBBK.Text := GetParamVal('/BK');
     edServerName.Text := GetParamVal('/SN');
     cbProtocol.ItemIndex := strtoint(GetParamVal('/P'));
     edUser.Text := GetParamVal('/U');
     edPassw.Text := GetParamVal('/PW');
     Accion := GetParamVal('/F');
     case Accion[1] of
        'B' : Respaldar.Execute;
        'R' : Restaurar.Execute;
     end;
  end;
end;

En la linea de comandos se lanza de esta forma

FBBackRest.exe /DB=C:\FBBackup\BASE.FDB /BK=C:\FBBackup\BASE.FBK /SN=MYPC /U=USUARIO /PW=password /P=1 /F=B

Salud OS

Adjunto los fuentes

Archivos adjuntos

•  74_.zip   13,51KB   50 descargas

[cadetill]

Hola

Y digo yo... no sería más sencillo usar directamente gback?  8-)

Nos leemos

Vsss

[FGarcia]

Hace ya algun tiempo uso este codigo de Eliseo.
En una aplicacion lo deje como utileria para el usuario comun y corriente, el que solo sabe operar el programa aplicacion y le ha funcionado todo bien. usar el gback es mas engorroso para un usuario comun ( si para uno lo es...jeje yo soy chico windows, el DOS y las lineas de comando me hacen sufrir)

[cadetill]

Hola

Hace ya algun tiempo uso este codigo de Eliseo.
En una aplicacion lo deje como utileria para el usuario comun y corriente, el que solo sabe operar el programa aplicacion y le ha funcionado todo bien. usar el gback es mas engorroso para un usuario comun ( si para uno lo es...jeje yo soy chico windows, el DOS y las lineas de comando me hacen sufrir)

jejeje, no hombre, no me refería a que tuviera que hacerlo el usuario desde una ventana DOS, me refería que quizás es más sencillo programar una llamada a ShellExecute que ejecute un gback de restore o de backup. De esta manera te aíslas de componentes y te aseguras de que te funciona con la versión de FB que tienes instalada (tienes que distribuir el gback.exe con tu app, claro )

Nos leemos

Vsss

[eduarcol]

lo que pasa cadetill es que nos gustan los retos, jeje