Extract metadata por código

[Spynosa]

puedes hacer un backup con solo los metadatos

Código Delphi [-]
with IBBackupService1 do
  begin
    ServerName :='localhost';
    LoginPrompt := False;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Active := True;
    try
      Verbose := True;
       Options := [MetadataOnly];
      DatabaseName := 'c:\mibase.fdb';
      BackupFile.Add('mibase.fbk');

      ServiceStart;
      While not Eof do
        Memo1.Lines.Add(GetNextLine);
    finally
      Active := False;
    end;

y luego un restore

Código Delphi [-]

 with IBRestoreService1 do
  begin
    ServerName := 'localhost';
    LoginPrompt := False;
    Params.Add('user_name=sysdba');
    Params.Add('password=masterkey');
    Active := True;
    try
      Verbose := True;
      Options := [Replace, UseAllSpace];
      PageBuffers := 3000;
      PageSize := 4096;
      DatabaseName.Add('c:\mibase2.fdb');

      BackupFile.Add('c:\mibase.fbk');
      ServiceStart;
      While not Eof do
        Memo1.Lines.Add(GetNextLine);
    finally
      Active := False;
    end;
  end;