HRESULT ResolveVariant(VARIANT* pVarIn, VARIANT* pVarOut)
{
VARIANT* tmpVarIn = pVarIn;
ULONG ByRef = 0;
while(tmpVarIn->vt == (VT_BYREF | VT_VARIANT) )
tmpVarIn = tmpVarIn->pvarVal;
if(tmpVarIn->vt & VT_BYREF)
ByRef = VT_BYREF;
switch(tmpVarIn->vt)
{
case (VT_I2): case (VT_BYREF|VT_I2):
if(ByRef)
{
if(!tmpVarIn->piVal) return E_POINTER;
pVarOut->iVal = *(tmpVarIn->piVal);
}
break;
case (VT_I4): case (VT_BYREF|VT_I4):
if(ByRef)
{
if(!tmpVarIn->plVal) return E_POINTER;
pVarOut->lVal = (tmpVarIn->plVal);
}
break;
case (VT_BSTR): case (VT_BYREF|VT_BSTR):
if(ByRef)
{
if(!tmpVarIn->pbstrVal) return E_POINTER;
if(!(tmpVarIn->pbstrVal) ) return E_POINTER;
pVarOut->bstrVal = (tmpVarIn->pbstrVal);
}
break;
case (VT_DISPATCH): case (VT_BYREF|VT_DISPATCH):
if(ByRef)
{
if(!tmpVarIn->ppdispVal) return E_POINTER;
if(!(tmpVarIn->ppdispVal) ) return E_POINTER;
pVarOut->pdispVal = *(tmpVarIn->ppdispVal);
}
break;
default:
return DISP_E_TYPEMISMATCH;
}
if(ByRef)
pVarOut->vt = (tmpVarIn->vt - ByRef);
else
*pVarOut = *tmpVarIn;
if (pVarOut->vt == VT_DISPATCH)
{
VARIANT varResolved;
DISPPARAMS dispParamsNoArgs = {NULL, NULL, 0, 0};
VariantInit(&varResolved);
if (SUCCEEDED (
pVarOut->pdispVal->Invoke(DISPID_VALUE, IID_NULL, LOCALE_SYSTEM_DEFAULT,
DISPATCH_PROPERTYGET | DISPATCH_METHOD,
&dispParamsNoArgs, &varResolved, NULL, NULL) ) )
{
ResolveVariant(&varResolved, pVarOut);
}
else
return E_FAIL;
VariantClear(&varResolved);
return S_OK;
}
else
{
HRESULT hr;
VARIANT retVar;
VariantInit(&retVar);
hr = VariantCopy(&retVar, pVarOut);
*pVarOut = retVar;
return hr;
}
}