realizar copia de seguridad de bd interbase desde delphi

[jhonny]

Bueno si, eso es cierto, pero lo que sucede es que la mayoria tambien tenemos trabajos bajo presión, problemas familiares, economicos, sociales, matrimoniales, etc, etc, etc... y pasamos por aqui para ayudar a las demas personas con sus trabajos, tareas, inquietudes o lo que sea, sin pedir algo a cambio y fuera de todo eso, aguantamos que algunos como vos, nos digan cosas absurdas como las del otro dia y que se resistan a seguir las normas de convivencia del foro... pero como realmente son pocos los que hacen eso, entonces sus nombres y en mi caso hasta sus IPs, se nos quedan grabados en el cerebro o en el disco duro, realmente es molesto ese asunto porque ya tenemos una imagen tuya y por culpa de esa imagen creemos que cuando te demos una respuesta satisfactoria, terminaras ofendiendonos y/o diciendo que somos unos estupidos (O quiza algo peor) por haberte ayudado gratis. ¿vez?

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