delphi FIREDAC记录SQL日志

FIREDAC记录SQL日志

跟踪SQL日志可以方便开发的时候的程序调试。SQL日志记录会耗费服务费资源，正式部署中间件的时候，建议关闭SQL日志记录。

FIREDAC通过使用TFDMoniFlatFileClientLink控件来记录SQL日志的。

首先 USES FireDAC.Moni.FlatFile，然后拖放TFDMoniFlatFileClientLink控件。

TFDMoniFlatFileClientLink控件的主要属性：

设置SQL日志保存的目录和文件名：

FDMoniFlatFileClientLink1.FileName := ExtractFilePath(Application.ExeName) + 'sql'+ FormatDateTime('yyyymmdd', now)+'.txt';  

设置  Tfdconnection控件日志记录参数：

fdconnection1.Params.Add('MonitorBy=FlatFile');

开始SQL日志记录：

FDMoniFlatFileClientLink1.Tracing := True;

fdconnection1.ConnectionIntf.Tracing := True;

停止SQL日志记录：

FDMoniFlatFileClientLink1.Tracing := false;

fdconnection1.ConnectionIntf.Tracing := false;

来源：https://www.cnblogs.com/hnxxcxg/p/7468740.html