¿Compactar una bd tipo Firebird?

[[egostar]]

Empezado por FGarcia

ok, Entonces despues de borrar los datos hay que hacer un backup con el mismo nombre de la bd para restaurar y no llegar a sobrescribir el respaldo ( ), la intencion es que sea transparente al usuario, para el solo aparecera un boton que dice "Aceptar"

Asi es amigo, hay que tener cuidado con los respaldos, puedes hacer un proceso que en el respaldo le asignes de nombre por ejemplo una fecha si es que quieres conservar algun historial de respaldos y la compactación un archivo de nombre fijo que no tenga que ver con los respaldos.

Salud OS

[[FGarcia]]

Simplificando parte del codigo que colocaste en tu aplicacion de respaldar y restaurar una BD firebird

Código Delphi [-]
with IBBkpService do
   begin
    DatabaseName := 'string';
    BackUpFile.add('string');
    Protocol := Local;
    Params.Add('UserName=' + 'string');
    Params.Add('Password=' + 'string');
    Active := True;
    Memo1.Lines.Add('********** INICIANDO RESPALDO **********');
      while not eof do
        begin
         Memo1.Lines.Add(GetNextLine);
        end;
Active:= False;
      Memo1.Lines.Add('********** RESPALDO FINALIZADO **********');
    end;

Si no coloco el Memo en la aplicacion ¿como se que ya termino de respaldar ?

[[egostar]]

Puede ser algo asi no?

Código Delphi [-]
with IBBkpService do
   begin
    DatabaseName := 'string';
    BackUpFile.add('string');
    Protocol := Local;
    Params.Add('UserName=' + 'string');
    Params.Add('Password=' + 'string');
    Active := True;
    while not eof do begin
       GetNextLine;
    end    
    Active:= False;
    ShowMessage('Ya termino ');
end;

Salud OS

[[FGarcia]]

Ya en forma la ejecucion del respaldo:

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 **********');
      while not eof do
        begin
         //Memo1.Lines.Add(GetNextLine);
          GetNextLine;
        end;
      Active:= False;
      //Memo1.Lines.Add('********** RESPALDO FINALIZADO ********');
    end;

sin embargo me abre la ventana de login y despues de ingresar los datos me da este Horror:

---------------------------
Debugger Exception Notification
---------------------------
Project CapDatos.exe raised exception class EIBClientError with message 'SPB Constant Unknown'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

NPI de ese SPB Constant!

[[egostar]]

Bueno lo del login necesitas cambiar en tus componentes IBX la propiedad LoginPrompt a False, los del "SPB Constant Unknown" pues igual NPI.

Salud OS

[[FGarcia]]

el loginprompt ya esta cambiado (de hecho desde origen) lo otro parece ser que es un bug ando en busca de informacion, de hecho encontre que se recomienda bajar los IBX mas actuales de cc.borland.com en la pagina de Jeff Overcash. Ando tras de eso.

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