关于activex控件，嵌入页面得activex控件有没有办法与调用控件的页面通讯

captainwh 2006-05-01 10:10:18

问一个嵌入html的activex控件的问题：

当activex完成任务后，希望能通过某种方式通告给调用控件的页面，以便页面自动刷新
当前做的代码是一个mfc activex控件，请问有这种机制吗

...全文

376 13 打赏收藏转发到动态举报

写回复

用AI写文章

13 条回复

切换为时间正序

请发表友善的回复…

发表回复

whwjn 2006-07-26

打赏
举报

通过JavaScript或者VBScript，可以访问ActiveX的属性和方法，还可以响应它的事件。

whwjn 2006-07-26

打赏
举报

说错了，上面的代码是JavaScript里面的

whwjn 2006-07-26

打赏
举报

可以用VBScript或者JavaScript实现，在ActiveX中设定一个事件，当ActiveX完成任务后
Fire这个事件，在VBScript中可以刷新页面，差不多就是这样：

<SCRIPT FOR=MyActiveX1 EVENT=ParameterLoaded()>

</SCRIPT>

Analyst 2006-07-26

打赏
举报

在Script里面开个Timer轮询你的控件即可。

boby168 2006-07-25

打赏
举报

html:
<object classid="clsid:C0F1EDF0-34C3-4300-A322-4B94CCE40B85" id="XXXBrowser"
codebase="http://notebook/Test/XXXBrowser.cab" width=100% height=100%>

<param name="_ExtentY" value="20320">
<param name="_StockProps" value="0">

</object>
</p>

<script language=JScript for=XXXBrowser event="Logs(iType,strInfo)">
alert(iType);
alert(strInfo);
</script>
Logs(iType,strInfo)为ActiveX控件定义的Automation事件。

EagleTwenty 2006-07-25

打赏
举报

MARK

BOYGUARD110 2006-05-07

打赏
举报

MARK

lyl_rabbit 2006-05-04

打赏
举报

有啊，给你代码

CString CXXXCtrl::PageInterface(long lParam1, long lParam2, long lParam3, const CString& strParam)
{
HRESULT hr = E_FAIL;
CComPtr<IOleObject> pOleObject = 0;
CComPtr<IOleClientSite> pClientSite = 0;
CComPtr<IWebBrowser2> m_spBrowser = 0;
CComPtr<IHTMLDocument2> m_spDoc = 0;
CComPtr<IDispatch> pscript;

IUnknown *iUn;
iUn = GetControllingUnknown();
hr = iUn->QueryInterface(IID_IOleObject, reinterpret_cast<void **> (&pOleObject));
if (FAILED(hr))
{
AfxMessageBox("pOleObject");
return "-1";
}
IServiceProvider *isp, *isp2 = NULL;
hr = pOleObject->GetClientSite(&pClientSite);
if (!pClientSite)
{
AfxMessageBox("pClientSite");
return "-1";
}
else
{
try
{
hr = pClientSite->QueryInterface(IID_IServiceProvider, reinterpret_cast<void **> (&isp));
if (FAILED(hr))
{
AfxMessageBox("IID_IServiceProvider");
return "-1";
}

hr = isp->QueryService(SID_STopLevelBrowser, IID_IServiceProvider, reinterpret_cast<void **>(&isp2));
if (FAILED(hr))
{
AfxMessageBox("SID_STopLevelBrowser");
return "-1";
}

hr = isp2->QueryService(SID_SWebBrowserApp, IID_IWebBrowser2, reinterpret_cast<void **>(&m_spBrowser));
if (FAILED(hr))
{
AfxMessageBox("SID_SWebBrowserApp");
return "-1";
}

hr = m_spBrowser->get_Document((IDispatch**)&m_spDoc);
if(FAILED(hr))
{
AfxMessageBox("get_Document");
return "-1";
}
}
catch(LPCTSTR lpszErr)
{
if(CString(lpszErr)!="")
AfxMessageBox(lpszErr);
return "-1";
}
catch(...)
{
AfxMessageBox("未知错误");
return "-1";
}

isp->Release();
isp2->Release();
}

hr = m_spDoc->get_Script(&pscript);
if(FAILED(hr))
{
AfxMessageBox("get_Script");
return "-1";
}

CComBSTR bstrMember("PageInterface");//这里得到页面的方法
DISPID dispid;
hr = pscript->GetIDsOfNames(IID_NULL, &bstrMember, 1, LOCALE_SYSTEM_DEFAULT, &dispid);
if(FAILED(hr))
{
AfxMessageBox("GetIDsOfNames");
return "-1";
}

DISPPARAMS dispparams;
memset(&dispparams, 0, sizeof dispparams);
dispparams.cArgs = 4;
dispparams.rgvarg = new VARIANT[dispparams.cArgs];

for(int i=0; i<3; i++)
dispparams.rgvarg[i].vt = VT_I4;

dispparams.rgvarg[0].lVal = lParam1;
dispparams.rgvarg[1].lVal = lParam2;
dispparams.rgvarg[2].lVal = lParam3;

dispparams.rgvarg[3].vt = VT_BSTR;
dispparams.rgvarg[i].bstrVal = strParam.AllocSysString();

dispparams.cNamedArgs = 0;
EXCEPINFO excepInfo;
memset(&excepInfo, 0, sizeof excepInfo);

_variant_t Var;
Var.Clear();

CComVariant varesult;
UINT nArgErr = (UINT)-1;
hr = pscript->Invoke(dispid, IID_NULL, 0, DISPATCH_METHOD, &dispparams, &varesult, &excepInfo, &nArgErr);//调用页面方法

delete []dispparams.rgvarg;

if (FAILED(hr))
{
CString strMSG;
strMSG.Format("调用脚本函数出错[%d]!\n\nlParam1 = %d,lParam2 = %d,lParam3 = %d, strParam = %s", GetLastError(), lParam1, lParam2, lParam3, strParam);
AfxMessageBox(strMSG);
return "-1";
}
else
{
CString Result;

if (varesult.vt != VT_EMPTY)
{
Result = varesult.bstrVal;
}
else
{
Result = "1";
}

return Result;
}
}

上面这个页面的方法要在顶层页面定义