I'm trying to simply generate the report text, but I'm facing some problems:
Code: Select all
procedure TForm1.Button1Click(Sender: TObject);
var strBugReport : String;
begin
try
raise (Exception.Create('Test'));
except on e : Exception do
begin
strBugReport := madExcept.CreateBugReport(false, e, ExceptAddr, GetCurrentThread(), Esp, Ebp, false);
ShowMessage (strBugReport);
HandleException();
end;
end;
end;
Code: Select all
...
thread $fffffffe:
>> stack not accessible, exception location:
0042b632 MainDemo.exe uMainDemoForm 301 TForm1.Button7Click'
main thread ($f64):
7c90eb94 ntdll.dll KiFastSystemCallRet
7c90d9bf ntdll.dll NtFindAtom
7c90eae0 ntdll.dll KiUserCallbackDispatcher
77d4b8fe USER32.dll SendMessageW
77d4e900 USER32.dll CallWindowProcA
77d496c2 USER32.dll DispatchMessageA'
Code: Select all
main thread ($578):
0042b62d MainDemo.exe uMainDemoForm 301 TForm1.Button7Click
7c90f0a5 ntdll.dll RtlAnsiStringToUnicodeString
7c90eae0 ntdll.dll KiUserCallbackDispatcher
77d4b8fe USER32.dll SendMessageW
77d4e900 USER32.dll CallWindowProcA
77d496c2 USER32.dll DispatchMessageA
0042baff MainDemo.exe MainDemo 52 initialization
Best regards,
Joao Santos