¿Compactar una bd tipo Firebird?

[[FGarcia]]

¡¡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.