TEventObject 和 WebBrowser

Posted 2023-02-22

【中文标题】TEventObject 和 WebBrowser

【英文标题】：TEventObject and WebBrowser

【发布时间】：2012-01-04 15:20:14

【问题描述】：

我创建了一个TEventObject 来为TWebBrowser 提供OnMouseDown 和OnMouseMove 事件。这些事件在移动鼠标和单击 webbrowser 时完美运行，但是当我滚动或单击 webbrowser 的垂直滚动条时，出现EZeroDivide 异常。 EurekaLog 报告 d2d1.dll 中的 EZeroDivide 异常。我试图捕获异常，但我尝试过的任何方法似乎都不起作用：

function TEventObject.Invoke( DispID: integer; const IID: TGUID; LocaleID: integer; Flags: Word; var Params;
  VarResult, ExcepInfo, ArgErr: Pointer ): HResult;
begin
  try
    if ( DispID = DISPID_VALUE ) then
    begin
      if Assigned( FOnEvent ) then
        FOnEvent;
      Result := S_OK;
    end
    else
    begin
      FOnEvent := nil;
      Result := E_NOTIMPL;
    end;
  except
    on EZeroDivide do
    begin
      FOnEvent := nil;
      Result := E_NOTIMPL;
    end;
  end;
end;

我的问题是我可以以某种方式防止异常，还是可以检测到 TWebbrowser 垂直滚动条上的 mousedown 以防止异常？这个异常对我来说是一个很难解决的问题，因为我对 TEventObject 了解不多，也不明白为什么只有在单击或拖动垂直滚动条时才会出现异常。如果需要，我可以提供更多信息。编译器：Delphi 2010。

[编辑] 看到这个帖子： http://www.codenewsfast.com/cnf/article/0/waArticleBookmark.7401953 一个非常简单的演示应用程序位于： http://dl.dropbox.com/u/2167512/bugs/ie9/ie9_bug.zip

这样可以防止错误：

Math.SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide,exOverflow, exUnderflow, exPrecision]);

【问题讨论】：

d2d1.dll 是 MS Direct2D 的一部分

可能重复 gastonx.net/?p=10 :D

@kobik，有趣的是谷歌翻译器将语言检测为瑞典语:) 无论如何 +1;似乎没有来自 MS 的人解决了这个问题。

【参考方案1】：

尝试禁用 FPU 异常：

System.Set8087CW($133F);

在较新版本的 Delphi 中：

Math.SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow, exUnderflow, exPrecision]);

【讨论】：

非常感谢。 SetExceptionMask 防止异常...查看我的编辑。这会有副作用吗？

是的，所有这些都在整个应用程序中。

我对这个问题有很长时间的discussion。我的结论是没有副作用。

@TLama - 你是什么意思“是的，所有这些都在整个应用程序中”......使用 SetExceptionMask 不是一个好主意？

@Bill，只要将应用程序中的某个位置除以 0，就不会出现异常。我的电脑上已经有KB2488113 的更新，所以没有任何修复。怎么说呢，就 MS :)