接続情報の確認

小ネタ FireDAC Delphi

TFDConnection 接続エディタの情報タブに表示される情報。開発環境なら、TFDConnectionを配置すれば確認出来るんですが、実行環境でも確認出来ないかと調べて見た所
TFDConnection.GetInfoReport で同じ情報が取得出来るようです。
FormにTButtonとTMemoを配置して、Buttonのクリックイベントに下記コードを書けば取得出来ます

procedure TFDReportW.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  FDConnection1.Params.DriverID := '*****';
  FDConnection1.Params.UserName := '*****';
  FDConnection1.Params.Password := '*****';
  FDConnection1.Params.Database := '*****';

  FDConnection1.Connected := True;
  FDConnection1.GetInfoReport(Memo1.Lines);
  FDConnection1.Connected := False;
end;