unidac记录日志

unidac记录日志

1）SQL日志记录

TUniSqlMonitor的OnSql事件里面记录SQL日志，演示代码如下：

procedure TfrmDB.UniSQLMonitor1SQL(Sender: TObject; Text: String;
Flag: TDATraceFlag);
begin
sfLogger.logMessage('Sql: ' + Text);
end;

2）错误日志记录

TUniConnection的OnError事件，演示代码如下：

procedure TfrmDB.conError(Sender: TObject; E: EDAError; var Fail: Boolean);
begin
sfLogger.logMessage('Error: ' + E.Message);
end;

测试运行，生成如下日志内容：

10:30:05:547[message][PID:10520,ThreadID:12824]:config.db连接成功
10:30:05:549[message][PID:10520,ThreadID:12824]:创建帐套号：0 数据库类型：SQL Server 数据库IP：127.0.0.1,8829 数据库名称：yndb 创建连接数量：10
10:30:05:563[message][PID:10520,ThreadID:12824]:启动中间件
10:30:05:563[message][PID:10520,ThreadID:12824]:sql: Connect: @
10:30:05:564[message][PID:10520,ThreadID:12824]:sql: Disconnect: @
10:30:05:564[message][PID:10520,ThreadID:12824]:sql: Connect: @
10:30:05:565[message][PID:10520,ThreadID:12824]:config.db连接成功
10:30:17:715[message][PID:10520,ThreadID:2016]:sql: Connect: sa@127.0.0.1,8829
10:30:17:736[message][PID:10520,ThreadID:2016]:yndb 数据库连接成功
10:30:17:737[message][PID:10520,ThreadID:2016]:sql: select * from t3
10:30:17:738[message][PID:10520,ThreadID:2016]:select * from t3

10:30:17:738[message][PID:10520,ThreadID:2016]:sql: Disconnect: sa@127.0.0.1,8829
10:30:25:471[message][PID:10520,ThreadID:8516]:sql: Connect: sa@127.0.0.1,8829
10:30:25:476[message][PID:10520,ThreadID:8516]:yndb 数据库连接成功
10:30:25:476[message][PID:10520,ThreadID:8516]:sql: select * from t2
10:30:25:480[message][PID:10520,ThreadID:8516]:sql: Error: 对象名 't2' 无效。
10:30:25:480[message][PID:10520,ThreadID:8516]:对象名 't2' 无效。
10:30:25:480[message][PID:10520,ThreadID:8516]:TMyClientContext.QuerySQL 对象名 't2' 无效。
10:30:25:480[message][PID:10520,ThreadID:8516]:sql: Disconnect: sa@127.0.0.1,8829