delphi - 如何让 Delphi XE2 中的 TWebBrowser 运行？

Question

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

1. 创建新的 Delphi 项目
2. 将 TWebBrowser 组件拖放到窗体上。
3. 在 Form1.FormCreate() 调用 WebBrowser1.GoHome （谷歌）。

如果我编译这个 32 位并转到一些特定的网页，我会收到错误消息。谷歌（ncbi 核苷酸爆炸）并单击第一个链接。

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

64 位版本似乎更坏。通过访问同一站点（ncbi 核苷酸爆炸），由于“divide_by_zero”错误，我使整个程序崩溃。

Answer 1

关于浮点异常，TWebBrowser期望在屏蔽浮点异常的情况下进行操作。看起来您正在使用 Delphi 默认浮点设置并且未屏蔽异常。我怀疑如果你掩盖异常，那么你的问题就会消失。

这样做：

SetExceptionMask(exAllArithmeticExceptions);

正如其他人所说，您可以通过设置Silent来使 Javascript 弹出窗口静音True。