delphi - IBX から TIBDatabaseInfo を Firedac に置き換えてデータベース情報を取得する

Question

IBX (Interbase/Firebird) 接続を Firedacに移行する必要がありますが、 Firedac の TIBDatabaseInfoコンポーネントで取得したような特定のベンダー情報を取得するにはどうすればよいですか? BackoutCount、DeleteCount、ExpungeCount ... のカウンターに興味があります。

Firedac でこの情報を取得する方法は?

Answer 1

このような情報は、ユニット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;