backup-restore remoto
 

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

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

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

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 :confused:

Un saludo

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

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

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

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.

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.

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

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.

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? :confused:

Un saludo

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

Con gbak, aquí tienes el documento de los distintos parámetros que admite, uno de ellos es para usar el servicio firebird del servidor.
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.

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