FIREDAC记录SQL日志

Posted 2020-10-05 咏南中间件和开发框架

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;