backup-restore remoto

[Casimiro Noteví]

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 Noteví]

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