Programación de respaldos automáticos para la base de datos Firebird

[Casimiro Notevi]

Amigo Cañones, si lees los posts de arriba verás que ya lo modifiqué... y si sigues leyendo desde el principio verás que también hay un enlace para descargas los fuentes
Así, que ya sabes, cuando lo modifiques acuérdate de ponerlo aquí con los cambios que has hecho para quien quiera usarlo. Gracias

[Cañones]

Casimiro, olvide mencionar que el enlace a la descarga del codigo fuente, ya no funciona, por eso lo volvia a solicitar.
La cita del mensaje de quien lo modificaba, no era por ese caso puntual, si no que me referia a empezar a actualizarlo entre todos.

[Casimiro Notevi]

Gracias por el aviso, ya está solucionado, estuve ordenando las cosas y olvidé actualizar los enlaces. Aquí está.

[Cañones]

Muchas gracias.
Cuando termine las modificaciones lo vuelvo a subir.
No se cuanto me llevará porque estoy con mucho trabajo.
Saludos.

[Casimiro Notevi]

No hay prisa, lo importante es el resultado

[waly2k1]

Hola yo utilizo el gbak.exe q viene en Firebird:
Les paso un ejemplo:

sPassword := Data.IBConx.Password;
sFileDBF  := Data.GetShortName( Data.IBConx.Database );
sFileBAK  := sBAKPath + '\BAK' + FormatDateTime('yymmddHHmmss', Now) + '.fbk';
sParamet := ' -b -t -user sysdba -password ' + sPassword + ' ';

sFileEXE := sFIREPath + '\gbak.exe';
sFileEXE := Data.GetShortName( sFileEXE );
// sFIREPath es la carpeta bin de firebird q parametrizo porque nose donde lo instalan

Data.EjecutarExe( sFileEXE, sParamet + sFileDBF + ' ' + sFileBAK, true, false );

Y copio por las dudas la rutina EjecutarExe que tambien la encontré por ahí:

procedure TData.EjecutarExe( const ruta, args: string; bWait: boolean; bShow:boolean );
var
    salida: DWord;
    PSEI: PShellExecuteInfo;
    SEI: TShellExecuteInfo;
    iShow:integer;
begin
    iShow := SW_HIDE;
    if bShow then iShow := SW_NORMAL;

    if not FileExists( ruta ) then exit;
    with SEI do
    begin
        hInstApp := 0;
        lpVerb := nil;
        lpDirectory := nil;
        nShow := iShow;
        cbSize := SizeOf(SEI);
        lpFile := PChar(ruta);
        wnd := GetDesktopWindow;
        lpParameters := PChar(args + #0);
        fMask := SEE_MASK_NOCLOSEPROCESS;
    end;
    PSEI := @SEI;
    ShellExecuteEx( PSEI );
    if not bWait then exit;
    repeat
        salida := WaitforSingleObject( SEI.hProcess, 500 );
        Application.ProcessMessages;
    until ( salida <> WAIT_TIMEOUT );
end;

Nota: Ojo con los paths largos....

Y una vez al dia se copia la BD completa, este respaldo lo hago cada hora +/- donde tengo información critica y hasta ahora no tuve problemas. Inclusive zipeo el bak si es muy grande con el componente ZipMaster que es free.
Bueno nada de otro mundo, pero por ahí les sirve de algo. Saludos!
Walter

[JXJ]

hola

waly2k1

// sFIREPath es la carpeta bin de firebird q parametrizo porque nose donde lo instalan


sFIREPath como obtienes ese parametro.

sFIREPath := ???(directorio de firebird)como lo obtienes?


otra cosa

como programas tu aplicacion para que se ejecute cada hora?

usas un timer?

o un timer con alguna rutina mas fina

lo dijo por que en ocaciones se pone lenta la pc y
no se de otra forma mas elegante que poner un timer y cada segundo
estar checando si ya es la hora minuto o segundo..

yo voy a hacer una aplicacion que me haga un respaldo de la base
de datos.
enuna hora en especifico.
digamos 8:30 pm
y a esa hora inicie.

no quiero poner un timer cada segundo reivsando si ya son las 8:30 pm
y detenerlo cuando empieze el respaldo y activarlo al terminar el respaldo.

gracias..