2 * Copyright 2008 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
31 #include "wine/debug.h"
33 #include "mshtml_private.h"
36 WINE_DEFAULT_DEBUG_CHANNEL(mshtml
);
38 static HRESULT
get_url(HTMLLocation
*This
, const WCHAR
**ret
)
40 if(!This
->window
|| !This
->window
->doc_obj
|| !This
->window
->doc_obj
->url
) {
41 FIXME("No current URL\n");
45 *ret
= This
->window
->doc_obj
->url
;
49 static HRESULT
get_url_components(HTMLLocation
*This
, URL_COMPONENTSW
*url
)
54 hres
= get_url(This
, &doc_url
);
58 if(!InternetCrackUrlW(doc_url
, 0, 0, url
)) {
59 FIXME("InternetCrackUrlW failed: 0x%08x\n", GetLastError());
67 #define HTMLLOCATION_THIS(iface) DEFINE_THIS(HTMLLocation, HTMLLocation, iface)
69 static HRESULT WINAPI
HTMLLocation_QueryInterface(IHTMLLocation
*iface
, REFIID riid
, void **ppv
)
71 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
75 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
76 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
77 *ppv
= HTMLLOCATION(This
);
78 }else if(IsEqualGUID(&IID_IHTMLLocation
, riid
)) {
79 TRACE("(%p)->(IID_IHTMLLocation %p)\n", This
, ppv
);
80 *ppv
= HTMLLOCATION(This
);
81 }else if(dispex_query_interface(&This
->dispex
, riid
, ppv
)) {
82 return *ppv
? S_OK
: E_NOINTERFACE
;
86 IUnknown_AddRef((IUnknown
*)*ppv
);
90 WARN("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppv
);
94 static ULONG WINAPI
HTMLLocation_AddRef(IHTMLLocation
*iface
)
96 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
97 LONG ref
= InterlockedIncrement(&This
->ref
);
99 TRACE("(%p) ref=%d\n", This
, ref
);
104 static ULONG WINAPI
HTMLLocation_Release(IHTMLLocation
*iface
)
106 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
107 LONG ref
= InterlockedDecrement(&This
->ref
);
109 TRACE("(%p) ref=%d\n", This
, ref
);
113 This
->window
->location
= NULL
;
114 release_dispex(&This
->dispex
);
121 static HRESULT WINAPI
HTMLLocation_GetTypeInfoCount(IHTMLLocation
*iface
, UINT
*pctinfo
)
123 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
124 return IDispatchEx_GetTypeInfoCount(DISPATCHEX(&This
->dispex
), pctinfo
);
127 static HRESULT WINAPI
HTMLLocation_GetTypeInfo(IHTMLLocation
*iface
, UINT iTInfo
,
128 LCID lcid
, ITypeInfo
**ppTInfo
)
130 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
131 return IDispatchEx_GetTypeInfo(DISPATCHEX(&This
->dispex
), iTInfo
, lcid
, ppTInfo
);
134 static HRESULT WINAPI
HTMLLocation_GetIDsOfNames(IHTMLLocation
*iface
, REFIID riid
,
135 LPOLESTR
*rgszNames
, UINT cNames
,
136 LCID lcid
, DISPID
*rgDispId
)
138 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
139 return IDispatchEx_GetIDsOfNames(DISPATCHEX(&This
->dispex
), riid
, rgszNames
, cNames
, lcid
, rgDispId
);
142 static HRESULT WINAPI
HTMLLocation_Invoke(IHTMLLocation
*iface
, DISPID dispIdMember
,
143 REFIID riid
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pDispParams
,
144 VARIANT
*pVarResult
, EXCEPINFO
*pExcepInfo
, UINT
*puArgErr
)
146 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
147 return IDispatchEx_Invoke(DISPATCHEX(&This
->dispex
), dispIdMember
, riid
, lcid
,
148 wFlags
, pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
151 static HRESULT WINAPI
HTMLLocation_put_href(IHTMLLocation
*iface
, BSTR v
)
153 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
155 TRACE("(%p)->(%s)\n", This
, debugstr_w(v
));
157 if(!This
->window
|| !This
->window
->doc
) {
158 FIXME("No document available\n");
162 return navigate_url(This
->window
->doc
, v
);
165 static HRESULT WINAPI
HTMLLocation_get_href(IHTMLLocation
*iface
, BSTR
*p
)
167 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
168 URL_COMPONENTSW url
= {sizeof(URL_COMPONENTSW
)};
169 WCHAR
*buf
= NULL
, *url_path
= NULL
;
174 TRACE("(%p)->(%p)\n", This
, p
);
179 url
.dwSchemeLength
= 1;
180 url
.dwHostNameLength
= 1;
181 url
.dwUrlPathLength
= 1;
182 url
.dwExtraInfoLength
= 1;
183 hres
= get_url_components(This
, &url
);
187 switch(url
.nScheme
) {
188 case INTERNET_SCHEME_FILE
:
190 /* prepend a slash */
191 url_path
= HeapAlloc(GetProcessHeap(), 0, (url
.dwUrlPathLength
+ 1) * sizeof(WCHAR
));
193 return E_OUTOFMEMORY
;
195 memcpy(url_path
+ 1, url
.lpszUrlPath
, url
.dwUrlPathLength
* sizeof(WCHAR
));
196 url
.lpszUrlPath
= url_path
;
197 url
.dwUrlPathLength
= url
.dwUrlPathLength
+ 1;
201 case INTERNET_SCHEME_HTTP
:
202 case INTERNET_SCHEME_HTTPS
:
203 case INTERNET_SCHEME_FTP
:
204 if(!url
.dwUrlPathLength
) {
205 /* add a slash if it's blank */
206 url_path
= url
.lpszUrlPath
= HeapAlloc(GetProcessHeap(), 0, 1 * sizeof(WCHAR
));
208 return E_OUTOFMEMORY
;
209 url
.lpszUrlPath
[0] = '/';
210 url
.dwUrlPathLength
= 1;
218 /* replace \ with / */
219 for(i
= 0; i
< url
.dwUrlPathLength
; ++i
)
220 if(url
.lpszUrlPath
[i
] == '\\')
221 url
.lpszUrlPath
[i
] = '/';
223 if(InternetCreateUrlW(&url
, ICU_ESCAPE
, NULL
, &len
)) {
224 FIXME("InternetCreateUrl succeeded with NULL buffer?\n");
229 if(GetLastError() != ERROR_INSUFFICIENT_BUFFER
) {
230 FIXME("InternetCreateUrl failed with error: %08x\n", GetLastError());
237 buf
= HeapAlloc(GetProcessHeap(), 0, len
* sizeof(WCHAR
));
243 if(!InternetCreateUrlW(&url
, ICU_ESCAPE
, buf
, &len
)) {
244 FIXME("InternetCreateUrl failed with error: %08x\n", GetLastError());
250 *p
= SysAllocStringLen(buf
, len
);
260 HeapFree(GetProcessHeap(), 0, buf
);
262 HeapFree(GetProcessHeap(), 0, url_path
);
267 static HRESULT WINAPI
HTMLLocation_put_protocol(IHTMLLocation
*iface
, BSTR v
)
269 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
270 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
274 static HRESULT WINAPI
HTMLLocation_get_protocol(IHTMLLocation
*iface
, BSTR
*p
)
276 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
277 URL_COMPONENTSW url
= {sizeof(URL_COMPONENTSW
)};
280 TRACE("(%p)->(%p)\n", This
, p
);
285 url
.dwSchemeLength
= 1;
286 hres
= get_url_components(This
, &url
);
290 if(!url
.dwSchemeLength
) {
291 FIXME("Unexpected blank protocol\n");
294 WCHAR buf
[url
.dwSchemeLength
+ 1];
295 memcpy(buf
, url
.lpszScheme
, url
.dwSchemeLength
* sizeof(WCHAR
));
296 buf
[url
.dwSchemeLength
] = ':';
297 *p
= SysAllocStringLen(buf
, url
.dwSchemeLength
+ 1);
300 return E_OUTOFMEMORY
;
304 static HRESULT WINAPI
HTMLLocation_put_host(IHTMLLocation
*iface
, BSTR v
)
306 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
307 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
311 static HRESULT WINAPI
HTMLLocation_get_host(IHTMLLocation
*iface
, BSTR
*p
)
313 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
314 URL_COMPONENTSW url
= {sizeof(URL_COMPONENTSW
)};
317 TRACE("(%p)->(%p)\n", This
, p
);
322 url
.dwHostNameLength
= 1;
323 hres
= get_url_components(This
, &url
);
327 if(!url
.dwHostNameLength
){
333 /* <hostname>:<port> */
334 const WCHAR format
[] = {'%','d',0};
335 DWORD len
= url
.dwHostNameLength
+ 1 + 5 + 1;
338 memcpy(buf
, url
.lpszHostName
, url
.dwHostNameLength
* sizeof(WCHAR
));
339 buf
[url
.dwHostNameLength
] = ':';
340 snprintfW(buf
+ url
.dwHostNameLength
+ 1, 6, format
, url
.nPort
);
341 *p
= SysAllocString(buf
);
343 *p
= SysAllocStringLen(url
.lpszHostName
, url
.dwHostNameLength
);
346 return E_OUTOFMEMORY
;
350 static HRESULT WINAPI
HTMLLocation_put_hostname(IHTMLLocation
*iface
, BSTR v
)
352 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
353 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
357 static HRESULT WINAPI
HTMLLocation_get_hostname(IHTMLLocation
*iface
, BSTR
*p
)
359 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
360 URL_COMPONENTSW url
= {sizeof(URL_COMPONENTSW
)};
363 TRACE("(%p)->(%p)\n", This
, p
);
368 url
.dwHostNameLength
= 1;
369 hres
= get_url_components(This
, &url
);
373 if(!url
.dwHostNameLength
){
378 *p
= SysAllocStringLen(url
.lpszHostName
, url
.dwHostNameLength
);
380 return E_OUTOFMEMORY
;
384 static HRESULT WINAPI
HTMLLocation_put_port(IHTMLLocation
*iface
, BSTR v
)
386 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
387 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
391 static HRESULT WINAPI
HTMLLocation_get_port(IHTMLLocation
*iface
, BSTR
*p
)
393 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
394 URL_COMPONENTSW url
= {sizeof(URL_COMPONENTSW
)};
397 TRACE("(%p)->(%p)\n", This
, p
);
402 hres
= get_url_components(This
, &url
);
407 const WCHAR format
[] = {'%','d',0};
409 snprintfW(buf
, 6, format
, url
.nPort
);
410 *p
= SysAllocString(buf
);
412 const WCHAR empty
[] = {0};
413 *p
= SysAllocString(empty
);
417 return E_OUTOFMEMORY
;
421 static HRESULT WINAPI
HTMLLocation_put_pathname(IHTMLLocation
*iface
, BSTR v
)
423 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
424 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
428 static HRESULT WINAPI
HTMLLocation_get_pathname(IHTMLLocation
*iface
, BSTR
*p
)
430 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
431 URL_COMPONENTSW url
= {sizeof(URL_COMPONENTSW
)};
434 TRACE("(%p)->(%p)\n", This
, p
);
439 url
.dwUrlPathLength
= 1;
440 url
.dwExtraInfoLength
= 1;
441 hres
= get_url_components(This
, &url
);
445 if(url
.dwUrlPathLength
&& url
.lpszUrlPath
[0] == '/')
446 *p
= SysAllocStringLen(url
.lpszUrlPath
+ 1, url
.dwUrlPathLength
- 1);
448 *p
= SysAllocStringLen(url
.lpszUrlPath
, url
.dwUrlPathLength
);
451 return E_OUTOFMEMORY
;
455 static HRESULT WINAPI
HTMLLocation_put_search(IHTMLLocation
*iface
, BSTR v
)
457 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
458 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
462 static HRESULT WINAPI
HTMLLocation_get_search(IHTMLLocation
*iface
, BSTR
*p
)
464 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
465 FIXME("(%p)->(%p)\n", This
, p
);
473 static HRESULT WINAPI
HTMLLocation_put_hash(IHTMLLocation
*iface
, BSTR v
)
475 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
476 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
480 static HRESULT WINAPI
HTMLLocation_get_hash(IHTMLLocation
*iface
, BSTR
*p
)
482 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
483 FIXME("(%p)->(%p)\n", This
, p
);
491 static HRESULT WINAPI
HTMLLocation_reload(IHTMLLocation
*iface
, VARIANT_BOOL flag
)
493 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
494 FIXME("(%p)->(%x)\n", This
, flag
);
498 static HRESULT WINAPI
HTMLLocation_replace(IHTMLLocation
*iface
, BSTR bstr
)
500 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
501 FIXME("(%p)->(%s)\n", This
, debugstr_w(bstr
));
505 static HRESULT WINAPI
HTMLLocation_assign(IHTMLLocation
*iface
, BSTR bstr
)
507 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
508 FIXME("(%p)->(%s)\n", This
, debugstr_w(bstr
));
512 static HRESULT WINAPI
HTMLLocation_toString(IHTMLLocation
*iface
, BSTR
*String
)
514 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
515 FIXME("(%p)->(%p)\n", This
, String
);
519 #undef HTMLLOCATION_THIS
521 static const IHTMLLocationVtbl HTMLLocationVtbl
= {
522 HTMLLocation_QueryInterface
,
524 HTMLLocation_Release
,
525 HTMLLocation_GetTypeInfoCount
,
526 HTMLLocation_GetTypeInfo
,
527 HTMLLocation_GetIDsOfNames
,
529 HTMLLocation_put_href
,
530 HTMLLocation_get_href
,
531 HTMLLocation_put_protocol
,
532 HTMLLocation_get_protocol
,
533 HTMLLocation_put_host
,
534 HTMLLocation_get_host
,
535 HTMLLocation_put_hostname
,
536 HTMLLocation_get_hostname
,
537 HTMLLocation_put_port
,
538 HTMLLocation_get_port
,
539 HTMLLocation_put_pathname
,
540 HTMLLocation_get_pathname
,
541 HTMLLocation_put_search
,
542 HTMLLocation_get_search
,
543 HTMLLocation_put_hash
,
544 HTMLLocation_get_hash
,
546 HTMLLocation_replace
,
548 HTMLLocation_toString
551 static const tid_t HTMLLocation_iface_tids
[] = {
555 static dispex_static_data_t HTMLLocation_dispex
= {
557 DispHTMLLocation_tid
,
559 HTMLLocation_iface_tids
563 HRESULT
HTMLLocation_Create(HTMLWindow
*window
, HTMLLocation
**ret
)
565 HTMLLocation
*location
;
567 location
= heap_alloc(sizeof(*location
));
569 return E_OUTOFMEMORY
;
571 location
->lpHTMLLocationVtbl
= &HTMLLocationVtbl
;
573 location
->window
= window
;
575 init_dispex(&location
->dispex
, (IUnknown
*)HTMLLOCATION(location
), &HTMLLocation_dispex
);