2 * Copyright 2006-2007 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 #define NONAMELESSUNION
20 #define NONAMELESSSTRUCT
22 #include "wine/debug.h"
32 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw
);
34 static const WCHAR emptyW
[] = {0};
37 IBindStatusCallback IBindStatusCallback_iface
;
38 IHttpNegotiate IHttpNegotiate_iface
;
51 static void dump_BINDINFO(BINDINFO
*bi
)
53 static const char * const BINDINFOF_str
[] = {
55 "BINDINFOF_URLENCODESTGMEDDATA",
56 "BINDINFOF_URLENCODEDEXTRAINFO"
59 static const char * const BINDVERB_str
[] = {
79 bi
->cbSize
, debugstr_w(bi
->szExtraInfo
),
80 bi
->stgmedData
.tymed
, bi
->stgmedData
.u
.hGlobal
, bi
->stgmedData
.pUnkForRelease
,
81 bi
->grfBindInfoF
> BINDINFOF_URLENCODEDEXTRAINFO
82 ? "unknown" : BINDINFOF_str
[bi
->grfBindInfoF
],
83 bi
->dwBindVerb
> BINDVERB_CUSTOM
84 ? "unknown" : BINDVERB_str
[bi
->dwBindVerb
],
85 debugstr_w(bi
->szCustomVerb
),
86 bi
->cbstgmedData
, bi
->dwOptions
, bi
->dwOptionsFlags
, bi
->dwCodePage
,
87 bi
->securityAttributes
.nLength
,
88 bi
->securityAttributes
.lpSecurityDescriptor
,
89 bi
->securityAttributes
.bInheritHandle
,
90 debugstr_guid(&bi
->iid
),
91 bi
->pUnk
, bi
->dwReserved
95 static void set_status_text(BindStatusCallback
*This
, LPCWSTR str
)
98 DISPPARAMS dispparams
= {&arg
, NULL
, 1, 0};
103 V_VT(&arg
) = VT_BSTR
;
104 V_BSTR(&arg
) = str
? SysAllocString(str
) : NULL
;
105 call_sink(This
->doc_host
->cps
.wbe2
, DISPID_STATUSTEXTCHANGE
, &dispparams
);
108 if(This
->doc_host
->frame
)
109 IOleInPlaceFrame_SetStatusText(This
->doc_host
->frame
, str
);
112 static HRESULT
set_dochost_url(DocHost
*This
, const WCHAR
*url
)
117 new_url
= heap_strdupW(url
);
119 return E_OUTOFMEMORY
;
124 heap_free(This
->url
);
127 This
->container_vtbl
->SetURL(This
, This
->url
);
131 static inline BindStatusCallback
*impl_from_IBindStatusCallback(IBindStatusCallback
*iface
)
133 return CONTAINING_RECORD(iface
, BindStatusCallback
, IBindStatusCallback_iface
);
136 static HRESULT WINAPI
BindStatusCallback_QueryInterface(IBindStatusCallback
*iface
,
137 REFIID riid
, void **ppv
)
139 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
141 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
142 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
143 *ppv
= &This
->IBindStatusCallback_iface
;
144 }else if(IsEqualGUID(&IID_IBindStatusCallback
, riid
)) {
145 TRACE("(%p)->(IID_IBindStatusCallback %p)\n", This
, ppv
);
146 *ppv
= &This
->IBindStatusCallback_iface
;
147 }else if(IsEqualGUID(&IID_IHttpNegotiate
, riid
)) {
148 TRACE("(%p)->(IID_IHttpNegotiate %p)\n", This
, ppv
);
149 *ppv
= &This
->IHttpNegotiate_iface
;
152 WARN("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppv
);
153 return E_NOINTERFACE
;
156 IUnknown_AddRef((IUnknown
*)*ppv
);
160 static ULONG WINAPI
BindStatusCallback_AddRef(IBindStatusCallback
*iface
)
162 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
163 LONG ref
= InterlockedIncrement(&This
->ref
);
165 TRACE("(%p) ref=%d\n", This
, ref
);
170 static ULONG WINAPI
BindStatusCallback_Release(IBindStatusCallback
*iface
)
172 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
173 LONG ref
= InterlockedDecrement(&This
->ref
);
175 TRACE("(%p) ref=%d\n", This
, ref
);
179 IOleClientSite_Release(&This
->doc_host
->IOleClientSite_iface
);
181 IBinding_Release(This
->binding
);
183 GlobalFree(This
->post_data
);
184 SysFreeString(This
->headers
);
185 heap_free(This
->url
);
192 static HRESULT WINAPI
BindStatusCallback_OnStartBinding(IBindStatusCallback
*iface
,
193 DWORD dwReserved
, IBinding
*pbind
)
195 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
197 TRACE("(%p)->(%d %p)\n", This
, dwReserved
, pbind
);
199 This
->binding
= pbind
;
200 IBinding_AddRef(This
->binding
);
205 static HRESULT WINAPI
BindStatusCallback_GetPriority(IBindStatusCallback
*iface
,
208 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
209 FIXME("(%p)->(%p)\n", This
, pnPriority
);
213 static HRESULT WINAPI
BindStatusCallback_OnLowResource(IBindStatusCallback
*iface
,
216 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
217 FIXME("(%p)->(%d)\n", This
, reserved
);
221 static DWORD
get_http_status_code(IBinding
*binding
)
223 IWinInetHttpInfo
*http_info
;
224 DWORD status
, size
= sizeof(DWORD
);
227 hres
= IBinding_QueryInterface(binding
, &IID_IWinInetHttpInfo
, (void**)&http_info
);
229 return HTTP_STATUS_OK
;
231 hres
= IWinInetHttpInfo_QueryInfo(http_info
, HTTP_QUERY_STATUS_CODE
|HTTP_QUERY_FLAG_NUMBER
,
232 &status
, &size
, NULL
, NULL
);
233 IWinInetHttpInfo_Release(http_info
);
236 return HTTP_STATUS_OK
;
240 static HRESULT WINAPI
BindStatusCallback_OnProgress(IBindStatusCallback
*iface
,
241 ULONG ulProgress
, ULONG ulProgressMax
, ULONG ulStatusCode
, LPCWSTR szStatusText
)
243 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
246 TRACE("(%p)->(%d %d %d %s)\n", This
, ulProgress
, ulProgressMax
, ulStatusCode
,
247 debugstr_w(szStatusText
));
249 switch(ulStatusCode
) {
250 case BINDSTATUS_REDIRECTING
:
251 return set_dochost_url(This
->doc_host
, szStatusText
);
252 case BINDSTATUS_BEGINDOWNLOADDATA
:
253 set_status_text(This
, szStatusText
); /* FIXME: "Start downloading from site: %s" */
254 status_code
= get_http_status_code(This
->binding
);
255 if(status_code
!= HTTP_STATUS_OK
)
256 handle_navigation_error(This
->doc_host
, status_code
, This
->url
, NULL
);
258 case BINDSTATUS_ENDDOWNLOADDATA
:
259 set_status_text(This
, szStatusText
); /* FIXME: "Downloading from site: %s" */
261 case BINDSTATUS_CLASSIDAVAILABLE
:
262 case BINDSTATUS_MIMETYPEAVAILABLE
:
263 case BINDSTATUS_BEGINSYNCOPERATION
:
264 case BINDSTATUS_ENDSYNCOPERATION
:
267 FIXME("status code %u\n", ulStatusCode
);
273 void handle_navigation_error(DocHost
* doc_host
, HRESULT hres
, BSTR url
, IHTMLWindow2
*win2
)
275 VARIANT var_status_code
, var_frame_name
, var_url
;
276 DISPPARAMS dispparams
;
277 VARIANTARG params
[5];
278 VARIANT_BOOL cancel
= VARIANT_FALSE
;
280 dispparams
.cArgs
= 5;
281 dispparams
.cNamedArgs
= 0;
282 dispparams
.rgdispidNamedArgs
= NULL
;
283 dispparams
.rgvarg
= params
;
285 V_VT(params
) = VT_BOOL
|VT_BYREF
;
286 V_BOOLREF(params
) = &cancel
;
288 V_VT(params
+1) = VT_VARIANT
|VT_BYREF
;
289 V_VARIANTREF(params
+1) = &var_status_code
;
290 V_VT(&var_status_code
) = VT_I4
;
291 V_I4(&var_status_code
) = hres
;
293 V_VT(params
+2) = VT_VARIANT
|VT_BYREF
;
294 V_VARIANTREF(params
+2) = &var_frame_name
;
295 V_VT(&var_frame_name
) = VT_BSTR
;
297 hres
= IHTMLWindow2_get_name(win2
, &V_BSTR(&var_frame_name
));
299 V_BSTR(&var_frame_name
) = NULL
;
301 V_BSTR(&var_frame_name
) = NULL
;
303 V_VT(params
+3) = VT_VARIANT
|VT_BYREF
;
304 V_VARIANTREF(params
+3) = &var_url
;
305 V_VT(&var_url
) = VT_BSTR
;
306 V_BSTR(&var_url
) = url
;
308 V_VT(params
+4) = VT_DISPATCH
;
309 V_DISPATCH(params
+4) = doc_host
->disp
;
311 call_sink(doc_host
->cps
.wbe2
, DISPID_NAVIGATEERROR
, &dispparams
);
312 SysFreeString(V_BSTR(&var_frame_name
));
315 FIXME("Navigate to error page\n");
318 static HRESULT WINAPI
BindStatusCallback_OnStopBinding(IBindStatusCallback
*iface
,
319 HRESULT hresult
, LPCWSTR szError
)
321 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
323 TRACE("(%p)->(%08x %s)\n", This
, hresult
, debugstr_w(szError
));
325 set_status_text(This
, emptyW
);
331 handle_navigation_error(This
->doc_host
, hresult
, This
->url
, NULL
);
333 IOleClientSite_Release(&This
->doc_host
->IOleClientSite_iface
);
334 This
->doc_host
= NULL
;
336 IBinding_Release(This
->binding
);
337 This
->binding
= NULL
;
342 static HRESULT WINAPI
BindStatusCallback_GetBindInfo(IBindStatusCallback
*iface
,
343 DWORD
*grfBINDF
, BINDINFO
*pbindinfo
)
345 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
347 TRACE("(%p)->(%p %p)\n", This
, grfBINDF
, pbindinfo
);
349 *grfBINDF
= BINDF_ASYNCHRONOUS
;
351 if(This
->post_data
) {
352 pbindinfo
->dwBindVerb
= BINDVERB_POST
;
354 pbindinfo
->stgmedData
.tymed
= TYMED_HGLOBAL
;
355 pbindinfo
->stgmedData
.u
.hGlobal
= This
->post_data
;
356 pbindinfo
->cbstgmedData
= This
->post_data_len
;
357 pbindinfo
->stgmedData
.pUnkForRelease
= (IUnknown
*)&This
->IBindStatusCallback_iface
;
358 IBindStatusCallback_AddRef(&This
->IBindStatusCallback_iface
);
364 static HRESULT WINAPI
BindStatusCallback_OnDataAvailable(IBindStatusCallback
*iface
,
365 DWORD grfBSCF
, DWORD dwSize
, FORMATETC
*pformatetc
, STGMEDIUM
*pstgmed
)
367 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
368 FIXME("(%p)->(%08x %d %p %p)\n", This
, grfBSCF
, dwSize
, pformatetc
, pstgmed
);
372 static HRESULT WINAPI
BindStatusCallback_OnObjectAvailable(IBindStatusCallback
*iface
,
373 REFIID riid
, IUnknown
*punk
)
375 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
377 TRACE("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), punk
);
379 return dochost_object_available(This
->doc_host
, punk
);
382 static const IBindStatusCallbackVtbl BindStatusCallbackVtbl
= {
383 BindStatusCallback_QueryInterface
,
384 BindStatusCallback_AddRef
,
385 BindStatusCallback_Release
,
386 BindStatusCallback_OnStartBinding
,
387 BindStatusCallback_GetPriority
,
388 BindStatusCallback_OnLowResource
,
389 BindStatusCallback_OnProgress
,
390 BindStatusCallback_OnStopBinding
,
391 BindStatusCallback_GetBindInfo
,
392 BindStatusCallback_OnDataAvailable
,
393 BindStatusCallback_OnObjectAvailable
396 static inline BindStatusCallback
*impl_from_IHttpNegotiate(IHttpNegotiate
*iface
)
398 return CONTAINING_RECORD(iface
, BindStatusCallback
, IHttpNegotiate_iface
);
401 static HRESULT WINAPI
HttpNegotiate_QueryInterface(IHttpNegotiate
*iface
,
402 REFIID riid
, void **ppv
)
404 BindStatusCallback
*This
= impl_from_IHttpNegotiate(iface
);
405 return IBindStatusCallback_QueryInterface(&This
->IBindStatusCallback_iface
, riid
, ppv
);
408 static ULONG WINAPI
HttpNegotiate_AddRef(IHttpNegotiate
*iface
)
410 BindStatusCallback
*This
= impl_from_IHttpNegotiate(iface
);
411 return IBindStatusCallback_AddRef(&This
->IBindStatusCallback_iface
);
414 static ULONG WINAPI
HttpNegotiate_Release(IHttpNegotiate
*iface
)
416 BindStatusCallback
*This
= impl_from_IHttpNegotiate(iface
);
417 return IBindStatusCallback_Release(&This
->IBindStatusCallback_iface
);
420 static HRESULT WINAPI
HttpNegotiate_BeginningTransaction(IHttpNegotiate
*iface
,
421 LPCWSTR szURL
, LPCWSTR szHeaders
, DWORD dwReserved
, LPWSTR
*pszAdditionalHeaders
)
423 BindStatusCallback
*This
= impl_from_IHttpNegotiate(iface
);
425 TRACE("(%p)->(%s %s %d %p)\n", This
, debugstr_w(szURL
), debugstr_w(szHeaders
),
426 dwReserved
, pszAdditionalHeaders
);
429 int size
= (strlenW(This
->headers
)+1)*sizeof(WCHAR
);
430 *pszAdditionalHeaders
= CoTaskMemAlloc(size
);
431 memcpy(*pszAdditionalHeaders
, This
->headers
, size
);
437 static HRESULT WINAPI
HttpNegotiate_OnResponse(IHttpNegotiate
*iface
,
438 DWORD dwResponseCode
, LPCWSTR szResponseHeaders
, LPCWSTR szRequestHeaders
,
439 LPWSTR
*pszAdditionalRequestHeaders
)
441 BindStatusCallback
*This
= impl_from_IHttpNegotiate(iface
);
442 TRACE("(%p)->(%d %s %s %p)\n", This
, dwResponseCode
, debugstr_w(szResponseHeaders
),
443 debugstr_w(szRequestHeaders
), pszAdditionalRequestHeaders
);
447 static const IHttpNegotiateVtbl HttpNegotiateVtbl
= {
448 HttpNegotiate_QueryInterface
,
449 HttpNegotiate_AddRef
,
450 HttpNegotiate_Release
,
451 HttpNegotiate_BeginningTransaction
,
452 HttpNegotiate_OnResponse
455 static BindStatusCallback
*create_callback(DocHost
*doc_host
, LPCWSTR url
, PBYTE post_data
,
456 ULONG post_data_len
, LPCWSTR headers
)
458 BindStatusCallback
*ret
= heap_alloc(sizeof(BindStatusCallback
));
460 ret
->IBindStatusCallback_iface
.lpVtbl
= &BindStatusCallbackVtbl
;
461 ret
->IHttpNegotiate_iface
.lpVtbl
= &HttpNegotiateVtbl
;
464 ret
->url
= heap_strdupW(url
);
465 ret
->post_data
= NULL
;
466 ret
->post_data_len
= post_data_len
;
467 ret
->headers
= headers
? SysAllocString(headers
) : NULL
;
469 ret
->doc_host
= doc_host
;
470 IOleClientSite_AddRef(&doc_host
->IOleClientSite_iface
);
475 ret
->post_data
= GlobalAlloc(0, post_data_len
);
476 memcpy(ret
->post_data
, post_data
, post_data_len
);
482 static void on_before_navigate2(DocHost
*This
, LPCWSTR url
, SAFEARRAY
*post_data
, LPWSTR headers
, VARIANT_BOOL
*cancel
)
484 VARIANT var_url
, var_flags
, var_frame_name
, var_post_data
, var_post_data2
, var_headers
;
485 DISPPARAMS dispparams
;
486 VARIANTARG params
[7];
488 dispparams
.cArgs
= 7;
489 dispparams
.cNamedArgs
= 0;
490 dispparams
.rgdispidNamedArgs
= NULL
;
491 dispparams
.rgvarg
= params
;
493 This
->busy
= VARIANT_TRUE
;
495 V_VT(params
) = VT_BOOL
|VT_BYREF
;
496 V_BOOLREF(params
) = cancel
;
498 V_VT(params
+1) = (VT_BYREF
|VT_VARIANT
);
499 V_VARIANTREF(params
+1) = &var_headers
;
500 V_VT(&var_headers
) = VT_BSTR
;
501 V_BSTR(&var_headers
) = headers
;
503 V_VT(params
+2) = (VT_BYREF
|VT_VARIANT
);
504 V_VARIANTREF(params
+2) = &var_post_data2
;
505 V_VT(&var_post_data2
) = (VT_BYREF
|VT_VARIANT
);
506 V_VARIANTREF(&var_post_data2
) = &var_post_data
;
509 V_VT(&var_post_data
) = VT_UI1
|VT_ARRAY
;
510 V_ARRAY(&var_post_data
) = post_data
;
512 V_VT(&var_post_data
) = VT_EMPTY
;
515 V_VT(params
+3) = (VT_BYREF
|VT_VARIANT
);
516 V_VARIANTREF(params
+3) = &var_frame_name
;
517 V_VT(&var_frame_name
) = VT_BSTR
;
518 V_BSTR(&var_frame_name
) = NULL
;
520 V_VT(params
+4) = (VT_BYREF
|VT_VARIANT
);
521 V_VARIANTREF(params
+4) = &var_flags
;
522 V_VT(&var_flags
) = VT_I4
;
523 V_I4(&var_flags
) = 0;
525 V_VT(params
+5) = (VT_BYREF
|VT_VARIANT
);
526 V_VARIANTREF(params
+5) = &var_url
;
527 V_VT(&var_url
) = VT_BSTR
;
528 V_BSTR(&var_url
) = SysAllocString(url
);
530 V_VT(params
+6) = (VT_DISPATCH
);
531 V_DISPATCH(params
+6) = This
->disp
;
533 call_sink(This
->cps
.wbe2
, DISPID_BEFORENAVIGATE2
, &dispparams
);
535 SysFreeString(V_BSTR(&var_url
));
538 /* FIXME: urlmon should handle it */
539 static BOOL
try_application_url(LPCWSTR url
)
541 SHELLEXECUTEINFOW exec_info
;
547 static const WCHAR wszURLProtocol
[] = {'U','R','L',' ','P','r','o','t','o','c','o','l',0};
549 hres
= CoInternetParseUrl(url
, PARSE_SCHEMA
, 0, app
, sizeof(app
)/sizeof(WCHAR
), NULL
, 0);
553 res
= RegOpenKeyW(HKEY_CLASSES_ROOT
, app
, &hkey
);
554 if(res
!= ERROR_SUCCESS
)
557 res
= RegQueryValueExW(hkey
, wszURLProtocol
, NULL
, &type
, NULL
, NULL
);
559 if(res
!= ERROR_SUCCESS
|| type
!= REG_SZ
)
562 TRACE("openning application %s\n", debugstr_w(app
));
564 memset(&exec_info
, 0, sizeof(exec_info
));
565 exec_info
.cbSize
= sizeof(exec_info
);
566 exec_info
.lpFile
= url
;
567 exec_info
.nShow
= SW_SHOW
;
569 return ShellExecuteExW(&exec_info
);
572 static HRESULT
create_moniker(LPCWSTR url
, IMoniker
**mon
)
574 WCHAR new_url
[INTERNET_MAX_URL_LENGTH
];
579 return CreateURLMoniker(NULL
, url
, mon
);
581 size
= sizeof(new_url
)/sizeof(WCHAR
);
582 hres
= UrlApplySchemeW(url
, new_url
, &size
, URL_APPLY_GUESSSCHEME
| URL_APPLY_GUESSFILE
);
583 TRACE("was %s got %s\n", debugstr_w(url
), debugstr_w(new_url
));
585 WARN("UrlApplyScheme failed: %08x\n", hres
);
589 return CreateURLMoniker(NULL
, new_url
, mon
);
592 static HRESULT
bind_to_object(DocHost
*This
, IMoniker
*mon
, LPCWSTR url
, IBindCtx
*bindctx
,
593 IBindStatusCallback
*callback
)
595 IUnknown
*unk
= NULL
;
600 IMoniker_AddRef(mon
);
602 hres
= create_moniker(url
, &mon
);
607 hres
= IMoniker_GetDisplayName(mon
, 0, NULL
, &display_name
);
609 FIXME("GetDisplayName failed: %08x\n", hres
);
613 hres
= set_dochost_url(This
, display_name
);
614 CoTaskMemFree(display_name
);
618 IBindCtx_RegisterObjectParam(bindctx
, (LPOLESTR
)SZ_HTML_CLIENTSITE_OBJECTPARAM
,
619 (IUnknown
*)&This
->IOleClientSite_iface
);
621 hres
= IMoniker_BindToObject(mon
, bindctx
, NULL
, &IID_IUnknown
, (void**)&unk
);
622 if(SUCCEEDED(hres
)) {
625 IUnknown_Release(unk
);
626 }else if(try_application_url(url
)) {
629 FIXME("BindToObject failed: %08x\n", hres
);
632 IMoniker_Release(mon
);
636 static void html_window_navigate(DocHost
*This
, IHTMLPrivateWindow
*window
, BSTR url
, BSTR headers
, SAFEARRAY
*post_data
)
638 VARIANT headers_var
, post_data_var
;
642 hres
= set_dochost_url(This
, url
);
646 empty_str
= SysAllocStringLen(NULL
, 0);
649 V_VT(&headers_var
) = VT_BSTR
;
650 V_BSTR(&headers_var
) = headers
;
652 V_VT(&headers_var
) = VT_EMPTY
;
656 V_VT(&post_data_var
) = VT_UI1
|VT_ARRAY
;
657 V_ARRAY(&post_data_var
) = post_data
;
659 V_VT(&post_data_var
) = VT_EMPTY
;
662 set_doc_state(This
, READYSTATE_LOADING
);
663 hres
= IHTMLPrivateWindow_SuperNavigate(window
, url
, empty_str
, NULL
, NULL
, &post_data_var
, &headers_var
, 0);
664 SysFreeString(empty_str
);
666 WARN("SuprtNavigate failed: %08x\n", hres
);
670 task_header_t header
;
673 SAFEARRAY
*post_data
;
675 } task_doc_navigate_t
;
677 static HRESULT
free_doc_navigate_task(task_doc_navigate_t
*task
, BOOL free_task
)
679 SysFreeString(task
->url
);
680 SysFreeString(task
->headers
);
682 SafeArrayDestroy(task
->post_data
);
685 return E_OUTOFMEMORY
;
688 static void doc_navigate_proc(DocHost
*This
, task_header_t
*t
)
690 task_doc_navigate_t
*task
= (task_doc_navigate_t
*)t
;
691 IHTMLPrivateWindow
*priv_window
;
694 if(!This
->doc_navigate
)
697 if(task
->async_notif
) {
698 VARIANT_BOOL cancel
= VARIANT_FALSE
;
699 on_before_navigate2(This
, task
->url
, task
->post_data
, task
->headers
, &cancel
);
701 TRACE("Navigation calnceled\n");
702 free_doc_navigate_task(task
, FALSE
);
707 hres
= IUnknown_QueryInterface(This
->doc_navigate
, &IID_IHTMLPrivateWindow
, (void**)&priv_window
);
708 if(SUCCEEDED(hres
)) {
709 html_window_navigate(This
, priv_window
, task
->url
, task
->headers
, task
->post_data
);
710 IHTMLPrivateWindow_Release(priv_window
);
712 WARN("Could not get IHTMLPrivateWindow iface: %08x\n", hres
);
715 free_doc_navigate_task(task
, FALSE
);
718 static HRESULT
async_doc_navigate(DocHost
*This
, LPCWSTR url
, LPCWSTR headers
, PBYTE post_data
, ULONG post_data_size
,
721 task_doc_navigate_t
*task
;
723 task
= heap_alloc_zero(sizeof(*task
));
725 return E_OUTOFMEMORY
;
727 task
->url
= SysAllocString(url
);
729 return free_doc_navigate_task(task
, TRUE
);
732 task
->headers
= SysAllocString(headers
);
734 return free_doc_navigate_task(task
, TRUE
);
738 task
->post_data
= SafeArrayCreateVector(VT_UI1
, 0, post_data_size
);
740 return free_doc_navigate_task(task
, TRUE
);
741 memcpy(task
->post_data
->pvData
, post_data
, post_data_size
);
745 VARIANT_BOOL cancel
= VARIANT_FALSE
;
747 on_before_navigate2(This
, task
->url
, task
->post_data
, task
->headers
, &cancel
);
749 TRACE("Navigation calnceled\n");
750 free_doc_navigate_task(task
, TRUE
);
755 task
->async_notif
= async_notif
;
756 push_dochost_task(This
, &task
->header
, doc_navigate_proc
, FALSE
);
760 static HRESULT
navigate_bsc(DocHost
*This
, BindStatusCallback
*bsc
, IMoniker
*mon
)
762 VARIANT_BOOL cancel
= VARIANT_FALSE
;
763 SAFEARRAY
*post_data
= NULL
;
767 set_doc_state(This
, READYSTATE_LOADING
);
770 post_data
= SafeArrayCreateVector(VT_UI1
, 0, bsc
->post_data_len
);
771 memcpy(post_data
->pvData
, post_data
, bsc
->post_data_len
);
774 on_before_navigate2(This
, bsc
->url
, post_data
, bsc
->headers
, &cancel
);
776 SafeArrayDestroy(post_data
);
778 FIXME("Navigation canceled\n");
783 deactivate_document(This
);
785 CreateAsyncBindCtx(0, &bsc
->IBindStatusCallback_iface
, 0, &bindctx
);
788 IOleInPlaceFrame_EnableModeless(This
->frame
, FALSE
);
790 hres
= bind_to_object(This
, mon
, bsc
->url
, bindctx
, &bsc
->IBindStatusCallback_iface
);
793 IOleInPlaceFrame_EnableModeless(This
->frame
, TRUE
);
795 IBindCtx_Release(bindctx
);
801 task_header_t header
;
802 BindStatusCallback
*bsc
;
803 } task_navigate_bsc_t
;
805 static void navigate_bsc_proc(DocHost
*This
, task_header_t
*t
)
807 task_navigate_bsc_t
*task
= (task_navigate_bsc_t
*)t
;
810 create_doc_view_hwnd(This
);
812 navigate_bsc(This
, task
->bsc
, NULL
);
814 IBindStatusCallback_Release(&task
->bsc
->IBindStatusCallback_iface
);
818 HRESULT
navigate_url(DocHost
*This
, LPCWSTR url
, const VARIANT
*Flags
,
819 const VARIANT
*TargetFrameName
, VARIANT
*PostData
, VARIANT
*Headers
)
821 PBYTE post_data
= NULL
;
822 ULONG post_data_len
= 0;
823 LPWSTR headers
= NULL
;
826 TRACE("navigating to %s\n", debugstr_w(url
));
828 if((Flags
&& V_VT(Flags
) != VT_EMPTY
)
829 || (TargetFrameName
&& V_VT(TargetFrameName
) != VT_EMPTY
))
830 FIXME("Unsupported args (Flags %p:%d; TargetFrameName %p:%d)\n",
831 Flags
, Flags
? V_VT(Flags
) : -1, TargetFrameName
,
832 TargetFrameName
? V_VT(TargetFrameName
) : -1);
834 if(PostData
&& V_VT(PostData
) == (VT_ARRAY
| VT_UI1
) && V_ARRAY(PostData
)) {
835 SafeArrayAccessData(V_ARRAY(PostData
), (void**)&post_data
);
836 post_data_len
= V_ARRAY(PostData
)->rgsabound
[0].cElements
;
839 if(Headers
&& V_VT(Headers
) == VT_BSTR
) {
840 headers
= V_BSTR(Headers
);
841 TRACE("Headers: %s\n", debugstr_w(headers
));
844 set_doc_state(This
, READYSTATE_LOADING
);
845 This
->ready_state
= READYSTATE_LOADING
;
847 if(This
->doc_navigate
) {
848 WCHAR new_url
[INTERNET_MAX_URL_LENGTH
];
850 if(PathIsURLW(url
)) {
855 size
= sizeof(new_url
)/sizeof(WCHAR
);
856 hres
= UrlApplySchemeW(url
, new_url
, &size
,
857 URL_APPLY_GUESSSCHEME
| URL_APPLY_GUESSFILE
| URL_APPLY_DEFAULT
);
859 WARN("UrlApplyScheme failed: %08x\n", hres
);
864 hres
= async_doc_navigate(This
, *new_url
? new_url
: url
, headers
, post_data
,
865 post_data_len
, TRUE
);
867 task_navigate_bsc_t
*task
;
869 task
= heap_alloc(sizeof(*task
));
870 task
->bsc
= create_callback(This
, url
, post_data
, post_data_len
, headers
);
871 push_dochost_task(This
, &task
->header
, navigate_bsc_proc
, This
->url
== NULL
);
875 SafeArrayUnaccessData(V_ARRAY(PostData
));
880 static HRESULT
navigate_hlink(DocHost
*This
, IMoniker
*mon
, IBindCtx
*bindctx
,
881 IBindStatusCallback
*callback
)
883 IHttpNegotiate
*http_negotiate
;
884 BindStatusCallback
*bsc
;
885 PBYTE post_data
= NULL
;
886 ULONG post_data_len
= 0;
887 LPWSTR headers
= NULL
, url
;
892 hres
= IMoniker_GetDisplayName(mon
, 0, NULL
, &url
);
894 FIXME("GetDisplayName failed: %08x\n", hres
);
896 hres
= IBindStatusCallback_QueryInterface(callback
, &IID_IHttpNegotiate
,
897 (void**)&http_negotiate
);
898 if(SUCCEEDED(hres
)) {
899 static const WCHAR null_string
[] = {0};
901 IHttpNegotiate_BeginningTransaction(http_negotiate
, null_string
, null_string
, 0,
903 IHttpNegotiate_Release(http_negotiate
);
906 memset(&bindinfo
, 0, sizeof(bindinfo
));
907 bindinfo
.cbSize
= sizeof(bindinfo
);
909 hres
= IBindStatusCallback_GetBindInfo(callback
, &bindf
, &bindinfo
);
910 dump_BINDINFO(&bindinfo
);
911 if(bindinfo
.dwBindVerb
== BINDVERB_POST
) {
912 post_data_len
= bindinfo
.cbstgmedData
;
914 post_data
= bindinfo
.stgmedData
.u
.hGlobal
;
917 if(This
->doc_navigate
) {
918 hres
= async_doc_navigate(This
, url
, headers
, post_data
, post_data_len
, FALSE
);
920 bsc
= create_callback(This
, url
, post_data
, post_data_len
, headers
);
921 hres
= navigate_bsc(This
, bsc
, mon
);
922 IBindStatusCallback_Release(&bsc
->IBindStatusCallback_iface
);
926 CoTaskMemFree(headers
);
927 ReleaseBindInfo(&bindinfo
);
932 HRESULT
go_home(DocHost
*This
)
935 DWORD res
, type
, size
;
936 WCHAR wszPageName
[MAX_PATH
];
937 static const WCHAR wszAboutBlank
[] = {'a','b','o','u','t',':','b','l','a','n','k',0};
938 static const WCHAR wszStartPage
[] = {'S','t','a','r','t',' ','P','a','g','e',0};
939 static const WCHAR wszSubKey
[] = {'S','o','f','t','w','a','r','e','\\',
940 'M','i','c','r','o','s','o','f','t','\\',
941 'I','n','t','e','r','n','e','t',' ','E','x','p','l','o','r','e','r','\\',
944 res
= RegOpenKeyW(HKEY_CURRENT_USER
, wszSubKey
, &hkey
);
945 if (res
!= ERROR_SUCCESS
)
946 return navigate_url(This
, wszAboutBlank
, NULL
, NULL
, NULL
, NULL
);
948 size
= sizeof(wszPageName
);
949 res
= RegQueryValueExW(hkey
, wszStartPage
, NULL
, &type
, (LPBYTE
)wszPageName
, &size
);
951 if (res
!= ERROR_SUCCESS
|| type
!= REG_SZ
)
952 return navigate_url(This
, wszAboutBlank
, NULL
, NULL
, NULL
, NULL
);
954 return navigate_url(This
, wszPageName
, NULL
, NULL
, NULL
, NULL
);
957 HRESULT
get_location_url(DocHost
*This
, BSTR
*ret
)
959 FIXME("semi-stub\n");
961 *ret
= This
->url
? SysAllocString(This
->url
) : SysAllocStringLen(NULL
, 0);
963 return E_OUTOFMEMORY
;
965 return This
->url
? S_OK
: S_FALSE
;
968 static inline HlinkFrame
*impl_from_IHlinkFrame(IHlinkFrame
*iface
)
970 return CONTAINING_RECORD(iface
, HlinkFrame
, IHlinkFrame_iface
);
973 static HRESULT WINAPI
HlinkFrame_QueryInterface(IHlinkFrame
*iface
, REFIID riid
, void **ppv
)
975 HlinkFrame
*This
= impl_from_IHlinkFrame(iface
);
976 return IUnknown_QueryInterface(This
->outer
, riid
, ppv
);
979 static ULONG WINAPI
HlinkFrame_AddRef(IHlinkFrame
*iface
)
981 HlinkFrame
*This
= impl_from_IHlinkFrame(iface
);
982 return IUnknown_AddRef(This
->outer
);
985 static ULONG WINAPI
HlinkFrame_Release(IHlinkFrame
*iface
)
987 HlinkFrame
*This
= impl_from_IHlinkFrame(iface
);
988 return IUnknown_Release(This
->outer
);
991 static HRESULT WINAPI
HlinkFrame_SetBrowseContext(IHlinkFrame
*iface
,
992 IHlinkBrowseContext
*pihlbc
)
994 HlinkFrame
*This
= impl_from_IHlinkFrame(iface
);
995 FIXME("(%p)->(%p)\n", This
, pihlbc
);
999 static HRESULT WINAPI
HlinkFrame_GetBrowseContext(IHlinkFrame
*iface
,
1000 IHlinkBrowseContext
**ppihlbc
)
1002 HlinkFrame
*This
= impl_from_IHlinkFrame(iface
);
1003 FIXME("(%p)->(%p)\n", This
, ppihlbc
);
1007 static HRESULT WINAPI
HlinkFrame_Navigate(IHlinkFrame
*iface
, DWORD grfHLNF
, LPBC pbc
,
1008 IBindStatusCallback
*pibsc
, IHlink
*pihlNavigate
)
1010 HlinkFrame
*This
= impl_from_IHlinkFrame(iface
);
1012 LPWSTR location
= NULL
;
1014 TRACE("(%p)->(%08x %p %p %p)\n", This
, grfHLNF
, pbc
, pibsc
, pihlNavigate
);
1017 FIXME("unsupported grfHLNF=%08x\n", grfHLNF
);
1019 /* Windows calls GetTargetFrameName here. */
1021 IHlink_GetMonikerReference(pihlNavigate
, 1, &mon
, &location
);
1024 FIXME("location = %s\n", debugstr_w(location
));
1025 CoTaskMemFree(location
);
1028 /* Windows calls GetHlinkSite here */
1030 if(grfHLNF
& HLNF_OPENINNEWWINDOW
) {
1031 FIXME("Not supported HLNF_OPENINNEWWINDOW\n");
1035 return navigate_hlink(This
->doc_host
, mon
, pbc
, pibsc
);
1038 static HRESULT WINAPI
HlinkFrame_OnNavigate(IHlinkFrame
*iface
, DWORD grfHLNF
,
1039 IMoniker
*pimkTarget
, LPCWSTR pwzLocation
, LPCWSTR pwzFriendlyName
, DWORD dwreserved
)
1041 HlinkFrame
*This
= impl_from_IHlinkFrame(iface
);
1042 FIXME("(%p)->(%08x %p %s %s %d)\n", This
, grfHLNF
, pimkTarget
, debugstr_w(pwzLocation
),
1043 debugstr_w(pwzFriendlyName
), dwreserved
);
1047 static HRESULT WINAPI
HlinkFrame_UpdateHlink(IHlinkFrame
*iface
, ULONG uHLID
,
1048 IMoniker
*pimkTarget
, LPCWSTR pwzLocation
, LPCWSTR pwzFriendlyName
)
1050 HlinkFrame
*This
= impl_from_IHlinkFrame(iface
);
1051 FIXME("(%p)->(%u %p %s %s)\n", This
, uHLID
, pimkTarget
, debugstr_w(pwzLocation
),
1052 debugstr_w(pwzFriendlyName
));
1056 static const IHlinkFrameVtbl HlinkFrameVtbl
= {
1057 HlinkFrame_QueryInterface
,
1060 HlinkFrame_SetBrowseContext
,
1061 HlinkFrame_GetBrowseContext
,
1062 HlinkFrame_Navigate
,
1063 HlinkFrame_OnNavigate
,
1064 HlinkFrame_UpdateHlink
1067 static inline HlinkFrame
*impl_from_ITargetFrame2(ITargetFrame2
*iface
)
1069 return CONTAINING_RECORD(iface
, HlinkFrame
, IHlinkFrame_iface
);
1072 static HRESULT WINAPI
TargetFrame2_QueryInterface(ITargetFrame2
*iface
, REFIID riid
, void **ppv
)
1074 HlinkFrame
*This
= impl_from_ITargetFrame2(iface
);
1075 return IUnknown_QueryInterface(This
->outer
, riid
, ppv
);
1078 static ULONG WINAPI
TargetFrame2_AddRef(ITargetFrame2
*iface
)
1080 HlinkFrame
*This
= impl_from_ITargetFrame2(iface
);
1081 return IUnknown_AddRef(This
->outer
);
1084 static ULONG WINAPI
TargetFrame2_Release(ITargetFrame2
*iface
)
1086 HlinkFrame
*This
= impl_from_ITargetFrame2(iface
);
1087 return IUnknown_Release(This
->outer
);
1090 static HRESULT WINAPI
TargetFrame2_SetFrameName(ITargetFrame2
*iface
, LPCWSTR pszFrameName
)
1092 HlinkFrame
*This
= impl_from_ITargetFrame2(iface
);
1093 FIXME("(%p)->(%s)\n", This
, debugstr_w(pszFrameName
));
1097 static HRESULT WINAPI
TargetFrame2_GetFrameName(ITargetFrame2
*iface
, LPWSTR
*ppszFrameName
)
1099 HlinkFrame
*This
= impl_from_ITargetFrame2(iface
);
1100 FIXME("(%p)->(%p)\n", This
, ppszFrameName
);
1104 static HRESULT WINAPI
TargetFrame2_GetParentFrame(ITargetFrame2
*iface
, IUnknown
**ppunkParent
)
1106 HlinkFrame
*This
= impl_from_ITargetFrame2(iface
);
1107 FIXME("(%p)->(%p)\n", This
, ppunkParent
);
1111 static HRESULT WINAPI
TargetFrame2_SetFrameSrc(ITargetFrame2
*iface
, LPCWSTR pszFrameSrc
)
1113 HlinkFrame
*This
= impl_from_ITargetFrame2(iface
);
1114 FIXME("(%p)->(%s)\n", This
, debugstr_w(pszFrameSrc
));
1118 static HRESULT WINAPI
TargetFrame2_GetFrameSrc(ITargetFrame2
*iface
, LPWSTR
*ppszFrameSrc
)
1120 HlinkFrame
*This
= impl_from_ITargetFrame2(iface
);
1121 FIXME("(%p)->()\n", This
);
1125 static HRESULT WINAPI
TargetFrame2_GetFramesContainer(ITargetFrame2
*iface
, IOleContainer
**ppContainer
)
1127 HlinkFrame
*This
= impl_from_ITargetFrame2(iface
);
1128 FIXME("(%p)->(%p)\n", This
, ppContainer
);
1132 static HRESULT WINAPI
TargetFrame2_SetFrameOptions(ITargetFrame2
*iface
, DWORD dwFlags
)
1134 HlinkFrame
*This
= impl_from_ITargetFrame2(iface
);
1135 FIXME("(%p)->(%x)\n", This
, dwFlags
);
1139 static HRESULT WINAPI
TargetFrame2_GetFrameOptions(ITargetFrame2
*iface
, DWORD
*pdwFlags
)
1141 HlinkFrame
*This
= impl_from_ITargetFrame2(iface
);
1142 FIXME("(%p)->(%p)\n", This
, pdwFlags
);
1146 static HRESULT WINAPI
TargetFrame2_SetFrameMargins(ITargetFrame2
*iface
, DWORD dwWidth
, DWORD dwHeight
)
1148 HlinkFrame
*This
= impl_from_ITargetFrame2(iface
);
1149 FIXME("(%p)->(%d %d)\n", This
, dwWidth
, dwHeight
);
1153 static HRESULT WINAPI
TargetFrame2_GetFrameMargins(ITargetFrame2
*iface
, DWORD
*pdwWidth
, DWORD
*pdwHeight
)
1155 HlinkFrame
*This
= impl_from_ITargetFrame2(iface
);
1156 FIXME("(%p)->(%p %p)\n", This
, pdwWidth
, pdwHeight
);
1160 static HRESULT WINAPI
TargetFrame2_FindFrame(ITargetFrame2
*iface
, LPCWSTR pszTargetName
, DWORD dwFlags
, IUnknown
**ppunkTargetFrame
)
1162 HlinkFrame
*This
= impl_from_ITargetFrame2(iface
);
1163 FIXME("(%p)->(%s %x %p)\n", This
, debugstr_w(pszTargetName
), dwFlags
, ppunkTargetFrame
);
1167 static HRESULT WINAPI
TargetFrame2_GetTargetAlias(ITargetFrame2
*iface
, LPCWSTR pszTargetName
, LPWSTR
*ppszTargetAlias
)
1169 HlinkFrame
*This
= impl_from_ITargetFrame2(iface
);
1170 FIXME("(%p)->(%s %p)\n", This
, debugstr_w(pszTargetName
), ppszTargetAlias
);
1174 static const ITargetFrame2Vtbl TargetFrame2Vtbl
= {
1175 TargetFrame2_QueryInterface
,
1176 TargetFrame2_AddRef
,
1177 TargetFrame2_Release
,
1178 TargetFrame2_SetFrameName
,
1179 TargetFrame2_GetFrameName
,
1180 TargetFrame2_GetParentFrame
,
1181 TargetFrame2_SetFrameSrc
,
1182 TargetFrame2_GetFrameSrc
,
1183 TargetFrame2_GetFramesContainer
,
1184 TargetFrame2_SetFrameOptions
,
1185 TargetFrame2_GetFrameOptions
,
1186 TargetFrame2_SetFrameMargins
,
1187 TargetFrame2_GetFrameMargins
,
1188 TargetFrame2_FindFrame
,
1189 TargetFrame2_GetTargetAlias
1192 BOOL
HlinkFrame_QI(HlinkFrame
*This
, REFIID riid
, void **ppv
)
1194 if(IsEqualGUID(&IID_IHlinkFrame
, riid
)) {
1195 TRACE("(%p)->(IID_IHlinkFrame %p)\n", This
, ppv
);
1196 *ppv
= &This
->IHlinkFrame_iface
;
1197 }else if(IsEqualGUID(&IID_ITargetFrame2
, riid
)) {
1198 TRACE("(%p)->(IID_ITargetFrame2 %p)\n", This
, ppv
);
1199 *ppv
= &This
->ITargetFrame2_iface
;
1204 IUnknown_AddRef((IUnknown
*)*ppv
);
1208 void HlinkFrame_Init(HlinkFrame
*This
, IUnknown
*outer
, DocHost
*doc_host
)
1210 This
->IHlinkFrame_iface
.lpVtbl
= &HlinkFrameVtbl
;
1211 This
->ITargetFrame2_iface
.lpVtbl
= &TargetFrame2Vtbl
;
1213 This
->outer
= outer
;
1214 This
->doc_host
= doc_host
;