Controlar TIBBackupService

[Casimiro Noteví]

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.