reactos/dll/win32/ieframe/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 "ieframe.h"
  23
  24 static inline WebBrowser *impl_from_IWebBrowser2(IWebBrowser2 *iface)
  25 {
  26     return CONTAINING_RECORD(iface, WebBrowser, IWebBrowser2_iface);
  27 }
  28
  29 static HRESULT WINAPI WebBrowser_QueryInterface(IWebBrowser2 *iface, REFIID riid, LPVOID *ppv)
  30 {
  31     WebBrowser *This = impl_from_IWebBrowser2(iface);
  32
  33     if (ppv == NULL)
  34         return E_POINTER;
  35     *ppv = NULL;
  36
  37     if(IsEqualGUID(&IID_IUnknown, riid)) {
  38         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
  39         *ppv = &This->IWebBrowser2_iface;
  40     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
  41         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
  42         *ppv = &This->IWebBrowser2_iface;
  43     }else if(IsEqualGUID(&IID_IWebBrowser, riid)) {
  44         TRACE("(%p)->(IID_IWebBrowser %p)\n", This, ppv);
  45         *ppv = &This->IWebBrowser2_iface;
  46     }else if(IsEqualGUID(&IID_IWebBrowserApp, riid)) {
  47         TRACE("(%p)->(IID_IWebBrowserApp %p)\n", This, ppv);
  48         *ppv = &This->IWebBrowser2_iface;
  49     }else if(IsEqualGUID(&IID_IWebBrowser2, riid)) {
  50         TRACE("(%p)->(IID_IWebBrowser2 %p)\n", This, ppv);
  51         *ppv = &This->IWebBrowser2_iface;
  52     }else if(IsEqualGUID(&IID_IOleObject, riid)) {
  53         TRACE("(%p)->(IID_IOleObject %p)\n", This, ppv);
  54         *ppv = &This->IOleObject_iface;
  55     }else if(IsEqualGUID(&IID_IOleWindow, riid)) {
  56         TRACE("(%p)->(IID_IOleWindow %p)\n", This, ppv);
  57         *ppv = &This->IOleInPlaceObject_iface;
  58     }else if(IsEqualGUID (&IID_IOleInPlaceObject, riid)) {
  59         TRACE("(%p)->(IID_IOleInPlaceObject %p)\n", This, ppv);
  60         *ppv = &This->IOleInPlaceObject_iface;
  61     }else if(IsEqualGUID(&IID_IOleControl, riid)) {
  62         TRACE("(%p)->(IID_IOleControl %p)\n", This, ppv);
  63         *ppv = &This->IOleControl_iface;
  64     }else if(IsEqualGUID(&IID_IPersist, riid)) {
  65         TRACE("(%p)->(IID_IPersist %p)\n", This, ppv);
  66         *ppv = &This->IPersistStorage_iface;
  67     }else if(IsEqualGUID(&IID_IPersistStorage, riid)) {
  68         TRACE("(%p)->(IID_IPersistStorage %p)\n", This, ppv);
  69         *ppv = &This->IPersistStorage_iface;
  70     }else if(IsEqualGUID(&IID_IPersistMemory, riid)) {
  71         TRACE("(%p)->(IID_IPersistStorage %p)\n", This, ppv);
  72         *ppv = &This->IPersistMemory_iface;
  73     }else if(IsEqualGUID (&IID_IPersistStreamInit, riid)) {
  74         TRACE("(%p)->(IID_IPersistStreamInit %p)\n", This, ppv);
  75         *ppv = &This->IPersistStreamInit_iface;
  76     }else if(IsEqualGUID(&IID_IProvideClassInfo, riid)) {
  77         TRACE("(%p)->(IID_IProvideClassInfo %p)\n", This, ppv);
  78         *ppv = &This->IProvideClassInfo2_iface;
  79     }else if(IsEqualGUID(&IID_IProvideClassInfo2, riid)) {
  80         TRACE("(%p)->(IID_IProvideClassInfo2 %p)\n", This, ppv);
  81         *ppv = &This->IProvideClassInfo2_iface;
  82     }else if(IsEqualGUID(&IID_IConnectionPointContainer, riid)) {
  83         TRACE("(%p)->(IID_IConnectionPointContainer %p)\n", This, ppv);
  84         *ppv = &This->doc_host.cps.IConnectionPointContainer_iface;
  85     }else if(IsEqualGUID(&IID_IViewObject, riid)) {
  86         TRACE("(%p)->(IID_IViewObject %p)\n", This, ppv);
  87         *ppv = &This->IViewObject2_iface;
  88     }else if(IsEqualGUID(&IID_IViewObject2, riid)) {
  89         TRACE("(%p)->(IID_IViewObject2 %p)\n", This, ppv);
  90         *ppv = &This->IViewObject2_iface;
  91     }else if(IsEqualGUID(&IID_IOleInPlaceActiveObject, riid)) {
  92         TRACE("(%p)->(IID_IOleInPlaceActiveObject %p)\n", This, ppv);
  93         *ppv = &This->IOleInPlaceActiveObject_iface;
  94     }else if(IsEqualGUID(&IID_IOleCommandTarget, riid)) {
  95         TRACE("(%p)->(IID_IOleCommandTarget %p)\n", This, ppv);
  96         *ppv = &This->IOleCommandTarget_iface;
  97     }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
  98         *ppv = &This->IServiceProvider_iface;
  99         TRACE("(%p)->(IID_IServiceProvider %p)\n", This, ppv);
 100     }else if(IsEqualGUID(&IID_IDataObject, riid)) {
 101         *ppv = &This->IDataObject_iface;
 102         TRACE("(%p)->(IID_IDataObject %p)\n", This, ppv);
 103     }else if(IsEqualGUID(&IID_IQuickActivate, riid)) {
 104         TRACE("(%p)->(IID_IQuickActivate %p) returning NULL\n", This, ppv);
 105         return E_NOINTERFACE;
 106     }else if(IsEqualGUID(&IID_IRunnableObject, riid)) {
 107         TRACE("(%p)->(IID_IRunnableObject %p) returning NULL\n", This, ppv);
 108         return E_NOINTERFACE;
 109     }else if(IsEqualGUID(&IID_IPerPropertyBrowsing, riid)) {
 110         TRACE("(%p)->(IID_IPerPropertyBrowsing %p) returning NULL\n", This, ppv);
 111         return E_NOINTERFACE;
 112     }else if(IsEqualGUID(&IID_IOleCache, riid)) {
 113         TRACE("(%p)->(IID_IOleCache %p) returning NULL\n", This, ppv);
 114         return E_NOINTERFACE;
 115     }else if(IsEqualGUID(&IID_IOleInPlaceSite, riid)) {
 116         TRACE("(%p)->(IID_IOleInPlaceSite %p) returning NULL\n", This, ppv);
 117         return E_NOINTERFACE;
 118     }else if(IsEqualGUID(&IID_IObjectWithSite, riid)) {
 119         TRACE("(%p)->(IID_IObjectWithSite %p) returning NULL\n", This, ppv);
 120         return E_NOINTERFACE;
 121     }else if(IsEqualGUID(&IID_IViewObjectEx, riid)) {
 122         TRACE("(%p)->(IID_IViewObjectEx %p) returning NULL\n", This, ppv);
 123         return E_NOINTERFACE;
 124     }else if(IsEqualGUID(&IID_IOleLink, riid)) {
 125         TRACE("(%p)->(IID_IOleLink %p) returning NULL\n", This, ppv);
 126         return E_NOINTERFACE;
 127     }else if(IsEqualGUID(&IID_IMarshal, riid)) {
 128         TRACE("(%p)->(IID_IMarshal %p) returning NULL\n", This, ppv);
 129         return E_NOINTERFACE;
 130     }else if(IsEqualGUID(&IID_IStdMarshalInfo, riid)) {
 131         /* This is implemented since IE10 */
 132         WARN("(%p)->(IID_IStdMarshalInfo %p) returning NULL\n", This, ppv);
 133         return E_NOINTERFACE;
 134     }else if(HlinkFrame_QI(&This->hlink_frame, riid, ppv)) {
 135         return S_OK;
 136     }
 137
 138     if(*ppv) {
 139         IUnknown_AddRef((IUnknown*)*ppv);
 140         return S_OK;
 141     }
 142
 143     FIXME("(%p)->(%s %p) interface not supported\n", This, debugstr_guid(riid), ppv);
 144     return E_NOINTERFACE;
 145 }
 146
 147 static ULONG WINAPI WebBrowser_AddRef(IWebBrowser2 *iface)
 148 {
 149     WebBrowser *This = impl_from_IWebBrowser2(iface);
 150     LONG ref = InterlockedIncrement(&This->ref);
 151     TRACE("(%p) ref=%d\n", This, ref);
 152     return ref;
 153 }
 154
 155 static ULONG WINAPI WebBrowser_Release(IWebBrowser2 *iface)
 156 {
 157     WebBrowser *This = impl_from_IWebBrowser2(iface);
 158     LONG ref = InterlockedDecrement(&This->ref);
 159
 160     TRACE("(%p) ref=%d\n", This, ref);
 161
 162     if(!ref) {
 163         if(This->doc_host.document)
 164             IUnknown_Release(This->doc_host.document);
 165
 166         DocHost_Release(&This->doc_host);
 167
 168         WebBrowser_OleObject_Destroy(This);
 169
 170         heap_free(This);
 171         unlock_module();
 172     }
 173
 174     return ref;
 175 }
 176
 177 /* IDispatch methods */
 178 static HRESULT WINAPI WebBrowser_GetTypeInfoCount(IWebBrowser2 *iface, UINT *pctinfo)
 179 {
 180     WebBrowser *This = impl_from_IWebBrowser2(iface);
 181
 182     TRACE("(%p)->(%p)\n", This, pctinfo);
 183
 184     *pctinfo = 1;
 185     return S_OK;
 186 }
 187
 188 static HRESULT WINAPI WebBrowser_GetTypeInfo(IWebBrowser2 *iface, UINT iTInfo, LCID lcid,
 189                                      LPTYPEINFO *ppTInfo)
 190 {
 191     WebBrowser *This = impl_from_IWebBrowser2(iface);
 192     ITypeInfo *typeinfo;
 193     HRESULT hres;
 194
 195     TRACE("(%p)->(%d %d %p)\n", This, iTInfo, lcid, ppTInfo);
 196
 197     hres = get_typeinfo(IWebBrowser2_tid, &typeinfo);
 198     if(FAILED(hres))
 199         return hres;
 200
 201     ITypeInfo_AddRef(typeinfo);
 202     *ppTInfo = typeinfo;
 203     return S_OK;
 204 }
 205
 206 static HRESULT WINAPI WebBrowser_GetIDsOfNames(IWebBrowser2 *iface, REFIID riid,
 207                                        LPOLESTR *rgszNames, UINT cNames,
 208                                        LCID lcid, DISPID *rgDispId)
 209 {
 210     WebBrowser *This = impl_from_IWebBrowser2(iface);
 211     ITypeInfo *typeinfo;
 212     HRESULT hres;
 213
 214     TRACE("(%p)->(%s %p %d %d %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
 215           lcid, rgDispId);
 216
 217     hres = get_typeinfo(IWebBrowser2_tid, &typeinfo);
 218     if(FAILED(hres))
 219         return hres;
 220
 221     return ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
 222 }
 223
 224 static HRESULT WINAPI WebBrowser_Invoke(IWebBrowser2 *iface, DISPID dispIdMember,
 225                                 REFIID riid, LCID lcid, WORD wFlags,
 226                                 DISPPARAMS *pDispParams, VARIANT *pVarResult,
 227                                 EXCEPINFO *pExepInfo, UINT *puArgErr)
 228 {
 229     WebBrowser *This = impl_from_IWebBrowser2(iface);
 230     ITypeInfo *typeinfo;
 231     HRESULT hres;
 232
 233     TRACE("(%p)->(%d %s %d %08x %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
 234             lcid, wFlags, pDispParams, pVarResult, pExepInfo, puArgErr);
 235
 236     hres = get_typeinfo(IWebBrowser2_tid, &typeinfo);
 237     if(FAILED(hres))
 238         return hres;
 239
 240     return ITypeInfo_Invoke(typeinfo, &This->IWebBrowser2_iface, dispIdMember, wFlags, pDispParams,
 241             pVarResult, pExepInfo, puArgErr);
 242 }
 243
 244 /* IWebBrowser methods */
 245 static HRESULT WINAPI WebBrowser_GoBack(IWebBrowser2 *iface)
 246 {
 247     WebBrowser *This = impl_from_IWebBrowser2(iface);
 248     TRACE("(%p)\n", This);
 249     return go_back(&This->doc_host);
 250 }
 251
 252 static HRESULT WINAPI WebBrowser_GoForward(IWebBrowser2 *iface)
 253 {
 254     WebBrowser *This = impl_from_IWebBrowser2(iface);
 255     TRACE("(%p)\n", This);
 256     return go_forward(&This->doc_host);
 257 }
 258
 259 static HRESULT WINAPI WebBrowser_GoHome(IWebBrowser2 *iface)
 260 {
 261     WebBrowser *This = impl_from_IWebBrowser2(iface);
 262     TRACE("(%p)\n", This);
 263     return go_home(&This->doc_host);
 264 }
 265
 266 static HRESULT WINAPI WebBrowser_GoSearch(IWebBrowser2 *iface)
 267 {
 268     WebBrowser *This = impl_from_IWebBrowser2(iface);
 269     FIXME("(%p)\n", This);
 270     return E_NOTIMPL;
 271 }
 272
 273 static HRESULT WINAPI WebBrowser_Navigate(IWebBrowser2 *iface, BSTR szUrl,
 274                                   VARIANT *Flags, VARIANT *TargetFrameName,
 275                                   VARIANT *PostData, VARIANT *Headers)
 276 {
 277     WebBrowser *This = impl_from_IWebBrowser2(iface);
 278
 279     TRACE("(%p)->(%s %s %s %s %s)\n", This, debugstr_w(szUrl), debugstr_variant(Flags),
 280           debugstr_variant(TargetFrameName), debugstr_variant(PostData),
 281           debugstr_variant(Headers));
 282
 283     return navigate_url(&This->doc_host, szUrl, Flags, TargetFrameName, PostData, Headers);
 284 }
 285
 286 static HRESULT WINAPI WebBrowser_Refresh(IWebBrowser2 *iface)
 287 {
 288     WebBrowser *This = impl_from_IWebBrowser2(iface);
 289
 290     TRACE("(%p)\n", This);
 291
 292     return refresh_document(&This->doc_host);
 293 }
 294
 295 static HRESULT WINAPI WebBrowser_Refresh2(IWebBrowser2 *iface, VARIANT *Level)
 296 {
 297     WebBrowser *This = impl_from_IWebBrowser2(iface);
 298     FIXME("(%p)->(%s)\n", This, debugstr_variant(Level));
 299     return E_NOTIMPL;
 300 }
 301
 302 static HRESULT WINAPI WebBrowser_Stop(IWebBrowser2 *iface)
 303 {
 304     WebBrowser *This = impl_from_IWebBrowser2(iface);
 305     FIXME("(%p)\n", This);
 306     return S_OK;
 307 }
 308
 309 static HRESULT WINAPI WebBrowser_get_Application(IWebBrowser2 *iface, IDispatch **ppDisp)
 310 {
 311     WebBrowser *This = impl_from_IWebBrowser2(iface);
 312
 313     TRACE("(%p)->(%p)\n", This, ppDisp);
 314
 315     if(!ppDisp)
 316         return E_POINTER;
 317
 318     *ppDisp = (IDispatch*)&This->IWebBrowser2_iface;
 319     IDispatch_AddRef(*ppDisp);
 320     return S_OK;
 321 }
 322
 323 static HRESULT WINAPI WebBrowser_get_Parent(IWebBrowser2 *iface, IDispatch **ppDisp)
 324 {
 325     WebBrowser *This = impl_from_IWebBrowser2(iface);
 326     FIXME("(%p)->(%p)\n", This, ppDisp);
 327     return E_NOTIMPL;
 328 }
 329
 330 static HRESULT WINAPI WebBrowser_get_Container(IWebBrowser2 *iface, IDispatch **ppDisp)
 331 {
 332     WebBrowser *This = impl_from_IWebBrowser2(iface);
 333     FIXME("(%p)->(%p)\n", This, ppDisp);
 334     return E_NOTIMPL;
 335 }
 336
 337 static HRESULT WINAPI WebBrowser_get_Document(IWebBrowser2 *iface, IDispatch **ppDisp)
 338 {
 339     WebBrowser *This = impl_from_IWebBrowser2(iface);
 340     IDispatch *disp = NULL;
 341
 342     TRACE("(%p)->(%p)\n", This, ppDisp);
 343
 344     if(This->doc_host.document) {
 345         HRESULT hres;
 346
 347         hres = IUnknown_QueryInterface(This->doc_host.document, &IID_IDispatch, (void**)&disp);
 348         if(SUCCEEDED(hres)) {
 349             IDispatch *html_doc;
 350
 351             /* Some broken apps cast returned IDispatch to IHTMLDocument2
 352              * without QueryInterface call */
 353             hres = IDispatch_QueryInterface(disp, &IID_IHTMLDocument2, (void**)&html_doc);
 354             if(SUCCEEDED(hres)) {
 355                 IDispatch_Release(disp);
 356                 disp = html_doc;
 357             }
 358         }
 359     }
 360
 361     *ppDisp = disp;
 362     return S_OK;
 363 }
 364
 365 static HRESULT WINAPI WebBrowser_get_TopLevelContainer(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 366 {
 367     WebBrowser *This = impl_from_IWebBrowser2(iface);
 368     FIXME("(%p)->(%p)\n", This, pBool);
 369     return E_NOTIMPL;
 370 }
 371
 372 static HRESULT WINAPI WebBrowser_get_Type(IWebBrowser2 *iface, BSTR *Type)
 373 {
 374     WebBrowser *This = impl_from_IWebBrowser2(iface);
 375     FIXME("(%p)->(%p)\n", This, Type);
 376     return E_NOTIMPL;
 377 }
 378
 379 static HRESULT WINAPI WebBrowser_get_Left(IWebBrowser2 *iface, LONG *pl)
 380 {
 381     WebBrowser *This = impl_from_IWebBrowser2(iface);
 382
 383     TRACE("(%p)->(%p)\n", This, pl);
 384
 385     *pl = This->pos_rect.left;
 386     return S_OK;
 387 }
 388
 389 static HRESULT WINAPI WebBrowser_put_Left(IWebBrowser2 *iface, LONG Left)
 390 {
 391     WebBrowser *This = impl_from_IWebBrowser2(iface);
 392     RECT rect;
 393
 394     TRACE("(%p)->(%d)\n", This, Left);
 395
 396     if(!This->inplace)
 397         return E_UNEXPECTED;
 398
 399     rect = This->pos_rect;
 400     rect.left = Left;
 401
 402     /* We don't really change the window position here.
 403      * We just notify the embedder that he should do so. */
 404     return IOleInPlaceSiteEx_OnPosRectChange(This->inplace, &rect);
 405 }
 406
 407 static HRESULT WINAPI WebBrowser_get_Top(IWebBrowser2 *iface, LONG *pl)
 408 {
 409     WebBrowser *This = impl_from_IWebBrowser2(iface);
 410
 411     TRACE("(%p)->(%p)\n", This, pl);
 412
 413     *pl = This->pos_rect.top;
 414     return S_OK;
 415 }
 416
 417 static HRESULT WINAPI WebBrowser_put_Top(IWebBrowser2 *iface, LONG Top)
 418 {
 419     WebBrowser *This = impl_from_IWebBrowser2(iface);
 420     RECT rect;
 421
 422     TRACE("(%p)->(%d)\n", This, Top);
 423
 424     if(!This->inplace)
 425         return E_UNEXPECTED;
 426
 427     rect = This->pos_rect;
 428     rect.top = Top;
 429
 430     /* We don't really change the window position here.
 431      * We just notify the embedder that he should do so. */
 432     return IOleInPlaceSiteEx_OnPosRectChange(This->inplace, &rect);
 433 }
 434
 435 static HRESULT WINAPI WebBrowser_get_Width(IWebBrowser2 *iface, LONG *pl)
 436 {
 437     WebBrowser *This = impl_from_IWebBrowser2(iface);
 438
 439     TRACE("(%p)->(%p)\n", This, pl);
 440
 441     *pl = This->pos_rect.right - This->pos_rect.left;
 442     return S_OK;
 443 }
 444
 445 static HRESULT WINAPI WebBrowser_put_Width(IWebBrowser2 *iface, LONG Width)
 446 {
 447     WebBrowser *This = impl_from_IWebBrowser2(iface);
 448     RECT rect;
 449
 450     TRACE("(%p)->(%d)\n", This, Width);
 451
 452     if(!This->inplace)
 453         return E_UNEXPECTED;
 454
 455     rect = This->pos_rect;
 456     rect.right = rect.left+Width;
 457
 458     /* We don't really change the window size here.
 459      * We just notify the embedder that he should do so. */
 460    return IOleInPlaceSiteEx_OnPosRectChange(This->inplace, &rect);
 461 }
 462
 463 static HRESULT WINAPI WebBrowser_get_Height(IWebBrowser2 *iface, LONG *pl)
 464 {
 465     WebBrowser *This = impl_from_IWebBrowser2(iface);
 466
 467     TRACE("(%p)->(%p)\n", This, pl);
 468
 469     *pl = This->pos_rect.bottom - This->pos_rect.top;
 470     return S_OK;
 471 }
 472
 473 static HRESULT WINAPI WebBrowser_put_Height(IWebBrowser2 *iface, LONG Height)
 474 {
 475     WebBrowser *This = impl_from_IWebBrowser2(iface);
 476     RECT rect;
 477
 478     TRACE("(%p)->(%d)\n", This, Height);
 479
 480     if(!This->inplace)
 481         return E_UNEXPECTED;
 482
 483     rect = This->pos_rect;
 484     rect.bottom = rect.top+Height;
 485
 486     /* We don't really change the window size here.
 487      * We just notify the embedder that he should do so. */
 488     return IOleInPlaceSiteEx_OnPosRectChange(This->inplace, &rect);
 489 }
 490
 491 static HRESULT WINAPI WebBrowser_get_LocationName(IWebBrowser2 *iface, BSTR *LocationName)
 492 {
 493     WebBrowser *This = impl_from_IWebBrowser2(iface);
 494     FIXME("(%p)->(%p)\n", This, LocationName);
 495     return E_NOTIMPL;
 496 }
 497
 498 static HRESULT WINAPI WebBrowser_get_LocationURL(IWebBrowser2 *iface, BSTR *LocationURL)
 499 {
 500     WebBrowser *This = impl_from_IWebBrowser2(iface);
 501
 502     TRACE("(%p)->(%p)\n", This, LocationURL);
 503
 504     return get_location_url(&This->doc_host, LocationURL);
 505 }
 506
 507 static HRESULT WINAPI WebBrowser_get_Busy(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 508 {
 509     WebBrowser *This = impl_from_IWebBrowser2(iface);
 510
 511     TRACE("(%p)->(%p)\n", This, pBool);
 512
 513     *pBool = This->doc_host.busy;
 514     return S_OK;
 515 }
 516
 517 static HRESULT WINAPI WebBrowser_Quit(IWebBrowser2 *iface)
 518 {
 519     WebBrowser *This = impl_from_IWebBrowser2(iface);
 520
 521     TRACE("(%p)\n", This);
 522
 523     /* It's a InternetExplorer specific method, we have nothing to do here. */
 524     return E_FAIL;
 525 }
 526
 527 static HRESULT WINAPI WebBrowser_ClientToWindow(IWebBrowser2 *iface, int *pcx, int *pcy)
 528 {
 529     WebBrowser *This = impl_from_IWebBrowser2(iface);
 530     FIXME("(%p)->(%p %p)\n", This, pcx, pcy);
 531     return E_NOTIMPL;
 532 }
 533
 534 static HRESULT WINAPI WebBrowser_PutProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT vtValue)
 535 {
 536     WebBrowser *This = impl_from_IWebBrowser2(iface);
 537     FIXME("(%p)->(%s %s)\n", This, debugstr_w(szProperty), debugstr_variant(&vtValue));
 538     return E_NOTIMPL;
 539 }
 540
 541 static HRESULT WINAPI WebBrowser_GetProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT *pvtValue)
 542 {
 543     WebBrowser *This = impl_from_IWebBrowser2(iface);
 544     FIXME("(%p)->(%s %s)\n", This, debugstr_w(szProperty), debugstr_variant(pvtValue));
 545     return E_NOTIMPL;
 546 }
 547
 548 static HRESULT WINAPI WebBrowser_get_Name(IWebBrowser2 *iface, BSTR *Name)
 549 {
 550     static const WCHAR sName[] = {'M','i','c','r','o','s','o','f','t',' ','W','e','b',
 551                                   ' ','B','r','o','w','s','e','r',' ','C','o','n','t','r','o','l',0};
 552     WebBrowser *This = impl_from_IWebBrowser2(iface);
 553
 554     TRACE("(%p)->(%p)\n", This, Name);
 555
 556     *Name = SysAllocString(sName);
 557
 558     return S_OK;
 559 }
 560
 561 static HRESULT WINAPI WebBrowser_get_HWND(IWebBrowser2 *iface, SHANDLE_PTR *pHWND)
 562 {
 563     WebBrowser *This = impl_from_IWebBrowser2(iface);
 564
 565     TRACE("(%p)->(%p)\n", This, pHWND);
 566
 567     /* WebBrowser control never has a frame window (in opposition to InternetExplorer) */
 568     *pHWND = 0;
 569     return E_FAIL;
 570 }
 571
 572 static HRESULT WINAPI WebBrowser_get_FullName(IWebBrowser2 *iface, BSTR *FullName)
 573 {
 574     WebBrowser *This = impl_from_IWebBrowser2(iface);
 575     FIXME("(%p)->(%p)\n", This, FullName);
 576     return E_NOTIMPL;
 577 }
 578
 579 static HRESULT WINAPI WebBrowser_get_Path(IWebBrowser2 *iface, BSTR *Path)
 580 {
 581     WebBrowser *This = impl_from_IWebBrowser2(iface);
 582     FIXME("(%p)->(%p)\n", This, Path);
 583     return E_NOTIMPL;
 584 }
 585
 586 static HRESULT WINAPI WebBrowser_get_Visible(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 587 {
 588     WebBrowser *This = impl_from_IWebBrowser2(iface);
 589
 590     TRACE("(%p)->(%p)\n", This, pBool);
 591
 592     *pBool = This->visible;
 593     return S_OK;
 594 }
 595
 596 static HRESULT WINAPI WebBrowser_put_Visible(IWebBrowser2 *iface, VARIANT_BOOL Value)
 597 {
 598     WebBrowser *This = impl_from_IWebBrowser2(iface);
 599     VARIANTARG arg;
 600     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 601
 602     TRACE("(%p)->(%x)\n", This, Value);
 603
 604     This->visible = Value;
 605
 606     V_VT(&arg) = VT_BOOL;
 607     V_BOOL(&arg) = Value;
 608     call_sink(This->doc_host.cps.wbe2, DISPID_ONVISIBLE, &dispparams);
 609
 610     return S_OK;
 611 }
 612
 613 static HRESULT WINAPI WebBrowser_get_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 614 {
 615     WebBrowser *This = impl_from_IWebBrowser2(iface);
 616
 617     TRACE("(%p)->(%p)\n", This, pBool);
 618
 619     *pBool = This->status_bar;
 620     return S_OK;
 621 }
 622
 623 static HRESULT WINAPI WebBrowser_put_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 624 {
 625     WebBrowser *This = impl_from_IWebBrowser2(iface);
 626     VARIANTARG arg;
 627     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 628
 629     TRACE("(%p)->(%x)\n", This, Value);
 630
 631     This->status_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
 632
 633     /* In opposition to InternetExplorer, all we should do here is
 634      * inform the embedder about the status bar change. */
 635
 636     V_VT(&arg) = VT_BOOL;
 637     V_BOOL(&arg) = Value;
 638     call_sink(This->doc_host.cps.wbe2, DISPID_ONSTATUSBAR, &dispparams);
 639
 640     return S_OK;
 641 }
 642
 643 static HRESULT WINAPI WebBrowser_get_StatusText(IWebBrowser2 *iface, BSTR *StatusText)
 644 {
 645     WebBrowser *This = impl_from_IWebBrowser2(iface);
 646     FIXME("(%p)->(%p)\n", This, StatusText);
 647     return E_NOTIMPL;
 648 }
 649
 650 static HRESULT WINAPI WebBrowser_put_StatusText(IWebBrowser2 *iface, BSTR StatusText)
 651 {
 652     WebBrowser *This = impl_from_IWebBrowser2(iface);
 653     FIXME("(%p)->(%s)\n", This, debugstr_w(StatusText));
 654     return E_NOTIMPL;
 655 }
 656
 657 static HRESULT WINAPI WebBrowser_get_ToolBar(IWebBrowser2 *iface, int *Value)
 658 {
 659     WebBrowser *This = impl_from_IWebBrowser2(iface);
 660
 661     TRACE("(%p)->(%p)\n", This, Value);
 662
 663     *Value = This->tool_bar;
 664     return S_OK;
 665 }
 666
 667 static HRESULT WINAPI WebBrowser_put_ToolBar(IWebBrowser2 *iface, int Value)
 668 {
 669     WebBrowser *This = impl_from_IWebBrowser2(iface);
 670     VARIANTARG arg;
 671     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 672
 673     TRACE("(%p)->(%x)\n", This, Value);
 674
 675     This->tool_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
 676
 677     /* In opposition to InternetExplorer, all we should do here is
 678      * inform the embedder about the tool bar change. */
 679
 680     V_VT(&arg) = VT_BOOL;
 681     V_BOOL(&arg) = This->tool_bar;
 682     call_sink(This->doc_host.cps.wbe2, DISPID_ONTOOLBAR, &dispparams);
 683
 684     return S_OK;
 685 }
 686
 687 static HRESULT WINAPI WebBrowser_get_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 688 {
 689     WebBrowser *This = impl_from_IWebBrowser2(iface);
 690
 691     TRACE("(%p)->(%p)\n", This, Value);
 692
 693     *Value = This->menu_bar;
 694     return S_OK;
 695 }
 696
 697 static HRESULT WINAPI WebBrowser_put_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 698 {
 699     WebBrowser *This = impl_from_IWebBrowser2(iface);
 700     VARIANTARG arg;
 701     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 702
 703     TRACE("(%p)->(%x)\n", This, Value);
 704
 705     This->menu_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
 706
 707     /* In opposition to InternetExplorer, all we should do here is
 708      * inform the embedder about the menu bar change. */
 709
 710     V_VT(&arg) = VT_BOOL;
 711     V_BOOL(&arg) = Value;
 712     call_sink(This->doc_host.cps.wbe2, DISPID_ONMENUBAR, &dispparams);
 713
 714     return S_OK;
 715 }
 716
 717 static HRESULT WINAPI WebBrowser_get_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL *pbFullScreen)
 718 {
 719     WebBrowser *This = impl_from_IWebBrowser2(iface);
 720
 721     TRACE("(%p)->(%p)\n", This, pbFullScreen);
 722
 723     *pbFullScreen = This->full_screen;
 724     return S_OK;
 725 }
 726
 727 static HRESULT WINAPI WebBrowser_put_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL bFullScreen)
 728 {
 729     WebBrowser *This = impl_from_IWebBrowser2(iface);
 730     VARIANTARG arg;
 731     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 732
 733     /* In opposition to InternetExplorer, all we should do here is
 734      * inform the embedder about the fullscreen change. */
 735
 736     TRACE("(%p)->(%x)\n", This, bFullScreen);
 737
 738     This->full_screen = bFullScreen ? VARIANT_TRUE : VARIANT_FALSE;
 739
 740     V_VT(&arg) = VT_BOOL;
 741     V_BOOL(&arg) = bFullScreen;
 742     call_sink(This->doc_host.cps.wbe2, DISPID_ONFULLSCREEN, &dispparams);
 743
 744     return S_OK;
 745 }
 746
 747 static HRESULT WINAPI WebBrowser_Navigate2(IWebBrowser2 *iface, VARIANT *URL, VARIANT *Flags,
 748         VARIANT *TargetFrameName, VARIANT *PostData, VARIANT *Headers)
 749 {
 750     WebBrowser *This = impl_from_IWebBrowser2(iface);
 751     LPCWSTR url;
 752
 753     TRACE("(%p)->(%s %s %s %s %s)\n", This, debugstr_variant(URL), debugstr_variant(Flags),
 754           debugstr_variant(TargetFrameName), debugstr_variant(PostData), debugstr_variant(Headers));
 755
 756     if(!This->client)
 757         return E_FAIL;
 758
 759     if(!URL)
 760         return S_OK;
 761
 762     switch (V_VT(URL))
 763     {
 764     case VT_BSTR:
 765         url = V_BSTR(URL);
 766         break;
 767     case VT_BSTR|VT_BYREF:
 768         url = *V_BSTRREF(URL);
 769         break;
 770     default:
 771         FIXME("Unsupported V_VT(URL) %d\n", V_VT(URL));
 772         return E_INVALIDARG;
 773     }
 774
 775     return navigate_url(&This->doc_host, url, Flags, TargetFrameName, PostData, Headers);
 776 }
 777
 778 static HRESULT WINAPI WebBrowser_QueryStatusWB(IWebBrowser2 *iface, OLECMDID cmdID, OLECMDF *pcmdf)
 779 {
 780     WebBrowser *This = impl_from_IWebBrowser2(iface);
 781     IOleCommandTarget *target = NULL;
 782     OLECMD ole_command[1];
 783     HRESULT hres;
 784
 785     TRACE("(%p)->(%d %p)\n", This, cmdID, pcmdf);
 786
 787     if (!pcmdf)
 788         return E_POINTER;
 789     ole_command[0].cmdID = cmdID;
 790     ole_command[0].cmdf = *pcmdf;
 791
 792     if (This->container)
 793     {
 794         hres = IOleContainer_QueryInterface(This->container, &IID_IOleCommandTarget, (LPVOID*)&target);
 795         if(FAILED(hres))
 796             target = NULL;
 797     }
 798     if (!target && This->doc_host.document)
 799     {
 800         hres = IUnknown_QueryInterface(This->doc_host.document, &IID_IOleCommandTarget, (LPVOID*)&target);
 801         if(FAILED(hres))
 802             target = NULL;
 803     }
 804
 805     if (!target)
 806         return E_UNEXPECTED;
 807
 808     hres = IOleCommandTarget_QueryStatus(target, NULL, 1, ole_command, NULL);
 809     if (SUCCEEDED(hres))
 810         *pcmdf = ole_command[0].cmdf;
 811     if (hres == OLECMDERR_E_NOTSUPPORTED)
 812     {
 813         *pcmdf = 0;
 814         hres = S_OK;
 815     }
 816     IOleCommandTarget_Release(target);
 817
 818     return hres;
 819 }
 820
 821 static HRESULT WINAPI WebBrowser_ExecWB(IWebBrowser2 *iface, OLECMDID cmdID,
 822         OLECMDEXECOPT cmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
 823 {
 824     WebBrowser *This = impl_from_IWebBrowser2(iface);
 825     IOleCommandTarget *target = NULL;
 826     HRESULT hres;
 827
 828     TRACE("(%p)->(%d %d %s %p)\n", This, cmdID, cmdexecopt, debugstr_variant(pvaIn), pvaOut);
 829
 830     if(This->container)
 831     {
 832         hres = IOleContainer_QueryInterface(This->container, &IID_IOleCommandTarget, (LPVOID*)&target);
 833         if(FAILED(hres))
 834             target = NULL;
 835     }
 836     if(!target && This->doc_host.document)
 837     {
 838         hres = IUnknown_QueryInterface(This->doc_host.document, &IID_IOleCommandTarget, (LPVOID*)&target);
 839         if(FAILED(hres))
 840             target = NULL;
 841     }
 842
 843     if(!target)
 844         return E_UNEXPECTED;
 845
 846     hres = IOleCommandTarget_Exec(target, NULL, cmdID, cmdexecopt, pvaIn, pvaOut);
 847     IOleCommandTarget_Release(target);
 848
 849     return hres;
 850 }
 851
 852 static HRESULT WINAPI WebBrowser_ShowBrowserBar(IWebBrowser2 *iface, VARIANT *pvaClsid,
 853         VARIANT *pvarShow, VARIANT *pvarSize)
 854 {
 855     WebBrowser *This = impl_from_IWebBrowser2(iface);
 856     FIXME("(%p)->(%s %s %s)\n", This, debugstr_variant(pvaClsid), debugstr_variant(pvarShow),
 857           debugstr_variant(pvarSize));
 858     return E_NOTIMPL;
 859 }
 860
 861 static HRESULT WINAPI WebBrowser_get_ReadyState(IWebBrowser2 *iface, READYSTATE *lpReadyState)
 862 {
 863     WebBrowser *This = impl_from_IWebBrowser2(iface);
 864
 865     TRACE("(%p)->(%p)\n", This, lpReadyState);
 866
 867     *lpReadyState = This->doc_host.ready_state;
 868     return S_OK;
 869 }
 870
 871 static HRESULT WINAPI WebBrowser_get_Offline(IWebBrowser2 *iface, VARIANT_BOOL *pbOffline)
 872 {
 873     WebBrowser *This = impl_from_IWebBrowser2(iface);
 874
 875     TRACE("(%p)->(%p)\n", This, pbOffline);
 876
 877     *pbOffline = This->doc_host.offline;
 878     return S_OK;
 879 }
 880
 881 static HRESULT WINAPI WebBrowser_put_Offline(IWebBrowser2 *iface, VARIANT_BOOL bOffline)
 882 {
 883     WebBrowser *This = impl_from_IWebBrowser2(iface);
 884
 885     TRACE("(%p)->(%x)\n", This, bOffline);
 886
 887     This->doc_host.offline = bOffline ? VARIANT_TRUE : VARIANT_FALSE;
 888     return S_OK;
 889 }
 890
 891 static HRESULT WINAPI WebBrowser_get_Silent(IWebBrowser2 *iface, VARIANT_BOOL *pbSilent)
 892 {
 893     WebBrowser *This = impl_from_IWebBrowser2(iface);
 894
 895     TRACE("(%p)->(%p)\n", This, pbSilent);
 896
 897     *pbSilent = This->doc_host.silent;
 898     return S_OK;
 899 }
 900
 901 static HRESULT WINAPI WebBrowser_put_Silent(IWebBrowser2 *iface, VARIANT_BOOL bSilent)
 902 {
 903     WebBrowser *This = impl_from_IWebBrowser2(iface);
 904
 905     TRACE("(%p)->(%x)\n", This, bSilent);
 906
 907     This->doc_host.silent = bSilent ? VARIANT_TRUE : VARIANT_FALSE;
 908     return S_OK;
 909 }
 910
 911 static HRESULT WINAPI WebBrowser_get_RegisterAsBrowser(IWebBrowser2 *iface,
 912         VARIANT_BOOL *pbRegister)
 913 {
 914     WebBrowser *This = impl_from_IWebBrowser2(iface);
 915
 916     FIXME("(%p)->(%p)\n", This, pbRegister);
 917
 918     *pbRegister = This->register_browser;
 919     return S_OK;
 920 }
 921
 922 static HRESULT WINAPI WebBrowser_put_RegisterAsBrowser(IWebBrowser2 *iface,
 923         VARIANT_BOOL bRegister)
 924 {
 925     WebBrowser *This = impl_from_IWebBrowser2(iface);
 926
 927     FIXME("(%p)->(%x)\n", This, bRegister);
 928
 929     This->register_browser = bRegister ? VARIANT_TRUE : VARIANT_FALSE;
 930     return S_OK;
 931 }
 932
 933 static HRESULT WINAPI WebBrowser_get_RegisterAsDropTarget(IWebBrowser2 *iface,
 934         VARIANT_BOOL *pbRegister)
 935 {
 936     WebBrowser *This = impl_from_IWebBrowser2(iface);
 937     FIXME("(%p)->(%p)\n", This, pbRegister);
 938     *pbRegister=0;
 939     return S_OK;
 940 }
 941
 942 static HRESULT WINAPI WebBrowser_put_RegisterAsDropTarget(IWebBrowser2 *iface,
 943         VARIANT_BOOL bRegister)
 944 {
 945     WebBrowser *This = impl_from_IWebBrowser2(iface);
 946     FIXME("(%p)->(%x)\n", This, bRegister);
 947     return S_OK;
 948 }
 949
 950 static HRESULT WINAPI WebBrowser_get_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL *pbRegister)
 951 {
 952     WebBrowser *This = impl_from_IWebBrowser2(iface);
 953
 954     TRACE("(%p)->(%p)\n", This, pbRegister);
 955
 956     *pbRegister = This->theater_mode;
 957     return S_OK;
 958 }
 959
 960 static HRESULT WINAPI WebBrowser_put_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL bRegister)
 961 {
 962     WebBrowser *This = impl_from_IWebBrowser2(iface);
 963     VARIANTARG arg;
 964     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 965
 966     TRACE("(%p)->(%x)\n", This, bRegister);
 967
 968     This->theater_mode = bRegister ? VARIANT_TRUE : VARIANT_FALSE;
 969
 970     /* In opposition to InternetExplorer, all we should do here is
 971      * inform the embedder about the theater mode change. */
 972
 973     V_VT(&arg) = VT_BOOL;
 974     V_BOOL(&arg) = bRegister;
 975     call_sink(This->doc_host.cps.wbe2, DISPID_ONTHEATERMODE, &dispparams);
 976
 977     return S_OK;
 978 }
 979
 980 static HRESULT WINAPI WebBrowser_get_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 981 {
 982     WebBrowser *This = impl_from_IWebBrowser2(iface);
 983
 984     TRACE("(%p)->(%p)\n", This, Value);
 985
 986     *Value = This->address_bar;
 987     return S_OK;
 988 }
 989
 990 static HRESULT WINAPI WebBrowser_put_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 991 {
 992     WebBrowser *This = impl_from_IWebBrowser2(iface);
 993     VARIANTARG arg;
 994     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 995
 996     TRACE("(%p)->(%x)\n", This, Value);
 997
 998     This->address_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
 999
1000     /* In opposition to InternetExplorer, all we should do here is
1001      * inform the embedder about the address bar change. */
1002
1003     V_VT(&arg) = VT_BOOL;
1004     V_BOOL(&arg) = Value;
1005     call_sink(This->doc_host.cps.wbe2, DISPID_ONADDRESSBAR, &dispparams);
1006
1007     return S_OK;
1008 }
1009
1010 static HRESULT WINAPI WebBrowser_get_Resizable(IWebBrowser2 *iface, VARIANT_BOOL *Value)
1011 {
1012     WebBrowser *This = impl_from_IWebBrowser2(iface);
1013
1014     TRACE("(%p)->(%p)\n", This, Value);
1015
1016     /* It's InternetExplorer object's method. We have nothing to do here. */
1017     return E_NOTIMPL;
1018 }
1019
1020 static HRESULT WINAPI WebBrowser_put_Resizable(IWebBrowser2 *iface, VARIANT_BOOL Value)
1021 {
1022     WebBrowser *This = impl_from_IWebBrowser2(iface);
1023     VARIANTARG arg;
1024     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
1025
1026     TRACE("(%p)->(%x)\n", This, Value);
1027
1028     /* In opposition to InternetExplorer, all we should do here is
1029      * inform the embedder about the resizable change. */
1030
1031     V_VT(&arg) = VT_BOOL;
1032     V_BOOL(&arg) = Value;
1033     call_sink(This->doc_host.cps.wbe2, DISPID_WINDOWSETRESIZABLE, &dispparams);
1034
1035     return S_OK;
1036 }
1037
1038 static const IWebBrowser2Vtbl WebBrowser2Vtbl =
1039 {
1040     WebBrowser_QueryInterface,
1041     WebBrowser_AddRef,
1042     WebBrowser_Release,
1043     WebBrowser_GetTypeInfoCount,
1044     WebBrowser_GetTypeInfo,
1045     WebBrowser_GetIDsOfNames,
1046     WebBrowser_Invoke,
1047     WebBrowser_GoBack,
1048     WebBrowser_GoForward,
1049     WebBrowser_GoHome,
1050     WebBrowser_GoSearch,
1051     WebBrowser_Navigate,
1052     WebBrowser_Refresh,
1053     WebBrowser_Refresh2,
1054     WebBrowser_Stop,
1055     WebBrowser_get_Application,
1056     WebBrowser_get_Parent,
1057     WebBrowser_get_Container,
1058     WebBrowser_get_Document,
1059     WebBrowser_get_TopLevelContainer,
1060     WebBrowser_get_Type,
1061     WebBrowser_get_Left,
1062     WebBrowser_put_Left,
1063     WebBrowser_get_Top,
1064     WebBrowser_put_Top,
1065     WebBrowser_get_Width,
1066     WebBrowser_put_Width,
1067     WebBrowser_get_Height,
1068     WebBrowser_put_Height,
1069     WebBrowser_get_LocationName,
1070     WebBrowser_get_LocationURL,
1071     WebBrowser_get_Busy,
1072     WebBrowser_Quit,
1073     WebBrowser_ClientToWindow,
1074     WebBrowser_PutProperty,
1075     WebBrowser_GetProperty,
1076     WebBrowser_get_Name,
1077     WebBrowser_get_HWND,
1078     WebBrowser_get_FullName,
1079     WebBrowser_get_Path,
1080     WebBrowser_get_Visible,
1081     WebBrowser_put_Visible,
1082     WebBrowser_get_StatusBar,
1083     WebBrowser_put_StatusBar,
1084     WebBrowser_get_StatusText,
1085     WebBrowser_put_StatusText,
1086     WebBrowser_get_ToolBar,
1087     WebBrowser_put_ToolBar,
1088     WebBrowser_get_MenuBar,
1089     WebBrowser_put_MenuBar,
1090     WebBrowser_get_FullScreen,
1091     WebBrowser_put_FullScreen,
1092     WebBrowser_Navigate2,
1093     WebBrowser_QueryStatusWB,
1094     WebBrowser_ExecWB,
1095     WebBrowser_ShowBrowserBar,
1096     WebBrowser_get_ReadyState,
1097     WebBrowser_get_Offline,
1098     WebBrowser_put_Offline,
1099     WebBrowser_get_Silent,
1100     WebBrowser_put_Silent,
1101     WebBrowser_get_RegisterAsBrowser,
1102     WebBrowser_put_RegisterAsBrowser,
1103     WebBrowser_get_RegisterAsDropTarget,
1104     WebBrowser_put_RegisterAsDropTarget,
1105     WebBrowser_get_TheaterMode,
1106     WebBrowser_put_TheaterMode,
1107     WebBrowser_get_AddressBar,
1108     WebBrowser_put_AddressBar,
1109     WebBrowser_get_Resizable,
1110     WebBrowser_put_Resizable
1111 };
1112
1113 static inline WebBrowser *impl_from_IServiceProvider(IServiceProvider *iface)
1114 {
1115     return CONTAINING_RECORD(iface, WebBrowser, IServiceProvider_iface);
1116 }
1117
1118 static HRESULT WINAPI WBServiceProvider_QueryInterface(IServiceProvider *iface,
1119             REFIID riid, LPVOID *ppv)
1120 {
1121     WebBrowser *This = impl_from_IServiceProvider(iface);
1122     return IWebBrowser2_QueryInterface(&This->IWebBrowser2_iface, riid, ppv);
1123 }
1124
1125 static ULONG WINAPI WBServiceProvider_AddRef(IServiceProvider *iface)
1126 {
1127     WebBrowser *This = impl_from_IServiceProvider(iface);
1128     return IWebBrowser2_AddRef(&This->IWebBrowser2_iface);
1129 }
1130
1131 static ULONG WINAPI WBServiceProvider_Release(IServiceProvider *iface)
1132 {
1133     WebBrowser *This = impl_from_IServiceProvider(iface);
1134     return IWebBrowser2_Release(&This->IWebBrowser2_iface);
1135 }
1136
1137 static HRESULT STDMETHODCALLTYPE WBServiceProvider_QueryService(IServiceProvider *iface,
1138             REFGUID guidService, REFIID riid, void **ppv)
1139 {
1140     WebBrowser *This = impl_from_IServiceProvider(iface);
1141
1142     if(IsEqualGUID(&SID_SHTMLWindow, riid)) {
1143         TRACE("(%p)->(SID_SHTMLWindow)\n", This);
1144         return IHTMLWindow2_QueryInterface(&This->doc_host.html_window.IHTMLWindow2_iface, riid, ppv);
1145     }
1146
1147     if(IsEqualGUID(&IID_IBrowserService2, riid)) {
1148         TRACE("(%p)->(IID_IBrowserService2 return E_FAIL)\n", This);
1149         *ppv = NULL;
1150         return E_FAIL;
1151     }
1152
1153     FIXME("(%p)->(%s, %s %p)\n", This, debugstr_guid(guidService), debugstr_guid(riid), ppv);
1154     *ppv = NULL;
1155     return E_NOINTERFACE;
1156 }
1157
1158 static const IServiceProviderVtbl ServiceProviderVtbl =
1159 {
1160     WBServiceProvider_QueryInterface,
1161     WBServiceProvider_AddRef,
1162     WBServiceProvider_Release,
1163     WBServiceProvider_QueryService
1164 };
1165
1166 static inline WebBrowser *impl_from_DocHost(DocHost *iface)
1167 {
1168     return CONTAINING_RECORD(iface, WebBrowser, doc_host);
1169 }
1170
1171 static ULONG WebBrowser_addref(DocHost *iface)
1172 {
1173     WebBrowser *This = impl_from_DocHost(iface);
1174     return IWebBrowser2_AddRef(&This->IWebBrowser2_iface);
1175 }
1176
1177 static ULONG WebBrowser_release(DocHost *iface)
1178 {
1179     WebBrowser *This = impl_from_DocHost(iface);
1180     return IWebBrowser2_Release(&This->IWebBrowser2_iface);
1181 }
1182
1183 static void WINAPI DocHostContainer_GetDocObjRect(DocHost* This, RECT* rc)
1184 {
1185     GetClientRect(This->frame_hwnd, rc);
1186 }
1187
1188 static HRESULT WINAPI DocHostContainer_SetStatusText(DocHost* This, LPCWSTR text)
1189 {
1190     return E_NOTIMPL;
1191 }
1192
1193 static void WINAPI DocHostContainer_SetURL(DocHost* This, LPCWSTR url)
1194 {
1195
1196 }
1197
1198 static HRESULT DocHostContainer_exec(DocHost *doc_host, const GUID *cmd_group, DWORD cmdid, DWORD execopt, VARIANT *in,
1199         VARIANT *out)
1200 {
1201     WebBrowser *This = impl_from_DocHost(doc_host);
1202     IOleCommandTarget *cmdtrg = NULL;
1203     HRESULT hres;
1204
1205     if(This->client) {
1206         hres = IOleClientSite_QueryInterface(This->client, &IID_IOleCommandTarget, (void**)&cmdtrg);
1207         if(FAILED(hres))
1208             cmdtrg = NULL;
1209     }
1210
1211     if(!cmdtrg && This->container) {
1212         hres = IOleContainer_QueryInterface(This->container, &IID_IOleCommandTarget, (void**)&cmdtrg);
1213         if(FAILED(hres))
1214             cmdtrg = NULL;
1215     }
1216
1217     if(!cmdtrg)
1218         return E_NOTIMPL;
1219
1220     hres = IOleCommandTarget_Exec(cmdtrg, cmd_group, cmdid, execopt, in, out);
1221     IOleCommandTarget_Release(cmdtrg);
1222     if(SUCCEEDED(hres))
1223         TRACE("Exec returned %08x %s\n", hres, debugstr_variant(out));
1224     else
1225         FIXME("Exec failed\n");
1226
1227     return hres;
1228 }
1229
1230 static const IDocHostContainerVtbl DocHostContainerVtbl = {
1231     WebBrowser_addref,
1232     WebBrowser_release,
1233     DocHostContainer_GetDocObjRect,
1234     DocHostContainer_SetStatusText,
1235     DocHostContainer_SetURL,
1236     DocHostContainer_exec
1237 };
1238
1239 static HRESULT create_webbrowser(int version, IUnknown *outer, REFIID riid, void **ppv)
1240 {
1241     WebBrowser *ret;
1242     HRESULT hres;
1243
1244     TRACE("(%p %s %p) version=%d\n", outer, debugstr_guid(riid), ppv, version);
1245
1246     ret = heap_alloc_zero(sizeof(WebBrowser));
1247
1248     ret->IWebBrowser2_iface.lpVtbl = &WebBrowser2Vtbl;
1249     ret->IServiceProvider_iface.lpVtbl = &ServiceProviderVtbl;
1250     ret->ref = 1;
1251     ret->version = version;
1252
1253     DocHost_Init(&ret->doc_host, &ret->IWebBrowser2_iface, &DocHostContainerVtbl);
1254
1255     ret->visible = VARIANT_TRUE;
1256     ret->menu_bar = VARIANT_TRUE;
1257     ret->address_bar = VARIANT_TRUE;
1258     ret->status_bar = VARIANT_TRUE;
1259     ret->tool_bar = VARIANT_TRUE;
1260
1261     WebBrowser_OleObject_Init(ret);
1262     WebBrowser_ViewObject_Init(ret);
1263     WebBrowser_Persist_Init(ret);
1264     WebBrowser_ClassInfo_Init(ret);
1265
1266     HlinkFrame_Init(&ret->hlink_frame, (IUnknown*)&ret->IWebBrowser2_iface, &ret->doc_host);
1267
1268     lock_module();
1269
1270     hres = IWebBrowser2_QueryInterface(&ret->IWebBrowser2_iface, riid, ppv);
1271
1272     IWebBrowser2_Release(&ret->IWebBrowser2_iface);
1273     return hres;
1274 }
1275
1276 HRESULT WINAPI WebBrowserV1_Create(IClassFactory *iface, IUnknown *pOuter, REFIID riid, void **ppv)
1277 {
1278     return create_webbrowser(1, pOuter, riid, ppv);
1279 }
1280
1281 HRESULT WINAPI WebBrowser_Create(IClassFactory *iface, IUnknown *pOuter, REFIID riid, void **ppv)
1282 {
1283     return create_webbrowser(2, pOuter, riid, ppv);
1284 }