From 26781acb87b76341e3eda0b182a00a289f07901a Mon Sep 17 00:00:00 2001
From: Robert Shearman <R.J.Shearman@warwick.ac.uk>
Date: Thu, 12 Dec 2002 02:17:39 +0000
Subject: [PATCH] Implemented BindMoniker function.

---
 dlls/ole32/bindctx.c  | 13 +++++++++++++
 dlls/ole32/ole32.spec |  2 +-
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/dlls/ole32/bindctx.c b/dlls/ole32/bindctx.c
index 6eeee55db3b..ad445ffeb53 100644
--- a/dlls/ole32/bindctx.c
+++ b/dlls/ole32/bindctx.c
@@ -556,3 +556,16 @@ HRESULT WINAPI CreateBindCtx(DWORD reserved, LPBC * ppbc)
 
     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;
+}
diff --git a/dlls/ole32/ole32.spec b/dlls/ole32/ole32.spec
index fcb77145138..137803f6b72 100644
--- a/dlls/ole32/ole32.spec
+++ b/dlls/ole32/ole32.spec
@@ -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