Changeset 264 for ExceptionLogger/UExceptionLogger.pas

Timestamp:

Aug 17, 2011, 10:08:55 AM (13 years ago)

Author:

george

Message:

• Modified: Now detailed info is displayed after user click Details. User will see at first only necessary error message.
• Modified: Now methods in TStackTrace class loads call stack and exception stack only as list of frame address. Then delayed GetInfo method should be called to fully load call stack debug information. This is useful in case of external debug file where loading time could be significant.

File:

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

ExceptionLogger/UExceptionLogger.pas

@@ -18 +18 @@
     FLogFileName: string;
     function GetAppVersion: string;
+    procedure SetMaxCallStackDepth(const AValue: Integer);
     procedure MakeReport;
-    procedure SetMaxCallStackDepth(const AValue: Integer);
+    procedure ShowForm;
   public
     StackTrace: TStackTrace;
     LastException: Exception;
+    ExceptionSender: TObject;
     IgnoreList: TStringList;
+    procedure LoadDetails;
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -146 +149 @@
   StackTrace.GetExceptionBackTrace;
   LastException := E;
-  if Sender is TThread then TThread.Synchronize(TThread(Sender), MakeReport)
-    else MakeReport;
+  ExceptionSender := Sender;
+  if ExceptionSender is TThread then
+    TThread.Synchronize(TThread(ExceptionSender), ShowForm)
+    else ShowForm;
 end;
 
@@ -154 +159 @@
   Report: TStringList;
 begin
+  StackTrace.GetInfo;
   if IgnoreList.IndexOf(LastException.ClassName) = -1 then begin
     Report := TStringList.Create;
@@ -170 +176 @@
       IgnoreList.Add(LastException.ClassName);
   end;
+end;
+
+procedure TExceptionLogger.ShowForm;
+begin
+  ExceptionForm.Logger := Self;
+  ExceptionForm.LabelMessage.Caption := LastException.Message;
+  ExceptionForm.MemoExceptionInfo.Clear;
+  if not ExceptionForm.Visible then ExceptionForm.ShowModal;
+end;
+
+procedure TExceptionLogger.LoadDetails;
+begin
+  if ExceptionSender is TThread then
+    TThread.Synchronize(TThread(ExceptionSender), MakeReport)
+    else MakeReport;
 end;