//写入与LED交互的日志,和LED显示屏的交互日志

最新推荐文章于 2025-12-08 12:21:37 发布

原创最新推荐文章于 2025-12-08 12:21:37 发布 · 665 阅读

CC 4.0 BY-SA版权

本文介绍了一种在应用程序中记录与LED显示屏交互日志的方法。该方法通过创建专门的日志文件来存储所有与LED显示屏相关的操作记录，包括日期、时间和具体操作描述。此方案能够帮助开发者追踪LED显示模块的工作状态及历史行为。

//写入与LED交互的日志,和LED显示屏的交互日志
procedure WriteLogled(const sTxt: string; AisLog:Boolean=True; AFileName: string=''); //写Log文件 AisLog:是否记录log, 可引用全局的 GIsLog
var
sFilename: string;
LogFile: TextFile;
begin
if not AisLog then exit;
Lockcs.Lock;
try
sFilename := ExtractFilePath(Application.ExeName) + 'Log\';
if not DirectoryExists(sFilename) then
if not CreateDir(sFilename) then
exit;
if AFileName<>'' then
sFilename := sFilename +AFileName+FormatDateTime('YYYYMMDD', Date())+'.LOG'
else
sFilename := sFilename + ChangeFileExt(ExtractFileName(Application.ExeName) ,'') + FormatDateTime('YYYYMMDD', Date())+'.LOG';
try
Assignfile(LogFile, sFilename);
if FileExists(sFilename) then
Append(LogFile)
else
ReWrite(LogFile);
Writeln(LogFile, FormatDateTime('YYYY-MM-DD HH:MM:ss.zzz',now) + ':' + sTxt);
Flush(LogFile);// 用于清空文件的缓冲区。这个过程保证了缓冲区的中的所有字符都已经写入外部文件中。对于因为输入而打开的文件，Flush函数不起任何作用。
finally
try
CloseFile(LogFile);
except
end;
Lockcs.UnLock;
end;
except
WriteLogErr(sTxt);
end;
end;
//写入与LED交互的日志,和LED显示屏的交互日志