Changeset 165 for ExceptionLogger

Timestamp:

Feb 8, 2011, 11:07:15 AM (14 years ago)

Author:

george

Message:

• Modified: ExceptionHandler entry method merged from non-thread and thread method.

File:

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

ExceptionLogger/UExceptionLogger.pas

@@ -27 +27 @@
     destructor Destroy; override;
     procedure ExceptionHandler(Sender: TObject; E: Exception);
-    procedure ThreadExceptionHandler(Thread: TThread; E: Exception);
     procedure CreateTextReport(Output: TStringList);
     procedure LogToFile(Report: TStringList);
@@ -137 +136 @@
 begin
   ExceptionForm.LoadStackTraceToListView(StackTrace);
-  ExceptionForm.ShowModal;
+  if not ExceptionForm.Visible then ExceptionForm.ShowModal;
 end;
 
@@ -145 +144 @@
   StackTrace.GetExceptionBackTrace;
   LastException := E;
-  MakeReport;
-end;
-
-procedure TExceptionLogger.ThreadExceptionHandler(Thread: TThread; E: Exception
-  );
-begin
-  BackTraceStrFunc := @StabBackTraceStr;
-  StackTrace.GetExceptionBackTrace;
-  LastException := E;
-  TThread.Synchronize(Thread, MakeReport);
+  if Sender is TThread then TThread.Synchronize(TThread(Sender), MakeReport)
+    else MakeReport;
 end;