Progreso al restaurar una copia de seguridad

[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

[Angel.Matilla]

Empezado por ecfisa

Hola

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

Perefecto. Muchísimas gracias. No se me había ocurrido; como en el TIBBackup lo había puesto pues ni se me ocurrió mirar la propiedad dando por supuesto que estaba a true por defecto.