Controlar TIBBackupService

[Angel.Matilla]

Estoy haciendo la copia de seguridad de una BB.DD. en Firebird con este código:

Backup->LoginPrompt = false;
Backup->Params->Add("user_name=sysdba");
Backup->Params->Add("password=masterkey");
Backup->Verbose = true;
Backup->Active  = true;

try
{
     Backup->DatabaseName = fPersona->Afiliados->DatabaseName;
     Backup->BackupFile->Add(cInicio + "\\" + Now().FormatString("yyyymmdhhnnss") + ".gbk");
     Query->Transaction->Active = true;
     Query->Transaction->Commit();
     Backup->ServiceStart();

     while (!Backup->Eof)
          cAux = Backup->GetNextLine();
}

__finally
{
     Backup->Active = false;
}

La pregunta tal vez sea una tontería pero: ¿Cómo puedo saber cuantos elementos tienen que copiarse? Lo digo por poner una barra de progreso para que no parezca que el sistema se ha quedado muerto.

[Casimiro Notevi]

Código PHP:

Backup->LoginPrompt = false;
Backup->Params->Add("user_name=sysdba");
Backup->Params->Add("password=masterkey");
Backup->Verbose = true;
Backup->Active  = true;

try
{
  Backup->DatabaseName = fPersona->Afiliados->DatabaseName;
  Backup->BackupFile->Add(cInicio + "\\" + Now().FormatString("yyyymmdhhnnss") + ".gbk");
  Query->Transaction->Active = true;    /*   <--  ¿Para qué sirve? */
  Query->Transaction->Commit();         /*   <--  ¿Para qué sirve? */
  Backup->ServiceStart();

while (!Backup->Eof)
  cAux = Backup->GetNextLine();
  if (iLin mod 50) application.processmessages;   /*  Estilo delphi :p   */
}

__finally
{
  Backup->Active = false;
} 


En cAux tienes cada línea, puedes ir mostrándola en un memo, por ejemplo, actualizando cada cierto tiempo.

[Angel.Matilla]

Empezado por Casimiro Notevi

Código PHP:

Query->Transaction->Active = true;    /*   <--  ¿Para qué sirve? */
Query->Transaction->Commit();    /*   <--  ¿Para qué sirve? */ 


Pues la verdad se dicha que no sé que pintan ahí esas dos líneas

Empezado por Casimiro Notevi

En cAux tienes cada línea, puedes ir mostrándola en un memo, por ejemplo, actualizando cada cierto tiempo.

No se me había ocurrido. Estaba tan obsesionado con un ProgressBar que no pensé en otras posbilidades. Gracias.