关于Quick.logger的一点点补充
关于Quick.logger的一点点补充
用 Quick.logger 一直有个需求需要用到对多种Provider更新时,自动更新TMemo 之类TStrings相关的显示见面。
一直想用 Quick.Logger.Provider.StringList,然后指定页面里面的 TMemo.lines 来实现。但可以现象的是一定会因为同步问题导致失败。
好在Quick 的开发者提供了一个解决办法,配置事件的方式。见Quick.Logger.Provider.Events 45行左右。
{$IFDEF FPC}
TLoggerEvent = procedure(LogItem : TLogItem) of object;
{$ELSE}
TLoggerEvent = reference to procedure(LogItem : TLogItem);
{$ENDIF}
然后通过事件方式实现TMemo.lines 的数据刷新同步。
procedure TMainForm.OnNewLog(aLogItem :TLogItem);
begin
ThreadSafeUpdateMemo(format('%s [%s] %s (TreadId: %d)', [DateTimeToStr(aLogItem.EventDate),
aLogItem.EventTypeName, aLogItem.Msg, aLogItem.ThreadId]));
end;
procedure TMainForm.ThreadSafeUpdateMemo(const aMsg :string);
const
maxSize :word = 80;
begin
CS_UI.Enter;
try
mmLogShow.Lines.BeginUpdate;
mmLogShow.Lines.Add(aMsg);
while mmLogShow.Lines.Count > maxSize do
mmLogShow.Lines.Delete(0);
mmLogShow.Lines.EndUpdate;
mmLogShow.Invalidate;
finally
CS_UI.Release;
end;
end;
确实起到了效果,但发现并不是每次都有效,总会导致程序莫名挂掉。
之后决定还是用 配置缓冲,然后用Timer 周期性更新界面 ...
分类:
Pascal Lazarus
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 本地部署 DeepSeek:小白也能轻松搞定!
· 基于DeepSeek R1 满血版大模型的个人知识库,回答都源自对你专属文件的深度学习。
· 如何给本地部署的DeepSeek投喂数据,让他更懂你
· 在缓慢中沉淀,在挑战中重生!2024个人总结!
· 大人,时代变了! 赶快把自有业务的本地AI“模型”训练起来!