backup-restore remoto

[David Jiménez]

Estoy intentando hacer un backup-restore remoto desde Delphi XE2. Con la nueva versión de Firebird 2.5.2 es posible mediante
Backup:

Código SQL [-]
fbsvcmgr remotehost:service_mgr -user sysdba -password XXX /     action_backup -dbname some.fdb -bkp_file stdout >some.fb

Restore:

Código SQL [-]
fbsvcmgr remotehost:service_mgr -user sysdba -password XXX \   action_restore -dbname some.fdb -bkp_file stdin <some.fbk

Lo he probado ejecutando un .bat y funciona, pero con Delphi no consigo que funcione el Restore

Uso la función

Código Delphi [-]
function EjecutarPrograma(Programa:String;Esperar:Boolean=True):Boolean;
var ProcInfo:TProcessInformation;     Info:TStartupInfo;
begin
  FillChar(Info,SizeOF(Info),0);
  Info.cb:=SizeOf(Info);
  Info.dwFlags:=STARTF_USESHOWWINDOW;
  Info.wShowWindow:=SW_HIDE;
  Result:=CreateProcess(nil,PChar(Programa),nil,nil,False,0,nil,nil,Info,ProcInfo);
  if Esperar then     while WaitForSingleObject(ProcInfo.hProcess,100)=Wait_TimeOut do     begin      Application.ProcessMessages;
 if Application.Terminated then Break;     end;
end;

Falla en la Espera, en
WaitForSingleObject

Agradecería cualquier ayuda

Gracias

[Casimiro Notevi]

Empezado por PacoPepe

Estoy intentando hacer un backup-restore remoto desde Delphi XE2. Con la nueva versión de Firebird 2.5.2 es posible mediante

Bueno, siempre ha sido posible, con todas las versiones.

Empezado por PacoPepe

Falla en la Espera, en
WaitForSingleObject
Agradecería cualquier ayuda
Gracias

Prueba a cambiar el nombre del restore, puede que no lo permita porque ya existe.

[David Jiménez]

No sabiá que se podía hacer con todas las versiones anteriores. En la 2.5.2 lo han anunciado como una novedad.

Pero como ya dije haciéndolo con un .bat funciona, tanto el backup como el restore
El problema es que al ejecutar el restore no espera a que termine y no lo hace.
No entiendo donde puede estar el problema ya que uso la misma cadena en el .bat y desde Delphi.

¿Cómo lo haces tú desde Delphi? Yo antes usaba los componentes IBBackup - IBRestore, pero con el XE2, después de instalarlos, no me funcionan

Un saludo

[Casimiro Notevi]

Supongo que la novedad será hacerlo de esa manera, siempre lo he hecho con gbak

Empezado por PacoPepe

Pero como ya dije haciéndolo con un .bat funciona, tanto el backup como el restore
El problema es que al ejecutar el restore no espera a que termine y no lo hace.

¿Qué quieres decir con 'no espera a que termine'?

[David Jiménez]

Quiero decir que al usar la función

Código Delphi [-]
function EjecutarPrograma(Programa:String;Esperar:Boolean=True):Boolean;
var ProcInfo:TProcessInformation;
    Info:TStartupInfo;
begin
  FillChar(Info,SizeOF(Info),0);
  Info.cb:=SizeOf(Info);
  Info.dwFlags:=STARTF_USESHOWWINDOW;
  Info.wShowWindow:=SW_HIDE;
  Result:=CreateProcess(nil,PChar(Programa),nil,nil,False,0,nil,nil,Info,ProcInfo);
  if Esperar then
    while WaitForSingleObject(ProcInfo.hProcess,100)=Wait_TimeOut do
    begin
      Application.ProcessMessages;
      if Application.Terminated then Break;
    end;
end;

En la parte final,

Código Delphi [-]
 if Esperar then
    while WaitForSingleObject(ProcInfo.hProcess,100)=Wait_TimeOut do
    begin
      Application.ProcessMessages;
      if Application.Terminated then Break;
    end;

Al entrar al While no espera a que termine el Restore. Lo digo porque al hacerlo con el .bat, el restore tarda unos segundos, y con el While acaba de forma inmediata

Un saludo

[Casimiro Notevi]

Entonces es porque ocurre algún problema y no puede hacerlo.
Pon un 'breakpoint' en ese punto y mira exactamente qué comando se está enviando, seguramente hay algún error en el mismo.

[[birmain]]

Utiliza esta función para ejecutar desde Delphi:

Código Delphi [-]
 function WinExecAndWait32(FileName:String; Visibility:integer):integer;
 var
   zAppName:array[0..512] of char;
   zCurDir:array[0..255] of char;
   WorkDir:String;
   StartupInfo:TStartupInfo;
   ProcessInfo:TProcessInformation;
   Resultado: DWord;
 begin
   StrPCopy(zAppName,FileName);
   GetDir(0,WorkDir);
   StrPCopy(zCurDir,WorkDir);
   FillChar(StartupInfo,Sizeof(StartupInfo),#0);
   StartupInfo.cb := Sizeof(StartupInfo);

   StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
   StartupInfo.wShowWindow := Visibility;
   if not CreateProcess(nil,
     zAppName,                      { pointer to command line string }
     nil,                           { pointer to process security attributes}
     nil,                           { pointer to thread security attributes}
     false,                         { handle inheritance flag }
     CREATE_NEW_CONSOLE or          { creation flags }
     NORMAL_PRIORITY_CLASS,
     nil,                           { pointer to new environment block }
     nil,                           { pointer to current directory name }
     StartupInfo,                   { pointer to STARTUPINFO }
     ProcessInfo) then Result := -1 { pointer to PROCESS_INF }

   else begin
     WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
     GetExitCodeProcess(ProcessInfo.hProcess,Resultado);
     Result := Resultado;
   end;
 end;

// Puedes invocarla siguiendo este formato:

procedure EjecutaBackupCopia;
begin
    LineaLog('======= COMIENZO EJECUCION GBAK ===========================');
    resultado := WinExecAndWait32(CadenaBackupCopia,SW_HIDE);
    if resultado = 0 then
    LineaLog('======= FINAL EJECUCION GBAK  ¡ ok ! === (resultado = '+IntToStr(resultado)+')') else
    LineaLog('======= LA UTILIDAD GBAK HA TERMINADO DE FORMA ERRÓNEA ====');
end;

A mi me da excelentes resultados, no se si será la solución a tu problema.

[David Jiménez]

Esta función es igual a la que uso, pero sólo me funciona para el backup, para el restore no funciona porque no espera a que acabe.

A la hora de lanzarlo uso

Código Delphi [-]
resultado := WinExecAndWait32(CadenaBackupCopia,1);

en lugar de

Código Delphi [-]
resultado := WinExecAndWait32(CadenaBackupCopia,SW_HIDE);

supongo que no será por esa diferencia

[[birmain]]

Aparentemente es la misma función, solo que hay alguna diferencia en su implementación. Yo no tengo problema, ahora bién utilizo gbak. No creo que sea problema de los parámetros de entrada de la función. No pierdes nada por sustituirla temporalmente por la tuya para descartar este motivo.
Un saludo.

[David Jiménez]

He probado tu función y la mía, pero no funciona ninguna.

Estoy usando Delphi XE2 en una aplicación multicapa. El backup se hace en el servidor y la petición se hace desde el cliente a tavés de un TSQLServerMethod.

Antes con el Delphi7 me funcionaba sin problemas a través de los componentes TIBBackupService, que es igual que hacerlo con el gback en local.

¿Alguien hace backup en remoto?
¿Me podría explicar como?

Un saludo

[Casimiro Notevi]

Empezado por PacoPepe

Antes con el Delphi7 me funcionaba sin problemas a través de los componentes TIBBackupService, que es igual que hacerlo con el gbak en local.

¿Y ahora por qué no puedes hacerlo con ese componente?, ¿sale algún error?, ¿has comprobado exactamente por qué no funciona?

Empezado por PacoPepe

¿Alguien hace backup en remoto?, ¿Me podría explicar como?

Con gbak, aquí tienes el documento de los distintos parámetros que admite, uno de ellos es para usar el servicio firebird del servidor.

-SE[RVICE] <servicename>
This switch causes gbak to backup a remote database via the service manager. This causes the backup file
to be created on the remote server, so the path format and filename must be valid on the remote server. The
servicename is currently always the text service_mgr.

Por cierto, ¿has probado lo que te he comentado antes?, pon un breakpoint antes de ejecutar la línea y copia su contenido para ejecutarlo a mano, a ver qué mensaje sale. Porque dices que no funciona, pero no sabes el motivo, pues tendrás que descubrirlo, que lo mismo es una tontería.

[David Jiménez]

Casimiro, ese es el problema, que teóricamente no hay ningún problema.
Es decir, simplemente acaba pero no hace la copia de seguridad y no da ningún error.

De hecho lo he probado con todos las opciones: gbak, fbsvcmgr y nbackup. Y con todas ejecutando un .bat funciona pero al ejecutar esa misma cadena con alguna función a través de Delphi, no se genera la copia.

Lo que no he probado todavía es generar el .bat con Delphi, ejecutarlo y luego borrarlo. Quizás sea la solución

Lo probaré


Un saludo