WndProc重载时抛出异常

Question

我正在尝试使用.NET WebBrowser类型的Close事件,这似乎不是开箱即用的.(编辑:window.close()在浏览器中运行的脚本中发出调用时会发出此事件.)

一个解决方案,我看到的是,以扩展WebBrowser类override的WndProc方法.

我的扩展代码如下:

type internal ExtendedBrowser () = class
    inherit System.Windows.Forms.WebBrowser()

    let WM_PARENTNOTIFY : int = 0x0210
    let WM_DESTROY      : int = 0x0002

    let closed : Event<unit> = new Event<unit>()

    do ()

    [<System.Security.Permissions.PermissionSet(System.Security.Permissions.SecurityAction.Demand, Name = "FullTrust")>]
    override this.WndProc (msg : Message byref) =
        match msg.Msg with
        | wm when wm = WM_PARENTNOTIFY ->
            if (not base.DesignMode) && (msg.WParam.ToInt32() = WM_DESTROY)
            then closed.Trigger()
            base.DefWndProc(ref msg)
        | _ ->
            base.WndProc(ref msg)

    member this.Closed = closed.Publish
end

这最终导致在访问该类型的实例时抛出异常:

Unhandled Exception: System.Reflection.TargetInvocationException: Unable to get the window handle for the 'ExtendedBrowser' control. Windowless ActiveX controls are not supported. ---> System.ComponentModel.Win32Exception: Error creating window handle.
   at System.Windows.Forms.NativeWindow.CreateHandle(CreateParams cp)
   at System.Windows.Forms.Control.CreateHandle()
   at System.Windows.Forms.Control.get_Handle()
   at System.Windows.Forms.WebBrowserBase.DoVerb(Int32 verb)
   at System.Windows.Forms.WebBrowserBase.TransitionFromRunningToInPlaceActive()

   --- End of inner exception stack trace ---
   at System.Windows.Forms.WebBrowserBase.TransitionFromRunningToInPlaceActive()

   at System.Windows.Forms.WebBrowserBase.TransitionUpTo(AXState state)
   at System.Windows.Forms.WebBrowser.get_AxIWebBrowser2()
   at System.Windows.Forms.WebBrowser.PerformNavigate2(Object& URL, Object& flag
s, Object& targetFrameName, Object& postData, Object& headers)
   at System.Windows.Forms.WebBrowser.Navigate(String urlString)
   at [PRODUCT].Application.WebBrowser..ctor() in C:\[PATH]\WebBrowser.fs:line 107
   at Program.Main.main(String[] args) in C:\[PATH]\Program.fs:line 79
Press any key to continue . . .

目前,它在调用Navigate("about:blank")(构建后第一次访问实例)时出错.我可以注释掉WndProc覆盖,并且工作正常(除了错过关闭事件).

有人说你必须把安全属性放在WndProc覆盖上,所以我这样做了,它没有解决问题.

其他人说你可以禁用DEP,但是我尝试了它并没有让我免除EXE.

扩展的一个实例是在浏览器的包装器中创建的(也称为WebBrowser),并且在my中创建了一个实例main,它在[STAThread]中运行(似乎也是必需的).

有谁知道会出现什么问题？

(我真正想要的是获取近距离事件通知的一种方式,所以如果有人知道另一条路线,我很乐意听到它.)

Answer 1

我发现一个帖子，其中其他人在重写 F# 中的 WndProc 方法时遇到了同样的问题，那里的解决方案对我有用；工作代码如下：

type ExtendedWebBrowser () = class
    inherit System.Windows.Forms.WebBrowser()

    let WM_PARENTNOTIFY : int = 0x0210
    let WM_DESTROY      : int = 0x0002

    let closed : Event<unit> = new Event<unit>()

    do ()

    override this.WndProc (msg : Message byref) =
        match msg.Msg with
        | wm when wm = WM_PARENTNOTIFY ->
            if (not base.DesignMode) && (msg.WParam.ToInt32() = WM_DESTROY)
            then closed.Trigger()
            base.DefWndProc(&msg)
        | _ ->
            base.WndProc(&msg)

    member this.Closed = closed.Publish
end

F# 的处理方式似乎ref与 C# 略有不同：阅读一下F# 中的参数和参数——请参阅“按引用传递”部分——看来ref调用会复制其参数并使用该副本作为引用单元格的值；因此，我传递的是一个参考单元格，其中包含内容的副本，msg而不是对原始内容的引用。地址运算符 ( ) 获取值的地址，因此这就是and方法&的参数所需的内容，而不是将它们包装在s 中。DefWndProcWndProcref