Page fault CreateBugReport + Win9x

delphi package - automated exception handling

Page fault CreateBugReport + Win9x

Postby dnote » Tue Jul 13, 2004 3:04 pm

Hi again,

When I use CreateBugReport, it works fine when running under WinXP, but when I run the same program under Win98SE, I get a page fault error in kernel32 and the application disappears. The bugreport in the madexcept exception dialog, the one you get when an exception is raised, always looks ok though, on both platforms.

I used a simple application with 1 form, 2 buttons and a memo to test this:

Code: Select all
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Text := CreateBugReport(false, nil, nil, 0, 0, 0, false);
  // fails on Win9x
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  raise Exception.Create('Test');
  // always works
end;


Am I doing something completely wrong?

TIA!
dnote
 
Posts: 17
Joined: Fri May 07, 2004 8:02 am

Postby madshi » Wed Jul 14, 2004 7:44 am

It should be:

Code: Select all
Memo1.Lines.Text := CreateBugReport(false, nil, nil, GetCurrentThreadID, 0, 0, false);
madshi
Site Admin
 
Posts: 10200
Joined: Sun Mar 21, 2004 5:25 pm

Postby dnote » Wed Jul 14, 2004 4:32 pm

Works! :D
dnote
 
Posts: 17
Joined: Fri May 07, 2004 8:02 am


Return to madExcept

Who is online

Users browsing this forum: No registered users and 16 guests