关于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 周期性更新界面 ...

posted @   海利鸟  阅读(25)  评论(0编辑  收藏  举报
相关博文:
阅读排行:
· 本地部署 DeepSeek:小白也能轻松搞定!
· 基于DeepSeek R1 满血版大模型的个人知识库,回答都源自对你专属文件的深度学习。
· 如何给本地部署的DeepSeek投喂数据,让他更懂你
· 在缓慢中沉淀,在挑战中重生!2024个人总结!
· 大人,时代变了! 赶快把自有业务的本地AI“模型”训练起来!
点击右上角即可分享
微信分享提示