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