Alexander Morozov : shell32: Implement IDispatch methods of IShellDispatch.

[Alexandre Julliard]

Module: wine
Branch: master
Commit: 692437f556ba8744c768a8fc196c039b2b5f0203
URL:    http://source.winehq.org/git/wine.git/?a=commit;h=692437f556ba8744c768a8fc19...

Author: Alexander Morozov 
Date:   Thu Jan 20 15:55:48 2011 +0300

shell32: Implement IDispatch methods of IShellDispatch.

---

dlls/shell32/shelldispatch.c |   58 +++++++++++++++++++++++++++++++++++------
 1 files changed, 49 insertions(+), 9 deletions(-)

diff --git a/dlls/shell32/shelldispatch.c b/dlls/shell32/shelldispatch.c
index 8d71395..9b2422b 100644
--- a/dlls/shell32/shelldispatch.c
+++ b/dlls/shell32/shelldispatch.c
@@ -39,6 +39,7 @@ WINE_DEFAULT_DEBUG_CHANNEL(shell);
 typedef struct {
     IShellDispatch IShellDispatch_iface;
     LONG ref;
+    ITypeInfo *iTypeInfo;
 } ShellDispatch;

static inline ShellDispatch *impl_from_IShellDispatch(IShellDispatch *iface)
@@ -46,6 +47,26 @@ static inline ShellDispatch *impl_from_IShellDispatch(IShellDispatch *iface)
     return CONTAINING_RECORD(iface, ShellDispatch, IShellDispatch_iface);
 }

+static HRESULT load_type_info(REFGUID guid, ITypeInfo **pptinfo)
+{
+    ITypeLib *typelib;
+    HRESULT ret;
+
+    ret = LoadRegTypeLib(&LIBID_Shell32, 1, 0, LOCALE_SYSTEM_DEFAULT, &typelib);
+    if (FAILED(ret))
+    {
+        ERR("LoadRegTypeLib failed: %08x\n", ret);
+        return ret;
+    }
+
+    ret = ITypeLib_GetTypeInfoOfGuid(typelib, guid, pptinfo);
+    ITypeLib_Release(typelib);
+    if (FAILED(ret))
+        ERR("failed to load ITypeInfo\n");
+
+    return ret;
+}
+
 static HRESULT WINAPI ShellDispatch_QueryInterface(IShellDispatch *iface,
         REFIID riid, LPVOID *ppv)
 {
@@ -87,34 +108,43 @@ static ULONG WINAPI ShellDispatch_Release(IShellDispatch *iface)
     TRACE("(%p), new refcount=%i\n", iface, ref);

if (!ref)
+    {
+        ITypeInfo_Release(This->iTypeInfo);
         HeapFree(GetProcessHeap(), 0, This);
+    }
     return ref;
 }

static HRESULT WINAPI ShellDispatch_GetTypeInfoCount(IShellDispatch *iface,
         UINT *pctinfo)
 {
-    FIXME("(%p,%p)\n", iface, pctinfo);
+    TRACE("(%p,%p)\n", iface, pctinfo);

-    return E_NOTIMPL;
+    *pctinfo = 1;
+    return S_OK;
 }

static HRESULT WINAPI ShellDispatch_GetTypeInfo(IShellDispatch *iface,
         UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo)
 {
-    FIXME("(%p,%u,%d,%p)\n", iface, iTInfo, lcid, ppTInfo);
+    ShellDispatch *This = impl_from_IShellDispatch(iface);

-    *ppTInfo = NULL;
-    return E_NOTIMPL;
+    TRACE("(%p,%u,%d,%p)\n", iface, iTInfo, lcid, ppTInfo);
+
+    ITypeInfo_AddRef(This->iTypeInfo);
+    *ppTInfo = This->iTypeInfo;
+    return S_OK;
 }

static HRESULT WINAPI ShellDispatch_GetIDsOfNames(IShellDispatch *iface,
         REFIID riid, LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
 {
-    FIXME("(%p,%p,%p,%u,%d,%p)\n", iface, riid, rgszNames, cNames, lcid,
+    ShellDispatch *This = impl_from_IShellDispatch(iface);
+
+    TRACE("(%p,%p,%p,%u,%d,%p)\n", iface, riid, rgszNames, cNames, lcid,
             rgDispId);

-    return E_NOTIMPL;
+    return ITypeInfo_GetIDsOfNames(This->iTypeInfo, rgszNames, cNames, rgDispId);
 }

static HRESULT WINAPI ShellDispatch_Invoke(IShellDispatch *iface,
@@ -122,10 +152,13 @@ static HRESULT WINAPI ShellDispatch_Invoke(IShellDispatch *iface,
         DISPPARAMS *pDispParams, VARIANT *pVarResult, EXCEPINFO *pExcepInfo,
         UINT *puArgErr)
 {
-    FIXME("(%p,%d,%p,%d,%u,%p,%p,%p,%p)\n", iface, dispIdMember, riid, lcid,
+    ShellDispatch *This = impl_from_IShellDispatch(iface);
+
+    TRACE("(%p,%d,%p,%d,%u,%p,%p,%p,%p)\n", iface, dispIdMember, riid, lcid,
             wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);

-    return E_NOTIMPL;
+    return ITypeInfo_Invoke(This->iTypeInfo, This, dispIdMember, wFlags,
+            pDispParams, pVarResult, pExcepInfo, puArgErr);
 }

static HRESULT WINAPI ShellDispatch_get_Application(IShellDispatch *iface,
@@ -350,6 +383,13 @@ HRESULT WINAPI IShellDispatch_Constructor(IUnknown *pUnkOuter, REFIID riid,
     This->IShellDispatch_iface.lpVtbl = &ShellDispatch_Vtbl;
     This->ref = 1;

+    ret = load_type_info(&IID_IShellDispatch, &This->iTypeInfo);
+    if (FAILED(ret))
+    {
+        HeapFree(GetProcessHeap(), 0, This);
+        return ret;
+    }
+
     ret = ShellDispatch_QueryInterface(&This->IShellDispatch_iface, riid, ppv);
     ShellDispatch_Release(&This->IShellDispatch_iface);
     return ret;