Ver Mensaje Individual
  #1  
Antiguo 27-05-2008
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.561
Reputación: 25
egostar Va camino a la fama
Error al intentar ejecutar IBRestore

Hola estoy intentando ejecutar respaldos y restauraciones de mi base de datos (Firebird 2.0) y estoy atorado con un problema a la hora de lanzar la restauraración

El mensaje de error es el siguiente:

Cita:
---------------------------
Debugger Exception Notification
---------------------------
Project BackupRestore.exe raised exception class EIBClientError with message 'SPB Constant Unknown'.
---------------------------
Break Continue Help
---------------------------
Este es el código que uso:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
begin
  with IBRestoreService1 do begin
     DataBaseName.Clear;
     BackupFile.Clear;
     DataBaseName.Add('D:\Desarrollo\TDelphi\Starw Basico\Base\STARADM.FDB');
     BackupFile.Add('D:\Desarrollo\TDelphi\Starw Basico\Base\backupfile.fbk');
     Active:= True;
     ServiceStart;
     while not eof do
        Memo1.Lines.Add(GetNextLine);
     Label2.Caption:='Restauracion Terminada';
     Active:= False;
  end;
end;

El error es lanzando en esta línea

Código Delphi [-]
     Active:= True;

Pensé que podría ser por falta de firmarme con usuario y contraseña, por lo que puse la propiedad LoginPrompt del IBRestore a True pero me envía este error:

Cita:
---------------------------
Debugger Exception Notification
---------------------------
Project BackupRestore.exe raised exception class EIBClientError with message 'Operation cancelled at user's request'.
---------------------------
Break Continue Help
---------------------------
Que estoy haciendo mal ???

Nota:

El Respaldo se genera sin problemas con este código:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  IBBackupService1.Active:= True;
  IBBackupService1.ServiceStart;
  while not IBBackupService1.eof do begin
        IBBackupService1.GetNextLine;
  end;
  IBBackupService1.Active:= False;
  Form1.Label1.Caption:='Respaldo Terminado';
end;

Salud OS
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita