delphi - 如何在Delphi XE2中运行TWebBrowser？

Question

Delphi XE2中的TWebBrowser组件似乎是严重的错误。我是否需要运行某种代码才能以某种特殊方式实例化它？

创建新的Delphi项目

将TWebBrowser组件拖放到表单上。

在Form1.FormCreate()中，调用WebBrowser1.GoHome(对Google)。

如果我编译此32位代码并转到某些特定的网页，则会收到错误消息。
google(ncbi核苷酸爆炸)，然后单击第一个链接。

除了这些JavaScript错误之外，如果我单击通常在新窗口中打开的链接，它还会在IE(单独的应用程序)中打开。

64位版本似乎更坏了。通过转到同一站点(ncbi核苷酸爆炸)，我会因为“divide_by_zero”错误而使整个程序崩溃。

Answer 1

关于浮点异常，TWebBrowser希望在屏蔽浮点异常的情况下运行。看起来您正在使用Delphi默认浮点设置，并且未显示异常。我怀疑如果掩盖异常，那么您的问题将消失。

像这样做:

SetExceptionMask(exAllArithmeticExceptions);

就像其他人所说的，您可以通过将 Silent设置为 True来使Javascript弹出窗口静音。