[ingabraham]

backup

Código Delphi [-]
  with IBBackupService1 do
  begin
    Params.Clear;
    BackupFile.Clear;
    ServerName := 'localhost';
    LoginPrompt := False;
    Params.Add('user_name=SYSDBA');
    Params.Add('password=masterkey');
    Active := True;
    try
      Verbose := True;
      Options := [NonTransportable, IgnoreLimbo];
      DatabaseName := 'C:\SOFTWARE_NOMINA\NOMINA_GOBERNACION.GDB';//feBanco.FileName;
      BackupFile.Add(deBackup.Text+'NOMINA_GOBERNACION.gdk');
      ServiceStart;
      While not Eof do
        mmBackup.Lines.Add(GetNextLine);
      ShowMessage('Copia de Seguridad realizada!.');
    finally
      Active := False;
    end;
  end;

restore

Código Delphi [-]
  with IBRestoreService1 do
  begin
    Params.Clear;
    BackupFile.Clear;
    ServerName := 'localhost';
    LoginPrompt := False;
    Params.Add('user_name=SYSDBA');
    Params.Add('password=masterkey');
    Active := True;
    try
      Verbose := True;
      Options := [Replace, UseAllSpace];
      PageBuffers := 3000;
      PageSize := 4096;
      DatabaseName.Add(feRestBanco.FileName);
      BackupFile.Add(feRestaurar.FileName);
      ServiceStart;
      While not Eof do
        mmRestaurar.Lines.Add(GetNextLine);
    finally
      Active := False;
    end;
  end;
  Showmessage('La Copia de Seguridad Fue Restaurada!.');

me aparece un error
cannot restore operation --service is attache

es algo asi como q el servicio esta corriendo.


alguien me ayude, ya tengo el queso me falta el pan.