¡¡Que alguien me lo explique!!
Bueno, actualize los IBX a la version 7.11, probe sin modificar el codigo y el error se mantiene.
¿Que paso? no lo se, simplemente empezo a funcionar. Asi quedo:
Código Delphi
[-]
function TdmDatos.CrearRespaldoDiario(NombreDB: string): boolean;
var
s: TStrings;
begin
result := false;
with IBBkpService do
begin
DatabaseName := NombreDB;
BackUpFile.add(CrearNombreDiario(NombreDB));
Protocol := Local;
ServerName := '';
Params.Add('User_Name=' + 'SYSDBA');
Params.Add('Password=' + 'masterkey');
Active := True;
ServiceStart;
s := TStringList.Create;
while not eof do
begin
s.add(GetNextLine);
end;
Active:= False;
s.Free ;
end;
result := True;
end;
y lo llamo asi:
Código Delphi
[-]
procedure TfrmMantenimiento.Button1Click(Sender: TObject);
begin
if dmDatos.CrearRespaldoDiario(ExtractFilepath(Paramstr(0)) + 'MiBase.fdb') then
Showmessage('Respaldo efectuado correctamente') ;
end;
Entiendo que la asignacion del resultado de la funcion es arbitraria pues si hay un error no se donde leerlo, asi que si alguien puede aportar algo mas se agradece.