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;