backup-restore remoto

[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.

[[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.

[PacoPepe]

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.