[raorre]

Buenas al foro, despues de leer todos los foros sobre "TIBBackupService", no he encontrado la solucion a mi problema que la resumo a continuación:
Delhpi 2006 y bd. firebird: Programa de copias de seguridad lo hace todo correctamente, conecta y reliza la copia de las base de datos, el problema reside cuando estoy haciendo las copias de seguridad de todas las base de datos del equipo unas 25, al principio bien pero despues se relentiza la copia y no se corta pero va cada vez mas lento.
A alguien le ha pasado ? a continuación detallo el código.

Código Delphi [-]
  srvBackup:=TIBBackupService.Create(self);
  srvBackup.LoginPrompt:=False;

  //conectar
  srvBackup.ServerName :='MIPC';

  srvBackup.Protocol := TProtocol(nProtocolo);
  srvBackup.Params.Clear;
  srvBackup.Params.Values['user_name'] := 'usuario';
  srvBackup.Params.Values['password'] := '';

  try
    srvBackup.Attach();
    lOptions := [];
    srvBackup.Options := lOptions;

    srvBackup.Verbose := true;

    srvBackup.BackupFile.Clear;
    Contador:=1;

    srvBackup.BackupFile.Add('C:\Temp\COPIA_BASE_DE_DATOS.FBK');
    srvBackup.DatabaseName := 'C:\Temp\BASE DE DATOS.FDB';
    srvBackup.ServiceStart;

    While not srvBackup.Eof do begin

      Linea:=srvBackup.GetNextLine;

    end;
    if srvBackup.Active then srvBackup.Detach();
    srvBackup.Free;
   
    Correcto:=True;

  except
    Correcto:=False;
  end;

...