From 4598cde6f5c6b7e3cadf6d3208363324a8cc9ea3 Mon Sep 17 00:00:00 2001
From: Christian Costa <titan.costa@wanadoo.fr>
Date: Thu, 5 May 2005 09:50:57 +0000
Subject: [PATCH] Added stub implementation for CoGetClassObjectFromURL.

---
 dlls/urlmon/urlmon.spec   |  2 +-
 dlls/urlmon/urlmon_main.c | 14 ++++++++++++++
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/dlls/urlmon/urlmon.spec b/dlls/urlmon/urlmon.spec
index 23c57d3c230..c7cfb9d43a1 100644
--- a/dlls/urlmon/urlmon.spec
+++ b/dlls/urlmon/urlmon.spec
@@ -8,7 +8,7 @@
 @ stub AsyncGetClassBits
 @ stub AsyncInstallDistributionUnit
 @ stub BindAsyncMoniker
-@ stub CoGetClassObjectFromURL
+@ stdcall CoGetClassObjectFromURL(ptr wstr long long wstr ptr long ptr ptr ptr)
 @ stub CoInstall
 @ stdcall CoInternetCombineUrl(wstr wstr long wstr long ptr long)
 @ stdcall CoInternetCompareUrl(wstr wstr long)
diff --git a/dlls/urlmon/urlmon_main.c b/dlls/urlmon/urlmon_main.c
index 911ebd60ee4..10055630243 100644
--- a/dlls/urlmon/urlmon_main.c
+++ b/dlls/urlmon/urlmon_main.c
@@ -341,3 +341,17 @@ HRESULT WINAPI FaultInIEFeature( HWND hwnd, uCLSSPEC * pClassSpec,
     FIXME("%p %p %p %08lx\n", hwnd, pClassSpec, pQuery, flags);
     return E_NOTIMPL;
 }
+
+/**************************************************************************
+ *                 CoGetClassObjectFromURL (URLMON.@)
+ */
+HRESULT WINAPI CoGetClassObjectFromURL( REFCLSID rclsid, LPCWSTR szCodeURL, DWORD dwFileVersionMS,
+                                        DWORD dwFileVersionLS, LPCWSTR szContentType,
+                                        LPBINDCTX pBindCtx, DWORD dwClsContext, LPVOID pvReserved,
+                                        REFIID riid, VOID **ppv )
+{
+    FIXME("(%s %s %ld %ld %s %p %ld %p %s %p) Stub!\n", debugstr_guid(rclsid), debugstr_w(szCodeURL),
+	dwFileVersionMS, dwFileVersionLS, debugstr_w(szContentType), pBindCtx, dwClsContext, pvReserved,
+	debugstr_guid(riid), ppv);
+    return E_NOINTERFACE;
+}