PROBLEMAS con BACKUP FIBPLUS

[FelipeDiaz]

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,

[FelipeDiaz]

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

Gracias.

[FelipeDiaz]

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.