Controlar TIBBackupService

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