Problemas con TIBRestoreService

[Casimiro Noteví]

Empezado por Angel.Matilla

No, seguro. Las pruebas las estoy haciendo en local.

No tiene nada que ver.

[Angel.Matilla]

Empezado por Casimiro Notevi

No tiene nada que ver.

Me refería a que seguro que no hay nada más conectado a la base de datos. Al estar probando en local sé que está conectado o no.

[Casimiro Noteví]

Prueba a darle un shutdown con gfix, y así te aseguras.

[Angel.Matilla]

No se me ocurrió. Probaré.

[Neftali [Germán.Estévez]]

Yo te iba a decir que justo antes de hacer la prueba reiniciaras el servicio. Si hubiera algo conectado, se desconectará.

[Angel.Matilla]

Retomo este hilo porque no sé por qué está volviendo a fallar. Tengo este código:

GesInt->Connected = false;
ShellExecute(NULL, "open", AnsiString("C:\Program Files\Firebird\Firebird_2_5\bin\gfix.exe -force").c_str(), "", "", SW_HIDE);
Restore->LoginPrompt = false;
Restore->Params->Add("user_name=sysdba");
Restore->Params->Add("password=masterkey");
Restore->BackupFile->Add(cAux);
Restore->DatabaseName->Add(GesInt->DatabaseName);
Restore->Active = true;
Restore->ServiceStart();

while (Restore->IsServiceRunning)
     Memo1->Lines->Add(Restore->GetNextLine());

Restore->Active = false;
GesInt->Connected = true;

Otra vez me vuelve a dar el mensaje que la base de datos está en uso cuando se ejecuta por primera vez el bucle while y no tengo ni idea de por donde coger el error. El parámetro force de gfix lo he tomado de los mensajes de la propia herramienta:

-force force database shutdown

[Casimiro Noteví]

¿Recordaste hacer commit o rollback por si hay alguna transacción abierta?

Código Delphi [-]
if DB.defaultransaction.intransaction then
  ...

[Angel.Matilla]

Empezado por Angel.Matilla

while (Restore->IsServiceRunning)
     Memo1->Lines->Add(Restore->GetNextLine()); <<--- Aquí es donde da el error

Corrijo la información que di ayer. El error realmente lo da donde señalo.