procedure TForm1.FormCreate(Sender: TObject); begin TSQLMonitor(Sender). LoadFromFile ('D:/MyLog.txt'); //将MyLog.txt文件的内容装入到TraceList属性中 end; procedure TForm1.SQLMonitor1LogTrace(Sender: TObject; CBInfo: Pointer); begin TSQLMonitor(Sender).SaveToFile('D:/MyLog.txt'); end;
加载和保存监控信息
最新推荐文章于 2024-01-19 00:09:28 发布