ChangeLog:
- Implement OLE32 BindMoniker function
Index: wine/dlls/ole32/bindctx.c
===================================================================
RCS file: /home/wine/wine/dlls/ole32/bindctx.c,v
retrieving revision 1.15
diff -u -r1.15 bindctx.c
--- wine/dlls/ole32/bindctx.c 5 Dec 2002 20:33:08 -0000 1.15
+++ wine/dlls/ole32/bindctx.c 11 Dec 2002 20:28:15 -0000
@@ -556,3 +556,16 @@
return hr;
}
+
+HRESULT WINAPI BindMoniker(LPMONIKER pmk, DWORD grfOpt, REFIID riid, LPVOID * ppvResult)
+{
+ HRESULT res;
+ IBindCtx * pbc;
+
+ TRACE("(%p, %lx, %s, %p)\n", pmk, grfOpt, debugstr_guid(riid), ppvResult);
+
+ res = CreateBindCtx(grfOpt, &pbc);
+ if (SUCCEEDED(res))
+ res = IMoniker_BindToObject(pmk, pbc, NULL, riid, ppvResult);
+ return res;
+}
Index: wine/dlls/ole32/ole32.spec
===================================================================
RCS file: /home/wine/wine/dlls/ole32/ole32.spec,v
retrieving revision 1.41
diff -u -r1.41 ole32.spec
--- wine/dlls/ole32/ole32.spec 4 Nov 2002 23:53:44 -0000 1.41
+++ wine/dlls/ole32/ole32.spec 11 Dec 2002 20:28:16 -0000
@@ -1,4 +1,4 @@
- 1 stub BindMoniker # stdcall (ptr long ptr ptr) return 0,ERR_NOTIMPLEMENTED
+ 1 stdcall BindMoniker(ptr long ptr ptr) BindMoniker
2 stdcall CLSIDFromProgID(wstr ptr) CLSIDFromProgID
3 stdcall CLSIDFromString(wstr ptr) CLSIDFromString
4 stdcall CoBuildVersion() CoBuildVersion
