mORMot2 的 Logger日志

Logger 很多框架都有，简单的实现就是一个队列加一根线，有复杂的，QDAC里面涉及的就很巧妙，本来QDAC就是个线程框架，所以也有先天优势。

在mORMot 里面自然也有日志实现，它设计的比较麻烦。

• mORMot 的Logger 初始化

begin
  TSynLog.Family.Level := LOG_VERBOSE; // disable logs for benchmarking
  TSynLog.Family.HighResolutionTimestamp := false;
  TSynLog.Family.NoEnvironmentVariable:=true;
  TSynLog.Family.FileExistsAction := acAppend;
  TSynLog.Family.PerThreadLog := ptOneFilePerThread;
  TSynLog.Family.OnArchive:=@EventArchiveZip;
  TSynLog.Family.AutoFlushTimeOut := 1;
end;  

• mORMot 的Logger 初始化

var
    log: ISynLog;
begin
  log:=TSynLog.Enter();
  log.Log(TSynLogInfo.sllDebug, 'accdsdfdasdfafasf');
end; 

在 mORMot 1.18 中提供了要给logger日志的查器。其实有点累赘，当然用了那个工具顿时就可以感觉到 mORMot 的日志模式还是很厉害的。