ccrun及各位 高手救命啊：CppWebBrower怎么样和javascript进行交互？有源码，麻烦帮看一下，谢谢

[wenyongjie]

javascript：

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>test</title>
</head>
<body>

<a href="javascript:;" onClick="window.external.test()">testclick</a>   --这里是这样子写吗？"window.external.test()，test就客户端的函数
</body>
</html>

Form CPP代码

void __fastcall TForm1::test()  //定义为public
{
   ShowMessage(2);
}
//------------
void __fastcall TForm1::FormShow(TObject *Sender)
{
 CppWebBrowser1->Navigate(L"file:///C:/Users/wenyongjie/Desktop/01.html");
}
//---------------------------------------------------------------------------

想实现这样子的功能，点击testclick ,运行 :test()函数，不知怎么实现？大牛救命啊

[ccrun.com]

我来了。
WebBrowser 和 HTML 页面的交互，一般有两种方式实现，一是通过 HTML 页面的重定向(点击以后转向新的页面)，然后接管 WebBrowser 的 OnBeforeNavigate2 事件，根据 URL 的区别选择不同的操作。二是通过接管 WebBrowser 的容器，依靠 DocHostUIHandler 的 GetExternal 方法，自己实现 External 添加自己的方法，就可以在 HTML 页面中通过脚本 window.external.自定义方法名 这样的方式调用宿主程序中的代码了。
Delphi 中实现这个需求很简单，从 WebBrowser 和 IDocHostUIHandler 继承一个子类，实现 GetExternal 方法，再创建一个 ActiveX 对象去实现需要和 HTML 交互的自定义方法，再把两者结合起来即可，可以参考这里：
http://aawwmate.blog.163.com/blog/static/7752825620101163317635/
威武的大 C# 就更简单了，只需要搞一个自定义的类然后 ComVisible 了就行了。
至于可怜的 C++Builder 啊，参考资料太少了。所以我花了点时间帮你写了一个完整代码的 Demo 工程，基本思路就是实现 IDocHostUIHandler 的 GetExternal 方法，从 IDispatch 派生一个类来实现 External，由于代码篇幅较长，不适合发在这里，感兴趣的朋友可以给我发邮件索取源代码：cbfans at 163 dot com

[wenyongjie]

大神啊，真是谢谢啊，我的邮箱[e-mail]

[wenyongjie]

上面的发错了，在 激动啊、 大神啊，真是谢谢啊，我的邮箱[e-mail]

[wenyongjie]

试过了，真是太谢谢了，最后这点分虽然妖哥不在意，但还是要结贴

[cptang]

[e-mail],感谢妖哥.

[ccrun.com]

引用 5 楼 cptang 的回复:

[e-mail],感谢妖哥.

请发邮件给我，我要统计一下多少人对这个代码感兴趣。

[ccrun.com]

引用 5 楼 cptang 的回复:

[e-mail],感谢妖哥.

请发邮件给我，我要统计一下多少人对这个代码感兴趣。

[wenyongjie]

妖哥，如果OnShowMsgBox有多个形参值怎么处理啊？ HRESULT __stdcall TfrmMain::OnShowMsgBox(BSTR bstrMsg)//这是原来的 HRESULT __stdcall TfrmMain::OnShowMsgBox(BSTR bstrMsg,int &n) //有两个形参 或三个形参怎么处理？ javascript要传三个值

[ccrun.com]

你自己再添加一个函数，参数个数和类型对应你的需求，记住html页面中要调用的方法，必须和这里的方法名相同。

[wenyongjie]

比如说，我要把OnShowMsgBox添加一个形参， if (dispIdMember == 165332) { if (m_ShowMsgBox) m_ShowMsgBox(pDispParams->rgvarg[0].bstrVal,pDispParams->rgvarg[1].bstrVal); } __property TShowMsgBoxEvent OnShowMsgBox = { write=m_ShowMsgBox, write=m_ShowMsgBox}; 怎么不行呢？

[wenyongjie]

if (dispIdMember == 165332) { if (m_ShowMsgBox) m_ShowMsgBox(pDispParams->rgvarg[0].bstrVal,pDispParams->rgvarg[1].bstrVal); } __property TShowMsgBoxEvent OnShowMsgBox = { write=m_ShowMsgBox};

[wenyongjie]

弄了一天眼花了，终于明白了， 这里还要有定义 ， typedef HRESULT __stdcall(__closure *TShowMsgBoxEvent)(BSTR,BSTR); 看来要收工了，谢谢妖哥的帮助

[bigfog]

我也想看看代码，谢谢妖哥，有空随便给我发一份 [e-mail]

[skyjjt]

引用 1 楼 ccrun 的回复:

我来了。 WebBrowser 和 HTML 页面的交互，一般有两种方式实现，一是通过 HTML 页面的重定向(点击以后转向新的页面)，然后接管 WebBrowser 的 OnBeforeNavigate2 事件，根据 URL 的区别选择不同的操作。二是通过接管 WebBrowser 的容器，依靠 DocHostUIHandler 的 GetExternal 方法，自己实现 External 添加自己的方法，就可以在 HTML 页面中通过脚本 window.external.自定义方法名 这样的方式调用宿主程序中的代码了。 Delphi 中实现这个需求很简单，从 WebBrowser 和 IDocHostUIHandler 继承一个子类，实现 GetExternal 方法，再创建一个 ActiveX 对象去实现需要和 HTML 交互的自定义方法，再把两者结合起来即可，可以参考这里： http://aawwmate.blog.163.com/blog/static/7752825620101163317635/ 威武的大 C# 就更简单了，只需要搞一个自定义的类然后 ComVisible 了就行了。 至于可怜的 C++Builder 啊，参考资料太少了。所以我花了点时间帮你写了一个完整代码的 Demo 工程，基本思路就是实现 IDocHostUIHandler 的 GetExternal 方法，从 IDispatch 派生一个类来实现 External，由于代码篇幅较长，不适合发在这里，感兴趣的朋友可以给我发邮件索取源代码：cbfans at 163 dot com

妖哥，我也想要一份，能发给我一下吗[e-mail]

[skyjjt]

妖哥，在吗，紧急求助，能提供一下demo的代码吗？[e-mail] 非常感谢！

[chinayu2007]

我需要一份[e-mail],谢谢妖哥