关于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 周期性更新界面 ...
标签:mmLogShow,Lines,一点点,aLogItem,Quick,logger,procedure From: https://www.cnblogs.com/hieroly/p/18374881