Hola. Utilizo Delphi 5, firebird 1.5.1 y FIB+. Tengo un problema con el componente TpFIBBackUpService y es que no genera el fichero de backup a pesar de realizar todo el proceso. El código que utilizo es el siguiente:
Código:
with FIBBackUp do
begin
servername:='linuxsrv';
procotol:=TCP;
LoginPrompt:=False;
Verbose:=true;
Params.Clear;
Params.Add('user_name=SYSDBA');
Params.Add('password=masterkey');
Options:=[IgnoreLimbo];
DataBaseName:='/home/share/E0010001.GDB';
memo1.lines.clear;
BackupFile.clear;
BackupFile.add('c:\Datos\E0010001.gbk');
Active:=true;
ServiceStart;
while not Eof do
begin
memo1.lines.add(GetNextLine);
application.processmessages;
end;
Active:=false;
end;
El componente memo1 recoge todo el proceso del backup, pero después me voy a la carpeta c:\Datos y no hay ningún fichero generado. He hecho una prueba desde la línea de comando con "gbak" y hace la copia perfectamente. No sé porqué no la hace desde el programa en Delphi. He revisado la documentación del componente y buscado en los foros pero no doy con la solución.
¿Alguien sabe donde puede estar el problema?