[ecfisa]

Hola

Empezado por Angel.Matilla

...
Sin embargo al ejecutarlo en el TMemo no se muestra nada, se queda en blanco.

Todas las variables que aparecen (cAux, pItem, etc.) están perfectamente definidas; el proceso se ejecuta bien pero no muestra nada ¿Alguna idea?

Te faltaría poner la propiedad Verbose en true ( gbak -v ).

Ejemplo:

{
  TIBRestoreService *ibr = static_cast<TIBRestoreService*>(IBRestoreService1);

  ibr->Params->Clear();
  ibr->Params->Add( "user_name=sysdba" );
  ibr->Params->Add( "password=masterkey" );

  ibr->BackupFile->Clear();
  ibr->BackupFile->Add( BACKUP_FILE ); // (1)

  ibr->DatabaseName->Clear();
  ibr->DatabaseName->Add( DB_FILE_NAME ); // (2)

  ibr->LoginPrompt = false;

  ibr->Verbose     = true;
  ibr->Options     = (TRestoreOptions)ibr->Options << Replace; // (3)

  ibr->Active      = true;
  ibr->ServiceStart();

  while ( ! ibr->Eof )
    Memo1->Lines->Add( ibr->GetNextLine() );

  ibr->Active = false;
}

(1) Ruta y nombre del archivo de resguardo
(2) Ruta y nombre de la base de datos (o alias)
(3) Equivalente a gbak -rep

Saludos