How do I get TWebBrowser in Delphi XE2 to run?

Question

The TWebBrowser component in Delphi XE2 seems to be seriously buggy. Is there some sort of code I have to run in order to instantiate it in some special way?

Create new Delphi project
Drop a TWebBrowser component onto the form.
In Form1.FormCreate() call WebBrowser1.GoHome (to google).

If I compile this 32-bit and go to some specific webpages I get error messages. google (ncbi nucleotide blast) and click the first link.

In addition to these javascript errors if I click a link which usually opens in a new window, it opens in IE (a separate application).

The 64-bit version seems even more broken. By going to that same site (ncbi nucleotide blast) I get the entire program crashing due to a 'divide_by_zero' error.

TWebBrowser is just a wrapper and those errors are not raised by Delphi. To avoid this popups set TWebBrowser.Silent := True — Sir Rufo, Apr 08 '13 at 22:26
If I had a penny for every time I saw someone ask this... I'd have a lot of pennies. — Jerry Dodge, Apr 08 '13 at 22:27

David Heffernan · Accepted Answer · 2013-04-08T22:58:15.500

1

Regarding the floating point exceptions, TWebBrowser expects to operate with floating point exceptions masked. It looks like you are using Delphi default floating point settings and have exceptions unmasked. I suspect that if you mask exceptions then your problems will disappear.

Do that like so:

SetExceptionMask(exAllArithmeticExceptions);

And as others have said, you silence the Javascript popups by setting Silent to True.

edited Apr 08 '13 at 22:58

answered Apr 08 '13 at 22:29

David Heffernan

601,492
42
1,072
1,490

Hi David, I've seen this. http://stackoverflow.com/questions/9359223/delphi-xe2-twebbrowser-float-divide-by-zero but didn't really understand it. – Daisetsu Apr 08 '13 at 22:32
1

What don't you understand? – David Heffernan Apr 08 '13 at 22:43
I tried System.Set8087CW($133f); and $1F80 // Disable all fpu exceptions. But I still get the exact same error. Both SetSSEExceptionMask(exAllArithmeticExceptions) and SetFPUExceptionMask(exAllArithmeticExceptions) don't compile even after importing System.math. – Daisetsu Apr 08 '13 at 22:46
1

You are compiling for 64 bit? – David Heffernan Apr 08 '13 at 22:50
1

Then it's no good setting 8087CW since that's not used. You need to control the SSE unit. `SetMXCSR($1F80)` – David Heffernan Apr 08 '13 at 22:55
That totally fixed it! Now if I could only figure out how to prevent links from opening new windows in a seperate IE process. – Daisetsu Apr 08 '13 at 22:57
1

FWIW, `SetExceptionMask(exAllArithmeticExceptions)` works good here – David Heffernan Apr 08 '13 at 22:59

How do I get TWebBrowser in Delphi XE2 to run?

1 Answers1