system/wine
system/wine
1
0
Fork 0
mirror of git://source.winehq.org/git/wine.git synced 2024-10-14 10:42:42 +00:00
Code Issues Packages Projects Releases Wiki Activity

OLE: Implement ITypeInfo_AddressOfMember.

Browse source
This commit is contained in:
Robert Shearman 2005-12-06 21:24:45 +01:00 committed by Alexandre Julliard
parent b0d8e06caf
commit 1f68feeef1
1 changed files with 47 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

48
dlls/oleaut32/typelib.c
View file

@ -5671,7 +5671,53 @@ static HRESULT WINAPI ITypeInfo_fnAddressOfMember( ITypeInfo2 *iface,
MEMBERID memid, INVOKEKIND invKind, PVOID *ppv)
{
ITypeInfoImpl *This = (ITypeInfoImpl *)iface;
FIXME("(%p) stub!\n", This);
HRESULT hr;
BSTR dll, entry;
WORD ordinal;
HMODULE module;
TRACE("(%p)->(0x%lx, 0x%x, %p)\n", This, memid, invKind, ppv);
hr = ITypeInfo_GetDllEntry(iface, memid, invKind, &dll, &entry, &ordinal);
if (FAILED(hr))
return hr;
module = LoadLibraryW(dll);
if (!module)
{
ERR("couldn't load %s\n", debugstr_w(dll));
SysFreeString(dll);
if (entry) SysFreeString(entry);
return STG_E_FILENOTFOUND;
}
/* FIXME: store library somewhere where we can free it */
if (entry)
{
LPSTR entryA;
INT len = WideCharToMultiByte(CP_ACP, 0, entry, -1, NULL, 0, NULL, NULL);
entryA = HeapAlloc(GetProcessHeap(), 0, len);
WideCharToMultiByte(CP_ACP, 0, entry, -1, entryA, len, NULL, NULL);
*ppv = GetProcAddress(module, entryA);
if (!*ppv)
ERR("function not found %s\n", debugstr_a(entryA));
HeapFree(GetProcessHeap(), 0, entryA);
}
else
{
*ppv = GetProcAddress(module, MAKEINTRESOURCEA(ordinal));
if (!*ppv)
ERR("function not found %d\n", ordinal);
}
SysFreeString(dll);
if (entry) SysFreeString(entry);
if (!*ppv)
return TYPE_E_DLLFUNCTIONNOTFOUND;
return S_OK;
}