¿Compactar una bd tipo Firebird?

[[duilioisola]]

Si agregando el GetNextLine a las lineas del Memo funciona, quizás debas agregar GetNextLine a un TStrings.
El error puede ser que GetNextLine esté creando un string en memoria y luego no se asigna a nada y se pierde.

Prueba algo como esto:

Código Delphi [-]
with IBBkpService do
   begin
    DatabaseName := NombreDB;
    BackUpFile.add(CrearNombreDiario(NombreDB));
    Protocol := Local;
    Params.Add('UserName=' + 'sysdba');
    Params.Add('Password=' + 'masterkey');
    Active := True;
    //Memo1.Lines.Add('********** INICIANDO RESPALDO **********');
      s := TStringList.Create; // Crear TStrings
      while not eof do
        begin
            s.Lines.Add(GetNextLine); // rellenar s con GetNextLine
        end;
      Active:= False;
      s.free; // liberar el TStrings
    end;

Además, deberías ver que es lo que contiene s, para ver si terminó correctamente o ha habido algún error.

[[FGarcia]]

Pues sigo en esto, no se me ha olvidado ni lo he resuelto.

Despues de revisar un error en la sintaxis y colocando el memo para visualizar el error se mantiene.

Código Delphi [-]
with IBBkpService do
   begin    DatabaseName := NombreDB;
   BackUpFile.add(CrearNombreDiario(NombreDB));
   Protocol := Local;    
   Params.Add('User_Name=' + 'sysdba'); //Faltaba el guion bajo    
   Params.Add('Password=' + 'masterkey');    
   Active := True;    
   ServiceStart; //No iniciaba el servicio    
   Memo1.Lines.Add('********** INICIANDO RESPALDO **********');    
   while not eof do      
     begin        
        Memo1.Lines.Add(GetNextLine);      
     end;      
   Active:= False;    
   Memo1.Lines.Add('*******RESPALDO TERMINADO*********');    
end;

EL mensaje de horror: 'SPB Constant Unknown'

Lo curioso del asunto es que en la aplicacion original de sensei egostar todo funciona correctamente.

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

[[duilioisola]]

Empezado por FGarcia

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.

En la variable "s", vas guardando el resultado del backup. Por lo tanto, CREO, que es lo mismo que devuelve:

gbak -t NombreBase.FDB NombreBase.FBK

Si el resultado es vacío, todo ha ido bien. Si hay algo, ha habido un error.

Si no es así, pon nuevamente el Memo y mira qué pone. Supongo que habrá un mensaje cuando termina.
Puedes guardarte eso y lo comparas con el resultado de tus Backups. Si es distinto Result := False!