通过Firedac替换IBX的TIBDatabaseInfo获取数据库信息

Question

我需要将IBX（Interbase/Firebird）连接迁移到Firedac但是，我如何获得特定的供应商信息，就像我们通过Firedac的TIBDatabaseInfo组件获得的那样？我感兴趣的计数器BackoutCount，DeleteCount，ExpungeCount。。。

如何通过Firedac检索此信息？

Answer 1

您可以通过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;