4 * Copyright (c) 2000 Patrik Stridvall
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
29 #define NO_SHLWAPI_REG
32 #include "wine/debug.h"
36 #include "urlmon_main.h"
38 WINE_DEFAULT_DEBUG_CHANNEL(urlmon
);
40 LONG URLMON_refCount
= 0;
42 HINSTANCE URLMON_hInstance
= 0;
44 /***********************************************************************
45 * DllMain (URLMON.init)
47 BOOL WINAPI
DllMain(HINSTANCE hinstDLL
, DWORD fdwReason
, LPVOID fImpLoad
)
49 TRACE("%p 0x%lx %p\n", hinstDLL
, fdwReason
, fImpLoad
);
52 case DLL_PROCESS_ATTACH
:
53 DisableThreadLibraryCalls(hinstDLL
);
54 URLMON_hInstance
= hinstDLL
;
57 case DLL_PROCESS_DETACH
:
65 /***********************************************************************
66 * DllInstall (URLMON.@)
68 HRESULT WINAPI
URLMON_DllInstall(BOOL bInstall
, LPCWSTR cmdline
)
70 FIXME("(%s, %s): stub\n", bInstall
?"TRUE":"FALSE",
76 /***********************************************************************
77 * DllCanUnloadNow (URLMON.@)
79 HRESULT WINAPI
URLMON_DllCanUnloadNow(void)
81 return URLMON_refCount
!= 0 ? S_FALSE
: S_OK
;
86 /******************************************************************************
90 IClassFactory ITF_IClassFactory
;
93 HRESULT (*pfnCreateInstance
)(IUnknown
*pUnkOuter
, LPVOID
*ppObj
);
96 struct object_creation_info
99 HRESULT (*pfnCreateInstance
)(IUnknown
*pUnkOuter
, LPVOID
*ppObj
);
102 static const struct object_creation_info object_creation
[] =
104 { &CLSID_InternetSecurityManager
, &SecManagerImpl_Construct
},
105 { &CLSID_InternetZoneManager
, ZoneMgrImpl_Construct
}
108 static HRESULT WINAPI
109 CF_QueryInterface(LPCLASSFACTORY iface
,REFIID riid
,LPVOID
*ppobj
)
111 IClassFactoryImpl
*This
= (IClassFactoryImpl
*)iface
;
113 if (IsEqualGUID(riid
, &IID_IUnknown
)
114 || IsEqualGUID(riid
, &IID_IClassFactory
))
116 IClassFactory_AddRef(iface
);
121 WARN("(%p)->(%s,%p),not found\n",This
,debugstr_guid(riid
),ppobj
);
122 return E_NOINTERFACE
;
125 static ULONG WINAPI
CF_AddRef(LPCLASSFACTORY iface
)
127 IClassFactoryImpl
*This
= (IClassFactoryImpl
*)iface
;
128 return InterlockedIncrement(&This
->ref
);
131 static ULONG WINAPI
CF_Release(LPCLASSFACTORY iface
)
133 IClassFactoryImpl
*This
= (IClassFactoryImpl
*)iface
;
135 ULONG ref
= InterlockedDecrement(&This
->ref
);
138 HeapFree(GetProcessHeap(), 0, This
);
139 URLMON_UnlockModule();
146 static HRESULT WINAPI
CF_CreateInstance(LPCLASSFACTORY iface
, LPUNKNOWN pOuter
,
147 REFIID riid
, LPVOID
*ppobj
)
149 IClassFactoryImpl
*This
= (IClassFactoryImpl
*)iface
;
153 TRACE("(%p)->(%p,%s,%p)\n",This
,pOuter
,debugstr_guid(riid
),ppobj
);
156 if(SUCCEEDED(hres
= This
->pfnCreateInstance(pOuter
, (LPVOID
*) &punk
))) {
157 hres
= IUnknown_QueryInterface(punk
, riid
, ppobj
);
158 IUnknown_Release(punk
);
163 static HRESULT WINAPI
CF_LockServer(LPCLASSFACTORY iface
,BOOL dolock
)
165 TRACE("(%d)\n", dolock
);
170 URLMON_UnlockModule();
175 static const IClassFactoryVtbl CF_Vtbl
=
184 /*******************************************************************************
185 * DllGetClassObject [URLMON.@]
186 * Retrieves class object from a DLL object
189 * Docs say returns STDAPI
192 * rclsid [I] CLSID for the class object
193 * riid [I] Reference to identifier of interface for class object
194 * ppv [O] Address of variable to receive interface pointer for riid
198 * Failure: CLASS_E_CLASSNOTAVAILABLE, E_OUTOFMEMORY, E_INVALIDARG,
202 DWORD WINAPI
URLMON_DllGetClassObject(REFCLSID rclsid
, REFIID riid
, LPVOID
*ppv
)
205 IClassFactoryImpl
*factory
;
207 TRACE("(%s,%s,%p)\n", debugstr_guid(rclsid
), debugstr_guid(riid
), ppv
);
209 if ( !IsEqualGUID( &IID_IClassFactory
, riid
)
210 && ! IsEqualGUID( &IID_IUnknown
, riid
) )
211 return E_NOINTERFACE
;
213 for (i
=0; i
< sizeof(object_creation
)/sizeof(object_creation
[0]); i
++)
215 if (IsEqualGUID(object_creation
[i
].clsid
, rclsid
))
219 if (i
== sizeof(object_creation
)/sizeof(object_creation
[0]))
221 FIXME("%s: no class found.\n", debugstr_guid(rclsid
));
222 return CLASS_E_CLASSNOTAVAILABLE
;
225 factory
= HeapAlloc(GetProcessHeap(), 0, sizeof(*factory
));
226 if (factory
== NULL
) return E_OUTOFMEMORY
;
228 factory
->ITF_IClassFactory
.lpVtbl
= &CF_Vtbl
;
230 factory
->pfnCreateInstance
= object_creation
[i
].pfnCreateInstance
;
232 *ppv
= &(factory
->ITF_IClassFactory
);
240 /***********************************************************************
241 * DllRegisterServerEx (URLMON.@)
243 HRESULT WINAPI
URLMON_DllRegisterServerEx(void)
245 FIXME("(void): stub\n");
250 /**************************************************************************
251 * UrlMkSetSessionOption (URLMON.@)
253 HRESULT WINAPI
UrlMkSetSessionOption(DWORD dwOption
, LPVOID pBuffer
, DWORD dwBufferLength
,
256 FIXME("(%#lx, %p, %#lx): stub\n", dwOption
, pBuffer
, dwBufferLength
);
261 /**************************************************************************
262 * UrlMkGetSessionOption (URLMON.@)
264 HRESULT WINAPI
UrlMkGetSessionOption(DWORD dwOption
, LPVOID pBuffer
, DWORD dwBufferLength
,
265 DWORD
* pdwBufferLength
, DWORD dwReserved
)
267 FIXME("(%#lx, %p, %#lx, %p): stub\n", dwOption
, pBuffer
, dwBufferLength
, pdwBufferLength
);
272 static const CHAR Agent
[] = "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)";
274 /**************************************************************************
275 * ObtainUserAgentString (URLMON.@)
277 HRESULT WINAPI
ObtainUserAgentString(DWORD dwOption
, LPSTR pcszUAOut
, DWORD
*cbSize
)
279 FIXME("(%ld, %p, %p): stub\n", dwOption
, pcszUAOut
, cbSize
);
282 ERR("dwOption: %ld, must be zero\n", dwOption
);
285 if (sizeof(Agent
) < *cbSize
)
286 *cbSize
= sizeof(Agent
);
287 lstrcpynA(pcszUAOut
, Agent
, *cbSize
);
292 HRESULT WINAPI
CoInternetCombineUrl(LPCWSTR pwzBaseUrl
, LPCWSTR pwzRelativeUrl
, DWORD dwCombineFlags
,
293 LPWSTR pwzResult
, DWORD cchResult
, DWORD
*pcchResult
, DWORD dwReserved
)
296 DWORD size
= cchResult
;
298 TRACE("(%s,%s,0x%08lx,%p,%ld,%p,%ld)\n", debugstr_w(pwzBaseUrl
), debugstr_w(pwzRelativeUrl
), dwCombineFlags
,
299 pwzResult
, cchResult
, pcchResult
, dwReserved
);
300 hres
= UrlCombineW(pwzBaseUrl
, pwzRelativeUrl
, pwzResult
, &size
, dwCombineFlags
);
301 if(pcchResult
) *pcchResult
= size
;
305 HRESULT WINAPI
CoInternetCompareUrl(LPCWSTR pwzUrl1
, LPCWSTR pwzUrl2
, DWORD dwCompareFlags
)
307 TRACE("(%s,%s,%08lx)\n", debugstr_w(pwzUrl1
), debugstr_w(pwzUrl2
), dwCompareFlags
);
308 return UrlCompareW(pwzUrl1
, pwzUrl2
, dwCompareFlags
)==0?S_OK
:S_FALSE
;
311 /**************************************************************************
312 * IsValidURL (URLMON.@)
314 * Determines if a specified string is a valid URL.
317 * pBC [I] ignored, must be NULL.
318 * szURL [I] string that represents the URL in question.
319 * dwReserved [I] reserved and must be zero.
324 * returns E_INVALIDARG if one or more of the args is invalid.
327 * test functionality against windows to see what a valid URL is.
329 HRESULT WINAPI
IsValidURL(LPBC pBC
, LPCWSTR szURL
, DWORD dwReserved
)
331 FIXME("(%p, %s, %ld): stub\n", pBC
, debugstr_w(szURL
), dwReserved
);
333 if (pBC
!= NULL
|| dwReserved
!= 0)
339 /**************************************************************************
340 * FaultInIEFeature (URLMON.@)
342 * Undocumented. Appears to be used by native shdocvw.dll.
344 HRESULT WINAPI
FaultInIEFeature( HWND hwnd
, uCLSSPEC
* pClassSpec
,
345 QUERYCONTEXT
*pQuery
, DWORD flags
)
347 FIXME("%p %p %p %08lx\n", hwnd
, pClassSpec
, pQuery
, flags
);
351 /**************************************************************************
352 * CoGetClassObjectFromURL (URLMON.@)
354 HRESULT WINAPI
CoGetClassObjectFromURL( REFCLSID rclsid
, LPCWSTR szCodeURL
, DWORD dwFileVersionMS
,
355 DWORD dwFileVersionLS
, LPCWSTR szContentType
,
356 LPBINDCTX pBindCtx
, DWORD dwClsContext
, LPVOID pvReserved
,
357 REFIID riid
, LPVOID
*ppv
)
359 FIXME("(%s %s %ld %ld %s %p %ld %p %s %p) Stub!\n", debugstr_guid(rclsid
), debugstr_w(szCodeURL
),
360 dwFileVersionMS
, dwFileVersionLS
, debugstr_w(szContentType
), pBindCtx
, dwClsContext
, pvReserved
,
361 debugstr_guid(riid
), ppv
);
362 return E_NOINTERFACE
;