marko10_000
/
wine-wine
forked from Mirrors/wine-wine
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Convert VT_DISPATCH variants into VT_USERDEFINED/TKIND_DISPATCH and 

TKIND_INTERFACE targets, Query IID_IDispatch if necessary.
oldstable
Marcus Meissner 2003-01-11 20:58:35 +00:00 committed by Alexandre Julliard
parent 27627d977e
commit d5e60ea373
1 changed files with 25 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
dlls/oleaut32/typelib.c
View File

@ -4241,10 +4241,33 @@ _copy_arg( ITypeInfo2 *tinfo, TYPEDESC *tdesc,
return hres;
case TKIND_INTERFACE:
FIXME("TKIND_INTERFACE unhandled.\n");
if (V_VT(arg) == VT_DISPATCH) {
IDispatch *disp;
if (IsEqualIID(&IID_IDispatch,&(tattr->guid))) {
memcpy(argpos, &V_UNION(arg,pdispVal), 4);
return S_OK;
}
hres=IUnknown_QueryInterface(V_UNION(arg,pdispVal),&IID_IDispatch,(LPVOID*)&disp);
if (SUCCEEDED(hres)) {
memcpy(argpos,&disp,4);
IUnknown_Release(V_UNION(arg,pdispVal));
return S_OK;
}
FIXME("Failed to query IDispatch interface from %s while converting to VT_DISPATCH!\n",debugstr_guid(&(tattr->guid)));
return E_FAIL;
}
if (V_VT(arg) == VT_UNKNOWN) {
memcpy(argpos, &V_UNION(arg,punkVal), 4);
return S_OK;
}
FIXME("vt 0x%x -> TKIND_INTERFACE(%s) unhandled\n",V_VT(arg),debugstr_guid(&(tattr->guid)));
break;
case TKIND_DISPATCH:
FIXME("TKIND_DISPATCH unhandled.\n");
if (V_VT(arg) == VT_DISPATCH) {
memcpy(argpos, &V_UNION(arg,pdispVal), 4);
return S_OK;
}
FIXME("TKIND_DISPATCH unhandled for target vt 0x%x.\n",V_VT(arg));
break;
case TKIND_RECORD:
FIXME("TKIND_RECORD unhandled.\n");