olefont: GetIDsOfNames

[Walt Ogburn]

Changelog:
	Implement IFontDIsp::GetIDsOfNames

Notes:
* Properly handles errors now
* Test in patch after next
-------------- next part --------------
Index: dlls/oleaut32/olefont.c
===================================================================
RCS file: /home/wine/wine/dlls/oleaut32/olefont.c,v
retrieving revision 1.47
diff -u -p -r1.47 olefont.c
--- dlls/oleaut32/olefont.c	13 Sep 2005 10:36:54 -0000	1.47
+++ dlls/oleaut32/olefont.c	8 Oct 2005 17:39:20 -0000
@@ -1268,11 +1268,21 @@ static HRESULT WINAPI OLEFontImpl_GetIDs
   LCID        lcid,
   DISPID*     rgDispId)
 {
+  ITypeInfo * pTInfo;
+  HRESULT hres;
+
   OLEFontImpl *this = impl_from_IDispatch(iface);
-  FIXME("(%p,%s,%p,%d,%04x,%p), stub!\n", this, debugstr_guid(riid), rgszNames,
-	cNames, (int)lcid, rgDispId
-  );
-  return E_NOTIMPL;
+  TRACE("(%p,%s,%p,%d,%04x,%p)\n", this, debugstr_guid(riid), rgszNames,
+       cNames, (int)lcid, rgDispId);
+  hres = OLEFontImpl_GetTypeInfo (iface, 0, lcid, &pTInfo);
+  if (FAILED(hres)) {
+    ERR("GetTypeInfo failed.\n");
+    return hres;
+  }
+  hres = DispGetIDsOfNames (pTInfo, rgszNames, cNames, rgDispId);
+
+  ITypeInfo_Release(pTInfo);
+  return hres;
 }
 
 /************************************************************************