IB Backup/Restore Schedule

[RolphyReyes]

Saludos.

Estuve buscando esta herramienta (IB Backup/Restore Schedule) pero la pagina principal no esta activa, realice varias busquedas pero no logre dar con ella; solo con herramientas parecidas.

Si alguien de ustedes me la podría facilitar o subirla al FTP del Club (claro, si cumple con las normas establecidas).

Gracias anticipadas.

[[egostar]]

Hola

Yo me he hecho una pequeña utileria para realizar los BackUp y Restore de mis bases de datos Firebird.

En una forma incluye tres botones (En mi caso use TSpeedButton), un TLabel, un TMemo, 1 TIBDataBase, 1 TIBTransaction, 1 TIBBackupService y 1 TIBRestoreService (estos dos últimos están en la pestaña Interbase Admin).

Aquí el código

Código Delphi [-]
unit URespaldos;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Buttons, IBServices, StdCtrls;

type
  TFRespaldos = class(TForm)
    IBDatabase1: TIBDatabase;
    IBTransaction1: TIBTransaction;
    IBBackupService1: TIBBackupService;
    IBRestoreService1: TIBRestoreService;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    Memo1: TMemo;
    Label1: TLabel;
    procedure SpeedButton1Click(Sender: TObject);
    procedure SpeedButton2Click(Sender: TObject);
    procedure SpeedButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FRespaldos: TFRespaldos;

implementation

{$R *.dfm}

procedure TFRespaldos.SpeedButton1Click(Sender: TObject);
begin
  Label1.Caption:='Iniciando proceso......';
  Memo1.Lines.Add('********** INICIANDO RESPALDO DE BASE DE DATOS **********');
  with IBBackupService1 do begin
     ServerName   := 'Nombre Servidor';
     DatabaseName := 'Nombre de la Base incluyendo la ruta completa';
     BackupFile.Clear;
     BackupFile.Add('Nombre del archivo de Respado incluyendo ruta completa');
     Active:= True;
     ServiceStart;
     while not eof do
        Memo1.Lines.Add(GetNextLine);
     Active:= False;
  end;
  Label1.Caption:='Proceso Terminado';
  Memo1.Lines.Add('********** RESPALDO FINALIZADO **********');
end;

procedure TFRespaldos.SpeedButton2Click(Sender: TObject);
begin
  Label1.Caption:='Iniciando proceso......';
  Memo1.Lines.Add('********** INICIANDO RESTAURACION DE BASE DE DATOS **********');
  Memo1.Lines.Add(FormatDateTime('nn/dd/yyyy hh:mm:ss',Now));
  IBDatabase1.Close;
  Sleep(100);
  with IBRestoreService1 do begin
    ServerName   := 'Nombre Servidor';
    DataBaseName.Clear;
    DatabaseName.Add('Nombre de la Base incluyendo la ruta completa');
    BackupFile.Clear;
    BackupFile.Add('Nombre del archivo de Respado incluyendo ruta completa');
    Active:= True;
    ServiceStart;
    while not eof do
       Memo1.Lines.Add(GetNextLine);
    Active:= False;
  end;
  Label1.Caption:='Proceso Terminado';
  Memo1.Lines.Add('********** RESTAURACION FINALIZADA **********');
  IBDatabase1.Open;
end;

procedure TFRespaldos.SpeedButton3Click(Sender: TObject);
begin
  close;
end;

end.

Salud OS

[RolphyReyes]

Gracias Egostar.

Pero ando buscando algo más bien que funcione como un servicio, esa parte de hacer backups "manuales" lo tengo listo.

Lo que quiero es que no dependa del usuario, sabes como son ellos. Le tengo la opción manual por si acaso necesitaran hacer algo; pero mi interes es tener una herramienta que funcione sola sin intervencion del usuario.

Si conoces de alguna que cumpla con ese requisito hazme saber por favor.

Gracias nuevamente!

[jhonny]

Empezado por RolphyReyes

Gracias Egostar.

Pero ando buscando algo más bien que funcione como un servicio, esa parte de hacer backups "manuales" lo tengo listo.

Lo que quiero es que no dependa del usuario, sabes como son ellos. Le tengo la opción manual por si acaso necesitaran hacer algo; pero mi interes es tener una herramienta que funcione sola sin intervencion del usuario.

Si conoces de alguna que cumpla con ese requisito hazme saber por favor.

Gracias nuevamente!

Hago una sugerencia...

Si ya tienes un aplicativo que hace el Backup y el Restore manualmente, entonces crea una "tarea programada" (De esas de Windows, de toda la vida) que simplemente lo ejecute con algún parámetro, para que tu aplicativo haga el resto cada vez que se necesite y listo...

[Casimiro Notevi]

Aquí adjunto un programita sencillito que hice, no funciona como servicio, pero puedes ponerlo para que se inicie con windows.
Puedes programar backups para que se hagan diarios, semanales, etc y algunos detallitos más.
Advierto que es una versión 0.1 beta, aunque lo he instalado en algunos de mis clientes y está funcionando correctamente.

Si quieres el código fuente, me lo pides.

[RolphyReyes]

Saludos.

Gracias Casimiro Notevi por la aplicación.

Jhonny tomare eso en cuenta.

[agcovarrubias]

Se que este post es muy antiguo, llamas a gbak Casimiro o algún componente de Delphi?

[Casimiro Notevi]

Empezado por agcovarrubias

Se que este post es muy antiguo, llamas a gbak Casimiro o algún componente de Delphi?

Llama a gbak.
Aquí tienes el código fuente.