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
);
171 TRACE("(%p)->(%p)\n", This
, p
);
176 hres
= get_url(This
, &url
);
180 *p
= SysAllocString(url
);
181 return *p
? S_OK
: E_OUTOFMEMORY
;
184 static HRESULT WINAPI
HTMLLocation_put_protocol(IHTMLLocation
*iface
, BSTR v
)
186 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
187 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
191 static HRESULT WINAPI
HTMLLocation_get_protocol(IHTMLLocation
*iface
, BSTR
*p
)
193 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
194 URL_COMPONENTSW url
= {sizeof(URL_COMPONENTSW
)};
197 TRACE("(%p)->(%p)\n", This
, p
);
202 url
.dwSchemeLength
= 1;
203 hres
= get_url_components(This
, &url
);
207 if(!url
.dwSchemeLength
) {
208 FIXME("Unexpected blank protocol\n");
211 WCHAR buf
[url
.dwSchemeLength
+ 1];
212 memcpy(buf
, url
.lpszScheme
, url
.dwSchemeLength
* sizeof(WCHAR
));
213 buf
[url
.dwSchemeLength
] = ':';
214 *p
= SysAllocStringLen(buf
, url
.dwSchemeLength
+ 1);
217 return E_OUTOFMEMORY
;
221 static HRESULT WINAPI
HTMLLocation_put_host(IHTMLLocation
*iface
, BSTR v
)
223 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
224 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
228 static HRESULT WINAPI
HTMLLocation_get_host(IHTMLLocation
*iface
, BSTR
*p
)
230 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
231 URL_COMPONENTSW url
= {sizeof(URL_COMPONENTSW
)};
234 TRACE("(%p)->(%p)\n", This
, p
);
239 url
.dwHostNameLength
= 1;
240 hres
= get_url_components(This
, &url
);
244 if(!url
.dwHostNameLength
){
250 /* <hostname>:<port> */
251 const WCHAR format
[] = {'%','d',0};
252 DWORD len
= url
.dwHostNameLength
+ 1 + 5 + 1;
255 memcpy(buf
, url
.lpszHostName
, url
.dwHostNameLength
* sizeof(WCHAR
));
256 buf
[url
.dwHostNameLength
] = ':';
257 snprintfW(buf
+ url
.dwHostNameLength
+ 1, 6, format
, url
.nPort
);
258 *p
= SysAllocString(buf
);
260 *p
= SysAllocStringLen(url
.lpszHostName
, url
.dwHostNameLength
);
263 return E_OUTOFMEMORY
;
267 static HRESULT WINAPI
HTMLLocation_put_hostname(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_hostname(IHTMLLocation
*iface
, BSTR
*p
)
276 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
277 FIXME("(%p)->(%p)\n", This
, p
);
285 static HRESULT WINAPI
HTMLLocation_put_port(IHTMLLocation
*iface
, BSTR v
)
287 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
288 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
292 static HRESULT WINAPI
HTMLLocation_get_port(IHTMLLocation
*iface
, BSTR
*p
)
294 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
295 URL_COMPONENTSW url
= {sizeof(URL_COMPONENTSW
)};
298 TRACE("(%p)->(%p)\n", This
, p
);
303 hres
= get_url_components(This
, &url
);
308 const WCHAR format
[] = {'%','d',0};
310 snprintfW(buf
, 6, format
, url
.nPort
);
311 *p
= SysAllocString(buf
);
313 const WCHAR empty
[] = {0};
314 *p
= SysAllocString(empty
);
318 return E_OUTOFMEMORY
;
322 static HRESULT WINAPI
HTMLLocation_put_pathname(IHTMLLocation
*iface
, BSTR v
)
324 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
325 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
329 static HRESULT WINAPI
HTMLLocation_get_pathname(IHTMLLocation
*iface
, BSTR
*p
)
331 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
332 WCHAR buf
[INTERNET_MAX_PATH_LENGTH
];
333 URL_COMPONENTSW url
= {sizeof(url
)};
334 const WCHAR
*doc_url
;
338 TRACE("(%p)->(%p)\n", This
, p
);
343 hres
= get_url(This
, &doc_url
);
347 hres
= CoInternetParseUrl(doc_url
, PARSE_PATH_FROM_URL
, 0, buf
, sizeof(buf
), &size
, 0);
348 if(SUCCEEDED(hres
)) {
349 *p
= SysAllocString(buf
);
351 return E_OUTOFMEMORY
;
355 url
.dwUrlPathLength
= 1;
356 hres
= get_url_components(This
, &url
);
360 if(!url
.dwUrlPathLength
) {
365 *p
= SysAllocStringLen(url
.lpszUrlPath
, url
.dwUrlPathLength
);
367 return E_OUTOFMEMORY
;
371 static HRESULT WINAPI
HTMLLocation_put_search(IHTMLLocation
*iface
, BSTR v
)
373 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
374 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
378 static HRESULT WINAPI
HTMLLocation_get_search(IHTMLLocation
*iface
, BSTR
*p
)
380 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
381 FIXME("(%p)->(%p)\n", This
, p
);
389 static HRESULT WINAPI
HTMLLocation_put_hash(IHTMLLocation
*iface
, BSTR v
)
391 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
392 FIXME("(%p)->(%s)\n", This
, debugstr_w(v
));
396 static HRESULT WINAPI
HTMLLocation_get_hash(IHTMLLocation
*iface
, BSTR
*p
)
398 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
399 FIXME("(%p)->(%p)\n", This
, p
);
407 static HRESULT WINAPI
HTMLLocation_reload(IHTMLLocation
*iface
, VARIANT_BOOL flag
)
409 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
410 FIXME("(%p)->(%x)\n", This
, flag
);
414 static HRESULT WINAPI
HTMLLocation_replace(IHTMLLocation
*iface
, BSTR bstr
)
416 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
417 FIXME("(%p)->(%s)\n", This
, debugstr_w(bstr
));
421 static HRESULT WINAPI
HTMLLocation_assign(IHTMLLocation
*iface
, BSTR bstr
)
423 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
424 FIXME("(%p)->(%s)\n", This
, debugstr_w(bstr
));
428 static HRESULT WINAPI
HTMLLocation_toString(IHTMLLocation
*iface
, BSTR
*String
)
430 HTMLLocation
*This
= HTMLLOCATION_THIS(iface
);
431 FIXME("(%p)->(%p)\n", This
, String
);
435 #undef HTMLLOCATION_THIS
437 static const IHTMLLocationVtbl HTMLLocationVtbl
= {
438 HTMLLocation_QueryInterface
,
440 HTMLLocation_Release
,
441 HTMLLocation_GetTypeInfoCount
,
442 HTMLLocation_GetTypeInfo
,
443 HTMLLocation_GetIDsOfNames
,
445 HTMLLocation_put_href
,
446 HTMLLocation_get_href
,
447 HTMLLocation_put_protocol
,
448 HTMLLocation_get_protocol
,
449 HTMLLocation_put_host
,
450 HTMLLocation_get_host
,
451 HTMLLocation_put_hostname
,
452 HTMLLocation_get_hostname
,
453 HTMLLocation_put_port
,
454 HTMLLocation_get_port
,
455 HTMLLocation_put_pathname
,
456 HTMLLocation_get_pathname
,
457 HTMLLocation_put_search
,
458 HTMLLocation_get_search
,
459 HTMLLocation_put_hash
,
460 HTMLLocation_get_hash
,
462 HTMLLocation_replace
,
464 HTMLLocation_toString
467 static const tid_t HTMLLocation_iface_tids
[] = {
471 static dispex_static_data_t HTMLLocation_dispex
= {
473 DispHTMLLocation_tid
,
475 HTMLLocation_iface_tids
479 HRESULT
HTMLLocation_Create(HTMLWindow
*window
, HTMLLocation
**ret
)
481 HTMLLocation
*location
;
483 location
= heap_alloc(sizeof(*location
));
485 return E_OUTOFMEMORY
;
487 location
->lpHTMLLocationVtbl
= &HTMLLocationVtbl
;
489 location
->window
= window
;
491 init_dispex(&location
->dispex
, (IUnknown
*)HTMLLOCATION(location
), &HTMLLocation_dispex
);