Changeset 297 for ExceptionLogger/UExceptionLogger.pas

Timestamp:

Nov 16, 2011, 7:28:20 AM (13 years ago)

Author:

george

Message:

• Added: TExceptionLogger can be extended for handling synchronization of different thread classes.

File:

• ExceptionLogger/UExceptionLogger.pas (modified) (7 diffs)

ExceptionLogger/UExceptionLogger.pas

@@ -10 +10 @@
 
 type
+  TThreadSynchronizeEvent = procedure (AObject: TObject; Method: TThreadMethod) of object;
 
   { TExceptionLogger }
@@ -17 +18 @@
     FMaxCallStackDepth: Integer;
     FLogFileName: string;
+    FOnThreadSynchronize: TThreadSynchronizeEvent;
+    procedure ThreadSynchronize(AObject: TObject; Method: TThreadMethod);
     function GetAppVersion: string;
     procedure SetMaxCallStackDepth(const AValue: Integer);
@@ -37 +40 @@
     property LogFileName: string read FLogFileName write FLogFileName;
     property MaxCallStackDepth: Integer read FMaxCallStackDepth write SetMaxCallStackDepth;
+    property OnThreadSynchronize: TThreadSynchronizeEvent read FOnThreadSynchronize
+      write FOnThreadSynchronize;
   end;
 
@@ -63 +68 @@
   SProcedureMethod = 'Procedure/method';
   SUnit = 'Unit';
+  SExceptionHandlerCannotBeSynchronized = 'Exception handler cannot be synchronized with main thread.';
 
 implementation
@@ -84 +90 @@
   Application.OnException := ExceptionHandler;
   Application.Flags := Application.Flags - [AppNoExceptionMessages];
+  OnThreadSynchronize := ThreadSynchronize;
 end;
 
@@ -162 +169 @@
   LastException := E;
   ExceptionSender := Sender;
-  if ExceptionSender is TThread then
-    TThread.Synchronize(TThread(ExceptionSender), ShowForm)
-    else ShowForm;
+  if (MainThreadID <> ThreadID) then begin
+    if Assigned(FOnThreadSynchronize) then
+      FOnThreadSynchronize(Sender, ShowForm)
+      else raise Exception.Create(SExceptionHandlerCannotBeSynchronized);
+  end else ShowForm;
 end;
 
@@ -209 +218 @@
   FMaxCallStackDepth := AValue;
   StackTrace.MaxDepth := AValue;
+end;
+
+procedure TExceptionLogger.ThreadSynchronize(AObject: TObject;
+  Method: TThreadMethod);
+begin
+  if AObject is TThread then TThread.Synchronize(TThread(AObject), Method)
+    else raise Exception.Create(SExceptionHandlerCannotBeSynchronized);
 end;