ReceiveTempSMS
/
Sweden-Number
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

First implementation of LoadTypeLibEx().

This commit is contained in:
Rein Klazes 1999-09-29 12:15:05 +00:00 committed by Alexandre Julliard
parent 97a99e51ea
commit 260cd4ec94
3 changed files with 34 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dlls/oleaut32/oleaut32.spec
View File

@ -140,7 +140,7 @@ type win32
170 stdcall OaBuildVersion() OaBuildVersion 170 stdcall OaBuildVersion() OaBuildVersion
171 stub ClearCustData 171 stub ClearCustData
180 stub CreateTypeLib2 180 stub CreateTypeLib2
183 stub LoadTypeLibEx 183 stdcall LoadTypeLibEx (ptr long ptr) LoadTypeLibEx
184 stub SystemTimeToVariantTime 184 stub SystemTimeToVariantTime
185 stub VariantTimeToSystemTime 185 stub VariantTimeToSystemTime
186 stdcall UnRegisterTypeLib (ptr long long long long) UnRegisterTypeLib 186 stdcall UnRegisterTypeLib (ptr long long long long) UnRegisterTypeLib

22
dlls/oleaut32/typelib.c
View File

@ -161,12 +161,32 @@ int TLB_ReadTypeLib(PCHAR file, ITypeLib **ppTypelib);
HRESULT WINAPI LoadTypeLib( HRESULT WINAPI LoadTypeLib(
OLECHAR *szFile, /* [in] Name of file to load from */ OLECHAR *szFile, /* [in] Name of file to load from */
ITypeLib * *pptLib) /* [out] Pointer to pointer to loaded type library */ ITypeLib * *pptLib) /* [out] Pointer to pointer to loaded type library */
{
return LoadTypeLibEx(szFile, REGKIND_DEFAULT, pptLib);
}
/******************************************************************************
* LoadTypeLibEx [OLEAUT32.183]
* Loads and optionally registers a type library
*
* RETURNS
* Success: S_OK
* Failure: Status
*/
HRESULT WINAPI LoadTypeLibEx(
LPOLESTR szFile, /* [in] Name of file to load from */
REGKIND regkind, /* specify kind of registration */
ITypeLib **pptLib) /* [out] Pointer to pointer to loaded type library */
{ {
LPSTR p; LPSTR p;
HRESULT res; HRESULT res;
TRACE_(typelib)("('%s',%p)\n",debugstr_w(szFile),pptLib); TRACE_(typelib)("('%s',%d,%p)\n",debugstr_w(szFile), regkind, pptLib);
p=HEAP_strdupWtoA(GetProcessHeap(),0,szFile); p=HEAP_strdupWtoA(GetProcessHeap(),0,szFile);
if(regkind != REGKIND_NONE)
FIXME_(typelib) ("registration of typelibs not supported yet!\n");
res= TLB_ReadTypeLib(p, pptLib); res= TLB_ReadTypeLib(p, pptLib);
/* XXX need to free p ?? */ /* XXX need to free p ?? */

12
include/oleauto.h
View File

@ -495,4 +495,16 @@ typedef struct tagINTERFACEDATA {
UINT16 cMembers; /* count of members */ UINT16 cMembers; /* count of members */
} INTERFACEDATA, * LPINTERFACEDATA; } INTERFACEDATA, * LPINTERFACEDATA;
typedef enum tagREGKIND
{
REGKIND_DEFAULT,
REGKIND_REGISTER,
REGKIND_NONE
} REGKIND;
HRESULT WINAPI LoadTypeLib(OLECHAR *szFile, ITypeLib **pptLib);
HRESULT WINAPI LoadTypeLibEx(LPOLESTR szFile, REGKIND regKind, ITypeLib **pptLib);
#endif /*__WINE_OLEAUTO_H*/ #endif /*__WINE_OLEAUTO_H*/