로깅 및 동기화

Question

방금 ​​내 자체 로깅 프레임 워크를 작성했습니다 (매우 가볍고 큰 로깅 프레임 워크 필요 없음). 인터페이스 ILogger와 그 인터페이스를 구현하는 여러 클래스로 구성됩니다. 하나의 질문에 대한 TGUILogger TStrings 로깅 대상으로 걸리고 목록 상자의 항목 멤버를 대상으로 사용할 수 있도록 주 스레드 로깅을 동기화합니다.

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; 

로깅이 작동하지만 응용 프로그램이 제대로 닫히지 않습니다. 클래스 유닛에 매달려있는 것 같습니다. 스택 추적 :

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

내가 뭘 여기서 뭐라구?

편집 : 난 그냥이 메인 스레드에서 온 일부 로깅 요청 이후 정확히 내 문제가 될 수 TThread.StaticSynchronize

에 대한

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

를 델파이 도움말의 다음 힌트를 발견했다. 이 문제를 어떻게 해결할 수 있습니까?

프로그램 초기화에서

, 로깅 하위 시스템 호출 Windows API 함수 GetCurrentThreadID을 가지고 (주 스레드에서)에 결과를 저장 : 당신이 어떤 간단한 방법을 찾을 수없는 경우, 당신은이 일을 시도 할 수

Answer 1

변수. (수정 : 시스템 단위 MainThreadID 변수를 자동으로 시작될 때이 방식으로 초기화됩니다. 감사, mghie.) 이후 로깅 요청이 들어 오면 GetCurrentThreadID를 다시 호출하고 다른 스레드에서 오는 경우에만 동기화하십시오.

Windows API를 포함하지 않는 다른 트릭이 있습니다. 특히 사용자 정의 TThread 자손이 많이있는 경우 더욱 복잡해집니다. 기본 원칙은 동일합니다. StaticSynchronize를 호출할지 여부를 결정하기 전에 주 스레드에 있는지 확인합니다.

Answer 2

CurrentThreadID를 MainThreadID와 비교하면 동기화할지 여부를 선택할 수 있습니다.

필자는 개인적으로 GUI가 로그 정보 시스템에 최신 정보를 묻는 대신 스레드 일시 중지를 요청했습니다. 그렇지 않으면 로깅이 스레드의 빠른 작동을 방해하여 목적을 달성하지 못하게됩니다.