dlls/shdocvw/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 #define NONAMELESSUNION
  20 #define NONAMELESSSTRUCT
  21
  22 #include "wine/debug.h"
  23 #include "wine/unicode.h"
  24
  25 #include "shdocvw.h"
  26 #include "mshtml.h"
  27 #include "exdispid.h"
  28 #include "shellapi.h"
  29 #include "winreg.h"
  30
  31 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
  32
  33 typedef struct {
  34     const IBindStatusCallbackVtbl  *lpBindStatusCallbackVtbl;
  35     const IHttpNegotiateVtbl       *lpHttpNegotiateVtbl;
  36
  37     LONG ref;
  38
  39     DocHost *doc_host;
  40
  41     HGLOBAL post_data;
  42     LPWSTR headers;
  43     ULONG post_data_len;
  44 } BindStatusCallback;
  45
  46 #define BINDSC(x)  ((IBindStatusCallback*) &(x)->lpBindStatusCallbackVtbl)
  47 #define HTTPNEG(x) ((IHttpNegotiate*)      &(x)->lpHttpNegotiateVtbl)
  48
  49 static void dump_BINDINFO(BINDINFO *bi)
  50 {
  51     static const char * const BINDINFOF_str[] = {
  52         "#0",
  53         "BINDINFOF_URLENCODESTGMEDDATA",
  54         "BINDINFOF_URLENCODEDEXTRAINFO"
  55     };
  56
  57     static const char * const BINDVERB_str[] = {
  58         "BINDVERB_GET",
  59         "BINDVERB_POST",
  60         "BINDVERB_PUT",
  61         "BINDVERB_CUSTOM"
  62     };
  63
  64     TRACE("\n"
  65             "BINDINFO = {\n"
  66             "    %d, %s,\n"
  67             "    {%d, %p, %p},\n"
  68             "    %s,\n"
  69             "    %s,\n"
  70             "    %s,\n"
  71             "    %d, %08x, %d, %d\n"
  72             "    {%d %p %x},\n"
  73             "    %s\n"
  74             "    %p, %d\n"
  75             "}\n",
  76
  77             bi->cbSize, debugstr_w(bi->szExtraInfo),
  78             bi->stgmedData.tymed, bi->stgmedData.u.hGlobal, bi->stgmedData.pUnkForRelease,
  79             bi->grfBindInfoF > BINDINFOF_URLENCODEDEXTRAINFO
  80                 ? "unknown" : BINDINFOF_str[bi->grfBindInfoF],
  81             bi->dwBindVerb > BINDVERB_CUSTOM
  82                 ? "unknown" : BINDVERB_str[bi->dwBindVerb],
  83             debugstr_w(bi->szCustomVerb),
  84             bi->cbstgmedData, bi->dwOptions, bi->dwOptionsFlags, bi->dwCodePage,
  85             bi->securityAttributes.nLength,
  86             bi->securityAttributes.lpSecurityDescriptor,
  87             bi->securityAttributes.bInheritHandle,
  88             debugstr_guid(&bi->iid),
  89             bi->pUnk, bi->dwReserved
  90             );
  91 }
  92
  93 #define BINDSC_THIS(iface) DEFINE_THIS(BindStatusCallback, BindStatusCallback, iface)
  94
  95 static HRESULT WINAPI BindStatusCallback_QueryInterface(IBindStatusCallback *iface,
  96                                                         REFIID riid, void **ppv)
  97 {
  98     BindStatusCallback *This = BINDSC_THIS(iface);
  99
 100     *ppv = NULL;
 101
 102     if(IsEqualGUID(&IID_IUnknown, riid)) {
 103         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
 104         *ppv = BINDSC(This);
 105     }else if(IsEqualGUID(&IID_IBindStatusCallback, riid)) {
 106         TRACE("(%p)->(IID_IBindStatusCallback %p)\n", This, ppv);
 107         *ppv = BINDSC(This);
 108     }else if(IsEqualGUID(&IID_IHttpNegotiate, riid)) {
 109         TRACE("(%p)->(IID_IHttpNegotiate %p)\n", This, ppv);
 110         *ppv = HTTPNEG(This);
 111     }
 112
 113     if(*ppv) {
 114         IBindStatusCallback_AddRef(BINDSC(This));
 115         return S_OK;
 116     }
 117
 118     WARN("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
 119     return E_NOINTERFACE;
 120 }
 121
 122 static ULONG WINAPI BindStatusCallback_AddRef(IBindStatusCallback *iface)
 123 {
 124     BindStatusCallback *This = BINDSC_THIS(iface);
 125     LONG ref = InterlockedIncrement(&This->ref);
 126
 127     TRACE("(%p) ref=%d\n", This, ref);
 128
 129     return ref;
 130 }
 131
 132 static ULONG WINAPI BindStatusCallback_Release(IBindStatusCallback *iface)
 133 {
 134     BindStatusCallback *This = BINDSC_THIS(iface);
 135     LONG ref = InterlockedDecrement(&This->ref);
 136
 137     TRACE("(%p) ref=%d\n", This, ref);
 138
 139     if(!ref) {
 140         if(This->doc_host)
 141             IOleClientSite_Release(CLIENTSITE(This->doc_host));
 142         if(This->post_data)
 143             GlobalFree(This->post_data);
 144         heap_free(This->headers);
 145         heap_free(This);
 146     }
 147
 148     return ref;
 149 }
 150
 151 static HRESULT WINAPI BindStatusCallback_OnStartBinding(IBindStatusCallback *iface,
 152        DWORD dwReserved, IBinding *pbind)
 153 {
 154     BindStatusCallback *This = BINDSC_THIS(iface);
 155
 156     TRACE("(%p)->(%d %p)\n", This, dwReserved, pbind);
 157
 158     return S_OK;
 159 }
 160
 161 static HRESULT WINAPI BindStatusCallback_GetPriority(IBindStatusCallback *iface,
 162        LONG *pnPriority)
 163 {
 164     BindStatusCallback *This = BINDSC_THIS(iface);
 165     FIXME("(%p)->(%p)\n", This, pnPriority);
 166     return E_NOTIMPL;
 167 }
 168
 169 static HRESULT WINAPI BindStatusCallback_OnLowResource(IBindStatusCallback *iface,
 170        DWORD reserved)
 171 {
 172     BindStatusCallback *This = BINDSC_THIS(iface);
 173     FIXME("(%p)->(%d)\n", This, reserved);
 174     return E_NOTIMPL;
 175 }
 176
 177 static HRESULT WINAPI BindStatusCallback_OnProgress(IBindStatusCallback *iface,
 178         ULONG ulProgress, ULONG ulProgressMax, ULONG ulStatusCode, LPCWSTR szStatusText)
 179 {
 180     BindStatusCallback *This = BINDSC_THIS(iface);
 181     FIXME("(%p)->(%d %d %d %s)\n", This, ulProgress, ulProgressMax, ulStatusCode,
 182           debugstr_w(szStatusText));
 183     return E_NOTIMPL;
 184 }
 185
 186 static HRESULT WINAPI BindStatusCallback_OnStopBinding(IBindStatusCallback *iface,
 187         HRESULT hresult, LPCWSTR szError)
 188 {
 189     BindStatusCallback *This = BINDSC_THIS(iface);
 190
 191     FIXME("(%p)->(%08x %s)\n", This, hresult, debugstr_w(szError));
 192
 193     if(This->doc_host) {
 194         IOleClientSite_Release(CLIENTSITE(This->doc_host));
 195         This->doc_host = NULL;
 196     }
 197
 198     return E_NOTIMPL;
 199 }
 200
 201 static HRESULT WINAPI BindStatusCallback_GetBindInfo(IBindStatusCallback *iface,
 202         DWORD *grfBINDF, BINDINFO *pbindinfo)
 203 {
 204     BindStatusCallback *This = BINDSC_THIS(iface);
 205
 206     TRACE("(%p)->(%p %p)\n", This, grfBINDF, pbindinfo);
 207
 208     *grfBINDF = BINDF_ASYNCHRONOUS;
 209
 210     if(This->post_data) {
 211         pbindinfo->dwBindVerb = BINDVERB_POST;
 212
 213         pbindinfo->stgmedData.tymed = TYMED_HGLOBAL;
 214         pbindinfo->stgmedData.u.hGlobal = This->post_data;
 215         pbindinfo->cbstgmedData = This->post_data_len;
 216         pbindinfo->stgmedData.pUnkForRelease = (IUnknown*)BINDSC(This);
 217         IBindStatusCallback_AddRef(BINDSC(This));
 218     }
 219
 220     return S_OK;
 221 }
 222
 223 static HRESULT WINAPI BindStatusCallback_OnDataAvailable(IBindStatusCallback *iface,
 224         DWORD grfBSCF, DWORD dwSize, FORMATETC *pformatetc, STGMEDIUM *pstgmed)
 225 {
 226     BindStatusCallback *This = BINDSC_THIS(iface);
 227     FIXME("(%p)->(%08x %d %p %p)\n", This, grfBSCF, dwSize, pformatetc, pstgmed);
 228     return E_NOTIMPL;
 229 }
 230
 231 static HRESULT WINAPI BindStatusCallback_OnObjectAvailable(IBindStatusCallback *iface,
 232         REFIID riid, IUnknown *punk)
 233 {
 234     BindStatusCallback *This = BINDSC_THIS(iface);
 235     FIXME("(%p)->(%s %p)\n", This, debugstr_guid(riid), punk);
 236     return E_NOTIMPL;
 237 }
 238
 239 #undef BSC_THIS
 240
 241 static const IBindStatusCallbackVtbl BindStatusCallbackVtbl = {
 242     BindStatusCallback_QueryInterface,
 243     BindStatusCallback_AddRef,
 244     BindStatusCallback_Release,
 245     BindStatusCallback_OnStartBinding,
 246     BindStatusCallback_GetPriority,
 247     BindStatusCallback_OnLowResource,
 248     BindStatusCallback_OnProgress,
 249     BindStatusCallback_OnStopBinding,
 250     BindStatusCallback_GetBindInfo,
 251     BindStatusCallback_OnDataAvailable,
 252     BindStatusCallback_OnObjectAvailable
 253 };
 254
 255 #define HTTPNEG_THIS(iface) DEFINE_THIS(BindStatusCallback, HttpNegotiate, iface)
 256
 257 static HRESULT WINAPI HttpNegotiate_QueryInterface(IHttpNegotiate *iface,
 258                                                    REFIID riid, void **ppv)
 259 {
 260     BindStatusCallback *This = HTTPNEG_THIS(iface);
 261     return IBindStatusCallback_QueryInterface(BINDSC(This), riid, ppv);
 262 }
 263
 264 static ULONG WINAPI HttpNegotiate_AddRef(IHttpNegotiate *iface)
 265 {
 266     BindStatusCallback *This = HTTPNEG_THIS(iface);
 267     return IBindStatusCallback_AddRef(BINDSC(This));
 268 }
 269
 270 static ULONG WINAPI HttpNegotiate_Release(IHttpNegotiate *iface)
 271 {
 272     BindStatusCallback *This = HTTPNEG_THIS(iface);
 273     return IBindStatusCallback_Release(BINDSC(This));
 274 }
 275
 276 static HRESULT WINAPI HttpNegotiate_BeginningTransaction(IHttpNegotiate *iface,
 277         LPCWSTR szURL, LPCWSTR szHeaders, DWORD dwReserved, LPWSTR *pszAdditionalHeaders)
 278 {
 279     BindStatusCallback *This = HTTPNEG_THIS(iface);
 280
 281     FIXME("(%p)->(%s %s %d %p)\n", This, debugstr_w(szURL), debugstr_w(szHeaders),
 282           dwReserved, pszAdditionalHeaders);
 283
 284     if(This->headers) {
 285         int size = (strlenW(This->headers)+1)*sizeof(WCHAR);
 286         *pszAdditionalHeaders = CoTaskMemAlloc(size);
 287         memcpy(*pszAdditionalHeaders, This->headers, size);
 288     }
 289
 290     return S_OK;
 291 }
 292
 293 static HRESULT WINAPI HttpNegotiate_OnResponse(IHttpNegotiate *iface,
 294         DWORD dwResponseCode, LPCWSTR szResponseHeaders, LPCWSTR szRequestHeaders,
 295         LPWSTR *pszAdditionalRequestHeaders)
 296 {
 297     BindStatusCallback *This = HTTPNEG_THIS(iface);
 298     FIXME("(%p)->(%d %s %s %p)\n", This, dwResponseCode, debugstr_w(szResponseHeaders),
 299           debugstr_w(szRequestHeaders), pszAdditionalRequestHeaders);
 300     return E_NOTIMPL;
 301 }
 302
 303 #undef HTTPNEG_THIS
 304
 305 static const IHttpNegotiateVtbl HttpNegotiateVtbl = {
 306     HttpNegotiate_QueryInterface,
 307     HttpNegotiate_AddRef,
 308     HttpNegotiate_Release,
 309     HttpNegotiate_BeginningTransaction,
 310     HttpNegotiate_OnResponse
 311 };
 312
 313 static IBindStatusCallback *create_callback(DocHost *doc_host, PBYTE post_data,
 314         ULONG post_data_len, LPWSTR headers)
 315 {
 316     BindStatusCallback *ret = heap_alloc(sizeof(BindStatusCallback));
 317
 318     ret->lpBindStatusCallbackVtbl = &BindStatusCallbackVtbl;
 319     ret->lpHttpNegotiateVtbl      = &HttpNegotiateVtbl;
 320
 321     ret->ref = 1;
 322     ret->post_data = NULL;
 323     ret->post_data_len = post_data_len;
 324     ret->headers = NULL;
 325
 326     ret->doc_host = doc_host;
 327     IOleClientSite_AddRef(CLIENTSITE(doc_host));
 328
 329     if(post_data) {
 330         ret->post_data = GlobalAlloc(0, post_data_len);
 331         memcpy(ret->post_data, post_data, post_data_len);
 332     }
 333
 334     if(headers) {
 335         int size = (strlenW(headers)+1)*sizeof(WCHAR);
 336         ret->headers = heap_alloc(size);
 337         memcpy(ret->headers, headers, size);
 338     }
 339
 340     return BINDSC(ret);
 341 }
 342
 343 static void on_before_navigate2(DocHost *This, LPCWSTR url, const BYTE *post_data,
 344                                 ULONG post_data_len, LPWSTR headers, VARIANT_BOOL *cancel)
 345 {
 346     VARIANT var_url, var_flags, var_frame_name, var_post_data, var_post_data2, var_headers;
 347     DISPPARAMS dispparams;
 348     VARIANTARG params[7];
 349
 350     dispparams.cArgs = 7;
 351     dispparams.cNamedArgs = 0;
 352     dispparams.rgdispidNamedArgs = NULL;
 353     dispparams.rgvarg = params;
 354
 355     V_VT(params) = VT_BOOL|VT_BYREF;
 356     V_BOOLREF(params) = cancel;
 357
 358     V_VT(params+1) = (VT_BYREF|VT_VARIANT);
 359     V_VARIANTREF(params+1) = &var_headers;
 360     V_VT(&var_headers) = VT_BSTR;
 361     V_BSTR(&var_headers) = headers;
 362
 363     V_VT(params+2) = (VT_BYREF|VT_VARIANT);
 364     V_VARIANTREF(params+2) = &var_post_data2;
 365     V_VT(&var_post_data2) = (VT_BYREF|VT_VARIANT);
 366     V_VARIANTREF(&var_post_data2) = &var_post_data;
 367     VariantInit(&var_post_data);
 368
 369     if(post_data_len) {
 370         SAFEARRAYBOUND bound = {post_data_len, 0};
 371         void *data;
 372
 373         V_VT(&var_post_data) = VT_UI1|VT_ARRAY;
 374         V_ARRAY(&var_post_data) = SafeArrayCreate(VT_UI1, 1, &bound);
 375
 376         SafeArrayAccessData(V_ARRAY(&var_post_data), &data);
 377         memcpy(data, post_data, post_data_len);
 378         SafeArrayUnaccessData(V_ARRAY(&var_post_data));
 379     }
 380
 381     V_VT(params+3) = (VT_BYREF|VT_VARIANT);
 382     V_VARIANTREF(params+3) = &var_frame_name;
 383     V_VT(&var_frame_name) = VT_BSTR;
 384     V_BSTR(&var_frame_name) = NULL;
 385
 386     V_VT(params+4) = (VT_BYREF|VT_VARIANT);
 387     V_VARIANTREF(params+4) = &var_flags;
 388     V_VT(&var_flags) = VT_I4;
 389     V_I4(&var_flags) = 0;
 390
 391     V_VT(params+5) = (VT_BYREF|VT_VARIANT);
 392     V_VARIANTREF(params+5) = &var_url;
 393     V_VT(&var_url) = VT_BSTR;
 394     V_BSTR(&var_url) = SysAllocString(url);
 395
 396     V_VT(params+6) = (VT_DISPATCH);
 397     V_DISPATCH(params+6) = This->disp;
 398
 399     call_sink(This->cps.wbe2, DISPID_BEFORENAVIGATE2, &dispparams);
 400
 401     SysFreeString(V_BSTR(&var_url));
 402     if(post_data_len)
 403         SafeArrayDestroy(V_ARRAY(&var_post_data));
 404 }
 405
 406 static BOOL try_application_url(LPCWSTR url)
 407 {
 408     SHELLEXECUTEINFOW exec_info;
 409     WCHAR app[64];
 410     HKEY hkey;
 411     DWORD res, type;
 412     HRESULT hres;
 413
 414     static const WCHAR wszURLProtocol[] = {'U','R','L',' ','P','r','o','t','o','c','o','l',0};
 415
 416     hres = CoInternetParseUrl(url, PARSE_SCHEMA, 0, app, sizeof(app)/sizeof(WCHAR), NULL, 0);
 417     if(FAILED(hres))
 418         return FALSE;
 419
 420     res = RegOpenKeyW(HKEY_CLASSES_ROOT, app, &hkey);
 421     if(res != ERROR_SUCCESS)
 422         return FALSE;
 423
 424     res = RegQueryValueExW(hkey, wszURLProtocol, NULL, &type, NULL, NULL);
 425     RegCloseKey(hkey);
 426     if(res != ERROR_SUCCESS || type != REG_SZ)
 427         return FALSE;
 428
 429     TRACE("openning application %s\n", debugstr_w(app));
 430
 431     memset(&exec_info, 0, sizeof(exec_info));
 432     exec_info.cbSize = sizeof(exec_info);
 433     exec_info.lpFile = url;
 434     exec_info.nShow = SW_SHOW;
 435
 436     return ShellExecuteExW(&exec_info);
 437 }
 438
 439 static HRESULT http_load_hack(DocHost *This, IMoniker *mon, IBindStatusCallback *callback, IBindCtx *bindctx)
 440 {
 441     IOleObject *oleobj;
 442     IPersistMoniker *persist;
 443     HRESULT hres;
 444
 445     /*
 446      * FIXME:
 447      * We should use URLMoniker's BindToObject instead creating HTMLDocument here.
 448      * This should be fixed when mshtml.dll and urlmon.dll will be good enough.
 449      */
 450
 451     hres = CoCreateInstance(&CLSID_HTMLDocument, NULL,
 452                             CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
 453                             &IID_IUnknown, (void**)&This->document);
 454
 455     if(FAILED(hres)) {
 456         ERR("Could not create HTMLDocument: %08x\n", hres);
 457         return hres;
 458     }
 459
 460     hres = IUnknown_QueryInterface(This->document, &IID_IPersistMoniker, (void**)&persist);
 461     if(FAILED(hres))
 462         return hres;
 463
 464     hres = IPersistMoniker_Load(persist, FALSE, mon, bindctx, 0);
 465     IPersistMoniker_Release(persist);
 466
 467     if(This->frame) {
 468         static const WCHAR empty[] = {0};
 469
 470         IOleInPlaceFrame_SetStatusText(This->frame, empty); /* FIXME */
 471     }
 472
 473     if(FAILED(hres)) {
 474         WARN("Load failed: %08x\n", hres);
 475         return hres;
 476     }
 477
 478     hres = IUnknown_QueryInterface(This->document, &IID_IOleObject, (void**)&oleobj);
 479     if(FAILED(hres))
 480         return hres;
 481
 482     hres = IOleObject_SetClientSite(oleobj, CLIENTSITE(This));
 483     IOleObject_Release(oleobj);
 484
 485     PostMessageW(This->hwnd, WB_WM_NAVIGATE2, 0, 0);
 486
 487     return hres;
 488
 489 }
 490
 491 static HRESULT bind_to_object(DocHost *This, IMoniker *mon, LPCWSTR url, IBindCtx *bindctx,
 492                               IBindStatusCallback *callback)
 493 {
 494     HRESULT hres;
 495
 496     IBindCtx_RegisterObjectParam(bindctx, (LPOLESTR)SZ_HTML_CLIENTSITE_OBJECTPARAM,
 497                                  (IUnknown*)CLIENTSITE(This));
 498
 499     if(This->frame)
 500         IOleInPlaceFrame_EnableModeless(This->frame, FALSE);
 501
 502     hres = http_load_hack(This, mon, callback, bindctx);
 503
 504     if(This->frame)
 505         IOleInPlaceFrame_EnableModeless(This->frame, TRUE);
 506
 507     return S_OK;
 508 }
 509
 510 static HRESULT navigate_mon(DocHost *This, IMoniker *mon, PBYTE post_data, ULONG post_data_len,
 511                      LPWSTR headers)
 512 {
 513     IBindStatusCallback *callback;
 514     IBindCtx *bindctx;
 515     HRESULT hres;
 516
 517     IMoniker_GetDisplayName(mon, NULL, NULL, &This->url);
 518     TRACE("navigating to %s\n", debugstr_w(This->url));
 519
 520     if(This->document)
 521         deactivate_document(This);
 522
 523     callback = create_callback(This, post_data, post_data_len, (LPWSTR)headers);
 524     CreateAsyncBindCtx(0, callback, 0, &bindctx);
 525
 526     hres = bind_to_object(This, mon, This->url, bindctx, callback);
 527
 528     IBindStatusCallback_OnStopBinding(callback, hres, NULL);
 529
 530     IBindStatusCallback_Release(callback);
 531     IBindCtx_Release(bindctx);
 532
 533     return hres;
 534 }
 535
 536 HRESULT navigate_url(DocHost *This, LPCWSTR url, const VARIANT *Flags,
 537                      const VARIANT *TargetFrameName, VARIANT *PostData, VARIANT *Headers)
 538 {
 539     IMoniker *mon;
 540     PBYTE post_data = NULL;
 541     ULONG post_data_len = 0;
 542     LPWSTR headers = NULL;
 543     HRESULT hres;
 544
 545     TRACE("navigating to %s\n", debugstr_w(url));
 546
 547     hres = CreateURLMoniker(NULL, url, &mon);
 548     if(FAILED(hres)) {
 549         WARN("CreateURLMoniker failed: %08x\n", hres);
 550         return hres;
 551     }
 552
 553     if((Flags && V_VT(Flags) != VT_EMPTY)
 554        || (TargetFrameName && V_VT(TargetFrameName) != VT_EMPTY))
 555         FIXME("Unsupported args (Flags %p:%d; TargetFrameName %p:%d)\n",
 556                 Flags, Flags ? V_VT(Flags) : -1, TargetFrameName,
 557                 TargetFrameName ? V_VT(TargetFrameName) : -1);
 558
 559     if(PostData) {
 560         TRACE("PostData vt=%d\n", V_VT(PostData));
 561
 562         if(V_VT(PostData) == (VT_ARRAY | VT_UI1)) {
 563             SafeArrayAccessData(V_ARRAY(PostData), (void**)&post_data);
 564             post_data_len = V_ARRAY(PostData)->rgsabound[0].cElements;
 565         }
 566     }
 567
 568     if(Headers && V_VT(Headers) != VT_EMPTY && V_VT(Headers) != VT_ERROR) {
 569         if(V_VT(Headers) != VT_BSTR)
 570             return E_INVALIDARG;
 571
 572         headers = V_BSTR(Headers);
 573         TRACE("Headers: %s\n", debugstr_w(headers));
 574     }
 575
 576     if(!This->hwnd)
 577         create_doc_view_hwnd(This);
 578
 579     hres = navigate_mon(This, mon, post_data, post_data_len, headers);
 580
 581     IMoniker_Release(mon);
 582     if(post_data)
 583         SafeArrayUnaccessData(V_ARRAY(PostData));
 584
 585     return hres;
 586 }
 587
 588 static HRESULT navigate_hlink(DocHost *This, IMoniker *mon, IBindCtx *bindctx,
 589                               IBindStatusCallback *callback)
 590 {
 591     IHttpNegotiate *http_negotiate;
 592     LPWSTR url = NULL;
 593     PBYTE post_data = NULL;
 594     ULONG post_data_len = 0;
 595     LPWSTR headers = NULL;
 596     VARIANT_BOOL cancel = VARIANT_FALSE;
 597     BINDINFO bindinfo;
 598     DWORD bindf = 0;
 599     HRESULT hres;
 600
 601     IMoniker_GetDisplayName(mon, NULL, NULL, &url);
 602     TRACE("navigating to %s\n", debugstr_w(url));
 603
 604     hres = IBindStatusCallback_QueryInterface(callback, &IID_IHttpNegotiate,
 605                                               (void**)&http_negotiate);
 606     if(SUCCEEDED(hres)) {
 607         static const WCHAR null_string[] = {0};
 608
 609         IHttpNegotiate_BeginningTransaction(http_negotiate, null_string, null_string, 0,
 610                                             &headers);
 611         IHttpNegotiate_Release(http_negotiate);
 612     }
 613
 614     memset(&bindinfo, 0, sizeof(bindinfo));
 615     bindinfo.cbSize = sizeof(bindinfo);
 616
 617     hres = IBindStatusCallback_GetBindInfo(callback, &bindf, &bindinfo);
 618     dump_BINDINFO(&bindinfo);
 619     if(bindinfo.dwBindVerb == BINDVERB_POST) {
 620         post_data_len = bindinfo.cbstgmedData;
 621         if(post_data_len)
 622             post_data = bindinfo.stgmedData.u.hGlobal;
 623     }
 624
 625     on_before_navigate2(This, url, post_data, post_data_len, headers, &cancel);
 626     CoTaskMemFree(url);
 627
 628     if(cancel) {
 629         FIXME("navigation canceled\n");
 630         hres = S_OK;
 631     }else {
 632         /* FIXME: We should do it after BindToObject call */
 633         if(try_application_url(url))
 634             return S_OK;
 635
 636         hres = navigate_mon(This, mon, post_data, post_data_len, headers);
 637     }
 638
 639     CoTaskMemFree(headers);
 640     ReleaseBindInfo(&bindinfo);
 641
 642     return hres;
 643 }
 644
 645 HRESULT go_home(DocHost *This)
 646 {
 647     static const WCHAR wszAboutBlank[] = {'a','b','o','u','t',':','b','l','a','n','k',0};
 648
 649     FIXME("stub\n");
 650
 651     return navigate_url(This, wszAboutBlank, NULL, NULL, NULL, NULL);
 652 }
 653
 654 #define HLINKFRAME_THIS(iface) DEFINE_THIS(WebBrowser, HlinkFrame, iface)
 655
 656 static HRESULT WINAPI HlinkFrame_QueryInterface(IHlinkFrame *iface, REFIID riid, void **ppv)
 657 {
 658     WebBrowser *This = HLINKFRAME_THIS(iface);
 659     return IWebBrowser2_QueryInterface(WEBBROWSER2(This), riid, ppv);
 660 }
 661
 662 static ULONG WINAPI HlinkFrame_AddRef(IHlinkFrame *iface)
 663 {
 664     WebBrowser *This = HLINKFRAME_THIS(iface);
 665     return IWebBrowser2_AddRef(WEBBROWSER2(This));
 666 }
 667
 668 static ULONG WINAPI HlinkFrame_Release(IHlinkFrame *iface)
 669 {
 670     WebBrowser *This = HLINKFRAME_THIS(iface);
 671     return IWebBrowser2_Release(WEBBROWSER2(This));
 672 }
 673
 674 static HRESULT WINAPI HlinkFrame_SetBrowseContext(IHlinkFrame *iface,
 675                                                   IHlinkBrowseContext *pihlbc)
 676 {
 677     WebBrowser *This = HLINKFRAME_THIS(iface);
 678     FIXME("(%p)->(%p)\n", This, pihlbc);
 679     return E_NOTIMPL;
 680 }
 681
 682 static HRESULT WINAPI HlinkFrame_GetBrowseContext(IHlinkFrame *iface,
 683                                                   IHlinkBrowseContext **ppihlbc)
 684 {
 685     WebBrowser *This = HLINKFRAME_THIS(iface);
 686     FIXME("(%p)->(%p)\n", This, ppihlbc);
 687     return E_NOTIMPL;
 688 }
 689
 690 static HRESULT WINAPI HlinkFrame_Navigate(IHlinkFrame *iface, DWORD grfHLNF, LPBC pbc,
 691                                           IBindStatusCallback *pibsc, IHlink *pihlNavigate)
 692 {
 693     WebBrowser *This = HLINKFRAME_THIS(iface);
 694     IMoniker *mon;
 695     LPWSTR location = NULL;
 696
 697     TRACE("(%p)->(%08x %p %p %p)\n", This, grfHLNF, pbc, pibsc, pihlNavigate);
 698
 699     if(grfHLNF)
 700         FIXME("unsupported grfHLNF=%08x\n", grfHLNF);
 701
 702     /* Windows calls GetTargetFrameName here. */
 703
 704     IHlink_GetMonikerReference(pihlNavigate, 1, &mon, &location);
 705
 706     if(location) {
 707         FIXME("location = %s\n", debugstr_w(location));
 708         CoTaskMemFree(location);
 709     }
 710
 711     /* Windows calls GetHlinkSite here */
 712
 713     if(grfHLNF & HLNF_OPENINNEWWINDOW) {
 714         FIXME("Not supported HLNF_OPENINNEWWINDOW\n");
 715         return E_NOTIMPL;
 716     }
 717
 718     return navigate_hlink(&This->doc_host, mon, pbc, pibsc);
 719 }
 720
 721 static HRESULT WINAPI HlinkFrame_OnNavigate(IHlinkFrame *iface, DWORD grfHLNF,
 722         IMoniker *pimkTarget, LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName, DWORD dwreserved)
 723 {
 724     WebBrowser *This = HLINKFRAME_THIS(iface);
 725     FIXME("(%p)->(%08x %p %s %s %d)\n", This, grfHLNF, pimkTarget, debugstr_w(pwzLocation),
 726           debugstr_w(pwzFriendlyName), dwreserved);
 727     return E_NOTIMPL;
 728 }
 729
 730 static HRESULT WINAPI HlinkFrame_UpdateHlink(IHlinkFrame *iface, ULONG uHLID,
 731         IMoniker *pimkTarget, LPCWSTR pwzLocation, LPCWSTR pwzFriendlyName)
 732 {
 733     WebBrowser *This = HLINKFRAME_THIS(iface);
 734     FIXME("(%p)->(%u %p %s %s)\n", This, uHLID, pimkTarget, debugstr_w(pwzLocation),
 735           debugstr_w(pwzFriendlyName));
 736     return E_NOTIMPL;
 737 }
 738
 739 #undef HLINKFRAME_THIS
 740
 741 static const IHlinkFrameVtbl HlinkFrameVtbl = {
 742     HlinkFrame_QueryInterface,
 743     HlinkFrame_AddRef,
 744     HlinkFrame_Release,
 745     HlinkFrame_SetBrowseContext,
 746     HlinkFrame_GetBrowseContext,
 747     HlinkFrame_Navigate,
 748     HlinkFrame_OnNavigate,
 749     HlinkFrame_UpdateHlink
 750 };
 751
 752 void WebBrowser_HlinkFrame_Init(WebBrowser *This)
 753 {
 754     This->lpHlinkFrameVtbl = &HlinkFrameVtbl;
 755 }