dlls/shdocvw/webbrowser.c

   1 /*
   2  * Implementation of IWebBrowser interface for WebBrowser control
   3  *
   4  * Copyright 2001 John R. Sheets (for CodeWeavers)
   5  * Copyright 2005 Jacek Caban
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Lesser General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2.1 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Lesser General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Lesser General Public
  18  * License along with this library; if not, write to the Free Software
  19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  20  */
  21
  22 #include "wine/debug.h"
  23 #include "shdocvw.h"
  24 #include "exdispid.h"
  25
  26 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
  27
  28 /**********************************************************************
  29  * Implement the IWebBrowser interface
  30  */
  31
  32 #define WEBBROWSER_THIS(iface) DEFINE_THIS(WebBrowser, WebBrowser2, iface)
  33
  34 static HRESULT WINAPI WebBrowser_QueryInterface(IWebBrowser2 *iface, REFIID riid, LPVOID *ppv)
  35 {
  36     WebBrowser *This = WEBBROWSER_THIS(iface);
  37
  38     if (ppv == NULL)
  39         return E_POINTER;
  40     *ppv = NULL;
  41
  42     if(IsEqualGUID(&IID_IUnknown, riid)) {
  43         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
  44         *ppv = WEBBROWSER(This);
  45     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
  46         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
  47         *ppv = WEBBROWSER(This);
  48     }else if(IsEqualGUID(&IID_IWebBrowser, riid)) {
  49         TRACE("(%p)->(IID_IWebBrowser %p)\n", This, ppv);
  50         *ppv = WEBBROWSER(This);
  51     }else if(IsEqualGUID(&IID_IWebBrowserApp, riid)) {
  52         TRACE("(%p)->(IID_IWebBrowserApp %p)\n", This, ppv);
  53         *ppv = WEBBROWSER(This);
  54     }else if(IsEqualGUID(&IID_IWebBrowser2, riid)) {
  55         TRACE("(%p)->(IID_IWebBrowser2 %p)\n", This, ppv);
  56         *ppv = WEBBROWSER(This);
  57     }else if(IsEqualGUID(&IID_IOleObject, riid)) {
  58         TRACE("(%p)->(IID_IOleObject %p)\n", This, ppv);
  59         *ppv = OLEOBJ(This);
  60     }else if(IsEqualGUID(&IID_IOleWindow, riid)) {
  61         TRACE("(%p)->(IID_IOleWindow %p)\n", This, ppv);
  62         *ppv = INPLACEOBJ(This);
  63     }else if(IsEqualGUID (&IID_IOleInPlaceObject, riid)) {
  64         TRACE("(%p)->(IID_IOleInPlaceObject %p)\n", This, ppv);
  65         *ppv = INPLACEOBJ(This);
  66     }else if(IsEqualGUID(&IID_IOleControl, riid)) {
  67         TRACE("(%p)->(IID_IOleControl %p)\n", This, ppv);
  68         *ppv = CONTROL(This);
  69     }else if(IsEqualGUID(&IID_IPersist, riid)) {
  70         TRACE("(%p)->(IID_IPersist %p)\n", This, ppv);
  71         *ppv = PERSTORAGE(This);
  72     }else if(IsEqualGUID(&IID_IPersistStorage, riid)) {
  73         TRACE("(%p)->(IID_IPersistStorage %p)\n", This, ppv);
  74         *ppv = PERSTORAGE(This);
  75     }else if(IsEqualGUID(&IID_IPersistMemory, riid)) {
  76         TRACE("(%p)->(IID_IPersistStorage %p)\n", This, ppv);
  77         *ppv = PERMEMORY(This);
  78     }else if(IsEqualGUID (&IID_IPersistStreamInit, riid)) {
  79         TRACE("(%p)->(IID_IPersistStreamInit %p)\n", This, ppv);
  80         *ppv = PERSTRINIT(This);
  81     }else if(IsEqualGUID(&IID_IProvideClassInfo, riid)) {
  82         TRACE("(%p)->(IID_IProvideClassInfo %p)\n", This, ppv);
  83         *ppv = CLASSINFO(This);
  84     }else if(IsEqualGUID(&IID_IProvideClassInfo2, riid)) {
  85         TRACE("(%p)->(IID_IProvideClassInfo2 %p)\n", This, ppv);
  86         *ppv = CLASSINFO(This);
  87     }else if(IsEqualGUID(&IID_IConnectionPointContainer, riid)) {
  88         TRACE("(%p)->(IID_IConnectionPointContainer %p)\n", This, ppv);
  89         *ppv = CONPTCONT(&This->doc_host.cps);
  90     }else if(IsEqualGUID(&IID_IViewObject, riid)) {
  91         TRACE("(%p)->(IID_IViewObject %p)\n", This, ppv);
  92         *ppv = VIEWOBJ(This);
  93     }else if(IsEqualGUID(&IID_IViewObject2, riid)) {
  94         TRACE("(%p)->(IID_IViewObject2 %p)\n", This, ppv);
  95         *ppv = VIEWOBJ2(This);
  96     }else if(IsEqualGUID(&IID_IOleInPlaceActiveObject, riid)) {
  97         TRACE("(%p)->(IID_IOleInPlaceActiveObject %p)\n", This, ppv);
  98         *ppv = ACTIVEOBJ(This);
  99     }else if(IsEqualGUID(&IID_IOleCommandTarget, riid)) {
 100         TRACE("(%p)->(IID_IOleCommandTarget %p)\n", This, ppv);
 101         *ppv = OLECMD(This);
 102     }else if(IsEqualGUID(&IID_IHlinkFrame, riid)) {
 103         TRACE("(%p)->(IID_IHlinkFrame %p)\n", This, ppv);
 104         *ppv = HLINKFRAME(This);
 105     }else if(IsEqualGUID(&IID_IQuickActivate, riid)) {
 106         TRACE("(%p)->(IID_IQuickActivate %p) returning NULL\n", This, ppv);
 107         return E_NOINTERFACE;
 108     }else if(IsEqualGUID(&IID_IRunnableObject, riid)) {
 109         TRACE("(%p)->(IID_IRunnableObject %p) returning NULL\n", This, ppv);
 110         return E_NOINTERFACE;
 111     }else if(IsEqualGUID(&IID_IPerPropertyBrowsing, riid)) {
 112         TRACE("(%p)->(IID_IPerPropertyBrowsing %p) returning NULL\n", This, ppv);
 113         return E_NOINTERFACE;
 114     }else if(IsEqualGUID(&IID_IOleCache, riid)) {
 115         TRACE("(%p)->(IID_IOleCache %p) returning NULL\n", This, ppv);
 116         return E_NOINTERFACE;
 117     }else if(IsEqualGUID(&IID_IOleInPlaceSite, riid)) {
 118         TRACE("(%p)->(IID_IOleInPlaceSite %p) returning NULL\n", This, ppv);
 119         return E_NOINTERFACE;
 120     }else if(IsEqualGUID(&IID_IObjectWithSite, riid)) {
 121         TRACE("(%p)->(IID_IObjectWithSite %p) returning NULL\n", This, ppv);
 122         return E_NOINTERFACE;
 123     }else if(IsEqualGUID(&IID_IViewObjectEx, riid)) {
 124         TRACE("(%p)->(IID_IViewObjectEx %p) returning NULL\n", This, ppv);
 125         return E_NOINTERFACE;
 126     }
 127
 128     if(*ppv) {
 129         IUnknown_AddRef((IUnknown*)*ppv);
 130         return S_OK;
 131     }
 132
 133     FIXME("(%p)->(%s %p) interface not supported\n", This, debugstr_guid(riid), ppv);
 134     return E_NOINTERFACE;
 135 }
 136
 137 static ULONG WINAPI WebBrowser_AddRef(IWebBrowser2 *iface)
 138 {
 139     WebBrowser *This = WEBBROWSER_THIS(iface);
 140     LONG ref = InterlockedIncrement(&This->ref);
 141     TRACE("(%p) ref=%d\n", This, ref);
 142     return ref;
 143 }
 144
 145 static ULONG WINAPI WebBrowser_Release(IWebBrowser2 *iface)
 146 {
 147     WebBrowser *This = WEBBROWSER_THIS(iface);
 148     LONG ref = InterlockedDecrement(&This->ref);
 149
 150     TRACE("(%p) ref=%d\n", This, ref);
 151
 152     if(!ref) {
 153         if(This->doc_host.document)
 154             IUnknown_Release(This->doc_host.document);
 155
 156         DocHost_Release(&This->doc_host);
 157
 158         WebBrowser_OleObject_Destroy(This);
 159
 160         heap_free(This);
 161         SHDOCVW_UnlockModule();
 162     }
 163
 164     return ref;
 165 }
 166
 167 /* IDispatch methods */
 168 static HRESULT WINAPI WebBrowser_GetTypeInfoCount(IWebBrowser2 *iface, UINT *pctinfo)
 169 {
 170     WebBrowser *This = WEBBROWSER_THIS(iface);
 171
 172     TRACE("(%p)->(%p)\n", This, pctinfo);
 173
 174     *pctinfo = 1;
 175     return S_OK;
 176 }
 177
 178 static HRESULT WINAPI WebBrowser_GetTypeInfo(IWebBrowser2 *iface, UINT iTInfo, LCID lcid,
 179                                      LPTYPEINFO *ppTInfo)
 180 {
 181     WebBrowser *This = WEBBROWSER_THIS(iface);
 182     ITypeInfo *typeinfo;
 183     HRESULT hres;
 184
 185     TRACE("(%p)->(%d %d %p)\n", This, iTInfo, lcid, ppTInfo);
 186
 187     hres = get_typeinfo(&typeinfo);
 188     if(FAILED(hres))
 189         return hres;
 190
 191     ITypeInfo_AddRef(typeinfo);
 192     *ppTInfo = typeinfo;
 193     return S_OK;
 194 }
 195
 196 static HRESULT WINAPI WebBrowser_GetIDsOfNames(IWebBrowser2 *iface, REFIID riid,
 197                                        LPOLESTR *rgszNames, UINT cNames,
 198                                        LCID lcid, DISPID *rgDispId)
 199 {
 200     WebBrowser *This = WEBBROWSER_THIS(iface);
 201     ITypeInfo *typeinfo;
 202     HRESULT hres;
 203
 204     TRACE("(%p)->(%s %p %d %d %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
 205           lcid, rgDispId);
 206
 207     hres = get_typeinfo(&typeinfo);
 208     if(FAILED(hres))
 209         return hres;
 210
 211     return ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
 212 }
 213
 214 static HRESULT WINAPI WebBrowser_Invoke(IWebBrowser2 *iface, DISPID dispIdMember,
 215                                 REFIID riid, LCID lcid, WORD wFlags,
 216                                 DISPPARAMS *pDispParams, VARIANT *pVarResult,
 217                                 EXCEPINFO *pExepInfo, UINT *puArgErr)
 218 {
 219     WebBrowser *This = WEBBROWSER_THIS(iface);
 220     ITypeInfo *typeinfo;
 221     HRESULT hres;
 222
 223     TRACE("(%p)->(%d %s %d %08x %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
 224             lcid, wFlags, pDispParams, pVarResult, pExepInfo, puArgErr);
 225
 226     hres = get_typeinfo(&typeinfo);
 227     if(FAILED(hres))
 228         return hres;
 229
 230     return ITypeInfo_Invoke(typeinfo, WEBBROWSER2(This), dispIdMember, wFlags, pDispParams,
 231                             pVarResult, pExepInfo, puArgErr);
 232 }
 233
 234 /* IWebBrowser methods */
 235 static HRESULT WINAPI WebBrowser_GoBack(IWebBrowser2 *iface)
 236 {
 237     WebBrowser *This = WEBBROWSER_THIS(iface);
 238     FIXME("(%p)\n", This);
 239     return E_NOTIMPL;
 240 }
 241
 242 static HRESULT WINAPI WebBrowser_GoForward(IWebBrowser2 *iface)
 243 {
 244     WebBrowser *This = WEBBROWSER_THIS(iface);
 245     FIXME("(%p)\n", This);
 246     return E_NOTIMPL;
 247 }
 248
 249 static HRESULT WINAPI WebBrowser_GoHome(IWebBrowser2 *iface)
 250 {
 251     WebBrowser *This = WEBBROWSER_THIS(iface);
 252     TRACE("(%p)\n", This);
 253     return go_home(&This->doc_host);
 254 }
 255
 256 static HRESULT WINAPI WebBrowser_GoSearch(IWebBrowser2 *iface)
 257 {
 258     WebBrowser *This = WEBBROWSER_THIS(iface);
 259     FIXME("(%p)\n", This);
 260     return E_NOTIMPL;
 261 }
 262
 263 static HRESULT WINAPI WebBrowser_Navigate(IWebBrowser2 *iface, BSTR szUrl,
 264                                   VARIANT *Flags, VARIANT *TargetFrameName,
 265                                   VARIANT *PostData, VARIANT *Headers)
 266 {
 267     WebBrowser *This = WEBBROWSER_THIS(iface);
 268
 269     TRACE("(%p)->(%s %p %p %p %p)\n", This, debugstr_w(szUrl), Flags, TargetFrameName,
 270           PostData, Headers);
 271
 272     return navigate_url(&This->doc_host, szUrl, Flags, TargetFrameName, PostData, Headers);
 273 }
 274
 275 static HRESULT WINAPI WebBrowser_Refresh(IWebBrowser2 *iface)
 276 {
 277     WebBrowser *This = WEBBROWSER_THIS(iface);
 278     FIXME("(%p)\n", This);
 279     return E_NOTIMPL;
 280 }
 281
 282 static HRESULT WINAPI WebBrowser_Refresh2(IWebBrowser2 *iface, VARIANT *Level)
 283 {
 284     WebBrowser *This = WEBBROWSER_THIS(iface);
 285     FIXME("(%p)->(%p)\n", This, Level);
 286     return E_NOTIMPL;
 287 }
 288
 289 static HRESULT WINAPI WebBrowser_Stop(IWebBrowser2 *iface)
 290 {
 291     WebBrowser *This = WEBBROWSER_THIS(iface);
 292     FIXME("(%p)\n", This);
 293     return E_NOTIMPL;
 294 }
 295
 296 static HRESULT WINAPI WebBrowser_get_Application(IWebBrowser2 *iface, IDispatch **ppDisp)
 297 {
 298     WebBrowser *This = WEBBROWSER_THIS(iface);
 299
 300     TRACE("(%p)->(%p)\n", This, ppDisp);
 301
 302     if(!ppDisp)
 303         return E_POINTER;
 304
 305     *ppDisp = (IDispatch*)WEBBROWSER2(This);
 306     IDispatch_AddRef(*ppDisp);
 307     return S_OK;
 308 }
 309
 310 static HRESULT WINAPI WebBrowser_get_Parent(IWebBrowser2 *iface, IDispatch **ppDisp)
 311 {
 312     WebBrowser *This = WEBBROWSER_THIS(iface);
 313     FIXME("(%p)->(%p)\n", This, ppDisp);
 314     return E_NOTIMPL;
 315 }
 316
 317 static HRESULT WINAPI WebBrowser_get_Container(IWebBrowser2 *iface, IDispatch **ppDisp)
 318 {
 319     WebBrowser *This = WEBBROWSER_THIS(iface);
 320     FIXME("(%p)->(%p)\n", This, ppDisp);
 321     return E_NOTIMPL;
 322 }
 323
 324 static HRESULT WINAPI WebBrowser_get_Document(IWebBrowser2 *iface, IDispatch **ppDisp)
 325 {
 326     WebBrowser *This = WEBBROWSER_THIS(iface);
 327
 328     TRACE("(%p)->(%p)\n", This, ppDisp);
 329
 330     *ppDisp = NULL;
 331     if(This->doc_host.document)
 332         IUnknown_QueryInterface(This->doc_host.document, &IID_IDispatch, (void**)ppDisp);
 333
 334     return S_OK;
 335 }
 336
 337 static HRESULT WINAPI WebBrowser_get_TopLevelContainer(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 338 {
 339     WebBrowser *This = WEBBROWSER_THIS(iface);
 340     FIXME("(%p)->(%p)\n", This, pBool);
 341     return E_NOTIMPL;
 342 }
 343
 344 static HRESULT WINAPI WebBrowser_get_Type(IWebBrowser2 *iface, BSTR *Type)
 345 {
 346     WebBrowser *This = WEBBROWSER_THIS(iface);
 347     FIXME("(%p)->(%p)\n", This, Type);
 348     return E_NOTIMPL;
 349 }
 350
 351 static HRESULT WINAPI WebBrowser_get_Left(IWebBrowser2 *iface, long *pl)
 352 {
 353     WebBrowser *This = WEBBROWSER_THIS(iface);
 354
 355     TRACE("(%p)->(%p)\n", This, pl);
 356
 357     *pl = This->pos_rect.left;
 358     return S_OK;
 359 }
 360
 361 static HRESULT WINAPI WebBrowser_put_Left(IWebBrowser2 *iface, long Left)
 362 {
 363     WebBrowser *This = WEBBROWSER_THIS(iface);
 364     RECT rect;
 365
 366     TRACE("(%p)->(%ld)\n", This, Left);
 367
 368     if(!This->inplace)
 369         return E_UNEXPECTED;
 370
 371     rect = This->pos_rect;
 372     rect.left = Left;
 373
 374     /* We don't really change the window position here.
 375      * We just notify the embedder that he should do so. */
 376     return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
 377 }
 378
 379 static HRESULT WINAPI WebBrowser_get_Top(IWebBrowser2 *iface, long *pl)
 380 {
 381     WebBrowser *This = WEBBROWSER_THIS(iface);
 382
 383     TRACE("(%p)->(%p)\n", This, pl);
 384
 385     *pl = This->pos_rect.top;
 386     return S_OK;
 387 }
 388
 389 static HRESULT WINAPI WebBrowser_put_Top(IWebBrowser2 *iface, long Top)
 390 {
 391     WebBrowser *This = WEBBROWSER_THIS(iface);
 392     RECT rect;
 393
 394     TRACE("(%p)->(%ld)\n", This, Top);
 395
 396     if(!This->inplace)
 397         return E_UNEXPECTED;
 398
 399     rect = This->pos_rect;
 400     rect.top = Top;
 401
 402     /* We don't really change the window position here.
 403      * We just notify the embedder that he should do so. */
 404     return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
 405 }
 406
 407 static HRESULT WINAPI WebBrowser_get_Width(IWebBrowser2 *iface, long *pl)
 408 {
 409     WebBrowser *This = WEBBROWSER_THIS(iface);
 410
 411     TRACE("(%p)->(%p)\n", This, pl);
 412
 413     *pl = This->pos_rect.right - This->pos_rect.left;
 414     return S_OK;
 415 }
 416
 417 static HRESULT WINAPI WebBrowser_put_Width(IWebBrowser2 *iface, long Width)
 418 {
 419     WebBrowser *This = WEBBROWSER_THIS(iface);
 420     RECT rect;
 421
 422     TRACE("(%p)->(%ld)\n", This, Width);
 423
 424     if(!This->inplace)
 425         return E_UNEXPECTED;
 426
 427     rect = This->pos_rect;
 428     rect.right = rect.left+Width;
 429
 430     /* We don't really change the window size here.
 431      * We just notify the embedder that he should do so. */
 432    return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
 433 }
 434
 435 static HRESULT WINAPI WebBrowser_get_Height(IWebBrowser2 *iface, long *pl)
 436 {
 437     WebBrowser *This = WEBBROWSER_THIS(iface);
 438
 439     TRACE("(%p)->(%p)\n", This, pl);
 440
 441     *pl = This->pos_rect.bottom - This->pos_rect.top;
 442     return S_OK;
 443 }
 444
 445 static HRESULT WINAPI WebBrowser_put_Height(IWebBrowser2 *iface, long Height)
 446 {
 447     WebBrowser *This = WEBBROWSER_THIS(iface);
 448     RECT rect;
 449
 450     TRACE("(%p)->(%ld)\n", This, Height);
 451
 452     if(!This->inplace)
 453         return E_UNEXPECTED;
 454
 455     rect = This->pos_rect;
 456     rect.bottom = rect.top+Height;
 457
 458     /* We don't really change the window size here.
 459      * We just notify the embedder that he should do so. */
 460     return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
 461 }
 462
 463 static HRESULT WINAPI WebBrowser_get_LocationName(IWebBrowser2 *iface, BSTR *LocationName)
 464 {
 465     WebBrowser *This = WEBBROWSER_THIS(iface);
 466     FIXME("(%p)->(%p)\n", This, LocationName);
 467     return E_NOTIMPL;
 468 }
 469
 470 static HRESULT WINAPI WebBrowser_get_LocationURL(IWebBrowser2 *iface, BSTR *LocationURL)
 471 {
 472     WebBrowser *This = WEBBROWSER_THIS(iface);
 473
 474     FIXME("(%p)->(%p)\n", This, LocationURL);
 475
 476     if(!This->doc_host.url) {
 477         static const WCHAR null_char = 0;
 478         *LocationURL = SysAllocString(&null_char);
 479         return S_FALSE;
 480     }
 481
 482     *LocationURL = SysAllocString(This->doc_host.url);
 483     return S_OK;
 484 }
 485
 486 static HRESULT WINAPI WebBrowser_get_Busy(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 487 {
 488     WebBrowser *This = WEBBROWSER_THIS(iface);
 489
 490     TRACE("(%p)->(%p)\n", This, pBool);
 491
 492     *pBool = This->doc_host.busy;
 493     return S_OK;
 494 }
 495
 496 static HRESULT WINAPI WebBrowser_Quit(IWebBrowser2 *iface)
 497 {
 498     WebBrowser *This = WEBBROWSER_THIS(iface);
 499
 500     TRACE("(%p)\n", This);
 501
 502     /* It's a InternetExplorer specific method, we have nothing to do here. */
 503     return E_FAIL;
 504 }
 505
 506 static HRESULT WINAPI WebBrowser_ClientToWindow(IWebBrowser2 *iface, int *pcx, int *pcy)
 507 {
 508     WebBrowser *This = WEBBROWSER_THIS(iface);
 509     FIXME("(%p)->(%p %p)\n", This, pcx, pcy);
 510     return E_NOTIMPL;
 511 }
 512
 513 static HRESULT WINAPI WebBrowser_PutProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT vtValue)
 514 {
 515     WebBrowser *This = WEBBROWSER_THIS(iface);
 516     FIXME("(%p)->(%s)\n", This, debugstr_w(szProperty));
 517     return E_NOTIMPL;
 518 }
 519
 520 static HRESULT WINAPI WebBrowser_GetProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT *pvtValue)
 521 {
 522     WebBrowser *This = WEBBROWSER_THIS(iface);
 523     FIXME("(%p)->(%s %p)\n", This, debugstr_w(szProperty), pvtValue);
 524     return E_NOTIMPL;
 525 }
 526
 527 static HRESULT WINAPI WebBrowser_get_Name(IWebBrowser2 *iface, BSTR *Name)
 528 {
 529     WebBrowser *This = WEBBROWSER_THIS(iface);
 530     FIXME("(%p)->(%p)\n", This, Name);
 531     return E_NOTIMPL;
 532 }
 533
 534 static HRESULT WINAPI WebBrowser_get_HWND(IWebBrowser2 *iface, long *pHWND)
 535 {
 536     WebBrowser *This = WEBBROWSER_THIS(iface);
 537
 538     TRACE("(%p)->(%p)\n", This, pHWND);
 539
 540     /* WebBrowser control never has a frame window (in opposition to InternetExplorer) */
 541     *pHWND = 0;
 542     return E_FAIL;
 543 }
 544
 545 static HRESULT WINAPI WebBrowser_get_FullName(IWebBrowser2 *iface, BSTR *FullName)
 546 {
 547     WebBrowser *This = WEBBROWSER_THIS(iface);
 548     FIXME("(%p)->(%p)\n", This, FullName);
 549     return E_NOTIMPL;
 550 }
 551
 552 static HRESULT WINAPI WebBrowser_get_Path(IWebBrowser2 *iface, BSTR *Path)
 553 {
 554     WebBrowser *This = WEBBROWSER_THIS(iface);
 555     FIXME("(%p)->(%p)\n", This, Path);
 556     return E_NOTIMPL;
 557 }
 558
 559 static HRESULT WINAPI WebBrowser_get_Visible(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 560 {
 561     WebBrowser *This = WEBBROWSER_THIS(iface);
 562
 563     TRACE("(%p)->(%p)\n", This, pBool);
 564
 565     *pBool = This->visible;
 566     return S_OK;
 567 }
 568
 569 static HRESULT WINAPI WebBrowser_put_Visible(IWebBrowser2 *iface, VARIANT_BOOL Value)
 570 {
 571     WebBrowser *This = WEBBROWSER_THIS(iface);
 572     VARIANTARG arg;
 573     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 574
 575     TRACE("(%p)->(%x)\n", This, Value);
 576
 577     This->visible = Value;
 578
 579     V_VT(&arg) = VT_BOOL;
 580     V_BOOL(&arg) = Value;
 581     call_sink(This->doc_host.cps.wbe2, DISPID_ONVISIBLE, &dispparams);
 582
 583     return S_OK;
 584 }
 585
 586 static HRESULT WINAPI WebBrowser_get_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 587 {
 588     WebBrowser *This = WEBBROWSER_THIS(iface);
 589
 590     TRACE("(%p)->(%p)\n", This, pBool);
 591
 592     *pBool = This->status_bar;
 593     return S_OK;
 594 }
 595
 596 static HRESULT WINAPI WebBrowser_put_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 597 {
 598     WebBrowser *This = WEBBROWSER_THIS(iface);
 599     VARIANTARG arg;
 600     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 601
 602     TRACE("(%p)->(%x)\n", This, Value);
 603
 604     This->status_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
 605
 606     /* In opposition to InternetExplorer, all we should do here is
 607      * inform the embedder about the status bar change. */
 608
 609     V_VT(&arg) = VT_BOOL;
 610     V_BOOL(&arg) = Value;
 611     call_sink(This->doc_host.cps.wbe2, DISPID_ONSTATUSBAR, &dispparams);
 612
 613     return S_OK;
 614 }
 615
 616 static HRESULT WINAPI WebBrowser_get_StatusText(IWebBrowser2 *iface, BSTR *StatusText)
 617 {
 618     WebBrowser *This = WEBBROWSER_THIS(iface);
 619     FIXME("(%p)->(%p)\n", This, StatusText);
 620     return E_NOTIMPL;
 621 }
 622
 623 static HRESULT WINAPI WebBrowser_put_StatusText(IWebBrowser2 *iface, BSTR StatusText)
 624 {
 625     WebBrowser *This = WEBBROWSER_THIS(iface);
 626     FIXME("(%p)->(%s)\n", This, debugstr_w(StatusText));
 627     return E_NOTIMPL;
 628 }
 629
 630 static HRESULT WINAPI WebBrowser_get_ToolBar(IWebBrowser2 *iface, int *Value)
 631 {
 632     WebBrowser *This = WEBBROWSER_THIS(iface);
 633
 634     TRACE("(%p)->(%p)\n", This, Value);
 635
 636     *Value = This->tool_bar;
 637     return S_OK;
 638 }
 639
 640 static HRESULT WINAPI WebBrowser_put_ToolBar(IWebBrowser2 *iface, int Value)
 641 {
 642     WebBrowser *This = WEBBROWSER_THIS(iface);
 643     VARIANTARG arg;
 644     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 645
 646     TRACE("(%p)->(%x)\n", This, Value);
 647
 648     This->tool_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
 649
 650     /* In opposition to InternetExplorer, all we should do here is
 651      * inform the embedder about the tool bar change. */
 652
 653     V_VT(&arg) = VT_BOOL;
 654     V_BOOL(&arg) = This->tool_bar;
 655     call_sink(This->doc_host.cps.wbe2, DISPID_ONTOOLBAR, &dispparams);
 656
 657     return S_OK;
 658 }
 659
 660 static HRESULT WINAPI WebBrowser_get_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 661 {
 662     WebBrowser *This = WEBBROWSER_THIS(iface);
 663
 664     TRACE("(%p)->(%p)\n", This, Value);
 665
 666     *Value = This->menu_bar;
 667     return S_OK;
 668 }
 669
 670 static HRESULT WINAPI WebBrowser_put_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 671 {
 672     WebBrowser *This = WEBBROWSER_THIS(iface);
 673     VARIANTARG arg;
 674     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 675
 676     TRACE("(%p)->(%x)\n", This, Value);
 677
 678     This->menu_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
 679
 680     /* In opposition to InternetExplorer, all we should do here is
 681      * inform the embedder about the menu bar change. */
 682
 683     V_VT(&arg) = VT_BOOL;
 684     V_BOOL(&arg) = Value;
 685     call_sink(This->doc_host.cps.wbe2, DISPID_ONMENUBAR, &dispparams);
 686
 687     return S_OK;
 688 }
 689
 690 static HRESULT WINAPI WebBrowser_get_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL *pbFullScreen)
 691 {
 692     WebBrowser *This = WEBBROWSER_THIS(iface);
 693
 694     TRACE("(%p)->(%p)\n", This, pbFullScreen);
 695
 696     *pbFullScreen = This->full_screen;
 697     return S_OK;
 698 }
 699
 700 static HRESULT WINAPI WebBrowser_put_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL bFullScreen)
 701 {
 702     WebBrowser *This = WEBBROWSER_THIS(iface);
 703     VARIANTARG arg;
 704     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 705
 706     /* In opposition to InternetExplorer, all we should do here is
 707      * inform the embedder about the fullscreen change. */
 708
 709     TRACE("(%p)->(%x)\n", This, bFullScreen);
 710
 711     This->full_screen = bFullScreen ? VARIANT_TRUE : VARIANT_FALSE;
 712
 713     V_VT(&arg) = VT_BOOL;
 714     V_BOOL(&arg) = bFullScreen;
 715     call_sink(This->doc_host.cps.wbe2, DISPID_ONFULLSCREEN, &dispparams);
 716
 717     return S_OK;
 718 }
 719
 720 static HRESULT WINAPI WebBrowser_Navigate2(IWebBrowser2 *iface, VARIANT *URL, VARIANT *Flags,
 721         VARIANT *TargetFrameName, VARIANT *PostData, VARIANT *Headers)
 722 {
 723     WebBrowser *This = WEBBROWSER_THIS(iface);
 724
 725     TRACE("(%p)->(%p %p %p %p %p)\n", This, URL, Flags, TargetFrameName, PostData, Headers);
 726
 727     if(!This->client)
 728         return E_FAIL;
 729
 730     if(!URL)
 731         return S_OK;
 732
 733     if(V_VT(URL) != VT_BSTR) {
 734         FIXME("Unsupported V_VT(URL) %d\n", V_VT(URL));
 735         return E_INVALIDARG;
 736     }
 737
 738     return navigate_url(&This->doc_host, V_BSTR(URL), Flags, TargetFrameName, PostData, Headers);
 739 }
 740
 741 static HRESULT WINAPI WebBrowser_QueryStatusWB(IWebBrowser2 *iface, OLECMDID cmdID, OLECMDF *pcmdf)
 742 {
 743     WebBrowser *This = WEBBROWSER_THIS(iface);
 744     FIXME("(%p)->(%d %p)\n", This, cmdID, pcmdf);
 745     return E_NOTIMPL;
 746 }
 747
 748 static HRESULT WINAPI WebBrowser_ExecWB(IWebBrowser2 *iface, OLECMDID cmdID,
 749         OLECMDEXECOPT cmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
 750 {
 751     WebBrowser *This = WEBBROWSER_THIS(iface);
 752     FIXME("(%p)->(%d %d %p %p)\n", This, cmdID, cmdexecopt, pvaIn, pvaOut);
 753     return E_NOTIMPL;
 754 }
 755
 756 static HRESULT WINAPI WebBrowser_ShowBrowserBar(IWebBrowser2 *iface, VARIANT *pvaClsid,
 757         VARIANT *pvarShow, VARIANT *pvarSize)
 758 {
 759     WebBrowser *This = WEBBROWSER_THIS(iface);
 760     FIXME("(%p)->(%p %p %p)\n", This, pvaClsid, pvarShow, pvarSize);
 761     return E_NOTIMPL;
 762 }
 763
 764 static HRESULT WINAPI WebBrowser_get_ReadyState(IWebBrowser2 *iface, READYSTATE *lpReadyState)
 765 {
 766     WebBrowser *This = WEBBROWSER_THIS(iface);
 767     FIXME("(%p)->(%p)\n", This, lpReadyState);
 768
 769     *lpReadyState = READYSTATE_COMPLETE;
 770     return S_OK;
 771 }
 772
 773 static HRESULT WINAPI WebBrowser_get_Offline(IWebBrowser2 *iface, VARIANT_BOOL *pbOffline)
 774 {
 775     WebBrowser *This = WEBBROWSER_THIS(iface);
 776
 777     TRACE("(%p)->(%p)\n", This, pbOffline);
 778
 779     *pbOffline = This->doc_host.offline;
 780     return S_OK;
 781 }
 782
 783 static HRESULT WINAPI WebBrowser_put_Offline(IWebBrowser2 *iface, VARIANT_BOOL bOffline)
 784 {
 785     WebBrowser *This = WEBBROWSER_THIS(iface);
 786
 787     TRACE("(%p)->(%x)\n", This, bOffline);
 788
 789     This->doc_host.offline = bOffline ? VARIANT_TRUE : VARIANT_FALSE;
 790     return S_OK;
 791 }
 792
 793 static HRESULT WINAPI WebBrowser_get_Silent(IWebBrowser2 *iface, VARIANT_BOOL *pbSilent)
 794 {
 795     WebBrowser *This = WEBBROWSER_THIS(iface);
 796
 797     TRACE("(%p)->(%p)\n", This, pbSilent);
 798
 799     *pbSilent = This->doc_host.silent;
 800     return S_OK;
 801 }
 802
 803 static HRESULT WINAPI WebBrowser_put_Silent(IWebBrowser2 *iface, VARIANT_BOOL bSilent)
 804 {
 805     WebBrowser *This = WEBBROWSER_THIS(iface);
 806
 807     TRACE("(%p)->(%x)\n", This, bSilent);
 808
 809     This->doc_host.silent = bSilent ? VARIANT_TRUE : VARIANT_FALSE;
 810     return S_OK;
 811 }
 812
 813 static HRESULT WINAPI WebBrowser_get_RegisterAsBrowser(IWebBrowser2 *iface,
 814         VARIANT_BOOL *pbRegister)
 815 {
 816     WebBrowser *This = WEBBROWSER_THIS(iface);
 817
 818     FIXME("(%p)->(%p)\n", This, pbRegister);
 819
 820     *pbRegister = This->register_browser;
 821     return S_OK;
 822 }
 823
 824 static HRESULT WINAPI WebBrowser_put_RegisterAsBrowser(IWebBrowser2 *iface,
 825         VARIANT_BOOL bRegister)
 826 {
 827     WebBrowser *This = WEBBROWSER_THIS(iface);
 828
 829     FIXME("(%p)->(%x)\n", This, bRegister);
 830
 831     This->register_browser = bRegister ? VARIANT_TRUE : VARIANT_FALSE;
 832     return S_OK;
 833 }
 834
 835 static HRESULT WINAPI WebBrowser_get_RegisterAsDropTarget(IWebBrowser2 *iface,
 836         VARIANT_BOOL *pbRegister)
 837 {
 838     WebBrowser *This = WEBBROWSER_THIS(iface);
 839     FIXME("(%p)->(%p)\n", This, pbRegister);
 840     *pbRegister=0;
 841     return S_OK;
 842 }
 843
 844 static HRESULT WINAPI WebBrowser_put_RegisterAsDropTarget(IWebBrowser2 *iface,
 845         VARIANT_BOOL bRegister)
 846 {
 847     WebBrowser *This = WEBBROWSER_THIS(iface);
 848     FIXME("(%p)->(%x)\n", This, bRegister);
 849     return S_OK;
 850 }
 851
 852 static HRESULT WINAPI WebBrowser_get_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL *pbRegister)
 853 {
 854     WebBrowser *This = WEBBROWSER_THIS(iface);
 855
 856     TRACE("(%p)->(%p)\n", This, pbRegister);
 857
 858     *pbRegister = This->theater_mode;
 859     return S_OK;
 860 }
 861
 862 static HRESULT WINAPI WebBrowser_put_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL bRegister)
 863 {
 864     WebBrowser *This = WEBBROWSER_THIS(iface);
 865     VARIANTARG arg;
 866     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 867
 868     TRACE("(%p)->(%x)\n", This, bRegister);
 869
 870     This->theater_mode = bRegister ? VARIANT_TRUE : VARIANT_FALSE;
 871
 872     /* In opposition to InternetExplorer, all we should do here is
 873      * inform the embedder about the theater mode change. */
 874
 875     V_VT(&arg) = VT_BOOL;
 876     V_BOOL(&arg) = bRegister;
 877     call_sink(This->doc_host.cps.wbe2, DISPID_ONTHEATERMODE, &dispparams);
 878
 879     return S_OK;
 880 }
 881
 882 static HRESULT WINAPI WebBrowser_get_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 883 {
 884     WebBrowser *This = WEBBROWSER_THIS(iface);
 885
 886     TRACE("(%p)->(%p)\n", This, Value);
 887
 888     *Value = This->address_bar;
 889     return S_OK;
 890 }
 891
 892 static HRESULT WINAPI WebBrowser_put_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 893 {
 894     WebBrowser *This = WEBBROWSER_THIS(iface);
 895     VARIANTARG arg;
 896     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 897
 898     TRACE("(%p)->(%x)\n", This, Value);
 899
 900     This->address_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
 901
 902     /* In opposition to InternetExplorer, all we should do here is
 903      * inform the embedder about the address bar change. */
 904
 905     V_VT(&arg) = VT_BOOL;
 906     V_BOOL(&arg) = Value;
 907     call_sink(This->doc_host.cps.wbe2, DISPID_ONADDRESSBAR, &dispparams);
 908
 909     return S_OK;
 910 }
 911
 912 static HRESULT WINAPI WebBrowser_get_Resizable(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 913 {
 914     WebBrowser *This = WEBBROWSER_THIS(iface);
 915
 916     TRACE("(%p)->(%p)\n", This, Value);
 917
 918     /* It's InternetExplorer object's method. We have nothing to do here. */
 919     return E_NOTIMPL;
 920 }
 921
 922 static HRESULT WINAPI WebBrowser_put_Resizable(IWebBrowser2 *iface, VARIANT_BOOL Value)
 923 {
 924     WebBrowser *This = WEBBROWSER_THIS(iface);
 925     VARIANTARG arg;
 926     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 927
 928     TRACE("(%p)->(%x)\n", This, Value);
 929
 930     /* In opposition to InternetExplorer, all we should do here is
 931      * inform the embedder about the resizable change. */
 932
 933     V_VT(&arg) = VT_BOOL;
 934     V_BOOL(&arg) = Value;
 935     call_sink(This->doc_host.cps.wbe2, DISPID_WINDOWSETRESIZABLE, &dispparams);
 936
 937     return S_OK;
 938 }
 939
 940 #undef WEBBROWSER_THIS
 941
 942 static const IWebBrowser2Vtbl WebBrowser2Vtbl =
 943 {
 944     WebBrowser_QueryInterface,
 945     WebBrowser_AddRef,
 946     WebBrowser_Release,
 947     WebBrowser_GetTypeInfoCount,
 948     WebBrowser_GetTypeInfo,
 949     WebBrowser_GetIDsOfNames,
 950     WebBrowser_Invoke,
 951     WebBrowser_GoBack,
 952     WebBrowser_GoForward,
 953     WebBrowser_GoHome,
 954     WebBrowser_GoSearch,
 955     WebBrowser_Navigate,
 956     WebBrowser_Refresh,
 957     WebBrowser_Refresh2,
 958     WebBrowser_Stop,
 959     WebBrowser_get_Application,
 960     WebBrowser_get_Parent,
 961     WebBrowser_get_Container,
 962     WebBrowser_get_Document,
 963     WebBrowser_get_TopLevelContainer,
 964     WebBrowser_get_Type,
 965     WebBrowser_get_Left,
 966     WebBrowser_put_Left,
 967     WebBrowser_get_Top,
 968     WebBrowser_put_Top,
 969     WebBrowser_get_Width,
 970     WebBrowser_put_Width,
 971     WebBrowser_get_Height,
 972     WebBrowser_put_Height,
 973     WebBrowser_get_LocationName,
 974     WebBrowser_get_LocationURL,
 975     WebBrowser_get_Busy,
 976     WebBrowser_Quit,
 977     WebBrowser_ClientToWindow,
 978     WebBrowser_PutProperty,
 979     WebBrowser_GetProperty,
 980     WebBrowser_get_Name,
 981     WebBrowser_get_HWND,
 982     WebBrowser_get_FullName,
 983     WebBrowser_get_Path,
 984     WebBrowser_get_Visible,
 985     WebBrowser_put_Visible,
 986     WebBrowser_get_StatusBar,
 987     WebBrowser_put_StatusBar,
 988     WebBrowser_get_StatusText,
 989     WebBrowser_put_StatusText,
 990     WebBrowser_get_ToolBar,
 991     WebBrowser_put_ToolBar,
 992     WebBrowser_get_MenuBar,
 993     WebBrowser_put_MenuBar,
 994     WebBrowser_get_FullScreen,
 995     WebBrowser_put_FullScreen,
 996     WebBrowser_Navigate2,
 997     WebBrowser_QueryStatusWB,
 998     WebBrowser_ExecWB,
 999     WebBrowser_ShowBrowserBar,
1000     WebBrowser_get_ReadyState,
1001     WebBrowser_get_Offline,
1002     WebBrowser_put_Offline,
1003     WebBrowser_get_Silent,
1004     WebBrowser_put_Silent,
1005     WebBrowser_get_RegisterAsBrowser,
1006     WebBrowser_put_RegisterAsBrowser,
1007     WebBrowser_get_RegisterAsDropTarget,
1008     WebBrowser_put_RegisterAsDropTarget,
1009     WebBrowser_get_TheaterMode,
1010     WebBrowser_put_TheaterMode,
1011     WebBrowser_get_AddressBar,
1012     WebBrowser_put_AddressBar,
1013     WebBrowser_get_Resizable,
1014     WebBrowser_put_Resizable
1015 };
1016
1017 static HRESULT WebBrowser_Create(INT version, IUnknown *pOuter, REFIID riid, void **ppv)
1018 {
1019     WebBrowser *ret;
1020     HRESULT hres;
1021
1022     TRACE("(%p %s %p) version=%d\n", pOuter, debugstr_guid(riid), ppv, version);
1023
1024     ret = heap_alloc(sizeof(WebBrowser));
1025
1026     ret->lpWebBrowser2Vtbl = &WebBrowser2Vtbl;
1027     ret->ref = 0;
1028     ret->version = version;
1029
1030     DocHost_Init(&ret->doc_host, (IDispatch*)WEBBROWSER2(ret));
1031
1032     ret->register_browser = VARIANT_FALSE;
1033     ret->visible = VARIANT_TRUE;
1034     ret->menu_bar = VARIANT_TRUE;
1035     ret->address_bar = VARIANT_TRUE;
1036     ret->status_bar = VARIANT_TRUE;
1037     ret->tool_bar = VARIANT_TRUE;
1038     ret->full_screen = VARIANT_FALSE;
1039     ret->theater_mode = VARIANT_FALSE;
1040
1041     WebBrowser_OleObject_Init(ret);
1042     WebBrowser_ViewObject_Init(ret);
1043     WebBrowser_Persist_Init(ret);
1044     WebBrowser_ClassInfo_Init(ret);
1045     WebBrowser_HlinkFrame_Init(ret);
1046
1047     hres = IWebBrowser_QueryInterface(WEBBROWSER(ret), riid, ppv);
1048     if(SUCCEEDED(hres)) {
1049         SHDOCVW_LockModule();
1050     }else {
1051         heap_free(ret);
1052         return hres;
1053     }
1054
1055     return hres;
1056 }
1057
1058 HRESULT WebBrowserV1_Create(IUnknown *pOuter, REFIID riid, void **ppv)
1059 {
1060     return WebBrowser_Create(1, pOuter, riid, ppv);
1061 }
1062
1063 HRESULT WebBrowserV2_Create(IUnknown *pOuter, REFIID riid, void **ppv)
1064 {
1065     return WebBrowser_Create(2, pOuter, riid, ppv);
1066 }