Delphi中WebBrowser（或者EmbeddedWebBrowser）控件打开部分网站报“Invalid floating point operation”异常的解决方法

======================================================
注：本文源代码点此下载
======================================================

最近用embeddedwb控件做浏览器相关应用的时候,发现有些网页只要一打开就一定会蹦出一个“invalid floating point operation”异常(关掉异常对话框以后,浏览器无响应),而程序仅仅是一句

webbrowser1.navigate(edit1.text);

貌似很多含有silverlight元素的网页打开时都会带出这个bug。而且关键是,错误提示完全让人摸不着头脑有木有!!!!!

百思不得其解,遂google之,得结论如下:

1、很多网友都遇见过同样的问题

2、borland官方解释请点这里(我这打不开)

3、大概的情况是,在使用一些浮点操作时,微软默认设计会抛出一系列的异常。这些异常按理说不应该阻止程序运行。但不知道为什么,delphi默认是截获后又把异常抛了出来,被系统截获就会影响程序运行了。borland给的解决方法是,加一句

set8087cw(longword($133f));

来关闭这个机制. 你可以加在form的oncreate事件里。

虽然问题解决了,不过不明白为什么,求高人指点。

参考:

《twebbrowser打开paypal出错》http://blog.sina.com.cn/s/blog_48d1e7820100e1yw.html

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/