在Delphi上位机软件中 增加采集卡工作状态输出成日志的功能

TApdComPort控件实现了串口的通信

控件有Logging属性决定了当前的日志状态

QDAC QLog可以生成日志

一：

日志发送到远程syslog服务器：

var AWriter := TQLogSocketWriter.Create;
AWriter.ServerHost := 127.0.0.1;//远程服务器地址
AWriter.ServerPort := 514;  //远程服务器端口
AWriter.UseTCP := False;
Logs.Castor.AddWriter(AWriter);

二：

日志记录到本地文件：

//LogPath为日志存放路径

var BWriter := TQLogFileWriter.Create(LogPath);
BWriter.MaxSize := LogSize * 1048576; //单日志文件大小 10M，日志文件大小到达10M即分卷压缩
BWriter.CreateMode := lcmRename;
BWriter.OneFilePerDay := True;
Logs.Castor.AddWriter(BWriter);

或者直接使用SetDefaultLogFile(LogPath + '\Log.TXT', LogSize * 1048576, True, True);

三：

日志输出到控件展示：

var MemoWriter := TQLogStringsWriter.Create;
MemoWriter.Items := Mmo1.Lines;//日志输出到memo控件中展示
MemoWriter.MaxItems := 20 ; //日志展示最大行数
Logs.Castor.AddWriter(MemoWriter);

四：

LogWriter对象有AcceptLevels属性，设置该属性，即当前日志记录对象只会记录对应属性标记的数据，即在Logs.Post时，参数1的日志等级

例如：Writer.AcceptLevels :=  [llMessage, llDebug]

此时只能记录 Logs.Post(llMessage,''),Logs.Post(llDebug,''),其余的Logs.Post(llError,'')等不会被记录