Robert Shearman : oleaut32: Implement GetTypeInfoCount and GetTypeInfo for standard pictures.

[Alexandre Julliard]

Module: wine
Branch: refs/heads/master
Commit: d82d37443020fb22e40b54dae75b8f2ba5fc3d41
URL:    http://source.winehq.org/git/?p=wine.git;a=commit;h=d82d37443020fb22e40b54da...

Author: Robert Shearman <rob(a)codeweavers.com>
Date:   Fri Jul 28 01:26:13 2006 +0100

oleaut32: Implement GetTypeInfoCount and GetTypeInfo for standard pictures.

---

 dlls/oleaut32/olepicture.c |   28 ++++++++++++++++++++++++----
 1 files changed, 24 insertions(+), 4 deletions(-)

diff --git a/dlls/oleaut32/olepicture.c b/dlls/oleaut32/olepicture.c
index e1ab8ec..927c85c 100644
--- a/dlls/oleaut32/olepicture.c
+++ b/dlls/oleaut32/olepicture.c
@@ -1992,9 +1992,11 @@ static HRESULT WINAPI OLEPictureImpl_Get
   IDispatch*    iface,
   unsigned int* pctinfo)
 {
-  FIXME("():Stub\n");
+  TRACE("(%p)", pctinfo);
 
-  return E_NOTIMPL;
+  *pctinfo = 1;
+
+  return S_OK;
 }
 
 /************************************************************************
@@ -2008,9 +2010,27 @@ static HRESULT WINAPI OLEPictureImpl_Get
   LCID        lcid,
   ITypeInfo** ppTInfo)
 {
-  FIXME("():Stub\n");
+  static const WCHAR stdole2tlb[] = {'s','t','d','o','l','e','2','.','t','l','b',0};
+  ITypeLib *tl;
+  HRESULT hres;
 
-  return E_NOTIMPL;
+  TRACE("(iTInfo=%d, lcid=%04x, %p)\n", iTInfo, (int)lcid, ppTInfo);
+
+  if (iTInfo != 0)
+    return E_FAIL;
+
+  hres = LoadTypeLib(stdole2tlb, &tl);
+  if (FAILED(hres))
+  {
+    ERR("Could not load stdole2.tlb\n");
+    return hres;
+  }
+
+  hres = ITypeLib_GetTypeInfoOfGuid(tl, &IID_IPictureDisp, ppTInfo);
+  if (FAILED(hres))
+    ERR("Did not get IPictureDisp typeinfo from typelib, hres %lx\n", hres);
+
+  return hres;
 }
 
 /************************************************************************