我们知道在C/C++语言中有函数,与函数对应的有函数指针。我们可以把一个函数指针传给一个过程,从而实现回调。
那么在脚本语言(如JavaScript)中,可以用"function"来定义一个函数,但与之相对应的却没有函数指针的概念。那么如何将这个函数传给某个过程,来实现回调的功能呢?事实上,在JavaScript中,常常将函数直接传递给一个组件的方法,实现回调。那么,反过来我们问一下,JavaScript将这个函数传入组件,到底是一个什么样的参数类型呢?
传入的参数类型即可以是IDispatch*,也可以是VARIANT(包装的仍是一个IDispatch*值)。这个函数,本质上是一个实现了IDispatch接口的对象,通过访问IDispatch接口的第一个方法,也就实现了对这个函数的回调调用。
下面的函数CCuteTools::AutoWrap以可变参数的形式,实现了对IDispatch接口中方法和属性的调用。
在写出源代码之前,我们先举一个调用它的例子。
CComPtr<IDispatch> pDispCallback; //需要回调的IDispatch接口
CComVariant vParam1="test"; //准备接收的参数1
CComVariant vParam2=(long)1234; //准备接收的参数2
CCuteTools::AutoWrap(DISPATCH_METHOD,NULL,pDispCallback,NULL,2,vParam2,vParam1);
//
//采用的是可变参数的形式
HRESULT CCuteTools::AutoWrap(int autoType, VARIANT *pvResult, IDispatch *pDisp,
LPOLESTR ptName, int cArgs...)
{
// Begin variable-argument list...
va_list marker;
va_start(marker, cArgs);
HRESULT hr=AutoWrap(autoType,pvResult,pDisp,ptName,cArgs,marker);
// End variable-argument section...
va_end(marker);
return hr;
}
//
HRESULT CCuteTools::AutoWrap(int autoType, VARIANT *pvResult, IDispatch *pDisp,
LPOLESTR ptName, int cArgs,va_list& marker)
{
//
if(!pDisp) {
return E_FAIL;
}
// Variables used...
DISPPARAMS dp = { NULL, NULL, 0, 0 };
DISPID dispidNamed = DISPID_PROPERTYPUT;
DISPID dispID;
HRESULT hr;
if(ptName==NULL)
{
dispID=0;
}
else
{
// Get DISPID for name passed...
hr = pDisp->GetIDsOfNames(IID_NULL, &ptName, 1, LOCALE_USER_DEFAULT,
&dispID);
if(FAILED(hr)) {
return hr;
}
}
// Allocate memory for arguments...
VARIANT *pArgs = new VARIANT[cArgs+1];
// Extract arguments...
for(int i=0; i<cArgs; i++) {
pArgs[i] = va_arg(marker, VARIANT);
}
// Build DISPPARAMS
dp.cArgs = cArgs;
dp.rgvarg = pArgs;
// Handle special-case for property-puts!
if(autoType & DISPATCH_PROPERTYPUT) {
dp.cNamedArgs = 1;
dp.rgdispidNamedArgs = &dispidNamed;
}
// Make the call!
CComVariant vResult;
hr = pDisp->Invoke(dispID, IID_NULL, LOCALE_SYSTEM_DEFAULT, autoType,
&dp, &vResult, NULL, NULL);
if(FAILED(hr)) {
delete [] pArgs;
return hr;
}
if(pvResult!=NULL)
{
vResult.Detach(pvResult);
}
delete [] pArgs;
return hr;
}