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