Ver Mensaje Individual
  #1  
Antiguo 01-12-2004
sur-se sur-se is offline
Miembro
 
Registrado: may 2003
Posts: 212
Reputación: 24
sur-se Va por buen camino
Problema con el servicio de backup.

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?
Responder Con Cita