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