PROBLEMAS con BACKUP FIBPLUS
 

Buenas a todos...

Me gustarai saber si alguien sabe como resolver la siguiente situacion:

En una aplicacion que estoy desarrollando con delphi y Firebird, utilizo componentes FIBPLUS............. y de la paleta FIB PLUS Services utilizo dos componentes : FIBBAckupService y FIBRestoreService. para hacer las copias y restauraciones respectivas.

El problema esta en que al iniciar el programa, el codigo se ejecuta bien, y la copia y restauracion se realiza bien.

Pero cuando intento hacerlo nuevamente se produce error.

EL modelo del codigo utilizado es el siguiente, Y aun cambiandole en tiempo d ejecusion los datos SERVERNAME, PARAMS.Add(),DatabaseName , BackupFile.Add(), solo funcionan para la oprimera vez, como si hubiese una limitaicon del componente, o como si luego de la instruccion : ServiceStart, el componetente quedara inabilitado o abierto...no se la verdad.

Si alguien tiene una idea, porfa ..le agradezco.

*****En el boton para hacer la copia....

with IBBackupService1 do
begin
ServerName := '127.0.0.1';
LoginPrompt := False;
Params.Add('user_name=sysdba');
Params.Add('password=masterkey');
Active := True;
// Protocol:='TCP';
try
Verbose := True;
Options := [MetadataOnly,NonTransportable];
DatabaseName := 'D:\PROYECTO FREELANCE\ALEON.FDB';
BackupFile.Add('D:\PROYECTO FREELANCE\COPIAALEON.gbk');
ServiceStart;

finally
Active := False;
end;
end;


*****En el boton para hacer la Restauracion....

with pFIBRestoreService1 do
begin
ServerName := '127.0.0.1';
LoginPrompt := False;
Params.Add('user_name=sysdba');
Params.Add('password=masterkey');
Active := True;
// Protocol:='TCP';
try
Verbose := True;
Options := [CreateNewDB];
PageBuffers := 3000;
PageSize := 4096;
DatabaseName.Add('D:\PROYECTO FREELANCE\ALEON.FDB');
BackupFile.Add('D:\PROYECTO FREELANCE\COPIAALEON.gbk');
ServiceStart;
finally
Active := False;
end;


bueno saludos a todos,

Aclaracion
 

El problema se me presenta es al momneto de utilizar el procedimiento de restauracion, restaura una primera ves, la segunda NO.

Gracias.

Solucion
 

Hola, nuevamente....
Bueno despues de tantos intentos procurando no desesperar.
Encontre el problema...

Cada ves que usaba las siguienets instruciones.... agragaba contenido a los existente, pues es un Tstring.

Params.Add('user_name=sysdba');
Params.Add('password=masterkey');
DatabaseName.Add(RutaN);
BackupFile.Add(RutaB);

Lo solucione, agragando estas instruciones antes de ejecutar las anteriores.

Params.Text:='';
DatabaseName.Text:='';
BackupFile.Text:='';

.... Si son cosas que pasan ...errores que me han tomado una noche y una mañana para solucionarlos...

Saludos nuevamente.