[PATCH 08/12] vbscript: Implement ScriptTypeLibComp_BindType.
Gabriel Ivăncescu
gabrielopcode at gmail.com
Mon Jan 27 09:33:03 CST 2020
Signed-off-by: Gabriel Ivăncescu <gabrielopcode at gmail.com>
---
dlls/vbscript/vbdisp.c | 16 ++++++++++++++--
1 file changed, 14 insertions(+), 2 deletions(-)
diff --git a/dlls/vbscript/vbdisp.c b/dlls/vbscript/vbdisp.c
index be11277..56a8fe8 100644
--- a/dlls/vbscript/vbdisp.c
+++ b/dlls/vbscript/vbdisp.c
@@ -1435,9 +1435,21 @@ static HRESULT WINAPI ScriptTypeLibComp_BindType(ITypeComp *iface, LPOLESTR szNa
{
ScriptTypeInfo *This = ScriptTypeInfo_from_typelib_ITypeComp(iface);
- FIXME("(%p)->(%s %08x %p %p)\n", This, debugstr_w(szName), lHashVal, ppTInfo, ppTComp);
+ TRACE("(%p)->(%s %08x %p %p)\n", This, debugstr_w(szName), lHashVal, ppTInfo, ppTComp);
- return E_NOTIMPL;
+ if (!szName || !ppTInfo || !ppTComp)
+ return E_INVALIDARG;
+
+ *ppTInfo = NULL;
+ *ppTComp = NULL;
+
+ if (!wcsicmp(szName, L"VBScriptTypeInfo"))
+ {
+ /* For some reason, Windows does not return the TypeComp here */
+ *ppTInfo = &This->ITypeInfo_iface;
+ ITypeInfo_AddRef(*ppTInfo);
+ }
+ return S_OK;
}
static const ITypeCompVtbl ScriptTypeLibCompVtbl = {
--
2.21.0
More information about the wine-devel
mailing list