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
->url
) {
41 FIXME("No current URL\n");
45 *ret
= This
->window
->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 static inline HTMLLocation
*impl_from_IHTMLLocation(IHTMLLocation
*iface
)
69 return CONTAINING_RECORD(iface
, HTMLLocation
, IHTMLLocation_iface
);
72 static HRESULT WINAPI
HTMLLocation_QueryInterface(IHTMLLocation
*iface
, REFIID riid
, void **ppv
)
74 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
78 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
79 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
80 *ppv
= &This
->IHTMLLocation_iface
;
81 }else if(IsEqualGUID(&IID_IHTMLLocation
, riid
)) {
82 TRACE("(%p)->(IID_IHTMLLocation %p)\n", This
, ppv
);
83 *ppv
= &This
->IHTMLLocation_iface
;
84 }else if(dispex_query_interface(&This
->dispex
, riid
, ppv
)) {
85 return *ppv
? S_OK
: E_NOINTERFACE
;
89 IUnknown_AddRef((IUnknown
*)*ppv
);
93 WARN("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppv
);
97 static ULONG WINAPI
HTMLLocation_AddRef(IHTMLLocation
*iface
)
99 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
100 LONG ref
= InterlockedIncrement(&This
->ref
);
102 TRACE("(%p) ref=%d\n", This
, ref
);
107 static ULONG WINAPI
HTMLLocation_Release(IHTMLLocation
*iface
)
109 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
110 LONG ref
= InterlockedDecrement(&This
->ref
);
112 TRACE("(%p) ref=%d\n", This
, ref
);
116 This
->window
->location
= NULL
;
117 release_dispex(&This
->dispex
);
124 static HRESULT WINAPI
HTMLLocation_GetTypeInfoCount(IHTMLLocation
*iface
, UINT
*pctinfo
)
126 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
127 return IDispatchEx_GetTypeInfoCount(&This
->dispex
.IDispatchEx_iface
, pctinfo
);
130 static HRESULT WINAPI
HTMLLocation_GetTypeInfo(IHTMLLocation
*iface
, UINT iTInfo
,
131 LCID lcid
, ITypeInfo
**ppTInfo
)
133 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
134 return IDispatchEx_GetTypeInfo(&This
->dispex
.IDispatchEx_iface
, iTInfo
, lcid
, ppTInfo
);
137 static HRESULT WINAPI
HTMLLocation_GetIDsOfNames(IHTMLLocation
*iface
, REFIID riid
,
138 LPOLESTR
*rgszNames
, UINT cNames
,
139 LCID lcid
, DISPID
*rgDispId
)
141 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
142 return IDispatchEx_GetIDsOfNames(&This
->dispex
.IDispatchEx_iface
, riid
, rgszNames
, cNames
,
146 static HRESULT WINAPI
HTMLLocation_Invoke(IHTMLLocation
*iface
, DISPID dispIdMember
,
147 REFIID riid
, LCID lcid
, WORD wFlags
, DISPPARAMS
*pDispParams
,
148 VARIANT
*pVarResult
, EXCEPINFO
*pExcepInfo
, UINT
*puArgErr
)
150 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
151 return IDispatchEx_Invoke(&This
->dispex
.IDispatchEx_iface
, dispIdMember
, riid
, lcid
,
152 wFlags
, pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
155 static HRESULT WINAPI
HTMLLocation_put_href(IHTMLLocation
*iface
, BSTR v
)
157 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
159 TRACE("(%p)->(%s)\n", This
, debugstr_w(v
));
162 FIXME("No window available\n");
166 return navigate_url(This
->window
, v
, This
->window
->url
);
169 static HRESULT WINAPI
HTMLLocation_get_href(IHTMLLocation
*iface
, BSTR
*p
)
171 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
172 URL_COMPONENTSW url
= {sizeof(URL_COMPONENTSW
)};
173 WCHAR
*buf
= NULL
, *url_path
= NULL
;
178 TRACE("(%p)->(%p)\n", This
, p
);
183 url
.dwSchemeLength
= 1;
184 url
.dwHostNameLength
= 1;
185 url
.dwUrlPathLength
= 1;
186 url
.dwExtraInfoLength
= 1;
187 hres
= get_url_components(This
, &url
);
191 switch(url
.nScheme
) {
192 case INTERNET_SCHEME_FILE
:
194 /* prepend a slash */
195 url_path
= HeapAlloc(GetProcessHeap(), 0, (url
.dwUrlPathLength
+ 1) * sizeof(WCHAR
));
197 return E_OUTOFMEMORY
;
199 memcpy(url_path
+ 1, url
.lpszUrlPath
, url
.dwUrlPathLength
* sizeof(WCHAR
));
200 url
.lpszUrlPath
= url_path
;
201 url
.dwUrlPathLength
= url
.dwUrlPathLength
+ 1;
205 case INTERNET_SCHEME_HTTP
:
206 case INTERNET_SCHEME_HTTPS
:
207 case INTERNET_SCHEME_FTP
:
208 if(!url
.dwUrlPathLength
) {
209 /* add a slash if it's blank */
210 url_path
= url
.lpszUrlPath
= HeapAlloc(GetProcessHeap(), 0, 1 * sizeof(WCHAR
));
212 return E_OUTOFMEMORY
;
213 url
.lpszUrlPath
[0] = '/';
214 url
.dwUrlPathLength
= 1;
222 /* replace \ with / */
223 for(i
= 0; i
< url
.dwUrlPathLength
; ++i
)
224 if(url
.lpszUrlPath
[i
] == '\\')
225 url
.lpszUrlPath
[i
] = '/';
227 if(InternetCreateUrlW(&url
, ICU_ESCAPE
, NULL
, &len
)) {
228 FIXME("InternetCreateUrl succeeded with NULL buffer?\n");
233 if(GetLastError() != ERROR_INSUFFICIENT_BUFFER
) {
234 FIXME("InternetCreateUrl failed with error: %08x\n", GetLastError());
241 buf
= HeapAlloc(GetProcessHeap(), 0, len
* sizeof(WCHAR
));
247 if(!InternetCreateUrlW(&url
, ICU_ESCAPE
, buf
, &len
)) {
248 FIXME("InternetCreateUrl failed with error: %08x\n", GetLastError());
254 *p
= SysAllocStringLen(buf
, len
);
263 HeapFree(GetProcessHeap(), 0, buf
);
264 HeapFree(GetProcessHeap(), 0, url_path
);
269 static HRESULT WINAPI
HTMLLocation_put_protocol(IHTMLLocation
*iface
, BSTR v
)
271 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
272 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
276 static HRESULT WINAPI
HTMLLocation_get_protocol(IHTMLLocation
*iface
, BSTR
*p
)
278 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
283 TRACE("(%p)->(%p)\n", This
, p
);
288 if(!This
->window
|| !This
->window
->uri
) {
289 FIXME("No current URI\n");
293 hres
= IUri_GetSchemeName(This
->window
->uri
, &protocol
);
296 if(hres
== S_FALSE
) {
297 SysFreeString(protocol
);
302 len
= SysStringLen(protocol
);
303 ret
= SysAllocStringLen(protocol
, len
+1);
304 SysFreeString(protocol
);
306 return E_OUTOFMEMORY
;
313 static HRESULT WINAPI
HTMLLocation_put_host(IHTMLLocation
*iface
, BSTR v
)
315 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
316 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
320 static HRESULT WINAPI
HTMLLocation_get_host(IHTMLLocation
*iface
, BSTR
*p
)
322 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
323 URL_COMPONENTSW url
= {sizeof(URL_COMPONENTSW
)};
326 TRACE("(%p)->(%p)\n", This
, p
);
331 url
.dwHostNameLength
= 1;
332 hres
= get_url_components(This
, &url
);
336 if(!url
.dwHostNameLength
){
342 /* <hostname>:<port> */
343 const WCHAR format
[] = {'%','u',0};
344 DWORD len
= url
.dwHostNameLength
+ 1 + 5;
347 buf
= *p
= SysAllocStringLen(NULL
, len
);
348 memcpy(buf
, url
.lpszHostName
, url
.dwHostNameLength
* sizeof(WCHAR
));
349 buf
[url
.dwHostNameLength
] = ':';
350 snprintfW(buf
+ url
.dwHostNameLength
+ 1, 6, format
, url
.nPort
);
352 *p
= SysAllocStringLen(url
.lpszHostName
, url
.dwHostNameLength
);
355 return E_OUTOFMEMORY
;
359 static HRESULT WINAPI
HTMLLocation_put_hostname(IHTMLLocation
*iface
, BSTR v
)
361 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
362 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
366 static HRESULT WINAPI
HTMLLocation_get_hostname(IHTMLLocation
*iface
, BSTR
*p
)
368 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
372 TRACE("(%p)->(%p)\n", This
, p
);
377 if(!This
->window
|| !This
->window
->uri
) {
378 FIXME("No current URI\n");
382 hres
= IUri_GetHost(This
->window
->uri
, &hostname
);
385 }else if(hres
== S_FALSE
) {
386 SysFreeString(hostname
);
395 static HRESULT WINAPI
HTMLLocation_put_port(IHTMLLocation
*iface
, BSTR v
)
397 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
398 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
402 static HRESULT WINAPI
HTMLLocation_get_port(IHTMLLocation
*iface
, BSTR
*p
)
404 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
408 TRACE("(%p)->(%p)\n", This
, p
);
413 if(!This
->window
|| !This
->window
->uri
) {
414 FIXME("No current URI\n");
418 hres
= IUri_GetPort(This
->window
->uri
, &port
);
423 static const WCHAR formatW
[] = {'%','u',0};
426 sprintfW(buf
, formatW
, port
);
427 *p
= SysAllocString(buf
);
429 *p
= SysAllocStringLen(NULL
, 0);
433 return E_OUTOFMEMORY
;
437 static HRESULT WINAPI
HTMLLocation_put_pathname(IHTMLLocation
*iface
, BSTR v
)
439 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
440 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
444 static HRESULT WINAPI
HTMLLocation_get_pathname(IHTMLLocation
*iface
, BSTR
*p
)
446 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
447 URL_COMPONENTSW url
= {sizeof(URL_COMPONENTSW
)};
450 TRACE("(%p)->(%p)\n", This
, p
);
455 url
.dwUrlPathLength
= 1;
456 url
.dwExtraInfoLength
= 1;
457 hres
= get_url_components(This
, &url
);
461 if(url
.dwUrlPathLength
&& url
.lpszUrlPath
[0] == '/')
462 *p
= SysAllocStringLen(url
.lpszUrlPath
+ 1, url
.dwUrlPathLength
- 1);
464 *p
= SysAllocStringLen(url
.lpszUrlPath
, url
.dwUrlPathLength
);
467 return E_OUTOFMEMORY
;
471 static HRESULT WINAPI
HTMLLocation_put_search(IHTMLLocation
*iface
, BSTR v
)
473 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
474 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
478 static HRESULT WINAPI
HTMLLocation_get_search(IHTMLLocation
*iface
, BSTR
*p
)
480 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
484 TRACE("(%p)->(%p)\n", This
, p
);
489 if(!This
->window
|| !This
->window
->uri
) {
490 FIXME("No current URI\n");
494 hres
= IUri_GetQuery(This
->window
->uri
, &query
);
497 }else if(hres
== S_FALSE
) {
498 SysFreeString(query
);
507 static HRESULT WINAPI
HTMLLocation_put_hash(IHTMLLocation
*iface
, BSTR v
)
509 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
510 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
514 static HRESULT WINAPI
HTMLLocation_get_hash(IHTMLLocation
*iface
, BSTR
*p
)
516 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
520 TRACE("(%p)->(%p)\n", This
, p
);
525 if(!This
->window
|| !This
->window
->uri
) {
526 FIXME("No current URI\n");
530 hres
= IUri_GetFragment(This
->window
->uri
, &hash
);
533 }else if(hres
== S_FALSE
) {
543 static HRESULT WINAPI
HTMLLocation_reload(IHTMLLocation
*iface
, VARIANT_BOOL flag
)
545 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
546 FIXME("(%p)->(%x)\n", This
, flag
);
550 static HRESULT WINAPI
HTMLLocation_replace(IHTMLLocation
*iface
, BSTR bstr
)
552 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
554 TRACE("(%p)->(%s)\n", This
, debugstr_w(bstr
));
557 FIXME("No window available\n");
561 return navigate_url(This
->window
, bstr
, This
->window
->url
);
564 static HRESULT WINAPI
HTMLLocation_assign(IHTMLLocation
*iface
, BSTR bstr
)
566 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
567 FIXME("(%p)->(%s)\n", This
, debugstr_w(bstr
));
571 static HRESULT WINAPI
HTMLLocation_toString(IHTMLLocation
*iface
, BSTR
*String
)
573 HTMLLocation
*This
= impl_from_IHTMLLocation(iface
);
574 FIXME("(%p)->(%p)\n", This
, String
);
578 static const IHTMLLocationVtbl HTMLLocationVtbl
= {
579 HTMLLocation_QueryInterface
,
581 HTMLLocation_Release
,
582 HTMLLocation_GetTypeInfoCount
,
583 HTMLLocation_GetTypeInfo
,
584 HTMLLocation_GetIDsOfNames
,
586 HTMLLocation_put_href
,
587 HTMLLocation_get_href
,
588 HTMLLocation_put_protocol
,
589 HTMLLocation_get_protocol
,
590 HTMLLocation_put_host
,
591 HTMLLocation_get_host
,
592 HTMLLocation_put_hostname
,
593 HTMLLocation_get_hostname
,
594 HTMLLocation_put_port
,
595 HTMLLocation_get_port
,
596 HTMLLocation_put_pathname
,
597 HTMLLocation_get_pathname
,
598 HTMLLocation_put_search
,
599 HTMLLocation_get_search
,
600 HTMLLocation_put_hash
,
601 HTMLLocation_get_hash
,
603 HTMLLocation_replace
,
605 HTMLLocation_toString
608 static const tid_t HTMLLocation_iface_tids
[] = {
612 static dispex_static_data_t HTMLLocation_dispex
= {
614 DispHTMLLocation_tid
,
616 HTMLLocation_iface_tids
620 HRESULT
HTMLLocation_Create(HTMLWindow
*window
, HTMLLocation
**ret
)
622 HTMLLocation
*location
;
624 location
= heap_alloc(sizeof(*location
));
626 return E_OUTOFMEMORY
;
628 location
->IHTMLLocation_iface
.lpVtbl
= &HTMLLocationVtbl
;
630 location
->window
= window
;
632 init_dispex(&location
->dispex
, (IUnknown
*)&location
->IHTMLLocation_iface
, &HTMLLocation_dispex
);