Changeset 40 for ExceptionLogger

Timestamp:

Sep 9, 2010, 1:58:30 PM (14 years ago)

Author:

george

Message:

• Přidáno: Podpora pro možnost ignorovat opakující se výjimky.

Location:

ExceptionLogger

Files:

• CustomLineInfo.pas (modified) (4 diffs)
• UExceptionForm.lfm (modified) (7 diffs)
• UExceptionForm.lrt (modified) (1 diff)
• UExceptionForm.pas (modified) (3 diffs)
• UExceptionLogger.pas (modified) (5 diffs)

ExceptionLogger/CustomLineInfo.pas

@@ -94 +94 @@
         exit;
     end;
-  e.processaddress:=ptruint(baseaddr)-e.processaddress;
+  e.processaddress := ptruint(baseaddr) - e.processaddress;
   StabsFunctionRelative := E.FunctionRelative;
   if FindExeSection(e,'.stab',stabofs,stablen) and
@@ -109 +109 @@
 end;
 
-
 procedure CloseStabs;
 begin
   CloseExeFile(e);
 end;
-
 
 function GetLineInfo(addr:ptruint;var func,source:shortstring;var line:longint) : boolean;
@@ -248 +246 @@
 end;
 
-
 function StabBackTraceStr(addr:Pointer):shortstring;
 var
@@ -291 +288 @@
 end;
 
-
 initialization
-  BackTraceStrFunc:=@StabBackTraceStr;
+  BackTraceStrFunc := @StabBackTraceStr;
 
 finalization

ExceptionLogger/UExceptionForm.lfm

@@ -3 +3 @@
   Height = 316
   Top = 171
-  Width = 682
+  Width = 691
   Caption = 'Exception info'
   ClientHeight = 316
-  ClientWidth = 682
+  ClientWidth = 691
   OnCreate = FormCreate
   OnDestroy = FormDestroy
@@ -12 +12 @@
   LCLVersion = '0.9.29'
   object ButtonClose: TButton
-    Left = 602
+    Left = 611
     Height = 25
     Top = 286
@@ -22 +22 @@
   end
   object ButtonKill: TButton
-    Left = 512
+    Left = 521
     Height = 25
     Top = 286
@@ -35 +35 @@
     Height = 277
     Top = 3
-    Width = 669
+    Width = 678
     ActivePage = TabSheet2
     Anchors = [akTop, akLeft, akRight, akBottom]
@@ -59 +59 @@
       Caption = 'Call stack'
       ClientHeight = 251
-      ClientWidth = 661
+      ClientWidth = 670
       object ListView1: TListView
         Left = 4
         Height = 241
         Top = 7
-        Width = 655
+        Width = 664
         Anchors = [akTop, akLeft, akRight, akBottom]
         Columns = <        
@@ -77 +77 @@
           item
             Caption = 'Class'
-            Width = 100
+            Width = 150
           end        
           item
@@ -99 +99 @@
     end
   end
+  object CheckBoxIgnore: TCheckBox
+    Left = 10
+    Height = 17
+    Top = 298
+    Width = 169
+    Anchors = [akLeft, akBottom]
+    Caption = 'Next time ignore this exception'
+    TabOrder = 3
+  end
 end

ExceptionLogger/UExceptionForm.lrt

@@ -10 +10 @@
 TEXCEPTIONFORM.LISTVIEW1.COLUMNS[4].CAPTION=Unit
 TEXCEPTIONFORM.LISTVIEW1.COLUMNS[5].CAPTION=Line
+TEXCEPTIONFORM.CHECKBOXIGNORE.CAPTION=Next time ignore this exception

ExceptionLogger/UExceptionForm.pas

@@ -18 +18 @@
     ButtonKill: TButton;
     ButtonClose: TButton;
+    CheckBoxIgnore: TCheckBox;
     ListView1: TListView;
     MemoExceptionInfo: TMemo;
@@ -42 +43 @@
 procedure TExceptionForm.FormShow(Sender: TObject);
 begin
+  PageControl1.ActivePageIndex := 0;
+  CheckBoxIgnore.Checked := False;
 end;
 
@@ -56 +59 @@
 procedure TExceptionForm.ButtonKillClick(Sender: TObject);
 begin
-  Halt;
+  //Halt;
+  Application.Terminate;
 end;
 

ExceptionLogger/UExceptionLogger.pas

@@ -21 +21 @@
     StackTrace: TStackTrace;
     LastException: Exception;
+    IgnoreList: TStringList;
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -54 +55 @@
 end;
 
-
 { TExceptionLogger }
 
@@ -60 +60 @@
 begin
   inherited Create(AOwner);
+  IgnoreList := TStringList.Create;
   StackTrace := TStackTrace.Create;
   MaxCallStackDepth := 20;
@@ -69 +70 @@
 begin
   StackTrace.Free;
+  IgnoreList.Free;
   inherited Destroy;
 end;
@@ -155 +157 @@
   Report: TStringList;
 begin
-  Report := TStringList.Create;
-  try
-    CreateTextReport(Report);
-    if FLogFileName <> '' then begin
-      LogToFile(Report);
-      LogStackTraceToFile(StackTrace);
+  if IgnoreList.IndexOf(LastException.ClassName) = -1 then begin
+    Report := TStringList.Create;
+    try
+      CreateTextReport(Report);
+      if FLogFileName <> '' then begin
+        LogToFile(Report);
+        LogStackTraceToFile(StackTrace);
+      end;
+      ExceptionForm.MemoExceptionInfo.Lines.Assign(Report);
+      ShowReportForm;
+    finally
+      Report.Free;
     end;
-    ExceptionForm.MemoExceptionInfo.Lines.Assign(Report);
-    ShowReportForm;
-  finally
-    Report.Free;
+    if ExceptionForm.CheckBoxIgnore.Checked then
+      IgnoreList.Add(LastException.ClassName);
   end;
 end;