MadExcept.pas shows: 2018-11-29 5.0.0
Simple Demo, all it does is raise an Exception then attempts to send but fails and is set to auto save the report.
Code: Select all
procedure TForm4.btRaiseClick(Sender: TObject);
begin
raise Exception.Create('Error Message');
end;
procedure TForm4.btShowClick(Sender: TObject);
const bugreport = 'bugreport.txt';
begin
Memo1.Lines.LoadFromFile(bugreport);
with ImportBugReport(bugreport) do
begin
AutoShowBugReport := True;
Show;
end;
end;
Code: Select all
Project Project1.exe raised exception class $C0000005 with message 'c0000005 ACCESS_VIOLATION'.
15453 FProgressAlert.AddArea((st - sb) * 100, GetPleaseWaitText);
Code: Select all
madExcept.GetThreadStack(4336,False,False,False,False,nil,Pointer(nil) as IProgressAlert,'',nil,0,'','')
madExcept.PrepareThreadReport
madExcept.TIMEException.GetBugReportSections
madExcept.TExceptionBox.CheckTabs
madExcept.TExceptionBox.Create(Pointer($1788050) as IMEException,False,False,True)
madExcept.ShowExceptBox(ssFullBox,True)
madExcept.ShowException(Pointer($1788050) as IMEException)
madExcept.TIMEException.Show
Unit4.TForm4.btShowClick($1778130)