dlls/mshtml/htmllocation.c

   1 /*
   2  * Copyright 2008 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 <stdarg.h>
  20
  21 #define COBJMACROS
  22
  23 #include "windef.h"
  24 #include "winbase.h"
  25 #include "winuser.h"
  26 #include "winreg.h"
  27 #include "ole2.h"
  28 #include "wininet.h"
  29 #include "shlwapi.h"
  30
  31 #include "wine/debug.h"
  32
  33 #include "mshtml_private.h"
  34 #include "binding.h"
  35 #include "resource.h"
  36
  37 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
  38
  39 static HRESULT get_url(HTMLLocation *This, const WCHAR **ret)
  40 {
  41     if(!This->window || !This->window->base.outer_window || !This->window->base.outer_window->url) {
  42         FIXME("No current URL\n");
  43         return E_NOTIMPL;
  44     }
  45
  46     *ret = This->window->base.outer_window->url;
  47     return S_OK;
  48 }
  49
  50 static IUri *get_uri(HTMLLocation *This)
  51 {
  52     if(!This->window || !This->window->base.outer_window)
  53         return NULL;
  54     return This->window->base.outer_window->uri;
  55 }
  56
  57 static HRESULT get_url_components(HTMLLocation *This, URL_COMPONENTSW *url)
  58 {
  59     const WCHAR *doc_url;
  60     HRESULT hres;
  61
  62     hres = get_url(This, &doc_url);
  63     if(FAILED(hres))
  64         return hres;
  65
  66     if(!InternetCrackUrlW(doc_url, 0, 0, url)) {
  67         FIXME("InternetCrackUrlW failed: 0x%08x\n", GetLastError());
  68         SetLastError(0);
  69         return E_FAIL;
  70     }
  71
  72     return S_OK;
  73 }
  74
  75 static inline HTMLLocation *impl_from_IHTMLLocation(IHTMLLocation *iface)
  76 {
  77     return CONTAINING_RECORD(iface, HTMLLocation, IHTMLLocation_iface);
  78 }
  79
  80 static HRESULT WINAPI HTMLLocation_QueryInterface(IHTMLLocation *iface, REFIID riid, void **ppv)
  81 {
  82     HTMLLocation *This = impl_from_IHTMLLocation(iface);
  83
  84     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
  85
  86     if(IsEqualGUID(&IID_IUnknown, riid)) {
  87         *ppv = &This->IHTMLLocation_iface;
  88     }else if(IsEqualGUID(&IID_IHTMLLocation, riid)) {
  89         *ppv = &This->IHTMLLocation_iface;
  90     }else if(IsEqualGUID(&IID_IMarshal, riid)) {
  91         *ppv = NULL;
  92         FIXME("(%p)->(IID_IMarshal %p)\n", This, ppv);
  93         return E_NOINTERFACE;
  94     }else if(dispex_query_interface(&This->dispex, riid, ppv)) {
  95         return *ppv ? S_OK : E_NOINTERFACE;
  96     }else {
  97         *ppv = NULL;
  98         WARN("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
  99         return E_NOINTERFACE;
 100     }
 101
 102     IUnknown_AddRef((IUnknown*)*ppv);
 103     return S_OK;
 104 }
 105
 106 static ULONG WINAPI HTMLLocation_AddRef(IHTMLLocation *iface)
 107 {
 108     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 109     LONG ref = InterlockedIncrement(&This->ref);
 110
 111     TRACE("(%p) ref=%d\n", This, ref);
 112
 113     return ref;
 114 }
 115
 116 static ULONG WINAPI HTMLLocation_Release(IHTMLLocation *iface)
 117 {
 118     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 119     LONG ref = InterlockedDecrement(&This->ref);
 120
 121     TRACE("(%p) ref=%d\n", This, ref);
 122
 123     if(!ref) {
 124         if(This->window)
 125             This->window->location = NULL;
 126         release_dispex(&This->dispex);
 127         heap_free(This);
 128     }
 129
 130     return ref;
 131 }
 132
 133 static HRESULT WINAPI HTMLLocation_GetTypeInfoCount(IHTMLLocation *iface, UINT *pctinfo)
 134 {
 135     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 136     return IDispatchEx_GetTypeInfoCount(&This->dispex.IDispatchEx_iface, pctinfo);
 137 }
 138
 139 static HRESULT WINAPI HTMLLocation_GetTypeInfo(IHTMLLocation *iface, UINT iTInfo,
 140                                               LCID lcid, ITypeInfo **ppTInfo)
 141 {
 142     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 143     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
 144 }
 145
 146 static HRESULT WINAPI HTMLLocation_GetIDsOfNames(IHTMLLocation *iface, REFIID riid,
 147                                                 LPOLESTR *rgszNames, UINT cNames,
 148                                                 LCID lcid, DISPID *rgDispId)
 149 {
 150     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 151     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface, riid, rgszNames, cNames,
 152             lcid, rgDispId);
 153 }
 154
 155 static HRESULT WINAPI HTMLLocation_Invoke(IHTMLLocation *iface, DISPID dispIdMember,
 156                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 157                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 158 {
 159     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 160     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface, dispIdMember, riid, lcid,
 161             wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 162 }
 163
 164 static HRESULT WINAPI HTMLLocation_put_href(IHTMLLocation *iface, BSTR v)
 165 {
 166     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 167
 168     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
 169
 170     if(!This->window || !This->window->base.outer_window) {
 171         FIXME("No window available\n");
 172         return E_FAIL;
 173     }
 174
 175     return navigate_url(This->window->base.outer_window, v, This->window->base.outer_window->uri, BINDING_NAVIGATED);
 176 }
 177
 178 static HRESULT WINAPI HTMLLocation_get_href(IHTMLLocation *iface, BSTR *p)
 179 {
 180     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 181     URL_COMPONENTSW url = {sizeof(URL_COMPONENTSW)};
 182     WCHAR *buf = NULL, *url_path = NULL;
 183     HRESULT hres, ret;
 184     DWORD len = 0;
 185     int i;
 186
 187     TRACE("(%p)->(%p)\n", This, p);
 188
 189     if(!p)
 190         return E_POINTER;
 191
 192     url.dwSchemeLength = 1;
 193     url.dwHostNameLength = 1;
 194     url.dwUrlPathLength = 1;
 195     url.dwExtraInfoLength = 1;
 196     hres = get_url_components(This, &url);
 197     if(FAILED(hres))
 198         return hres;
 199
 200     switch(url.nScheme) {
 201     case INTERNET_SCHEME_FILE:
 202         {
 203             /* prepend a slash */
 204             url_path = HeapAlloc(GetProcessHeap(), 0, (url.dwUrlPathLength + 1) * sizeof(WCHAR));
 205             if(!url_path)
 206                 return E_OUTOFMEMORY;
 207             url_path[0] = '/';
 208             memcpy(url_path + 1, url.lpszUrlPath, url.dwUrlPathLength * sizeof(WCHAR));
 209             url.lpszUrlPath = url_path;
 210             url.dwUrlPathLength = url.dwUrlPathLength + 1;
 211         }
 212         break;
 213
 214     case INTERNET_SCHEME_HTTP:
 215     case INTERNET_SCHEME_HTTPS:
 216     case INTERNET_SCHEME_FTP:
 217         if(!url.dwUrlPathLength) {
 218             /* add a slash if it's blank */
 219             url_path = url.lpszUrlPath = HeapAlloc(GetProcessHeap(), 0, 1 * sizeof(WCHAR));
 220             if(!url.lpszUrlPath)
 221                 return E_OUTOFMEMORY;
 222             url.lpszUrlPath[0] = '/';
 223             url.dwUrlPathLength = 1;
 224         }
 225         break;
 226
 227     default:
 228         break;
 229     }
 230
 231     /* replace \ with / */
 232     for(i = 0; i < url.dwUrlPathLength; ++i)
 233         if(url.lpszUrlPath[i] == '\\')
 234             url.lpszUrlPath[i] = '/';
 235
 236     if(InternetCreateUrlW(&url, ICU_ESCAPE, NULL, &len)) {
 237         FIXME("InternetCreateUrl succeeded with NULL buffer?\n");
 238         ret = E_FAIL;
 239         goto cleanup;
 240     }
 241
 242     if(GetLastError() != ERROR_INSUFFICIENT_BUFFER) {
 243         FIXME("InternetCreateUrl failed with error: %08x\n", GetLastError());
 244         SetLastError(0);
 245         ret = E_FAIL;
 246         goto cleanup;
 247     }
 248     SetLastError(0);
 249
 250     buf = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
 251     if(!buf) {
 252         ret = E_OUTOFMEMORY;
 253         goto cleanup;
 254     }
 255
 256     if(!InternetCreateUrlW(&url, ICU_ESCAPE, buf, &len)) {
 257         FIXME("InternetCreateUrl failed with error: %08x\n", GetLastError());
 258         SetLastError(0);
 259         ret = E_FAIL;
 260         goto cleanup;
 261     }
 262
 263     *p = SysAllocStringLen(buf, len);
 264     if(!*p) {
 265         ret = E_OUTOFMEMORY;
 266         goto cleanup;
 267     }
 268
 269     ret = S_OK;
 270
 271 cleanup:
 272     HeapFree(GetProcessHeap(), 0, buf);
 273     HeapFree(GetProcessHeap(), 0, url_path);
 274
 275     return ret;
 276 }
 277
 278 static HRESULT WINAPI HTMLLocation_put_protocol(IHTMLLocation *iface, BSTR v)
 279 {
 280     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 281     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 282     return E_NOTIMPL;
 283 }
 284
 285 static HRESULT WINAPI HTMLLocation_get_protocol(IHTMLLocation *iface, BSTR *p)
 286 {
 287     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 288     BSTR protocol, ret;
 289     unsigned len;
 290     IUri *uri;
 291     HRESULT hres;
 292
 293     TRACE("(%p)->(%p)\n", This, p);
 294
 295     if(!p)
 296         return E_POINTER;
 297
 298     if(!(uri = get_uri(This))) {
 299         FIXME("No current URI\n");
 300         return E_NOTIMPL;
 301     }
 302
 303     hres = IUri_GetSchemeName(uri, &protocol);
 304     if(FAILED(hres))
 305         return hres;
 306     if(hres == S_FALSE) {
 307         SysFreeString(protocol);
 308         *p = NULL;
 309         return S_OK;
 310     }
 311
 312     len = SysStringLen(protocol);
 313     ret = SysAllocStringLen(protocol, len+1);
 314     SysFreeString(protocol);
 315     if(!ret)
 316         return E_OUTOFMEMORY;
 317
 318     ret[len] = ':';
 319     *p = ret;
 320     return S_OK;
 321 }
 322
 323 static HRESULT WINAPI HTMLLocation_put_host(IHTMLLocation *iface, BSTR v)
 324 {
 325     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 326     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 327     return E_NOTIMPL;
 328 }
 329
 330 static HRESULT WINAPI HTMLLocation_get_host(IHTMLLocation *iface, BSTR *p)
 331 {
 332     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 333     URL_COMPONENTSW url = {sizeof(URL_COMPONENTSW)};
 334     HRESULT hres;
 335
 336     TRACE("(%p)->(%p)\n", This, p);
 337
 338     if(!p)
 339         return E_POINTER;
 340
 341     url.dwHostNameLength = 1;
 342     hres = get_url_components(This, &url);
 343     if(FAILED(hres))
 344         return hres;
 345
 346     if(!url.dwHostNameLength){
 347         *p = NULL;
 348         return S_OK;
 349     }
 350
 351     if(url.nPort) {
 352         /* <hostname>:<port> */
 353         DWORD len, port_len;
 354         WCHAR portW[6];
 355         WCHAR *buf;
 356
 357         port_len = swprintf(portW, ARRAY_SIZE(portW), L"%u", url.nPort);
 358         len = url.dwHostNameLength + 1 /* ':' */ + port_len;
 359         buf = *p = SysAllocStringLen(NULL, len);
 360         memcpy(buf, url.lpszHostName, url.dwHostNameLength * sizeof(WCHAR));
 361         buf[url.dwHostNameLength] = ':';
 362         memcpy(buf + url.dwHostNameLength + 1, portW, port_len * sizeof(WCHAR));
 363     }else
 364         *p = SysAllocStringLen(url.lpszHostName, url.dwHostNameLength);
 365
 366     if(!*p)
 367         return E_OUTOFMEMORY;
 368     return S_OK;
 369 }
 370
 371 static HRESULT WINAPI HTMLLocation_put_hostname(IHTMLLocation *iface, BSTR v)
 372 {
 373     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 374     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 375     return E_NOTIMPL;
 376 }
 377
 378 static HRESULT WINAPI HTMLLocation_get_hostname(IHTMLLocation *iface, BSTR *p)
 379 {
 380     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 381     BSTR hostname;
 382     IUri *uri;
 383     HRESULT hres;
 384
 385     TRACE("(%p)->(%p)\n", This, p);
 386
 387     if(!p)
 388         return E_POINTER;
 389
 390     if(!(uri = get_uri(This))) {
 391         FIXME("No current URI\n");
 392         return E_NOTIMPL;
 393     }
 394
 395     hres = IUri_GetHost(uri, &hostname);
 396     if(hres == S_OK) {
 397         *p = hostname;
 398     }else if(hres == S_FALSE) {
 399         SysFreeString(hostname);
 400         *p = NULL;
 401     }else {
 402         return hres;
 403     }
 404
 405     return S_OK;
 406 }
 407
 408 static HRESULT WINAPI HTMLLocation_put_port(IHTMLLocation *iface, BSTR v)
 409 {
 410     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 411     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 412     return E_NOTIMPL;
 413 }
 414
 415 static HRESULT WINAPI HTMLLocation_get_port(IHTMLLocation *iface, BSTR *p)
 416 {
 417     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 418     DWORD port;
 419     IUri *uri;
 420     HRESULT hres;
 421
 422     TRACE("(%p)->(%p)\n", This, p);
 423
 424     if(!p)
 425         return E_POINTER;
 426
 427     if(!(uri = get_uri(This))) {
 428         FIXME("No current URI\n");
 429         return E_NOTIMPL;
 430     }
 431
 432     hres = IUri_GetPort(uri, &port);
 433     if(FAILED(hres))
 434         return hres;
 435
 436     if(hres == S_OK) {
 437         WCHAR buf[12];
 438
 439         swprintf(buf, ARRAY_SIZE(buf), L"%u", port);
 440         *p = SysAllocString(buf);
 441     }else {
 442         *p = SysAllocStringLen(NULL, 0);
 443     }
 444
 445     if(!*p)
 446         return E_OUTOFMEMORY;
 447     return S_OK;
 448 }
 449
 450 static HRESULT WINAPI HTMLLocation_put_pathname(IHTMLLocation *iface, BSTR v)
 451 {
 452     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 453     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 454     return E_NOTIMPL;
 455 }
 456
 457 static HRESULT WINAPI HTMLLocation_get_pathname(IHTMLLocation *iface, BSTR *p)
 458 {
 459     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 460     BSTR path;
 461     IUri *uri;
 462     HRESULT hres;
 463
 464     TRACE("(%p)->(%p)\n", This, p);
 465
 466     if(!p)
 467         return E_POINTER;
 468
 469     if(!(uri = get_uri(This))) {
 470         FIXME("No current URI\n");
 471         return E_NOTIMPL;
 472     }
 473
 474     hres = IUri_GetPath(uri, &path);
 475     if(FAILED(hres))
 476         return hres;
 477
 478     if(hres == S_FALSE) {
 479         SysFreeString(path);
 480         path = NULL;
 481     }
 482
 483     *p = path;
 484     return S_OK;
 485 }
 486
 487 static HRESULT WINAPI HTMLLocation_put_search(IHTMLLocation *iface, BSTR v)
 488 {
 489     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 490     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 491     return E_NOTIMPL;
 492 }
 493
 494 static HRESULT WINAPI HTMLLocation_get_search(IHTMLLocation *iface, BSTR *p)
 495 {
 496     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 497     BSTR query;
 498     IUri *uri;
 499     HRESULT hres;
 500
 501     TRACE("(%p)->(%p)\n", This, p);
 502
 503     if(!p)
 504         return E_POINTER;
 505
 506     if(!(uri = get_uri(This))) {
 507         FIXME("No current URI\n");
 508         return E_NOTIMPL;
 509     }
 510
 511     hres = IUri_GetQuery(uri, &query);
 512     if(hres == S_OK) {
 513         *p = query;
 514     }else if(hres == S_FALSE) {
 515         SysFreeString(query);
 516         *p = NULL;
 517     }else {
 518         return hres;
 519     }
 520
 521     return S_OK;
 522 }
 523
 524 static HRESULT WINAPI HTMLLocation_put_hash(IHTMLLocation *iface, BSTR v)
 525 {
 526     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 527     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
 528     return E_NOTIMPL;
 529 }
 530
 531 static HRESULT WINAPI HTMLLocation_get_hash(IHTMLLocation *iface, BSTR *p)
 532 {
 533     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 534     BSTR hash;
 535     IUri *uri;
 536     HRESULT hres;
 537
 538     TRACE("(%p)->(%p)\n", This, p);
 539
 540     if(!p)
 541         return E_POINTER;
 542
 543     if(!(uri = get_uri(This))) {
 544         FIXME("No current URI\n");
 545         return E_NOTIMPL;
 546     }
 547
 548     hres = IUri_GetFragment(uri, &hash);
 549     if(hres == S_OK) {
 550         *p = hash;
 551     }else if(hres == S_FALSE) {
 552         SysFreeString(hash);
 553         *p = NULL;
 554     }else {
 555         return hres;
 556     }
 557
 558     return S_OK;
 559 }
 560
 561 static HRESULT WINAPI HTMLLocation_reload(IHTMLLocation *iface, VARIANT_BOOL flag)
 562 {
 563     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 564     FIXME("(%p)->(%x)\n", This, flag);
 565     return E_NOTIMPL;
 566 }
 567
 568 static HRESULT WINAPI HTMLLocation_replace(IHTMLLocation *iface, BSTR bstr)
 569 {
 570     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 571
 572     TRACE("(%p)->(%s)\n", This, debugstr_w(bstr));
 573
 574     if(!This->window || !This->window->base.outer_window) {
 575         FIXME("No window available\n");
 576         return E_FAIL;
 577     }
 578
 579     return navigate_url(This->window->base.outer_window, bstr, This->window->base.outer_window->uri,
 580             BINDING_NAVIGATED|BINDING_REPLACE);
 581 }
 582
 583 static HRESULT WINAPI HTMLLocation_assign(IHTMLLocation *iface, BSTR bstr)
 584 {
 585     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 586     TRACE("(%p)->(%s)\n", This, debugstr_w(bstr));
 587     return IHTMLLocation_put_href(iface, bstr);
 588 }
 589
 590 static HRESULT WINAPI HTMLLocation_toString(IHTMLLocation *iface, BSTR *String)
 591 {
 592     HTMLLocation *This = impl_from_IHTMLLocation(iface);
 593
 594     TRACE("(%p)->(%p)\n", This, String);
 595
 596     return IHTMLLocation_get_href(&This->IHTMLLocation_iface, String);
 597 }
 598
 599 static const IHTMLLocationVtbl HTMLLocationVtbl = {
 600     HTMLLocation_QueryInterface,
 601     HTMLLocation_AddRef,
 602     HTMLLocation_Release,
 603     HTMLLocation_GetTypeInfoCount,
 604     HTMLLocation_GetTypeInfo,
 605     HTMLLocation_GetIDsOfNames,
 606     HTMLLocation_Invoke,
 607     HTMLLocation_put_href,
 608     HTMLLocation_get_href,
 609     HTMLLocation_put_protocol,
 610     HTMLLocation_get_protocol,
 611     HTMLLocation_put_host,
 612     HTMLLocation_get_host,
 613     HTMLLocation_put_hostname,
 614     HTMLLocation_get_hostname,
 615     HTMLLocation_put_port,
 616     HTMLLocation_get_port,
 617     HTMLLocation_put_pathname,
 618     HTMLLocation_get_pathname,
 619     HTMLLocation_put_search,
 620     HTMLLocation_get_search,
 621     HTMLLocation_put_hash,
 622     HTMLLocation_get_hash,
 623     HTMLLocation_reload,
 624     HTMLLocation_replace,
 625     HTMLLocation_assign,
 626     HTMLLocation_toString
 627 };
 628
 629 static const tid_t HTMLLocation_iface_tids[] = {
 630     IHTMLLocation_tid,
 631     0
 632 };
 633 static dispex_static_data_t HTMLLocation_dispex = {
 634     NULL,
 635     DispHTMLLocation_tid,
 636     HTMLLocation_iface_tids
 637 };
 638
 639
 640 HRESULT HTMLLocation_Create(HTMLInnerWindow *window, HTMLLocation **ret)
 641 {
 642     HTMLLocation *location;
 643
 644     location = heap_alloc(sizeof(*location));
 645     if(!location)
 646         return E_OUTOFMEMORY;
 647
 648     location->IHTMLLocation_iface.lpVtbl = &HTMLLocationVtbl;
 649     location->ref = 1;
 650     location->window = window;
 651
 652     init_dispatch(&location->dispex, (IUnknown*)&location->IHTMLLocation_iface, &HTMLLocation_dispex,
 653                   dispex_compat_mode(&window->event_target.dispex));
 654
 655     *ret = location;
 656     return S_OK;
 657 }