记录和同步

Question

我刚刚编写了自己的日志框架（非常轻量级，不需要大型日志框架）。它由一个接口 ILogger 和许多实现该接口的类组成。我有一个问题是 TGUILogger，它将 TStrings 作为日志记录目标，并将日志记录与主线程同步，以便列表框的 Items 成员可以用作目标。

type
  ILogger = Interface (IInterface)
    procedure Log (const LogString : String; LogLevel : TLogLevel);
    procedure SetLoggingLevel (LogLevel : TLogLevel);
  end;

type    
  TGUILogger = class (TInterfacedObject, ILogger)
  public
    constructor Create (Target : TStrings);
    procedure Log (const LogString : String; LogLevel : TLogLevel);
    procedure SetLoggingLevel (LogLevel : TLogLevel);
  private
    procedure PerformLogging;
  end;

procedure TGUILogger.Log (const LogString : String; LogLevel : TLogLevel);
begin
  TMonitor.Enter (Self);
  try
    FLogString := GetDateTimeString + ' ' + LogString;
    TThread.Synchronize (TThread.CurrentThread, PerformLogging);
  finally
    TMonitor.Exit (Self);
  end;
end;

procedure TGUILogger.PerformLogging;
begin
  FTarget.Add (FLogString);
end;

日志记录有效，但应用程序未正确关闭。它似乎挂在 Classes 单元中。堆栈跟踪：

System.Halt0、System.FinalizeUnits、Classes.Finalization、Classes.FreeExternalThreads、 System.TObject.Free、Classes.TThread.Destroy、Classes.TThread.RemoveQueuedEvents

我在这里做错了什么？

编辑：我刚刚在 TThread.StaticSynchronize 的 Delphi 帮助中找到了以下提示

Warning: Do not call StaticSynchronize from within the main thread. This can cause 
an infinite loop.     

这可能正是我的问题，因为一些日志记录请求来自主线程。我该如何解决这个问题？

Answer 1

如果您将 CurrentThreadID 与 MainThreadID 进行比较，那么您可以选择是否同步。

就个人而言，我选择让 GUI 向日志系统询问最新信息，而不是让线程暂停。否则，您的日志记录会干扰线程的快速操作，从而破坏了拥有它的目的。

Answer 2

如果你没有找到更简单的方法，你可以尝试这样做：

在程序初始化时，（从主线程）让您的日志子系统调用 Windows API 函数 GetCurrentThreadID 并将结果存储在一个变量中。 （编辑：系统单元中的 MainThreadID 变量，在启动时会自动为您初始化。谢谢，mghie。）当日志请求进入之后，再次调用 GetCurrentThreadID，并且仅在它来自不同线程时进行同步。

还有其他不涉及 Windows API 的技巧，但它们最终会变得更加复杂，尤其是当您有一堆不同的自定义 TThread 后代时。不过基本原理是一样的：在决定是否调用 StaticSynchronize 之前，请先验证您是否在主线程中。