關於Quick.logger的一點點補充

海利鸟發表於2024-08-22
UI

關於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 週期性更新介面 ...

相關文章