Progreso al restaurar una copia de seguridad

[Angel.Matilla]

Para que cuando se hace la copia de seguridad con un TIBBackupService no parezca que el equipo se ha quedado muerto me he montado un formulario con un TMemo en el que se va volcando por donde va el proceso de copia. Eso lo hago así:

Backup->LoginPrompt = false;
Backup->Params->Add("user_name=sysdba");
Backup->Params->Add("password=masterkey");
Backup->DatabaseName = fPersona->Afiliados->DatabaseName;
Backup->BackupFile->Add(cAux = cDirectorio + "\\" + Now().FormatString("yyyymmddhhnnss") + ".gbk");
Backup->Active = true;
Backup->ServiceStart();

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

El resultado es este:

Había pensado que para usar el TIBRestoreService valdría una proceso similar:

Restore->LoginPrompt = false;
Restore->Params->Add("user_name=sysdba");
Restore->Params->Add("password=masterkey");
Restore->DatabaseName->Add(fPersona->Afiliados->DatabaseName);
Restore->BackupFile->Add(pItem->SubItems->Strings[2]);

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

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

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?

[Casimiro Notevi]

¿Seguro?

[bitbow]

Se ocurre >>

Application.Processmessage;

y actualizar el memo conforme vas avanzando.

Saludos.

[Angel.Matilla]

Empezado por Casimiro Notevi

¿Seguro?

No te entiendo.¿Seguro que pasa lo que describo o seguro que funciona?

[Angel.Matilla]

Empezado por bitbow

Se ocurre >>

Application.Processmessage;

y actualizar el memo conforme vas avanzando.

Saludos.

Lo he probado pero no hace efecto aparente.

[Casimiro Notevi]

Ya veo, usa:

Código Delphi [-]
ServiceStart;
While not Eof do
  Memo1.Lines.Add(GetNextLine);

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