delphi - 通过 Firedac 替换来自 IBX 的 TIBDatabaseInfo 获取数据库信息

我需要将 IBX (Interbase/Firebird)连接迁移到 Firedac
但是我怎样才能获得特定的供应商信息，就像我们通过 Firedac 通过 TIBDatabaseInfo 组件获得的信息一样？
我对计数器 BackoutCount、DeleteCount、ExpungeCount 感兴趣 ...

如何通过 Firedac 检索此信息？

最佳答案

您可以通过 TIBDatabase 单元中的 FireDAC.Phys.IBWrapper 对象获取此类信息。例如这种方式(假设 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;