reactos/dll/win32/ieframe/navigate.c

   1 /*
   2  * Copyright 2006-2007 Jacek Caban for CodeWeavers
   3  *
   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.
   8  *
   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.
  13  *
  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
  17  */
  18
  19 #include "ieframe.h"
  20
  21 #include <wininet.h>
  22
  23 static const WCHAR emptyW[] = {0};
  24
  25 typedef struct {
  26     IBindStatusCallback  IBindStatusCallback_iface;
  27     IHttpNegotiate       IHttpNegotiate_iface;
  28     IHttpSecurity        IHttpSecurity_iface;
  29
  30     LONG ref;
  31
  32     DocHost *doc_host;
  33     IBinding *binding;
  34
  35     BSTR url;
  36     HGLOBAL post_data;
  37     BSTR headers;
  38     ULONG post_data_len;
  39 } BindStatusCallback;
  40
  41 static void dump_BINDINFO(BINDINFO *bi)
  42 {
  43     static const char * const BINDINFOF_str[] = {
  44         "#0",
  45         "BINDINFOF_URLENCODESTGMEDDATA",
  46         "BINDINFOF_URLENCODEDEXTRAINFO"
  47     };
  48
  49     static const char * const BINDVERB_str[] = {
  50         "BINDVERB_GET",
  51         "BINDVERB_POST",
  52         "BINDVERB_PUT",
  53         "BINDVERB_CUSTOM"
  54     };
  55
  56     TRACE("\n"
  57             "BINDINFO = {\n"
  58             "    %d, %s,\n"
  59             "    {%d, %p, %p},\n"
  60             "    %s,\n"
  61             "    %s,\n"
  62             "    %s,\n"
  63             "    %d, %08x, %d, %d\n"
  64             "    {%d %p %x},\n"
  65             "    %s\n"
  66             "    %p, %d\n"
  67             "}\n",
  68
  69             bi->cbSize, debugstr_w(bi->szExtraInfo),
  70             bi->stgmedData.tymed, bi->stgmedData.u.hGlobal, bi->stgmedData.pUnkForRelease,
  71             bi->grfBindInfoF > BINDINFOF_URLENCODEDEXTRAINFO
  72                 ? "unknown" : BINDINFOF_str[bi->grfBindInfoF],
  73             bi->dwBindVerb > BINDVERB_CUSTOM
  74                 ? "unknown" : BINDVERB_str[bi->dwBindVerb],
  75             debugstr_w(bi->szCustomVerb),
  76             bi->cbstgmedData, bi->dwOptions, bi->dwOptionsFlags, bi->dwCodePage,
  77             bi->securityAttributes.nLength,
  78             bi->securityAttributes.lpSecurityDescriptor,
  79             bi->securityAttributes.bInheritHandle,
  80             debugstr_guid(&bi->iid),
  81             bi->pUnk, bi->dwReserved
  82             );
  83 }
  84
  85 static void set_status_text(BindStatusCallback *This, ULONG statuscode, LPCWSTR str)
  86 {
  87     VARIANTARG arg;
  88     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
  89     WCHAR fmt[IDS_STATUSFMT_MAXLEN];
  90     WCHAR buffer[IDS_STATUSFMT_MAXLEN + INTERNET_MAX_URL_LENGTH];
  91
  92     if(!This->doc_host)
  93         return;
  94
  95     TRACE("(%p, %d, %s)\n", This, statuscode, debugstr_w(str));
  96     buffer[0] = 0;
  97     if (statuscode && str && *str) {
  98         fmt[0] = 0;
  99         /* the format string must have one "%s" for the str */
 100         LoadStringW(ieframe_instance, IDS_STATUSFMT_FIRST + statuscode, fmt, IDS_STATUSFMT_MAXLEN);
 101         snprintfW(buffer, sizeof(buffer)/sizeof(WCHAR), fmt, str);
 102     }
 103
 104     V_VT(&arg) = VT_BSTR;
 105     V_BSTR(&arg) = str ? SysAllocString(buffer) : NULL;
 106     TRACE("=> %s\n", debugstr_w(V_BSTR(&arg)));
 107
 108     call_sink(This->doc_host->cps.wbe2, DISPID_STATUSTEXTCHANGE, &dispparams);
 109
 110     if(This->doc_host->frame)
 111         IOleInPlaceFrame_SetStatusText(This->doc_host->frame, buffer);
 112
 113     VariantClear(&arg);
 114
 115 }
 116
 117 HRESULT set_dochost_url(DocHost *This, const WCHAR *url)
 118 {
 119     WCHAR *new_url;
 120
 121     if(url) {
 122         new_url = heap_strdupW(url);
 123         if(!new_url)
 124             return E_OUTOFMEMORY;
 125     }else {
 126         new_url = NULL;
 127     }
 128
 129     heap_free(This->url);
 130     This->url = new_url;
 131
 132     This->container_vtbl->SetURL(This, This->url);
 133     return S_OK;
 134 }
 135
 136 static inline BindStatusCallback *impl_from_IBindStatusCallback(IBindStatusCallback *iface)
 137 {
 138     return CONTAINING_RECORD(iface, BindStatusCallback, IBindStatusCallback_iface);
 139 }
 140
 141 static HRESULT WINAPI BindStatusCallback_QueryInterface(IBindStatusCallback *iface,
 142                                                         REFIID riid, void **ppv)
 143 {
 144     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 145
 146     if(IsEqualGUID(&IID_IUnknown, riid)) {
 147         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
 148         *ppv = &This->IBindStatusCallback_iface;
 149     }else if(IsEqualGUID(&IID_IBindStatusCallback, riid)) {
 150         TRACE("(%p)->(IID_IBindStatusCallback %p)\n", This, ppv);
 151         *ppv = &This->IBindStatusCallback_iface;
 152     }else if(IsEqualGUID(&IID_IHttpNegotiate, riid)) {
 153         TRACE("(%p)->(IID_IHttpNegotiate %p)\n", This, ppv);
 154         *ppv = &This->IHttpNegotiate_iface;
 155     }else if(IsEqualGUID(&IID_IWindowForBindingUI, riid)) {
 156         TRACE("(%p)->(IID_IWindowForBindingUI %p)\n", This, ppv);
 157         *ppv = &This->IHttpSecurity_iface;
 158     }else if(IsEqualGUID(&IID_IHttpSecurity, riid)) {
 159         TRACE("(%p)->(IID_IHttpSecurity %p)\n", This, ppv);
 160         *ppv = &This->IHttpSecurity_iface;
 161     }else {
 162         *ppv = NULL;
 163         WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
 164         return E_NOINTERFACE;
 165     }
 166
 167     IUnknown_AddRef((IUnknown*)*ppv);
 168     return S_OK;
 169 }
 170
 171 static ULONG WINAPI BindStatusCallback_AddRef(IBindStatusCallback *iface)
 172 {
 173     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 174     LONG ref = InterlockedIncrement(&This->ref);
 175
 176     TRACE("(%p) ref=%d\n", This, ref);
 177
 178     return ref;
 179 }
 180
 181 static ULONG WINAPI BindStatusCallback_Release(IBindStatusCallback *iface)
 182 {
 183     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 184     LONG ref = InterlockedDecrement(&This->ref);
 185
 186     TRACE("(%p) ref=%d\n", This, ref);
 187
 188     if(!ref) {
 189         if(This->doc_host)
 190             IOleClientSite_Release(&This->doc_host->IOleClientSite_iface);
 191         if(This->binding)
 192             IBinding_Release(This->binding);
 193         if(This->post_data)
 194             GlobalFree(This->post_data);
 195         SysFreeString(This->headers);
 196         SysFreeString(This->url);
 197         heap_free(This);
 198     }
 199
 200     return ref;
 201 }
 202
 203 static HRESULT WINAPI BindStatusCallback_OnStartBinding(IBindStatusCallback *iface,
 204        DWORD dwReserved, IBinding *pbind)
 205 {
 206     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 207
 208     TRACE("(%p)->(%d %p)\n", This, dwReserved, pbind);
 209
 210     This->binding = pbind;
 211     IBinding_AddRef(This->binding);
 212
 213     return S_OK;
 214 }
 215
 216 static HRESULT WINAPI BindStatusCallback_GetPriority(IBindStatusCallback *iface,
 217        LONG *pnPriority)
 218 {
 219     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 220     FIXME("(%p)->(%p)\n", This, pnPriority);
 221     return E_NOTIMPL;
 222 }
 223
 224 static HRESULT WINAPI BindStatusCallback_OnLowResource(IBindStatusCallback *iface,
 225        DWORD reserved)
 226 {
 227     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 228     FIXME("(%p)->(%d)\n", This, reserved);
 229     return E_NOTIMPL;
 230 }
 231
 232 static DWORD get_http_status_code(IBinding *binding)
 233 {
 234     IWinInetHttpInfo *http_info;
 235     DWORD status, size = sizeof(DWORD);
 236     HRESULT hres;
 237
 238     hres = IBinding_QueryInterface(binding, &IID_IWinInetHttpInfo, (void**)&http_info);
 239     if(FAILED(hres))
 240         return HTTP_STATUS_OK;
 241
 242     hres = IWinInetHttpInfo_QueryInfo(http_info, HTTP_QUERY_STATUS_CODE|HTTP_QUERY_FLAG_NUMBER,
 243             &status, &size, NULL, NULL);
 244     IWinInetHttpInfo_Release(http_info);
 245
 246     if(FAILED(hres))
 247         return HTTP_STATUS_OK;
 248     return status;
 249 }
 250
 251 static HRESULT WINAPI BindStatusCallback_OnProgress(IBindStatusCallback *iface,
 252         ULONG ulProgress, ULONG ulProgressMax, ULONG ulStatusCode, LPCWSTR szStatusText)
 253 {
 254     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 255     DWORD status_code;
 256
 257     TRACE("(%p)->(%d %d %d %s)\n", This, ulProgress, ulProgressMax, ulStatusCode,
 258           debugstr_w(szStatusText));
 259
 260     switch(ulStatusCode) {
 261     case BINDSTATUS_REDIRECTING:
 262         return set_dochost_url(This->doc_host, szStatusText);
 263     case BINDSTATUS_BEGINDOWNLOADDATA:
 264         set_status_text(This, ulStatusCode, szStatusText);
 265         status_code = get_http_status_code(This->binding);
 266         if(status_code != HTTP_STATUS_OK)
 267             handle_navigation_error(This->doc_host, status_code, This->url, NULL);
 268         return S_OK;
 269
 270     case BINDSTATUS_FINDINGRESOURCE:
 271     case BINDSTATUS_ENDDOWNLOADDATA:
 272     case BINDSTATUS_SENDINGREQUEST:
 273         set_status_text(This, ulStatusCode, szStatusText);
 274         return S_OK;
 275
 276     case BINDSTATUS_CONNECTING:
 277     case BINDSTATUS_CACHEFILENAMEAVAILABLE:
 278     case BINDSTATUS_CLASSIDAVAILABLE:
 279     case BINDSTATUS_MIMETYPEAVAILABLE:
 280     case BINDSTATUS_BEGINSYNCOPERATION:
 281     case BINDSTATUS_ENDSYNCOPERATION:
 282         return S_OK;
 283     default:
 284         FIXME("status code %u\n", ulStatusCode);
 285     }
 286
 287     return S_OK;
 288 }
 289
 290 void handle_navigation_error(DocHost* doc_host, HRESULT hres, BSTR url, IHTMLWindow2 *win2)
 291 {
 292     VARIANT var_status_code, var_frame_name, var_url;
 293     DISPPARAMS dispparams;
 294     VARIANTARG params[5];
 295     VARIANT_BOOL cancel = VARIANT_FALSE;
 296
 297     dispparams.cArgs = 5;
 298     dispparams.cNamedArgs = 0;
 299     dispparams.rgdispidNamedArgs = NULL;
 300     dispparams.rgvarg = params;
 301
 302     V_VT(params) = VT_BOOL|VT_BYREF;
 303     V_BOOLREF(params) = &cancel;
 304
 305     V_VT(params+1) = VT_VARIANT|VT_BYREF;
 306     V_VARIANTREF(params+1) = &var_status_code;
 307     V_VT(&var_status_code) = VT_I4;
 308     V_I4(&var_status_code) = hres;
 309
 310     V_VT(params+2) = VT_VARIANT|VT_BYREF;
 311     V_VARIANTREF(params+2) = &var_frame_name;
 312     V_VT(&var_frame_name) = VT_BSTR;
 313     if(win2) {
 314         hres = IHTMLWindow2_get_name(win2, &V_BSTR(&var_frame_name));
 315         if(FAILED(hres))
 316             V_BSTR(&var_frame_name) = NULL;
 317     } else
 318         V_BSTR(&var_frame_name) = NULL;
 319
 320     V_VT(params+3) = VT_VARIANT|VT_BYREF;
 321     V_VARIANTREF(params+3) = &var_url;
 322     V_VT(&var_url) = VT_BSTR;
 323     V_BSTR(&var_url) = url;
 324
 325     V_VT(params+4) = VT_DISPATCH;
 326     V_DISPATCH(params+4) = (IDispatch*)doc_host->wb;
 327
 328     call_sink(doc_host->cps.wbe2, DISPID_NAVIGATEERROR, &dispparams);
 329     SysFreeString(V_BSTR(&var_frame_name));
 330
 331     if(!cancel)
 332         FIXME("Navigate to error page\n");
 333 }
 334
 335 static HRESULT WINAPI BindStatusCallback_OnStopBinding(IBindStatusCallback *iface,
 336         HRESULT hresult, LPCWSTR szError)
 337 {
 338     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 339
 340     TRACE("(%p)->(%08x %s)\n", This, hresult, debugstr_w(szError));
 341
 342     set_status_text(This, 0, emptyW);
 343
 344     if(!This->doc_host)
 345         return S_OK;
 346
 347     if(FAILED(hresult))
 348         handle_navigation_error(This->doc_host, hresult, This->url, NULL);
 349
 350     IOleClientSite_Release(&This->doc_host->IOleClientSite_iface);
 351     This->doc_host = NULL;
 352
 353     IBinding_Release(This->binding);
 354     This->binding = NULL;
 355
 356     return S_OK;
 357 }
 358
 359 static HRESULT WINAPI BindStatusCallback_GetBindInfo(IBindStatusCallback *iface,
 360         DWORD *grfBINDF, BINDINFO *pbindinfo)
 361 {
 362     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 363
 364     TRACE("(%p)->(%p %p)\n", This, grfBINDF, pbindinfo);
 365
 366     *grfBINDF = BINDF_ASYNCHRONOUS;
 367
 368     if(This->post_data) {
 369         pbindinfo->dwBindVerb = BINDVERB_POST;
 370
 371         pbindinfo->stgmedData.tymed = TYMED_HGLOBAL;
 372         pbindinfo->stgmedData.u.hGlobal = This->post_data;
 373         pbindinfo->cbstgmedData = This->post_data_len;
 374         pbindinfo->stgmedData.pUnkForRelease = (IUnknown*)&This->IBindStatusCallback_iface;
 375         IBindStatusCallback_AddRef(&This->IBindStatusCallback_iface);
 376     }
 377
 378     return S_OK;
 379 }
 380
 381 static HRESULT WINAPI BindStatusCallback_OnDataAvailable(IBindStatusCallback *iface,
 382         DWORD grfBSCF, DWORD dwSize, FORMATETC *pformatetc, STGMEDIUM *pstgmed)
 383 {
 384     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 385     FIXME("(%p)->(%08x %d %p %p)\n", This, grfBSCF, dwSize, pformatetc, pstgmed);
 386     return E_NOTIMPL;
 387 }
 388
 389 static HRESULT WINAPI BindStatusCallback_OnObjectAvailable(IBindStatusCallback *iface,
 390         REFIID riid, IUnknown *punk)
 391 {
 392     BindStatusCallback *This = impl_from_IBindStatusCallback(iface);
 393
 394     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), punk);
 395
 396     return dochost_object_available(This->doc_host, punk);
 397 }
 398
 399 static const IBindStatusCallbackVtbl BindStatusCallbackVtbl = {
 400     BindStatusCallback_QueryInterface,
 401     BindStatusCallback_AddRef,
 402     BindStatusCallback_Release,
 403     BindStatusCallback_OnStartBinding,
 404     BindStatusCallback_GetPriority,
 405     BindStatusCallback_OnLowResource,
 406     BindStatusCallback_OnProgress,
 407     BindStatusCallback_OnStopBinding,
 408     BindStatusCallback_GetBindInfo,
 409     BindStatusCallback_OnDataAvailable,
 410     BindStatusCallback_OnObjectAvailable
 411 };
 412
 413 static inline BindStatusCallback *impl_from_IHttpNegotiate(IHttpNegotiate *iface)
 414 {
 415     return CONTAINING_RECORD(iface, BindStatusCallback, IHttpNegotiate_iface);
 416 }
 417
 418 static HRESULT WINAPI HttpNegotiate_QueryInterface(IHttpNegotiate *iface,
 419                                                    REFIID riid, void **ppv)
 420 {
 421     BindStatusCallback *This = impl_from_IHttpNegotiate(iface);
 422     return IBindStatusCallback_QueryInterface(&This->IBindStatusCallback_iface, riid, ppv);
 423 }
 424
 425 static ULONG WINAPI HttpNegotiate_AddRef(IHttpNegotiate *iface)
 426 {
 427     BindStatusCallback *This = impl_from_IHttpNegotiate(iface);
 428     return IBindStatusCallback_AddRef(&This->IBindStatusCallback_iface);
 429 }
 430
 431 static ULONG WINAPI HttpNegotiate_Release(IHttpNegotiate *iface)
 432 {
 433     BindStatusCallback *This = impl_from_IHttpNegotiate(iface);
 434     return IBindStatusCallback_Release(&This->IBindStatusCallback_iface);
 435 }
 436
 437 static HRESULT WINAPI HttpNegotiate_BeginningTransaction(IHttpNegotiate *iface,
 438         LPCWSTR szURL, LPCWSTR szHeaders, DWORD dwReserved, LPWSTR *pszAdditionalHeaders)
 439 {
 440     BindStatusCallback *This = impl_from_IHttpNegotiate(iface);
 441
 442     TRACE("(%p)->(%s %s %d %p)\n", This, debugstr_w(szURL), debugstr_w(szHeaders),
 443           dwReserved, pszAdditionalHeaders);
 444
 445     if(This->headers) {
 446         int size = (strlenW(This->headers)+1)*sizeof(WCHAR);
 447         *pszAdditionalHeaders = CoTaskMemAlloc(size);
 448         memcpy(*pszAdditionalHeaders, This->headers, size);
 449     }
 450
 451     return S_OK;
 452 }
 453
 454 static HRESULT WINAPI HttpNegotiate_OnResponse(IHttpNegotiate *iface,
 455         DWORD dwResponseCode, LPCWSTR szResponseHeaders, LPCWSTR szRequestHeaders,
 456         LPWSTR *pszAdditionalRequestHeaders)
 457 {
 458     BindStatusCallback *This = impl_from_IHttpNegotiate(iface);
 459     TRACE("(%p)->(%d %s %s %p)\n", This, dwResponseCode, debugstr_w(szResponseHeaders),
 460           debugstr_w(szRequestHeaders), pszAdditionalRequestHeaders);
 461     return S_OK;
 462 }
 463
 464 static const IHttpNegotiateVtbl HttpNegotiateVtbl = {
 465     HttpNegotiate_QueryInterface,
 466     HttpNegotiate_AddRef,
 467     HttpNegotiate_Release,
 468     HttpNegotiate_BeginningTransaction,
 469     HttpNegotiate_OnResponse
 470 };
 471
 472 static inline BindStatusCallback *impl_from_IHttpSecurity(IHttpSecurity *iface)
 473 {
 474     return CONTAINING_RECORD(iface, BindStatusCallback, IHttpSecurity_iface);
 475 }
 476
 477 static HRESULT WINAPI HttpSecurity_QueryInterface(IHttpSecurity *iface, REFIID riid, void **ppv)
 478 {
 479     BindStatusCallback *This = impl_from_IHttpSecurity(iface);
 480     return IBindStatusCallback_QueryInterface(&This->IBindStatusCallback_iface, riid, ppv);
 481 }
 482
 483 static ULONG WINAPI HttpSecurity_AddRef(IHttpSecurity *iface)
 484 {
 485     BindStatusCallback *This = impl_from_IHttpSecurity(iface);
 486     return IBindStatusCallback_AddRef(&This->IBindStatusCallback_iface);
 487 }
 488
 489 static ULONG WINAPI HttpSecurity_Release(IHttpSecurity *iface)
 490 {
 491     BindStatusCallback *This = impl_from_IHttpSecurity(iface);
 492     return IBindStatusCallback_Release(&This->IBindStatusCallback_iface);
 493 }
 494
 495 static HRESULT WINAPI HttpSecurity_GetWindow(IHttpSecurity *iface, REFGUID rguidReason, HWND *phwnd)
 496 {
 497     BindStatusCallback *This = impl_from_IHttpSecurity(iface);
 498
 499     TRACE("(%p)->(%s %p)\n", This, debugstr_guid(rguidReason), phwnd);
 500
 501     if(!This->doc_host)
 502         return E_FAIL;
 503
 504     *phwnd = This->doc_host->frame_hwnd;
 505     return S_OK;
 506 }
 507
 508 static HRESULT WINAPI HttpSecurity_OnSecurityProblem(IHttpSecurity *iface, DWORD dwProblem)
 509 {
 510     BindStatusCallback *This = impl_from_IHttpSecurity(iface);
 511     FIXME("(%p)->(%u)\n", This, dwProblem);
 512     return S_FALSE;
 513 }
 514
 515 static const IHttpSecurityVtbl HttpSecurityVtbl = {
 516     HttpSecurity_QueryInterface,
 517     HttpSecurity_AddRef,
 518     HttpSecurity_Release,
 519     HttpSecurity_GetWindow,
 520     HttpSecurity_OnSecurityProblem
 521 };
 522
 523 static BindStatusCallback *create_callback(DocHost *doc_host, LPCWSTR url, PBYTE post_data,
 524         ULONG post_data_len, LPCWSTR headers)
 525 {
 526     BindStatusCallback *ret = heap_alloc(sizeof(BindStatusCallback));
 527
 528     ret->IBindStatusCallback_iface.lpVtbl = &BindStatusCallbackVtbl;
 529     ret->IHttpNegotiate_iface.lpVtbl      = &HttpNegotiateVtbl;
 530     ret->IHttpSecurity_iface.lpVtbl       = &HttpSecurityVtbl;
 531
 532     ret->ref = 1;
 533     ret->url = SysAllocString(url);
 534     ret->post_data = NULL;
 535     ret->post_data_len = post_data_len;
 536     ret->headers = headers ? SysAllocString(headers) : NULL;
 537
 538     ret->doc_host = doc_host;
 539     IOleClientSite_AddRef(&doc_host->IOleClientSite_iface);
 540
 541     ret->binding = NULL;
 542
 543     if(post_data) {
 544         ret->post_data = GlobalAlloc(0, post_data_len);
 545         memcpy(ret->post_data, post_data, post_data_len);
 546     }
 547
 548     return ret;
 549 }
 550
 551 static void on_before_navigate2(DocHost *This, LPCWSTR url, SAFEARRAY *post_data, LPWSTR headers, VARIANT_BOOL *cancel)
 552 {
 553     VARIANT var_url, var_flags, var_frame_name, var_post_data, var_post_data2, var_headers;
 554     DISPPARAMS dispparams;
 555     VARIANTARG params[7];
 556     WCHAR file_path[MAX_PATH];
 557     DWORD file_path_len = sizeof(file_path) / sizeof(*file_path);
 558
 559     dispparams.cArgs = 7;
 560     dispparams.cNamedArgs = 0;
 561     dispparams.rgdispidNamedArgs = NULL;
 562     dispparams.rgvarg = params;
 563
 564     This->busy = VARIANT_TRUE;
 565
 566     V_VT(params) = VT_BOOL|VT_BYREF;
 567     V_BOOLREF(params) = cancel;
 568
 569     V_VT(params+1) = (VT_BYREF|VT_VARIANT);
 570     V_VARIANTREF(params+1) = &var_headers;
 571     V_VT(&var_headers) = VT_BSTR;
 572     V_BSTR(&var_headers) = headers;
 573
 574     V_VT(params+2) = (VT_BYREF|VT_VARIANT);
 575     V_VARIANTREF(params+2) = &var_post_data2;
 576     V_VT(&var_post_data2) = (VT_BYREF|VT_VARIANT);
 577     V_VARIANTREF(&var_post_data2) = &var_post_data;
 578
 579     if(post_data) {
 580         V_VT(&var_post_data) = VT_UI1|VT_ARRAY;
 581         V_ARRAY(&var_post_data) = post_data;
 582     }else {
 583         V_VT(&var_post_data) = VT_EMPTY;
 584     }
 585
 586     V_VT(params+3) = (VT_BYREF|VT_VARIANT);
 587     V_VARIANTREF(params+3) = &var_frame_name;
 588     V_VT(&var_frame_name) = VT_BSTR;
 589     V_BSTR(&var_frame_name) = NULL;
 590
 591     V_VT(params+4) = (VT_BYREF|VT_VARIANT);
 592     V_VARIANTREF(params+4) = &var_flags;
 593     V_VT(&var_flags) = VT_I4;
 594     V_I4(&var_flags) = 0;
 595
 596     V_VT(params+5) = (VT_BYREF|VT_VARIANT);
 597     V_VARIANTREF(params+5) = &var_url;
 598     V_VT(&var_url) = VT_BSTR;
 599     if(PathCreateFromUrlW(url, file_path, &file_path_len, 0) == S_OK)
 600         V_BSTR(&var_url) = SysAllocString(file_path);
 601     else
 602         V_BSTR(&var_url) = SysAllocString(url);
 603
 604     V_VT(params+6) = (VT_DISPATCH);
 605     V_DISPATCH(params+6) = (IDispatch*)This->wb;
 606
 607     call_sink(This->cps.wbe2, DISPID_BEFORENAVIGATE2, &dispparams);
 608
 609     SysFreeString(V_BSTR(&var_url));
 610 }
 611
 612 /* FIXME: urlmon should handle it */
 613 static BOOL try_application_url(LPCWSTR url)
 614 {
 615     SHELLEXECUTEINFOW exec_info;
 616     WCHAR app[64];
 617     HKEY hkey;
 618     DWORD res, type;
 619     HRESULT hres;
 620
 621     static const WCHAR wszURLProtocol[] = {'U','R','L',' ','P','r','o','t','o','c','o','l',0};
 622
 623     hres = CoInternetParseUrl(url, PARSE_SCHEMA, 0, app, sizeof(app)/sizeof(WCHAR), NULL, 0);
 624     if(FAILED(hres))
 625         return FALSE;
 626
 627     res = RegOpenKeyW(HKEY_CLASSES_ROOT, app, &hkey);
 628     if(res != ERROR_SUCCESS)
 629         return FALSE;
 630
 631     res = RegQueryValueExW(hkey, wszURLProtocol, NULL, &type, NULL, NULL);
 632     RegCloseKey(hkey);
 633     if(res != ERROR_SUCCESS || type != REG_SZ)
 634         return FALSE;
 635
 636     TRACE("opening application %s\n", debugstr_w(app));
 637
 638     memset(&exec_info, 0, sizeof(exec_info));
 639     exec_info.cbSize = sizeof(exec_info);
 640     exec_info.lpFile = url;
 641     exec_info.nShow = SW_SHOW;
 642
 643     return ShellExecuteExW(&exec_info);
 644 }
 645
 646 static HRESULT create_moniker(LPCWSTR url, IMoniker **mon)
 647 {
 648     WCHAR new_url[INTERNET_MAX_URL_LENGTH];
 649     DWORD size;
 650     HRESULT hres;
 651
 652     if(PathIsURLW(url))
 653         return CreateURLMoniker(NULL, url, mon);
 654
 655     size = sizeof(new_url)/sizeof(WCHAR);
 656     hres = UrlApplySchemeW(url, new_url, &size, URL_APPLY_GUESSSCHEME | URL_APPLY_GUESSFILE | URL_APPLY_DEFAULT);
 657     TRACE("was %s got %s\n", debugstr_w(url), debugstr_w(new_url));
 658     if(FAILED(hres)) {
 659         WARN("UrlApplyScheme failed: %08x\n", hres);
 660         return hres;
 661     }
 662
 663     return CreateURLMoniker(NULL, new_url, mon);
 664 }
 665
 666 static HRESULT bind_to_object(DocHost *This, IMoniker *mon, LPCWSTR url, IBindCtx *bindctx,
 667                               IBindStatusCallback *callback)
 668 {
 669     IUnknown *unk = NULL;
 670     WCHAR *display_name;
 671     HRESULT hres;
 672
 673     if(mon) {
 674         IMoniker_AddRef(mon);
 675     }else {
 676         hres = create_moniker(url, &mon);
 677         if(FAILED(hres))
 678             return hres;
 679     }
 680
 681     hres = IMoniker_GetDisplayName(mon, 0, NULL, &display_name);
 682     if(FAILED(hres)) {
 683         FIXME("GetDisplayName failed: %08x\n", hres);
 684         return hres;
 685     }
 686
 687     hres = set_dochost_url(This, display_name);
 688     CoTaskMemFree(display_name);
 689     if(FAILED(hres))
 690         return hres;
 691
 692     IBindCtx_RegisterObjectParam(bindctx, (LPOLESTR)SZ_HTML_CLIENTSITE_OBJECTPARAM,
 693                                  (IUnknown*)&This->IOleClientSite_iface);
 694
 695     hres = IMoniker_BindToObject(mon, bindctx, NULL, &IID_IUnknown, (void**)&unk);
 696     if(SUCCEEDED(hres)) {
 697         hres = S_OK;
 698         if(unk)
 699             IUnknown_Release(unk);
 700     }else if(try_application_url(url)) {
 701         hres = S_OK;
 702     }else {
 703         FIXME("BindToObject failed: %08x\n", hres);
 704     }
 705
 706     IMoniker_Release(mon);
 707     return S_OK;
 708 }
 709
 710 static void html_window_navigate(DocHost *This, IHTMLPrivateWindow *window, BSTR url, BSTR headers, SAFEARRAY *post_data)
 711 {
 712     VARIANT headers_var, post_data_var;
 713     BSTR empty_str;
 714     HRESULT hres;
 715
 716     hres = set_dochost_url(This, url);
 717     if(FAILED(hres))
 718         return;
 719
 720     empty_str = SysAllocStringLen(NULL, 0);
 721
 722     if(headers) {
 723         V_VT(&headers_var) = VT_BSTR;
 724         V_BSTR(&headers_var) = headers;
 725     }else {
 726         V_VT(&headers_var) = VT_EMPTY;
 727     }
 728
 729     if(post_data) {
 730         V_VT(&post_data_var) = VT_UI1|VT_ARRAY;
 731         V_ARRAY(&post_data_var) = post_data;
 732     }else {
 733         V_VT(&post_data_var) = VT_EMPTY;
 734     }
 735
 736     set_doc_state(This, READYSTATE_LOADING);
 737     hres = IHTMLPrivateWindow_SuperNavigate(window, url, empty_str, NULL, NULL, &post_data_var, &headers_var, 0);
 738     SysFreeString(empty_str);
 739     if(FAILED(hres))
 740         WARN("SuprtNavigate failed: %08x\n", hres);
 741 }
 742
 743 typedef struct {
 744     task_header_t header;
 745     BSTR url;
 746     BSTR headers;
 747     SAFEARRAY *post_data;
 748     BOOL async_notif;
 749 } task_doc_navigate_t;
 750
 751 static void doc_navigate_task_destr(task_header_t *t)
 752 {
 753     task_doc_navigate_t *task = (task_doc_navigate_t*)t;
 754
 755     SysFreeString(task->url);
 756     SysFreeString(task->headers);
 757     if(task->post_data)
 758         SafeArrayDestroy(task->post_data);
 759     heap_free(task);
 760 }
 761
 762 void on_commandstate_change(DocHost *doc_host, LONG command, VARIANT_BOOL enable)
 763 {
 764     DISPPARAMS dispparams;
 765     VARIANTARG params[2];
 766
 767     TRACE("command=%d enable=%d\n", command, enable);
 768
 769     dispparams.cArgs = 2;
 770     dispparams.cNamedArgs = 0;
 771     dispparams.rgdispidNamedArgs = NULL;
 772     dispparams.rgvarg = params;
 773
 774     V_VT(params) = VT_BOOL;
 775     V_BOOL(params) = enable;
 776
 777     V_VT(params+1) = VT_I4;
 778     V_I4(params+1) = command;
 779
 780     call_sink(doc_host->cps.wbe2, DISPID_COMMANDSTATECHANGE, &dispparams);
 781 }
 782
 783 static void doc_navigate_proc(DocHost *This, task_header_t *t)
 784 {
 785     task_doc_navigate_t *task = (task_doc_navigate_t*)t;
 786     IHTMLPrivateWindow *priv_window;
 787     HRESULT hres;
 788
 789     if(!This->doc_navigate) {
 790         ERR("Skip nav\n");
 791         return;
 792     }
 793
 794     if(task->async_notif) {
 795         VARIANT_BOOL cancel = VARIANT_FALSE;
 796         on_before_navigate2(This, task->url, task->post_data, task->headers, &cancel);
 797         if(cancel) {
 798             TRACE("Navigation canceled\n");
 799             return;
 800         }
 801     }
 802
 803     hres = IUnknown_QueryInterface(This->doc_navigate, &IID_IHTMLPrivateWindow, (void**)&priv_window);
 804     if(SUCCEEDED(hres)) {
 805         html_window_navigate(This, priv_window, task->url, task->headers, task->post_data);
 806         IHTMLPrivateWindow_Release(priv_window);
 807     }else {
 808         WARN("Could not get IHTMLPrivateWindow iface: %08x\n", hres);
 809     }
 810 }
 811
 812 static HRESULT async_doc_navigate(DocHost *This, LPCWSTR url, LPCWSTR headers, PBYTE post_data, ULONG post_data_size,
 813         BOOL async_notif)
 814 {
 815     task_doc_navigate_t *task;
 816
 817     TRACE("%s\n", debugstr_w(url));
 818
 819     task = heap_alloc_zero(sizeof(*task));
 820     if(!task)
 821         return E_OUTOFMEMORY;
 822
 823     task->url = SysAllocString(url);
 824     if(!task->url) {
 825         doc_navigate_task_destr(&task->header);
 826         return E_OUTOFMEMORY;
 827     }
 828
 829     if(headers) {
 830         task->headers = SysAllocString(headers);
 831         if(!task->headers) {
 832             doc_navigate_task_destr(&task->header);
 833             return E_OUTOFMEMORY;
 834         }
 835     }
 836
 837     if(post_data) {
 838         task->post_data = SafeArrayCreateVector(VT_UI1, 0, post_data_size);
 839         if(!task->post_data) {
 840             doc_navigate_task_destr(&task->header);
 841             return E_OUTOFMEMORY;
 842         }
 843
 844         memcpy(task->post_data->pvData, post_data, post_data_size);
 845     }
 846
 847     if(!async_notif) {
 848         VARIANT_BOOL cancel = VARIANT_FALSE;
 849
 850         on_before_navigate2(This, task->url, task->post_data, task->headers, &cancel);
 851         if(cancel) {
 852             TRACE("Navigation canceled\n");
 853             doc_navigate_task_destr(&task->header);
 854             return S_OK;
 855         }
 856     }
 857
 858     task->async_notif = async_notif;
 859     abort_dochost_tasks(This, doc_navigate_proc);
 860     push_dochost_task(This, &task->header, doc_navigate_proc, doc_navigate_task_destr, FALSE);
 861     return S_OK;
 862 }
 863
 864 static HRESULT navigate_bsc(DocHost *This, BindStatusCallback *bsc, IMoniker *mon)
 865 {
 866     VARIANT_BOOL cancel = VARIANT_FALSE;
 867     SAFEARRAY *post_data = NULL;
 868     IBindCtx *bindctx;
 869     HRESULT hres;
 870
 871     set_doc_state(This, READYSTATE_LOADING);
 872
 873     if(bsc->post_data) {
 874         post_data = SafeArrayCreateVector(VT_UI1, 0, bsc->post_data_len);
 875         memcpy(post_data->pvData, post_data, bsc->post_data_len);
 876     }
 877
 878     on_before_navigate2(This, bsc->url, post_data, bsc->headers, &cancel);
 879     if(post_data)
 880         SafeArrayDestroy(post_data);
 881     if(cancel) {
 882         FIXME("Navigation canceled\n");
 883         return S_OK;
 884     }
 885
 886     on_commandstate_change(This, CSC_NAVIGATEBACK, VARIANT_FALSE);
 887     on_commandstate_change(This, CSC_NAVIGATEFORWARD, VARIANT_FALSE);
 888
 889     if(This->document)
 890         deactivate_document(This);
 891
 892     CreateAsyncBindCtx(0, &bsc->IBindStatusCallback_iface, 0, &bindctx);
 893
 894     if(This->frame)
 895         IOleInPlaceFrame_EnableModeless(This->frame, FALSE);
 896
 897     hres = bind_to_object(This, mon, bsc->url, bindctx, &bsc->IBindStatusCallback_iface);
 898
 899     if(This->frame)
 900         IOleInPlaceFrame_EnableModeless(This->frame, TRUE);
 901
 902     IBindCtx_Release(bindctx);
 903
 904     return hres;
 905 }
 906
 907 typedef struct {
 908     task_header_t header;
 909     BindStatusCallback *bsc;
 910 } task_navigate_bsc_t;
 911
 912 static void navigate_bsc_task_destr(task_header_t *t)
 913 {
 914     task_navigate_bsc_t *task = (task_navigate_bsc_t*)t;
 915
 916     IBindStatusCallback_Release(&task->bsc->IBindStatusCallback_iface);
 917     heap_free(task);
 918 }
 919
 920 static void navigate_bsc_proc(DocHost *This, task_header_t *t)
 921 {
 922     task_navigate_bsc_t *task = (task_navigate_bsc_t*)t;
 923
 924     if(!This->hwnd)
 925         create_doc_view_hwnd(This);
 926
 927     navigate_bsc(This, task->bsc, NULL);
 928 }
 929
 930
 931 HRESULT navigate_url(DocHost *This, LPCWSTR url, const VARIANT *Flags,
 932                      const VARIANT *TargetFrameName, VARIANT *PostData, VARIANT *Headers)
 933 {
 934     PBYTE post_data = NULL;
 935     ULONG post_data_len = 0;
 936     LPWSTR headers = NULL;
 937     HRESULT hres = S_OK;
 938
 939     TRACE("navigating to %s\n", debugstr_w(url));
 940
 941     if((Flags && V_VT(Flags) != VT_EMPTY && V_VT(Flags) != VT_ERROR)
 942        || (TargetFrameName && V_VT(TargetFrameName) != VT_EMPTY && V_VT(TargetFrameName) != VT_ERROR))
 943         FIXME("Unsupported args (Flags %s; TargetFrameName %s)\n", debugstr_variant(Flags), debugstr_variant(TargetFrameName));
 944
 945     if(PostData && V_VT(PostData) == (VT_ARRAY | VT_UI1) && V_ARRAY(PostData)) {
 946         SafeArrayAccessData(V_ARRAY(PostData), (void**)&post_data);
 947         post_data_len = V_ARRAY(PostData)->rgsabound[0].cElements;
 948     }
 949
 950     if(Headers && V_VT(Headers) == VT_BSTR) {
 951         headers = V_BSTR(Headers);
 952         TRACE("Headers: %s\n", debugstr_w(headers));
 953     }
 954
 955     set_doc_state(This, READYSTATE_LOADING);
 956     This->ready_state = READYSTATE_LOADING;
 957
 958     if(This->doc_navigate) {
 959         WCHAR new_url[INTERNET_MAX_URL_LENGTH];
 960
 961         if(PathIsURLW(url)) {
 962             new_url[0] = 0;
 963         }else {
 964             DWORD size;
 965
 966             size = sizeof(new_url)/sizeof(WCHAR);
 967             hres = UrlApplySchemeW(url, new_url, &size,
 968                     URL_APPLY_GUESSSCHEME | URL_APPLY_GUESSFILE | URL_APPLY_DEFAULT);
 969             if(FAILED(hres)) {
 970                 WARN("UrlApplyScheme failed: %08x\n", hres);
 971                 new_url[0] = 0;
 972             }
 973         }
 974
 975         hres = async_doc_navigate(This, *new_url ? new_url : url, headers, post_data,
 976                 post_data_len, TRUE);
 977     }else {
 978         task_navigate_bsc_t *task;
 979
 980         task = heap_alloc(sizeof(*task));
 981         task->bsc = create_callback(This, url, post_data, post_data_len, headers);
 982         push_dochost_task(This, &task->header, navigate_bsc_proc, navigate_bsc_task_destr, This->url == NULL);
 983     }
 984
 985     if(post_data)
 986         SafeArrayUnaccessData(V_ARRAY(PostData));
 987
 988     return hres;
 989 }
 990
 991 static HRESULT navigate_hlink(DocHost *This, IMoniker *mon, IBindCtx *bindctx,
 992                               IBindStatusCallback *callback)
 993 {
 994     IHttpNegotiate *http_negotiate;
 995     BindStatusCallback *bsc;
 996     PBYTE post_data = NULL;
 997     ULONG post_data_len = 0;
 998     LPWSTR headers = NULL, url;
 999     BINDINFO bindinfo;
1000     DWORD bindf = 0;
1001     HRESULT hres;
1002
1003     TRACE("\n");
1004
1005     hres = IMoniker_GetDisplayName(mon, 0, NULL, &url);
1006     if(FAILED(hres))
1007         FIXME("GetDisplayName failed: %08x\n", hres);
1008
1009     hres = IBindStatusCallback_QueryInterface(callback, &IID_IHttpNegotiate,
1010                                               (void**)&http_negotiate);
1011     if(SUCCEEDED(hres)) {
1012         static const WCHAR null_string[] = {0};
1013
1014         IHttpNegotiate_BeginningTransaction(http_negotiate, null_string, null_string, 0,
1015                                             &headers);
1016         IHttpNegotiate_Release(http_negotiate);
1017     }
1018
1019     memset(&bindinfo, 0, sizeof(bindinfo));
1020     bindinfo.cbSize = sizeof(bindinfo);
1021
1022     hres = IBindStatusCallback_GetBindInfo(callback, &bindf, &bindinfo);
1023     dump_BINDINFO(&bindinfo);
1024     if(bindinfo.dwBindVerb == BINDVERB_POST) {
1025         post_data_len = bindinfo.cbstgmedData;
1026         if(post_data_len)
1027             post_data = bindinfo.stgmedData.u.hGlobal;
1028     }
1029
1030     if(This->doc_navigate) {
1031         hres = async_doc_navigate(This, url, headers, post_data, post_data_len, FALSE);
1032     }else {
1033         bsc = create_callback(This, url, post_data, post_data_len, headers);
1034         hres = navigate_bsc(This, bsc, mon);
1035         IBindStatusCallback_Release(&bsc->IBindStatusCallback_iface);
1036     }
1037
1038     CoTaskMemFree(url);
1039     CoTaskMemFree(headers);
1040     ReleaseBindInfo(&bindinfo);
1041
1042     return hres;
1043 }
1044
1045 HRESULT go_home(DocHost *This)
1046 {
1047     HKEY hkey;
1048     DWORD res, type, size;
1049     WCHAR wszPageName[MAX_PATH];
1050     static const WCHAR wszAboutBlank[] = {'a','b','o','u','t',':','b','l','a','n','k',0};
1051     static const WCHAR wszStartPage[] = {'S','t','a','r','t',' ','P','a','g','e',0};
1052     static const WCHAR wszSubKey[] = {'S','o','f','t','w','a','r','e','\\',
1053                                       'M','i','c','r','o','s','o','f','t','\\',
1054                                       'I','n','t','e','r','n','e','t',' ','E','x','p','l','o','r','e','r','\\',
1055                                       'M','a','i','n',0};
1056
1057     res = RegOpenKeyW(HKEY_CURRENT_USER, wszSubKey, &hkey);
1058     if (res != ERROR_SUCCESS)
1059         return navigate_url(This, wszAboutBlank, NULL, NULL, NULL, NULL);
1060
1061     size = sizeof(wszPageName);
1062     res = RegQueryValueExW(hkey, wszStartPage, NULL, &type, (LPBYTE)wszPageName, &size);
1063     RegCloseKey(hkey);
1064     if (res != ERROR_SUCCESS || type != REG_SZ)
1065         return navigate_url(This, wszAboutBlank, NULL, NULL, NULL, NULL);
1066
1067     return navigate_url(This, wszPageName, NULL, NULL, NULL, NULL);
1068 }
1069
1070 static HRESULT navigate_history(DocHost *This, unsigned travellog_pos)
1071 {
1072     IPersistHistory *persist_history;
1073     travellog_entry_t *entry;
1074     LARGE_INTEGER li;
1075     HRESULT hres;
1076
1077     if(!This->doc_navigate) {
1078         FIXME("unsupported doc_navigate FALSE\n");
1079         return E_NOTIMPL;
1080     }
1081
1082     if (travellog_pos < This->travellog.position)
1083     {
1084         on_commandstate_change(This, CSC_NAVIGATEBACK, VARIANT_FALSE);
1085         on_commandstate_change(This, CSC_NAVIGATEFORWARD, VARIANT_TRUE);
1086     }
1087     else if (travellog_pos > This->travellog.position)
1088     {
1089         on_commandstate_change(This, CSC_NAVIGATEBACK, VARIANT_TRUE);
1090         on_commandstate_change(This, CSC_NAVIGATEFORWARD, VARIANT_FALSE);
1091     }
1092
1093     This->travellog.loading_pos = travellog_pos;
1094     entry = This->travellog.log + This->travellog.loading_pos;
1095
1096     if(!entry->stream)
1097         return async_doc_navigate(This, entry->url, NULL, NULL, 0, FALSE);
1098
1099     hres = IUnknown_QueryInterface(This->document, &IID_IPersistHistory, (void**)&persist_history);
1100     if(FAILED(hres))
1101         return hres;
1102
1103     li.QuadPart = 0;
1104     IStream_Seek(entry->stream, li, STREAM_SEEK_SET, NULL);
1105
1106     hres = IPersistHistory_LoadHistory(persist_history, entry->stream, NULL);
1107     IPersistHistory_Release(persist_history);
1108     return hres;
1109 }
1110
1111 HRESULT go_back(DocHost *This)
1112 {
1113     if(!This->travellog.position) {
1114         WARN("No history available\n");
1115         return E_FAIL;
1116     }
1117
1118     return navigate_history(This, This->travellog.position-1);
1119 }
1120
1121 HRESULT go_forward(DocHost *This)
1122 {
1123     if(This->travellog.position >= This->travellog.length) {
1124         WARN("No history available\n");
1125         return E_FAIL;
1126     }
1127
1128     return navigate_history(This, This->travellog.position+1);
1129 }
1130
1131 HRESULT get_location_url(DocHost *This, BSTR *ret)
1132 {
1133     FIXME("semi-stub\n");
1134
1135     *ret = This->url ? SysAllocString(This->url) : SysAllocStringLen(NULL, 0);
1136     if(!*ret)
1137         return E_OUTOFMEMORY;
1138
1139     return This->url ? S_OK : S_FALSE;
1140 }
1141
1142 static inline HlinkFrame *impl_from_IHlinkFrame(IHlinkFrame *iface)
1143 {
1144     return CONTAINING_RECORD(iface, HlinkFrame, IHlinkFrame_iface);
1145 }
1146
1147 static HRESULT WINAPI HlinkFrame_QueryInterface(IHlinkFrame *iface, REFIID riid, void **ppv)
1148 {
1149     HlinkFrame *This = impl_from_IHlinkFrame(iface);
1150     return IUnknown_QueryInterface(This->outer, riid, ppv);
1151 }
1152
1153 static ULONG WINAPI HlinkFrame_AddRef(IHlinkFrame *iface)
1154 {
1155     HlinkFrame *This = impl_from_IHlinkFrame(iface);
1156     return IUnknown_AddRef(This->outer);
1157 }
1158
1159 static ULONG WINAPI HlinkFrame_Release(IHlinkFrame *iface)
1160 {
1161     HlinkFrame *This = impl_from_IHlinkFrame(iface);
1162     return IUnknown_Release(This->outer);
1163 }
1164
1165 static HRESULT WINAPI HlinkFrame_SetBrowseContext(IHlinkFrame *iface,
1166                                                   IHlinkBrowseContext *pihlbc)
1167 {
1168     HlinkFrame *This = impl_from_IHlinkFrame(iface);
1169     FIXME("(%p)->(%p)\n", This, pihlbc);
1170     return E_NOTIMPL;
1171 }
1172
1173 static HRESULT WINAPI HlinkFrame_GetBrowseContext(IHlinkFrame *iface,
1174                                                   IHlinkBrowseContext **ppihlbc)
1175 {
1176     HlinkFrame *This = impl_from_IHlinkFrame(iface);
1177     FIXME("(%p)->(%p)\n", This, ppihlbc);
1178     return E_NOTIMPL;
1179 }
1180
1181 static HRESULT WINAPI HlinkFrame_Navigate(IHlinkFrame *iface, DWORD grfHLNF, LPBC pbc,
1182                                           IBindStatusCallback *pibsc, IHlink *pihlNavigate)
1183 {
1184     HlinkFrame *This = impl_from_IHlinkFrame(iface);
1185     IMoniker *mon;
1186     LPWSTR location = NULL;
1187
1188     TRACE("(%p)->(%08x %p %p %p)\n", This, grfHLNF, pbc, pibsc, pihlNavigate);
1189
1190     if(grfHLNF)
1191         FIXME("unsupported grfHLNF=%08x\n", grfHLNF);
1192
1193     /* Windows calls GetTargetFrameName here. */
1194
1195     IHlink_GetMonikerReference(pihlNavigate, 1, &mon, &location);
1196
1197     if(location) {
1198         FIXME("location = %s\n", debugstr_w(location));
1199         CoTaskMemFree(location);
1200     }
1201
1202     /* Windows calls GetHlinkSite here */
1203
1204     if(grfHLNF & HLNF_OPENINNEWWINDOW) {
1205         FIXME("Not supported HLNF_OPENINNEWWINDOW\n");
1206         return E_NOTIMPL;
1207     }
1208
1209     return navigate_hlink(This->doc_host, mon, pbc, pibsc);
1210 }
1211
1212 static HRESULT WINAPI HlinkFrame_OnNavigate(IHlinkFrame *iface, DWORD grfHLNF,
1213         IMoniker *pimkTarget, LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName, DWORD dwreserved)
1214 {
1215     HlinkFrame *This = impl_from_IHlinkFrame(iface);
1216     FIXME("(%p)->(%08x %p %s %s %d)\n", This, grfHLNF, pimkTarget, debugstr_w(pwzLocation),
1217           debugstr_w(pwzFriendlyName), dwreserved);
1218     return E_NOTIMPL;
1219 }
1220
1221 static HRESULT WINAPI HlinkFrame_UpdateHlink(IHlinkFrame *iface, ULONG uHLID,
1222         IMoniker *pimkTarget, LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName)
1223 {
1224     HlinkFrame *This = impl_from_IHlinkFrame(iface);
1225     FIXME("(%p)->(%u %p %s %s)\n", This, uHLID, pimkTarget, debugstr_w(pwzLocation),
1226           debugstr_w(pwzFriendlyName));
1227     return E_NOTIMPL;
1228 }
1229
1230 static const IHlinkFrameVtbl HlinkFrameVtbl = {
1231     HlinkFrame_QueryInterface,
1232     HlinkFrame_AddRef,
1233     HlinkFrame_Release,
1234     HlinkFrame_SetBrowseContext,
1235     HlinkFrame_GetBrowseContext,
1236     HlinkFrame_Navigate,
1237     HlinkFrame_OnNavigate,
1238     HlinkFrame_UpdateHlink
1239 };
1240
1241 static inline HlinkFrame *impl_from_ITargetFrame2(ITargetFrame2 *iface)
1242 {
1243     return CONTAINING_RECORD(iface, HlinkFrame, IHlinkFrame_iface);
1244 }
1245
1246 static HRESULT WINAPI TargetFrame2_QueryInterface(ITargetFrame2 *iface, REFIID riid, void **ppv)
1247 {
1248     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1249     return IUnknown_QueryInterface(This->outer, riid, ppv);
1250 }
1251
1252 static ULONG WINAPI TargetFrame2_AddRef(ITargetFrame2 *iface)
1253 {
1254     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1255     return IUnknown_AddRef(This->outer);
1256 }
1257
1258 static ULONG WINAPI TargetFrame2_Release(ITargetFrame2 *iface)
1259 {
1260     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1261     return IUnknown_Release(This->outer);
1262 }
1263
1264 static HRESULT WINAPI TargetFrame2_SetFrameName(ITargetFrame2 *iface, LPCWSTR pszFrameName)
1265 {
1266     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1267     FIXME("(%p)->(%s)\n", This, debugstr_w(pszFrameName));
1268     return E_NOTIMPL;
1269 }
1270
1271 static HRESULT WINAPI TargetFrame2_GetFrameName(ITargetFrame2 *iface, LPWSTR *ppszFrameName)
1272 {
1273     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1274     FIXME("(%p)->(%p)\n", This, ppszFrameName);
1275     return E_NOTIMPL;
1276 }
1277
1278 static HRESULT WINAPI TargetFrame2_GetParentFrame(ITargetFrame2 *iface, IUnknown **ppunkParent)
1279 {
1280     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1281     FIXME("(%p)->(%p)\n", This, ppunkParent);
1282     return E_NOTIMPL;
1283 }
1284
1285 static HRESULT WINAPI TargetFrame2_SetFrameSrc(ITargetFrame2 *iface, LPCWSTR pszFrameSrc)
1286 {
1287     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1288     FIXME("(%p)->(%s)\n", This, debugstr_w(pszFrameSrc));
1289     return E_NOTIMPL;
1290 }
1291
1292 static HRESULT WINAPI TargetFrame2_GetFrameSrc(ITargetFrame2 *iface, LPWSTR *ppszFrameSrc)
1293 {
1294     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1295     FIXME("(%p)->()\n", This);
1296     return E_NOTIMPL;
1297 }
1298
1299 static HRESULT WINAPI TargetFrame2_GetFramesContainer(ITargetFrame2 *iface, IOleContainer **ppContainer)
1300 {
1301     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1302     FIXME("(%p)->(%p)\n", This, ppContainer);
1303     return E_NOTIMPL;
1304 }
1305
1306 static HRESULT WINAPI TargetFrame2_SetFrameOptions(ITargetFrame2 *iface, DWORD dwFlags)
1307 {
1308     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1309     FIXME("(%p)->(%x)\n", This, dwFlags);
1310     return E_NOTIMPL;
1311 }
1312
1313 static HRESULT WINAPI TargetFrame2_GetFrameOptions(ITargetFrame2 *iface, DWORD *pdwFlags)
1314 {
1315     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1316     FIXME("(%p)->(%p)\n", This, pdwFlags);
1317     return E_NOTIMPL;
1318 }
1319
1320 static HRESULT WINAPI TargetFrame2_SetFrameMargins(ITargetFrame2 *iface, DWORD dwWidth, DWORD dwHeight)
1321 {
1322     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1323     FIXME("(%p)->(%d %d)\n", This, dwWidth, dwHeight);
1324     return E_NOTIMPL;
1325 }
1326
1327 static HRESULT WINAPI TargetFrame2_GetFrameMargins(ITargetFrame2 *iface, DWORD *pdwWidth, DWORD *pdwHeight)
1328 {
1329     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1330     FIXME("(%p)->(%p %p)\n", This, pdwWidth, pdwHeight);
1331     return E_NOTIMPL;
1332 }
1333
1334 static HRESULT WINAPI TargetFrame2_FindFrame(ITargetFrame2 *iface, LPCWSTR pszTargetName, DWORD dwFlags, IUnknown **ppunkTargetFrame)
1335 {
1336     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1337     FIXME("(%p)->(%s %x %p)\n", This, debugstr_w(pszTargetName), dwFlags, ppunkTargetFrame);
1338     return E_NOTIMPL;
1339 }
1340
1341 static HRESULT WINAPI TargetFrame2_GetTargetAlias(ITargetFrame2 *iface, LPCWSTR pszTargetName, LPWSTR *ppszTargetAlias)
1342 {
1343     HlinkFrame *This = impl_from_ITargetFrame2(iface);
1344     FIXME("(%p)->(%s %p)\n", This, debugstr_w(pszTargetName), ppszTargetAlias);
1345     return E_NOTIMPL;
1346 }
1347
1348 static const ITargetFrame2Vtbl TargetFrame2Vtbl = {
1349     TargetFrame2_QueryInterface,
1350     TargetFrame2_AddRef,
1351     TargetFrame2_Release,
1352     TargetFrame2_SetFrameName,
1353     TargetFrame2_GetFrameName,
1354     TargetFrame2_GetParentFrame,
1355     TargetFrame2_SetFrameSrc,
1356     TargetFrame2_GetFrameSrc,
1357     TargetFrame2_GetFramesContainer,
1358     TargetFrame2_SetFrameOptions,
1359     TargetFrame2_GetFrameOptions,
1360     TargetFrame2_SetFrameMargins,
1361     TargetFrame2_GetFrameMargins,
1362     TargetFrame2_FindFrame,
1363     TargetFrame2_GetTargetAlias
1364 };
1365
1366 static inline HlinkFrame *impl_from_ITargetFramePriv2(ITargetFramePriv2 *iface)
1367 {
1368     return CONTAINING_RECORD(iface, HlinkFrame, ITargetFramePriv2_iface);
1369 }
1370
1371 static HRESULT WINAPI TargetFramePriv2_QueryInterface(ITargetFramePriv2 *iface, REFIID riid, void **ppv)
1372 {
1373     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1374     return IUnknown_QueryInterface(This->outer, riid, ppv);
1375 }
1376
1377 static ULONG WINAPI TargetFramePriv2_AddRef(ITargetFramePriv2 *iface)
1378 {
1379     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1380     return IUnknown_AddRef(This->outer);
1381 }
1382
1383 static ULONG WINAPI TargetFramePriv2_Release(ITargetFramePriv2 *iface)
1384 {
1385     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1386     return IUnknown_Release(This->outer);
1387 }
1388
1389 static HRESULT WINAPI TargetFramePriv2_FindFrameDownwards(ITargetFramePriv2 *iface,
1390         LPCWSTR pszTargetName, DWORD dwFlags, IUnknown **ppunkTargetFrame)
1391 {
1392     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1393     FIXME("(%p)->(%s %x %p)\n", This, debugstr_w(pszTargetName), dwFlags, ppunkTargetFrame);
1394     return E_NOTIMPL;
1395 }
1396
1397 static HRESULT WINAPI TargetFramePriv2_FindFrameInContext(ITargetFramePriv2 *iface,
1398         LPCWSTR pszTargetName, IUnknown *punkContextFrame, DWORD dwFlags, IUnknown **ppunkTargetFrame)
1399 {
1400     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1401     FIXME("(%p)->(%s %p %x %p)\n", This, debugstr_w(pszTargetName), punkContextFrame, dwFlags, ppunkTargetFrame);
1402     return E_NOTIMPL;
1403 }
1404
1405 static HRESULT WINAPI TargetFramePriv2_OnChildFrameActivate(ITargetFramePriv2 *iface, IUnknown *pUnkChildFrame)
1406 {
1407     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1408     FIXME("(%p)->(%p)\n", This, pUnkChildFrame);
1409     return E_NOTIMPL;
1410 }
1411
1412 static HRESULT WINAPI TargetFramePriv2_OnChildFrameDeactivate(ITargetFramePriv2 *iface, IUnknown *pUnkChildFrame)
1413 {
1414     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1415     FIXME("(%p)->(%p)\n", This, pUnkChildFrame);
1416     return E_NOTIMPL;
1417 }
1418
1419 static HRESULT WINAPI TargetFramePriv2_NavigateHack(ITargetFramePriv2 *iface, DWORD grfHLNF, LPBC pbc,
1420         IBindStatusCallback *pibsc, LPCWSTR pszTargetName, LPCWSTR pszUrl, LPCWSTR pszLocation)
1421 {
1422     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1423     FIXME("(%p)->(%x %p %p %s %s %s)\n", This, grfHLNF, pbc, pibsc, debugstr_w(pszTargetName),
1424           debugstr_w(pszUrl), debugstr_w(pszLocation));
1425     return E_NOTIMPL;
1426 }
1427
1428 static HRESULT WINAPI TargetFramePriv2_FindBrowserByIndex(ITargetFramePriv2 *iface, DWORD dwID, IUnknown **ppunkBrowser)
1429 {
1430     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1431     FIXME("(%p)->(%d %p)\n", This, dwID, ppunkBrowser);
1432     return E_NOTIMPL;
1433 }
1434
1435 static HRESULT WINAPI TargetFramePriv2_AggregatedNavigation2(ITargetFramePriv2 *iface, DWORD grfHLNF, LPBC pbc,
1436         IBindStatusCallback *pibsc, LPCWSTR pszTargetName, IUri *pUri, LPCWSTR pszLocation)
1437 {
1438     HlinkFrame *This = impl_from_ITargetFramePriv2(iface);
1439     IMoniker *mon;
1440     HRESULT hres;
1441
1442     TRACE("(%p)->(%x %p %p %s %p %s)\n", This, grfHLNF, pbc, pibsc, debugstr_w(pszTargetName),
1443           pUri, debugstr_w(pszLocation));
1444
1445     /*
1446      * NOTE: This is an undocumented function. It seems to be working the way it's implemented,
1447      * but I couldn't get its tests working. It's used by mshtml to load content in a new
1448      * instance of browser.
1449      */
1450
1451     hres = CreateURLMonikerEx2(NULL, pUri, &mon, 0);
1452     if(FAILED(hres))
1453         return hres;
1454
1455     hres = navigate_hlink(This->doc_host, mon, pbc, pibsc);
1456     IMoniker_Release(mon);
1457     return hres;
1458 }
1459
1460 static const ITargetFramePriv2Vtbl TargetFramePriv2Vtbl = {
1461     TargetFramePriv2_QueryInterface,
1462     TargetFramePriv2_AddRef,
1463     TargetFramePriv2_Release,
1464     TargetFramePriv2_FindFrameDownwards,
1465     TargetFramePriv2_FindFrameInContext,
1466     TargetFramePriv2_OnChildFrameActivate,
1467     TargetFramePriv2_OnChildFrameDeactivate,
1468     TargetFramePriv2_NavigateHack,
1469     TargetFramePriv2_FindBrowserByIndex,
1470     TargetFramePriv2_AggregatedNavigation2
1471 };
1472
1473 static inline HlinkFrame *impl_from_IWebBrowserPriv2IE9(IWebBrowserPriv2IE9 *iface)
1474 {
1475     return CONTAINING_RECORD(iface, HlinkFrame, IWebBrowserPriv2IE9_iface);
1476 }
1477
1478 static HRESULT WINAPI WebBrowserPriv2IE9_QueryInterface(IWebBrowserPriv2IE9 *iface, REFIID riid, void **ppv)
1479 {
1480     HlinkFrame *This = impl_from_IWebBrowserPriv2IE9(iface);
1481     return IUnknown_QueryInterface(This->outer, riid, ppv);
1482 }
1483
1484 static ULONG WINAPI WebBrowserPriv2IE9_AddRef(IWebBrowserPriv2IE9 *iface)
1485 {
1486     HlinkFrame *This = impl_from_IWebBrowserPriv2IE9(iface);
1487     return IUnknown_AddRef(This->outer);
1488 }
1489
1490 static ULONG WINAPI WebBrowserPriv2IE9_Release(IWebBrowserPriv2IE9 *iface)
1491 {
1492     HlinkFrame *This = impl_from_IWebBrowserPriv2IE9(iface);
1493     return IUnknown_Release(This->outer);
1494 }
1495
1496 static HRESULT WINAPI WebBrowserPriv2IE9_NavigateWithBindCtx2(IWebBrowserPriv2IE9 *iface, IUri *uri, VARIANT *flags,
1497         VARIANT *target_frame, VARIANT *post_data, VARIANT *headers, IBindCtx *bind_ctx, LPOLESTR url_fragment, DWORD unused)
1498 {
1499     HlinkFrame *This = impl_from_IWebBrowserPriv2IE9(iface);
1500     FIXME("(%p)->(%p %s %s %s %s %p %s)\n", This, uri, debugstr_variant(flags), debugstr_variant(target_frame),
1501           debugstr_variant(post_data), debugstr_variant(headers), bind_ctx, debugstr_w(url_fragment));
1502     return E_NOTIMPL;
1503 }
1504
1505 static const IWebBrowserPriv2IE9Vtbl WebBrowserPriv2IE9Vtbl = {
1506     WebBrowserPriv2IE9_QueryInterface,
1507     WebBrowserPriv2IE9_AddRef,
1508     WebBrowserPriv2IE9_Release,
1509     WebBrowserPriv2IE9_NavigateWithBindCtx2
1510 };
1511
1512 BOOL HlinkFrame_QI(HlinkFrame *This, REFIID riid, void **ppv)
1513 {
1514     if(IsEqualGUID(&IID_IHlinkFrame, riid)) {
1515         TRACE("(%p)->(IID_IHlinkFrame %p)\n", This, ppv);
1516         *ppv = &This->IHlinkFrame_iface;
1517     }else if(IsEqualGUID(&IID_ITargetFrame2, riid)) {
1518         TRACE("(%p)->(IID_ITargetFrame2 %p)\n", This, ppv);
1519         *ppv = &This->ITargetFrame2_iface;
1520     }else if(IsEqualGUID(&IID_ITargetFramePriv, riid)) {
1521         TRACE("(%p)->(IID_ITargetFramePriv %p)\n", This, ppv);
1522         *ppv = &This->ITargetFramePriv2_iface;
1523     }else if(IsEqualGUID(&IID_ITargetFramePriv2, riid)) {
1524         TRACE("(%p)->(IID_ITargetFramePriv2 %p)\n", This, ppv);
1525         *ppv = &This->ITargetFramePriv2_iface;
1526     }else if(IsEqualGUID(&IID_IWebBrowserPriv2IE9, riid)) {
1527         TRACE("(%p)->(IID_IWebBrowserPriv2IE9 %p)\n", This, ppv);
1528         *ppv = &This->IWebBrowserPriv2IE9_iface;
1529     }else {
1530         return FALSE;
1531     }
1532
1533     IUnknown_AddRef((IUnknown*)*ppv);
1534     return TRUE;
1535 }
1536
1537 void HlinkFrame_Init(HlinkFrame *This, IUnknown *outer, DocHost *doc_host)
1538 {
1539     This->IHlinkFrame_iface.lpVtbl   = &HlinkFrameVtbl;
1540     This->ITargetFrame2_iface.lpVtbl = &TargetFrame2Vtbl;
1541     This->ITargetFramePriv2_iface.lpVtbl = &TargetFramePriv2Vtbl;
1542     This->IWebBrowserPriv2IE9_iface.lpVtbl = &WebBrowserPriv2IE9Vtbl;
1543
1544     This->outer = outer;
1545     This->doc_host = doc_host;
1546 }