如何跟踪datasnap 服务端日志

1、在服务器端主窗体上显示服务器的执行情况，主窗体默认单元文件是Unit1.pas

2、一个TMEMO到窗体上，

3、在数据模块单元，ServerMethod1上放一个SQLMonitonr控件，ServerMethod1.pas的uses

里加上unit1，因为要访问MEMO。

日志可以输出到文本，也可以通过MEMO控件显示出来。

输出到文本：

设置SQLMonitonr控件FILENAME属性：c:\log.txt

 

4、输出到主窗体的MEMO

设置SQLMonitonr控件的OnLogTrace方法

 

 

procedure TServerMethods1.Mon1LogTrace(Sender: TObject;
  TraceInfo: TDBXTraceInfo);
begin
     TraceInfo.TraceLevel:=2;
    unit1.Form1.mmo1.Lines.Add(TraceInfo.Message);
end;

 

5、跟踪级别

TDBXTraceLevels = class
    const
    ///<summary>Trace nothing.</summary>
      None      = 0;
    ///<summary>Debug trace</summary>
      Debug     = 1;
    ///<summary>Information tracing</summary>
      Info      = 2;
    ///<summary>Trace warnings</summary>
      Warn      = 3;
    ///<summary>Trace errors</summary>
      Error     = 4;
    ///<summary>Trace fatal errors</summary>
      Fatal     = 5;
    ///<summary>Trace for all levels</summary>
      Highest   = Fatal;
  end;

 

6、运行效果：

 

在文本输出的日志

 

7、故意把SQL语句写错：