2 * Copyright 2005-2006 Jacek Caban for CodeWeavers
4 * This library is free software; you can redistribute it and/or
5 * modify it under the terms of the GNU Lesser General Public
6 * License as published by the Free Software Foundation; either
7 * version 2.1 of the License, or (at your option) any later version.
9 * This library is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
12 * Lesser General Public License for more details.
14 * You should have received a copy of the GNU Lesser General Public
15 * License along with this library; if not, write to the Free Software
16 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19 #include "urlmon_main.h"
22 #include "wine/debug.h"
24 WINE_DEFAULT_DEBUG_CHANNEL(urlmon
);
26 typedef struct name_space
{
31 struct name_space
*next
;
34 typedef struct mime_filter
{
39 struct mime_filter
*next
;
42 static name_space
*name_space_list
= NULL
;
43 static mime_filter
*mime_filter_list
= NULL
;
45 static name_space
*find_name_space(LPCWSTR protocol
)
49 for(iter
= name_space_list
; iter
; iter
= iter
->next
) {
50 if(!strcmpW(iter
->protocol
, protocol
))
57 static HRESULT
get_protocol_cf(LPCWSTR schema
, DWORD schema_len
, CLSID
*pclsid
, IClassFactory
**ret
)
61 DWORD res
, type
, size
;
66 static const WCHAR wszProtocolsKey
[] =
67 {'P','R','O','T','O','C','O','L','S','\\','H','a','n','d','l','e','r','\\'};
68 static const WCHAR wszCLSID
[] = {'C','L','S','I','D',0};
70 wszKey
= heap_alloc(sizeof(wszProtocolsKey
)+(schema_len
+1)*sizeof(WCHAR
));
71 memcpy(wszKey
, wszProtocolsKey
, sizeof(wszProtocolsKey
));
72 memcpy(wszKey
+ sizeof(wszProtocolsKey
)/sizeof(WCHAR
), schema
, (schema_len
+1)*sizeof(WCHAR
));
74 res
= RegOpenKeyW(HKEY_CLASSES_ROOT
, wszKey
, &hkey
);
76 if(res
!= ERROR_SUCCESS
) {
77 TRACE("Could not open protocol handler key\n");
81 size
= sizeof(str_clsid
);
82 res
= RegQueryValueExW(hkey
, wszCLSID
, NULL
, &type
, (LPBYTE
)str_clsid
, &size
);
84 if(res
!= ERROR_SUCCESS
|| type
!= REG_SZ
) {
85 WARN("Could not get protocol CLSID res=%d\n", res
);
89 hres
= CLSIDFromString(str_clsid
, &clsid
);
91 WARN("CLSIDFromString failed: %08x\n", hres
);
101 return CoGetClassObject(&clsid
, CLSCTX_INPROC_SERVER
, NULL
, &IID_IClassFactory
, (void**)ret
);
104 BOOL
is_registered_protocol(LPCWSTR url
)
110 hres
= CoInternetParseUrl(url
, PARSE_SCHEMA
, 0, schema
, sizeof(schema
)/sizeof(schema
[0]),
115 return get_protocol_cf(schema
, schema_len
, NULL
, NULL
) == S_OK
;
118 IInternetProtocolInfo
*get_protocol_info(LPCWSTR url
)
120 IInternetProtocolInfo
*ret
= NULL
;
127 hres
= CoInternetParseUrl(url
, PARSE_SCHEMA
, 0, schema
, sizeof(schema
)/sizeof(schema
[0]),
129 if(FAILED(hres
) || !schema_len
)
132 ns
= find_name_space(schema
);
134 hres
= IClassFactory_QueryInterface(ns
->cf
, &IID_IInternetProtocolInfo
, (void**)&ret
);
138 hres
= IClassFactory_CreateInstance(ns
->cf
, NULL
, &IID_IInternetProtocolInfo
, (void**)&ret
);
143 hres
= get_protocol_cf(schema
, schema_len
, NULL
, &cf
);
147 hres
= IClassFactory_QueryInterface(cf
, &IID_IInternetProtocolInfo
, (void**)&ret
);
149 IClassFactory_CreateInstance(cf
, NULL
, &IID_IInternetProtocolInfo
, (void**)&ret
);
150 IClassFactory_Release(cf
);
155 HRESULT
get_protocol_handler(LPCWSTR url
, CLSID
*clsid
, IClassFactory
**ret
)
162 hres
= CoInternetParseUrl(url
, PARSE_SCHEMA
, 0, schema
, sizeof(schema
)/sizeof(schema
[0]),
164 if(FAILED(hres
) || !schema_len
)
165 return schema_len
? hres
: E_FAIL
;
167 ns
= find_name_space(schema
);
170 IClassFactory_AddRef(*ret
);
176 return get_protocol_cf(schema
, schema_len
, clsid
, ret
);
179 static HRESULT WINAPI
InternetSession_QueryInterface(IInternetSession
*iface
,
180 REFIID riid
, void **ppv
)
182 TRACE("(%s %p)\n", debugstr_guid(riid
), ppv
);
184 if(IsEqualGUID(&IID_IUnknown
, riid
) || IsEqualGUID(&IID_IInternetSession
, riid
)) {
186 IInternetSession_AddRef(iface
);
191 return E_NOINTERFACE
;
194 static ULONG WINAPI
InternetSession_AddRef(IInternetSession
*iface
)
201 static ULONG WINAPI
InternetSession_Release(IInternetSession
*iface
)
204 URLMON_UnlockModule();
208 static HRESULT WINAPI
InternetSession_RegisterNameSpace(IInternetSession
*iface
,
209 IClassFactory
*pCF
, REFCLSID rclsid
, LPCWSTR pwzProtocol
, ULONG cPatterns
,
210 const LPCWSTR
*ppwzPatterns
, DWORD dwReserved
)
212 name_space
*new_name_space
;
214 TRACE("(%p %s %s %d %p %d)\n", pCF
, debugstr_guid(rclsid
), debugstr_w(pwzProtocol
),
215 cPatterns
, ppwzPatterns
, dwReserved
);
217 if(cPatterns
|| ppwzPatterns
)
218 FIXME("patterns not supported\n");
220 WARN("dwReserved = %d\n", dwReserved
);
222 if(!pCF
|| !pwzProtocol
)
225 new_name_space
= heap_alloc(sizeof(name_space
));
227 IClassFactory_AddRef(pCF
);
228 new_name_space
->cf
= pCF
;
229 new_name_space
->clsid
= *rclsid
;
230 new_name_space
->protocol
= heap_strdupW(pwzProtocol
);
232 new_name_space
->next
= name_space_list
;
233 name_space_list
= new_name_space
;
237 static HRESULT WINAPI
InternetSession_UnregisterNameSpace(IInternetSession
*iface
,
238 IClassFactory
*pCF
, LPCWSTR pszProtocol
)
240 name_space
*iter
, *last
= NULL
;
242 TRACE("(%p %s)\n", pCF
, debugstr_w(pszProtocol
));
244 if(!pCF
|| !pszProtocol
)
247 for(iter
= name_space_list
; iter
; iter
= iter
->next
) {
248 if(iter
->cf
== pCF
&& !strcmpW(iter
->protocol
, pszProtocol
))
257 last
->next
= iter
->next
;
259 name_space_list
= iter
->next
;
261 IClassFactory_Release(iter
->cf
);
262 heap_free(iter
->protocol
);
268 static HRESULT WINAPI
InternetSession_RegisterMimeFilter(IInternetSession
*iface
,
269 IClassFactory
*pCF
, REFCLSID rclsid
, LPCWSTR pwzType
)
273 TRACE("(%p %s %s)\n", pCF
, debugstr_guid(rclsid
), debugstr_w(pwzType
));
275 filter
= heap_alloc(sizeof(mime_filter
));
277 IClassFactory_AddRef(pCF
);
279 filter
->clsid
= *rclsid
;
280 filter
->mime
= heap_strdupW(pwzType
);
282 filter
->next
= mime_filter_list
;
283 mime_filter_list
= filter
;
288 static HRESULT WINAPI
InternetSession_UnregisterMimeFilter(IInternetSession
*iface
,
289 IClassFactory
*pCF
, LPCWSTR pwzType
)
291 mime_filter
*iter
, *prev
= NULL
;
293 TRACE("(%p %s)\n", pCF
, debugstr_w(pwzType
));
295 for(iter
= mime_filter_list
; iter
; iter
= iter
->next
) {
296 if(iter
->cf
== pCF
&& !strcmpW(iter
->mime
, pwzType
))
305 prev
->next
= iter
->next
;
307 mime_filter_list
= iter
->next
;
309 IClassFactory_Release(iter
->cf
);
310 heap_free(iter
->mime
);
316 static HRESULT WINAPI
InternetSession_CreateBinding(IInternetSession
*iface
,
317 LPBC pBC
, LPCWSTR szUrl
, IUnknown
*pUnkOuter
, IUnknown
**ppUnk
,
318 IInternetProtocol
**ppOInetProt
, DWORD dwOption
)
320 TRACE("(%p %s %p %p %p %08x)\n", pBC
, debugstr_w(szUrl
), pUnkOuter
, ppUnk
,
321 ppOInetProt
, dwOption
);
323 if(pBC
|| pUnkOuter
|| ppUnk
|| dwOption
)
324 FIXME("Unsupported arguments\n");
326 return create_binding_protocol(szUrl
, FALSE
, ppOInetProt
);
329 static HRESULT WINAPI
InternetSession_SetSessionOption(IInternetSession
*iface
,
330 DWORD dwOption
, LPVOID pBuffer
, DWORD dwBufferLength
, DWORD dwReserved
)
332 FIXME("(%08x %p %d %d)\n", dwOption
, pBuffer
, dwBufferLength
, dwReserved
);
336 static const IInternetSessionVtbl InternetSessionVtbl
= {
337 InternetSession_QueryInterface
,
338 InternetSession_AddRef
,
339 InternetSession_Release
,
340 InternetSession_RegisterNameSpace
,
341 InternetSession_UnregisterNameSpace
,
342 InternetSession_RegisterMimeFilter
,
343 InternetSession_UnregisterMimeFilter
,
344 InternetSession_CreateBinding
,
345 InternetSession_SetSessionOption
348 static IInternetSession InternetSession
= { &InternetSessionVtbl
};
350 /***********************************************************************
351 * CoInternetGetSession (URLMON.@)
353 * Create a new internet session and return an IInternetSession interface
357 * dwSessionMode [I] Mode for the internet session
358 * ppIInternetSession [O] Destination for creates IInternetSession object
359 * dwReserved [I] Reserved, must be 0.
362 * Success: S_OK. ppIInternetSession contains the IInternetSession interface.
363 * Failure: E_INVALIDARG, if any argument is invalid, or
364 * E_OUTOFMEMORY if memory allocation fails.
366 HRESULT WINAPI
CoInternetGetSession(DWORD dwSessionMode
, IInternetSession
**ppIInternetSession
,
369 TRACE("(%d %p %d)\n", dwSessionMode
, ppIInternetSession
, dwReserved
);
372 ERR("dwSessionMode=%d\n", dwSessionMode
);
374 ERR("dwReserved=%d\n", dwReserved
);
376 IInternetSession_AddRef(&InternetSession
);
377 *ppIInternetSession
= &InternetSession
;
381 /**************************************************************************
382 * UrlMkGetSessionOption (URLMON.@)
384 static BOOL
get_url_encoding(HKEY root
, DWORD
*encoding
)
386 DWORD size
= sizeof(DWORD
), res
, type
;
389 static const WCHAR wszKeyName
[] =
390 {'S','O','F','T','W','A','R','E',
391 '\\','M','i','c','r','o','s','o','f','t',
392 '\\','W','i','n','d','o','w','s',
393 '\\','C','u','r','r','e','n','t','V','e','r','s','i','o','n',
394 '\\','I','n','t','e','r','n','e','t',' ','S','e','t','t','i','n','g','s',0};
395 static const WCHAR wszUrlEncoding
[] = {'U','r','l','E','n','c','o','d','i','n','g',0};
397 res
= RegOpenKeyW(root
, wszKeyName
, &hkey
);
398 if(res
!= ERROR_SUCCESS
)
401 res
= RegQueryValueExW(hkey
, wszUrlEncoding
, NULL
, &type
, (LPBYTE
)encoding
, &size
);
404 return res
== ERROR_SUCCESS
;
407 HRESULT WINAPI
UrlMkGetSessionOption(DWORD dwOption
, LPVOID pBuffer
, DWORD dwBufferLength
,
408 DWORD
* pdwBufferLength
, DWORD dwReserved
)
410 TRACE("(%x, %p, %d, %p)\n", dwOption
, pBuffer
, dwBufferLength
, pdwBufferLength
);
413 WARN("dwReserved = %d\n", dwReserved
);
416 case URLMON_OPTION_URL_ENCODING
: {
419 if(!pBuffer
|| dwBufferLength
< sizeof(DWORD
) || !pdwBufferLength
)
422 if(!get_url_encoding(HKEY_CURRENT_USER
, &encoding
))
423 get_url_encoding(HKEY_LOCAL_MACHINE
, &encoding
);
425 *pdwBufferLength
= sizeof(DWORD
);
426 *(DWORD
*)pBuffer
= encoding
? URL_ENCODING_DISABLE_UTF8
: URL_ENCODING_ENABLE_UTF8
;
430 FIXME("unsupported option %x\n", dwOption
);