backup-restore remoto

[PacoPepe]

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.

[PacoPepe]

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'?

[PacoPepe]

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.