delphi – 从IBX获取TIBDatabaseInfo的Firedac替换数据库信息

我需要将IBX(Interbase / Firebird)连接迁移到Firedac
但是我怎样才能获得Firedac的TIB DatabaseInfo组件所获得的特定供应商信息？
我对计数器BackoutCount,DeleteCount,ExpungeCount感兴趣……

如何通过Firedac检索此信息？

您可以通过FireDAC.Phys.IBWrapper单元中的TIBDatabase对象获取此类信息.例如这种方式(假设FDConnection1是连接到IB数据库的连接对象)：

uses
  FireDAC.Phys.IBWrapper;

procedure TForm1.Button1Click(Sender: TObject);
var
  IBDatabase: TIBDatabase;
begin
  IBDatabase := TObject(FDConnection1.CliObj) as TIBDatabase;

  Memo1.Lines.Assign(IBDatabase.backout_count);
  Memo2.Lines.Assign(IBDatabase.delete_count);
  Memo3.Lines.Assign(IBDatabase.expunge_count);
end;