Extract metadata por código

[[Ivanzinho]]

Muchas gracias a todos por vuestras respuestas, al final me voy a decidir por la solución propuesta por Spynos, ya que tengo implementado un modulo para backups y restores y es lo que mejor se me adecúa. Muchas gracias a ArdiIIa por presentarme Marathon, el cual desconcia, y por el ejemplo de uso que acompañó.

Un saúdo.

[paty_rlopez]

hola estube haciendo lo del ejemplo pero cuando llega a esta linea:

Memo1.Lines.Add(GetNextLine);

me marca un error

cannot open file coco270720072.gbk

este es exactamente mi codigo

¿alguien me pueder decir que tengo mal?

procedure TForm1.Button1Click(Sender: TObject);
begin
with IBBackupService1 do
  begin
    ServerName := '127.0.0.1'; 
    LoginPrompt := False; 
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey'); 
    Active := True; 
    try 
      Verbose := True; 
      Options := [NonTransportable, IgnoreLimbo]; 
      DatabaseName := 'c:\coco\cocodelphi.fdb';
      SQL1.Close;
      SQL1.SQL.TExt := 'Select * from Corte__Ultimo';
      SQL1.ExecQuery;
      BackupFile.Add('COCO'+ SQL1.FieldByName('FECHA_RESUMEN').AsString + SQL1.FieldByName('Turno').AsString+'.gbk');
      ServiceStart; 
      While not Eof do 
        Memo1.Lines.Add(GetNextLine); 
    finally 
      Active := False; 
    end; 
  end; 
end;

Gracias por su atencion
Saludos Cordiales

[paty_rlopez]

perdonen las molestias, ya encontre mi error
la fecha me la regresaba con estos caracteres '//' por lo que el nombre del archivo no era valido

gracias y disculpen

[Delfino]

Puedes mediante GBak tb hacer un backup de solo los metadata..