ActiveX如何调用引用该ActiveX的网页中的JavaScript函数

pheonix0862 2003-12-09 10:53:46

我在编写一个ActiveX控件的时候，碰到了一个比较困难的问题，也许不困难，只是我的水平还不高。

我这个ActiveX控件主要用到网页里面，然后呢必须调用该网页内的一个JavaScript函数，比如说如下的网页代码：
<HTML>
<HEAD>
<SCRIPT LANGUAGE="JavaScript">
function Hello(args)
{
alert(args);
alert(Flash1.Movie);
alert(Flash1.Base);
}
</SCRIPT>
<TITLE>JavaScript1</TITLE>
</HEAD>
<BODY>
<OBJECT ID="OurActiveX" NAME="OAX" WIDTH=469 HEIGHT=613
CLASSID="CLSID:40CFEA79-ED5B-4B2B-8B8D-B567E40AF812">
<PARAM NAME="_Version" VALUE="65536">
<PARAM NAME="_ExtentX" VALUE="12418">
<PARAM NAME="_ExtentY" VALUE="16228">
<PARAM NAME="_StockProps" VALUE="0">
<PARAM NAME="others" VALUE="">
</OBJECT>
</BODY>
</HTML>

这个代码组成的网页内部有一个Hello(args) JavaScript函数，我呢需要在这个ActiveX中调用这个函数，当然，这个函数不是固定的，不同的网页有不同的JavaScript函数，那么，我的问题就来了，如何才能够在ActiveX中调用引用该ActiveX的网页中的JavaScript函数呢。

同志们一起探讨一下，看看这个问题该如何解决。

...全文

139 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

triout 2003-12-22

打赏
举报

http://www.csdn.net/Develop/read_article.asp?id=22859

triout 2003-12-22

打赏
举报

我的工程是用.NET2003弄的，可能你们系统不支持，不过没有关系，重要建立自己的COM工程后，把IrDav的相关文件包含添加到工程就可以了。

triout 2003-12-22

打赏
举报

或许因为第一次，所以觉得麻烦，自己亲自动手一下，感觉也不是很难：

1——
给接口添加一个方法：
方法名：SetClientSite
参数：IOleClientSite* pClientSite

2——
给上面的方法加以实现（在相应的类中实现，已经自动生成了框架）：
STDMETHODIMP CIrDav::SetClientSite(IOleClientSite * pClientSite)
{
// TODO: 在此添加实现代码
HRESULT hr = S_OK;
IServiceProvider *isp, *isp2 = NULL;
if (!pClientSite)
{
COMRELEASE(m_spBrowser);
}
else
{
try
{
hr = pClientSite->QueryInterface(IID_IServiceProvider, reinterpret_cast<void **>(&isp));
if (FAILED(hr))
throw("");
hr = isp->QueryService(SID_STopLevelBrowser, IID_IServiceProvider, reinterpret_cast<void **>(&isp2));
if (FAILED(hr))
throw("");
hr = isp2->QueryService(SID_SWebBrowserApp, IID_IWebBrowser2, reinterpret_cast<void **>(&m_spBrowser));
if (FAILED(hr))
throw("");
hr=this->m_spBrowser->get_Document((IDispatch**)&m_spDoc);
if(FAILED(hr))
throw("");
}
catch(LPCTSTR lpszErr)
{
if(CString(lpszErr)!="")
MessageBox(lpszErr);
hr=S_OK;
}
catch(...)
{
MessageBox("未知错误");
hr=S_OK;
}
COMRELEASE(isp);
COMRELEASE(isp2);
}
return hr;
}

通过这步的操作，我们就获得了控件所在Web页面的BROWSER对象指针和相应的DOCUMENT对象指针。
通过这些BROWSER和DOCUMENT对象指针，我们可以设置窗口的很多属性，比如菜单、全屏、工具栏等的显示和DOCUMENT的背景颜色等等。
这个方法参见MSDN:http://support.microsoft.com/support/kb/articles/Q257/7/17.ASP

3——
获得脚本，通过m_spDoc（DOCUMENT对象）的方法get_Script可以获得页面中的脚本对象：
CComPtr<IDispatch> pScript;
hr=this->m_spDoc->get_Script(&pScript);

4——
检索函数，使用上面脚本对象的GetIDsOfNames可以获取页面之中指定名的脚本函数的指针：
CComBSTR bstrMember("calert");
DISPID dispid;
hr=pScript->GetIDsOfNames(IID_NULL,&bstrMember,1,LOCALE_SYSTEM_DEFAULT,&dispid);

5——
调用脚本对象的Invoke方法执行脚本函数：
DISPPARAMS dispparams;
memset(&dispparams, 0, sizeof dispparams);
dispparams.cArgs = 2;
dispparams.rgvarg = new VARIANT[dispparams.cArgs];

for( int i = 0; i < 2; i++)
{
CComBSTR bstr = "111"; // back reading
bstr.CopyTo(&dispparams.rgvarg[i].bstrVal);
dispparams.rgvarg[i].vt = VT_BSTR;
}
dispparams.cNamedArgs = 0;
EXCEPINFO excepInfo;
memset(&excepInfo, 0, sizeof excepInfo);
CComVariant vaResult;
UINT nArgErr = (UINT)-1; // initialize to invalid arg
hr = pScript->Invoke(dispid,IID_NULL,0,DISPATCH_METHOD,&dispparams,&vaResult,&excepInfo,&nArgErr);

这里的执行中我随意的写了几个参数，可以根据自己需要修改。
本示例的触发：打开相应的HTM页面，点击发送按钮，按钮调用脚本函数btn，btn调用了COM中的函数KeyPress函数，在KeyPress函数中获取calert函数并调用。

注：一个问题：
获得BROWSER对象是在SetClientSite函数中实现，这个函数我了解不多，我想应该是系统自动运行的函数之一，但当我使用这个函数后，原先我在COM中定义的事件（比如CLICK事件）不能响应。有高手介绍说放置在别的地方，我想应该是可以的，比如找一个COM就绪的函数进行处理，但不知IOleClientSite*pClientSite又该如何获得。

源程序不是很好，已经发送到你们邮箱，请查收。