Usar el Gbak desde mi aplicación

[[José Luis Garcí]]

Hola compañeros, tengo mucha información de como usar el gback desde la linea de comandos, pero lo que me gustaría es poder hacerlo desde mi aplicacíon, poniendo dos edits, el 1º para la bd, el segundo donde guardarlo (esta parte esta solucionada, pero luego como mando la orden desde el programa, estoy probando en una aplicación sin b.d., pero la idea es hacerla desde la misma aplicación, tendría que cerrar el Ibdatabase.

Como siempre muchas gracias por vuestra ayuda.

[Casimiro Notevi]

gbak no necesita que cierres la base de datos, puede hacer el backup mientras están trabajando, ya que usa transacciones, por lo que no le molesta lo que hagan otros mientras él trabaja

Descarga este programita de backups que he compartido alguna vez en clubdelphi, échale un vistazo y verás cómo está hecho lo que quieres.
Y si tienes alguna duda... aquí estaré

[ecfisa]

Hola José.

Te pongo un ejemplo de una forma simple en que podrías hacerlo:

Código Delphi [-]
procedure TForm1.MakeBackup;
const
   PATH_BACKUP = 'C:\...\Data\Backup\';
   FILE_BACKUP = 'C:\...\Data\BASEDATOS.FDB ';
var
  lpOperation, lpFile, lpParameters, lpDirectory: PChar;
  Nombre: string;
begin
  // Componer nombre de archivo (yyyymmdd.fbk)
  Nombre:= StringOfChar('0',4-Length(IntToStr(YearOf(Now))))+IntToStr(YearOf(Now)) +
    StringOfChar('0',2-Length(IntToStr(MonthOf(Now))))+IntToStr(MonthOf(Now)) +
    StringOfChar('0',2-Length(IntToStr(DayOf(Now))))+IntToStr(DayOf(Now))+ '.FBK';
  if not FileExists(PATH_BACKUP + Nombre) then
    with TPanel.Create(nil) do
    try
      Caption:= 'Realizando copia de seguridad, aguarde un momento por favor...';
      Font.Size:= 14;
      Font.Name:= 'Arial';
      Width:= 600;
      Height:= 70;
      Left:= (Self.ClientWidth - Width) div 2;
      Top:= (Self.ClientHeight - Height) div 2;
      BevelInner:= bvNone;
      BevelOuter:= bvNone;
      BevelWidth:= 1;
      BorderStyle:= bsSingle;
      Ctl3D:= False;
      Parent:= Self;
     
      lpOperation:= 'open';
      lpFile:= 'gbak.exe';
      lpParameters:= PChar('-v -t -user SYSDBA -password "masterkey" '+ FILE_BACKUP + PATH_BACKUP + Nombre);
      lpDirectory:= PChar(GetEnvironmentVariable('ProgramFiles')+'\Firebird\Firebird_2_5\bin');
      ShellExecute(Handle, lpOperation, lpFile, lpParameters, lpDirectory, SW_HIDE);
    finally
      Free;
    end;
end;

Saludos.

Edito: Sin dudas nada tán elaborado como el código de Casimiro. Código que, con su permiso, voy a pasar a echarle una mirada

[Casimiro Notevi]

Empezado por ecfisa

Edito: Sin dudas nada tán elaborado como el código de Casimiro. Código que, con su permiso, voy a pasar a echarle una mirada

Es un programita sencillo, sin florituras

[[José Luis Garcí]]

Casimiro Notevi

gbak no necesita que cierres la base de datos, puede hacer el backup mientras están trabajando, ya que usa transacciones, por lo que no le molesta lo que hagan otros mientras él trabaja

Descarga este programita de backups que he compartido alguna vez en clubdelphi, échale un vistazo y verás cómo está hecho lo que quieres.
Y si tienes alguna duda... aquí estaré

Muy bueno el programa, le he estado echando un vistazo en su momento y no me acordaba de el , hasta que lo has nombrado.

ecfisa

Te pongo un ejemplo de una forma simple en que podrías hacerlo:

Muchas gracias por el ejemplo lo pruebo en un rato.

Gracias a ambos.

[[Lepe]]

A colación:

Yo tengo código de internet que permite ejecutar una orden y recoger el resultado de la línea de comando en un String. Es útil para saber si ha dado algún error o no. Lo usé con gbak porque quería hacer un reparador de BBDD Firebird automático.

Si crees que te sirve, avisa y pego por aquí.

Básicamente hacía todos los pasos descritos en http://www.destructor.de/

[[José Luis Garcí]]

muchas gracias Lepe, por supuesto todo lo que ayude es de agradecer y lo que no también (por la intención)

[ecfisa]

Hola José Luis.

Hay un detalle en el código que te puse, que si bién no afecta el funcionamiento, es innecesario.

Donde dice:

Código Delphi [-]
   StringOfChar('0',4-Length(IntToStr(YearOf(Now))))+IntToStr(YearOf(Now))

Bién podría decir

Código Delphi [-]
   IntToStr(YearOf(Now))

con el mismo efecto...


Saludos.

[[José Luis Garcí]]

ecfisa, he probado el código pero no va, lo único que he cambiado son las constantes y que lo ejecuto en un boton, te pongo el código por si ves, que he cometido algún error.

Código Delphi [-]
procedure TForm1.SpeedButton4Click(Sender: TObject);
const
   PATH_BACKUP = 'C:\TEBICA PROGRAMA\SEG BD\';
   FILE_BACKUP = 'C:\TEBICA PROGRAMA\BD\TEBICA.FDB';
var
  lpOperation, lpFile, lpParameters, lpDirectory: PChar;
  Nombre: string;
begin
//   Componer nombre de archivo (yyyymmdd.fbk)
  Nombre:= StringOfChar('0',4-Length(IntToStr(YearOf(Now))))+IntToStr(YearOf(Now)) +
    StringOfChar('0',2-Length(IntToStr(MonthOf(Now))))+IntToStr(MonthOf(Now)) +
    StringOfChar('0',2-Length(IntToStr(DayOf(Now))))+IntToStr(DayOf(Now))+ '.FBK';
  if not FileExists(Edit4.Text + Edit5.Text) then
    with TPanel.Create(nil) do
    try
      Caption:= 'Realizando copia de seguridad, aguarde un momento por favor...';
      Font.Size:= 14;
      Font.Name:= 'Arial';
      Width:= 600;
      Height:= 70;
      Left:= (Self.ClientWidth - Width) div 2;
      Top:= (Self.ClientHeight - Height) div 2;
      BevelInner:= bvNone;
      BevelOuter:= bvNone;
      BevelWidth:= 1;
      BorderStyle:= bsSingle;
      Ctl3D:= False;
      Parent:= Self;

      lpOperation:= 'open';
      lpFile:= 'gbak.exe';
//      lpParameters:= PChar('-v -t -user SYSDBA -password "masterkey" '+Edit3.Text + Edit4.Text + Edit5.Text);
      lpParameters:= PChar('-v -t -user SYSDBA -password "masterkey" '+ FILE_BACKUP + PATH_BACKUP + Nombre);
      lpDirectory:= PChar(GetEnvironmentVariable('ProgramFiles')+'\Firebird\Firebird_2_5\bin');
      ShellExecute(Handle, lpOperation, lpFile, lpParameters, lpDirectory, SW_HIDE);
    finally
      Free;
    end;
end;

Mi firebirrd es 2_5 y esta activo (Run) como un servicio y el (Start) en automático,por si te sirve de ayuda.