git.oblomov.eu Git - wine/blob - 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_IServiceProvider, riid)) {
 106         *ppv = SERVPROV(This);
 107         TRACE("(%p)->(IID_IServiceProvider %p)\n", This, ppv);
 108     }else if(IsEqualGUID(&IID_IQuickActivate, riid)) {
 109         TRACE("(%p)->(IID_IQuickActivate %p) returning NULL\n", This, ppv);
 110         return E_NOINTERFACE;
 111     }else if(IsEqualGUID(&IID_IRunnableObject, riid)) {
 112         TRACE("(%p)->(IID_IRunnableObject %p) returning NULL\n", This, ppv);
 113         return E_NOINTERFACE;
 114     }else if(IsEqualGUID(&IID_IPerPropertyBrowsing, riid)) {
 115         TRACE("(%p)->(IID_IPerPropertyBrowsing %p) returning NULL\n", This, ppv);
 116         return E_NOINTERFACE;
 117     }else if(IsEqualGUID(&IID_IOleCache, riid)) {
 118         TRACE("(%p)->(IID_IOleCache %p) returning NULL\n", This, ppv);
 119         return E_NOINTERFACE;
 120     }else if(IsEqualGUID(&IID_IOleInPlaceSite, riid)) {
 121         TRACE("(%p)->(IID_IOleInPlaceSite %p) returning NULL\n", This, ppv);
 122         return E_NOINTERFACE;
 123     }else if(IsEqualGUID(&IID_IObjectWithSite, riid)) {
 124         TRACE("(%p)->(IID_IObjectWithSite %p) returning NULL\n", This, ppv);
 125         return E_NOINTERFACE;
 126     }else if(IsEqualGUID(&IID_IViewObjectEx, riid)) {
 127         TRACE("(%p)->(IID_IViewObjectEx %p) returning NULL\n", This, ppv);
 128         return E_NOINTERFACE;
 129     }
 130
 131     if(*ppv) {
 132         IUnknown_AddRef((IUnknown*)*ppv);
 133         return S_OK;
 134     }
 135
 136     FIXME("(%p)->(%s %p) interface not supported\n", This, debugstr_guid(riid), ppv);
 137     return E_NOINTERFACE;
 138 }
 139
 140 static ULONG WINAPI WebBrowser_AddRef(IWebBrowser2 *iface)
 141 {
 142     WebBrowser *This = WEBBROWSER_THIS(iface);
 143     LONG ref = InterlockedIncrement(&This->ref);
 144     TRACE("(%p) ref=%d\n", This, ref);
 145     return ref;
 146 }
 147
 148 static ULONG WINAPI WebBrowser_Release(IWebBrowser2 *iface)
 149 {
 150     WebBrowser *This = WEBBROWSER_THIS(iface);
 151     LONG ref = InterlockedDecrement(&This->ref);
 152
 153     TRACE("(%p) ref=%d\n", This, ref);
 154
 155     if(!ref) {
 156         if(This->doc_host.document)
 157             IUnknown_Release(This->doc_host.document);
 158
 159         DocHost_Release(&This->doc_host);
 160
 161         WebBrowser_OleObject_Destroy(This);
 162
 163         heap_free(This);
 164         SHDOCVW_UnlockModule();
 165     }
 166
 167     return ref;
 168 }
 169
 170 /* IDispatch methods */
 171 static HRESULT WINAPI WebBrowser_GetTypeInfoCount(IWebBrowser2 *iface, UINT *pctinfo)
 172 {
 173     WebBrowser *This = WEBBROWSER_THIS(iface);
 174
 175     TRACE("(%p)->(%p)\n", This, pctinfo);
 176
 177     *pctinfo = 1;
 178     return S_OK;
 179 }
 180
 181 static HRESULT WINAPI WebBrowser_GetTypeInfo(IWebBrowser2 *iface, UINT iTInfo, LCID lcid,
 182                                      LPTYPEINFO *ppTInfo)
 183 {
 184     WebBrowser *This = WEBBROWSER_THIS(iface);
 185     ITypeInfo *typeinfo;
 186     HRESULT hres;
 187
 188     TRACE("(%p)->(%d %d %p)\n", This, iTInfo, lcid, ppTInfo);
 189
 190     hres = get_typeinfo(&typeinfo);
 191     if(FAILED(hres))
 192         return hres;
 193
 194     ITypeInfo_AddRef(typeinfo);
 195     *ppTInfo = typeinfo;
 196     return S_OK;
 197 }
 198
 199 static HRESULT WINAPI WebBrowser_GetIDsOfNames(IWebBrowser2 *iface, REFIID riid,
 200                                        LPOLESTR *rgszNames, UINT cNames,
 201                                        LCID lcid, DISPID *rgDispId)
 202 {
 203     WebBrowser *This = WEBBROWSER_THIS(iface);
 204     ITypeInfo *typeinfo;
 205     HRESULT hres;
 206
 207     TRACE("(%p)->(%s %p %d %d %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
 208           lcid, rgDispId);
 209
 210     hres = get_typeinfo(&typeinfo);
 211     if(FAILED(hres))
 212         return hres;
 213
 214     return ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
 215 }
 216
 217 static HRESULT WINAPI WebBrowser_Invoke(IWebBrowser2 *iface, DISPID dispIdMember,
 218                                 REFIID riid, LCID lcid, WORD wFlags,
 219                                 DISPPARAMS *pDispParams, VARIANT *pVarResult,
 220                                 EXCEPINFO *pExepInfo, UINT *puArgErr)
 221 {
 222     WebBrowser *This = WEBBROWSER_THIS(iface);
 223     ITypeInfo *typeinfo;
 224     HRESULT hres;
 225
 226     TRACE("(%p)->(%d %s %d %08x %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
 227             lcid, wFlags, pDispParams, pVarResult, pExepInfo, puArgErr);
 228
 229     hres = get_typeinfo(&typeinfo);
 230     if(FAILED(hres))
 231         return hres;
 232
 233     return ITypeInfo_Invoke(typeinfo, WEBBROWSER2(This), dispIdMember, wFlags, pDispParams,
 234                             pVarResult, pExepInfo, puArgErr);
 235 }
 236
 237 /* IWebBrowser methods */
 238 static HRESULT WINAPI WebBrowser_GoBack(IWebBrowser2 *iface)
 239 {
 240     WebBrowser *This = WEBBROWSER_THIS(iface);
 241     FIXME("(%p)\n", This);
 242     return E_NOTIMPL;
 243 }
 244
 245 static HRESULT WINAPI WebBrowser_GoForward(IWebBrowser2 *iface)
 246 {
 247     WebBrowser *This = WEBBROWSER_THIS(iface);
 248     FIXME("(%p)\n", This);
 249     return E_NOTIMPL;
 250 }
 251
 252 static HRESULT WINAPI WebBrowser_GoHome(IWebBrowser2 *iface)
 253 {
 254     WebBrowser *This = WEBBROWSER_THIS(iface);
 255     TRACE("(%p)\n", This);
 256     return go_home(&This->doc_host);
 257 }
 258
 259 static HRESULT WINAPI WebBrowser_GoSearch(IWebBrowser2 *iface)
 260 {
 261     WebBrowser *This = WEBBROWSER_THIS(iface);
 262     FIXME("(%p)\n", This);
 263     return E_NOTIMPL;
 264 }
 265
 266 static HRESULT WINAPI WebBrowser_Navigate(IWebBrowser2 *iface, BSTR szUrl,
 267                                   VARIANT *Flags, VARIANT *TargetFrameName,
 268                                   VARIANT *PostData, VARIANT *Headers)
 269 {
 270     WebBrowser *This = WEBBROWSER_THIS(iface);
 271
 272     TRACE("(%p)->(%s %p %p %p %p)\n", This, debugstr_w(szUrl), Flags, TargetFrameName,
 273           PostData, Headers);
 274
 275     return navigate_url(&This->doc_host, szUrl, Flags, TargetFrameName, PostData, Headers);
 276 }
 277
 278 static HRESULT WINAPI WebBrowser_Refresh(IWebBrowser2 *iface)
 279 {
 280     WebBrowser *This = WEBBROWSER_THIS(iface);
 281     FIXME("(%p)\n", This);
 282     return E_NOTIMPL;
 283 }
 284
 285 static HRESULT WINAPI WebBrowser_Refresh2(IWebBrowser2 *iface, VARIANT *Level)
 286 {
 287     WebBrowser *This = WEBBROWSER_THIS(iface);
 288     FIXME("(%p)->(%p)\n", This, Level);
 289     return E_NOTIMPL;
 290 }
 291
 292 static HRESULT WINAPI WebBrowser_Stop(IWebBrowser2 *iface)
 293 {
 294     WebBrowser *This = WEBBROWSER_THIS(iface);
 295     FIXME("(%p)\n", This);
 296     return E_NOTIMPL;
 297 }
 298
 299 static HRESULT WINAPI WebBrowser_get_Application(IWebBrowser2 *iface, IDispatch **ppDisp)
 300 {
 301     WebBrowser *This = WEBBROWSER_THIS(iface);
 302
 303     TRACE("(%p)->(%p)\n", This, ppDisp);
 304
 305     if(!ppDisp)
 306         return E_POINTER;
 307
 308     *ppDisp = (IDispatch*)WEBBROWSER2(This);
 309     IDispatch_AddRef(*ppDisp);
 310     return S_OK;
 311 }
 312
 313 static HRESULT WINAPI WebBrowser_get_Parent(IWebBrowser2 *iface, IDispatch **ppDisp)
 314 {
 315     WebBrowser *This = WEBBROWSER_THIS(iface);
 316     FIXME("(%p)->(%p)\n", This, ppDisp);
 317     return E_NOTIMPL;
 318 }
 319
 320 static HRESULT WINAPI WebBrowser_get_Container(IWebBrowser2 *iface, IDispatch **ppDisp)
 321 {
 322     WebBrowser *This = WEBBROWSER_THIS(iface);
 323     FIXME("(%p)->(%p)\n", This, ppDisp);
 324     return E_NOTIMPL;
 325 }
 326
 327 static HRESULT WINAPI WebBrowser_get_Document(IWebBrowser2 *iface, IDispatch **ppDisp)
 328 {
 329     WebBrowser *This = WEBBROWSER_THIS(iface);
 330
 331     TRACE("(%p)->(%p)\n", This, ppDisp);
 332
 333     *ppDisp = NULL;
 334     if(This->doc_host.document)
 335         IUnknown_QueryInterface(This->doc_host.document, &IID_IDispatch, (void**)ppDisp);
 336
 337     return S_OK;
 338 }
 339
 340 static HRESULT WINAPI WebBrowser_get_TopLevelContainer(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 341 {
 342     WebBrowser *This = WEBBROWSER_THIS(iface);
 343     FIXME("(%p)->(%p)\n", This, pBool);
 344     return E_NOTIMPL;
 345 }
 346
 347 static HRESULT WINAPI WebBrowser_get_Type(IWebBrowser2 *iface, BSTR *Type)
 348 {
 349     WebBrowser *This = WEBBROWSER_THIS(iface);
 350     FIXME("(%p)->(%p)\n", This, Type);
 351     return E_NOTIMPL;
 352 }
 353
 354 static HRESULT WINAPI WebBrowser_get_Left(IWebBrowser2 *iface, LONG *pl)
 355 {
 356     WebBrowser *This = WEBBROWSER_THIS(iface);
 357
 358     TRACE("(%p)->(%p)\n", This, pl);
 359
 360     *pl = This->pos_rect.left;
 361     return S_OK;
 362 }
 363
 364 static HRESULT WINAPI WebBrowser_put_Left(IWebBrowser2 *iface, LONG Left)
 365 {
 366     WebBrowser *This = WEBBROWSER_THIS(iface);
 367     RECT rect;
 368
 369     TRACE("(%p)->(%d)\n", This, Left);
 370
 371     if(!This->inplace)
 372         return E_UNEXPECTED;
 373
 374     rect = This->pos_rect;
 375     rect.left = Left;
 376
 377     /* We don't really change the window position here.
 378      * We just notify the embedder that he should do so. */
 379     return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
 380 }
 381
 382 static HRESULT WINAPI WebBrowser_get_Top(IWebBrowser2 *iface, LONG *pl)
 383 {
 384     WebBrowser *This = WEBBROWSER_THIS(iface);
 385
 386     TRACE("(%p)->(%p)\n", This, pl);
 387
 388     *pl = This->pos_rect.top;
 389     return S_OK;
 390 }
 391
 392 static HRESULT WINAPI WebBrowser_put_Top(IWebBrowser2 *iface, LONG Top)
 393 {
 394     WebBrowser *This = WEBBROWSER_THIS(iface);
 395     RECT rect;
 396
 397     TRACE("(%p)->(%d)\n", This, Top);
 398
 399     if(!This->inplace)
 400         return E_UNEXPECTED;
 401
 402     rect = This->pos_rect;
 403     rect.top = Top;
 404
 405     /* We don't really change the window position here.
 406      * We just notify the embedder that he should do so. */
 407     return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
 408 }
 409
 410 static HRESULT WINAPI WebBrowser_get_Width(IWebBrowser2 *iface, LONG *pl)
 411 {
 412     WebBrowser *This = WEBBROWSER_THIS(iface);
 413
 414     TRACE("(%p)->(%p)\n", This, pl);
 415
 416     *pl = This->pos_rect.right - This->pos_rect.left;
 417     return S_OK;
 418 }
 419
 420 static HRESULT WINAPI WebBrowser_put_Width(IWebBrowser2 *iface, LONG Width)
 421 {
 422     WebBrowser *This = WEBBROWSER_THIS(iface);
 423     RECT rect;
 424
 425     TRACE("(%p)->(%d)\n", This, Width);
 426
 427     if(!This->inplace)
 428         return E_UNEXPECTED;
 429
 430     rect = This->pos_rect;
 431     rect.right = rect.left+Width;
 432
 433     /* We don't really change the window size here.
 434      * We just notify the embedder that he should do so. */
 435    return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
 436 }
 437
 438 static HRESULT WINAPI WebBrowser_get_Height(IWebBrowser2 *iface, LONG *pl)
 439 {
 440     WebBrowser *This = WEBBROWSER_THIS(iface);
 441
 442     TRACE("(%p)->(%p)\n", This, pl);
 443
 444     *pl = This->pos_rect.bottom - This->pos_rect.top;
 445     return S_OK;
 446 }
 447
 448 static HRESULT WINAPI WebBrowser_put_Height(IWebBrowser2 *iface, LONG Height)
 449 {
 450     WebBrowser *This = WEBBROWSER_THIS(iface);
 451     RECT rect;
 452
 453     TRACE("(%p)->(%d)\n", This, Height);
 454
 455     if(!This->inplace)
 456         return E_UNEXPECTED;
 457
 458     rect = This->pos_rect;
 459     rect.bottom = rect.top+Height;
 460
 461     /* We don't really change the window size here.
 462      * We just notify the embedder that he should do so. */
 463     return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
 464 }
 465
 466 static HRESULT WINAPI WebBrowser_get_LocationName(IWebBrowser2 *iface, BSTR *LocationName)
 467 {
 468     WebBrowser *This = WEBBROWSER_THIS(iface);
 469     FIXME("(%p)->(%p)\n", This, LocationName);
 470     return E_NOTIMPL;
 471 }
 472
 473 static HRESULT WINAPI WebBrowser_get_LocationURL(IWebBrowser2 *iface, BSTR *LocationURL)
 474 {
 475     WebBrowser *This = WEBBROWSER_THIS(iface);
 476
 477     FIXME("(%p)->(%p)\n", This, LocationURL);
 478
 479     if(!This->doc_host.url) {
 480         static const WCHAR null_char = 0;
 481         *LocationURL = SysAllocString(&null_char);
 482         return S_FALSE;
 483     }
 484
 485     *LocationURL = SysAllocString(This->doc_host.url);
 486     return S_OK;
 487 }
 488
 489 static HRESULT WINAPI WebBrowser_get_Busy(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 490 {
 491     WebBrowser *This = WEBBROWSER_THIS(iface);
 492
 493     TRACE("(%p)->(%p)\n", This, pBool);
 494
 495     *pBool = This->doc_host.busy;
 496     return S_OK;
 497 }
 498
 499 static HRESULT WINAPI WebBrowser_Quit(IWebBrowser2 *iface)
 500 {
 501     WebBrowser *This = WEBBROWSER_THIS(iface);
 502
 503     TRACE("(%p)\n", This);
 504
 505     /* It's a InternetExplorer specific method, we have nothing to do here. */
 506     return E_FAIL;
 507 }
 508
 509 static HRESULT WINAPI WebBrowser_ClientToWindow(IWebBrowser2 *iface, int *pcx, int *pcy)
 510 {
 511     WebBrowser *This = WEBBROWSER_THIS(iface);
 512     FIXME("(%p)->(%p %p)\n", This, pcx, pcy);
 513     return E_NOTIMPL;
 514 }
 515
 516 static HRESULT WINAPI WebBrowser_PutProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT vtValue)
 517 {
 518     WebBrowser *This = WEBBROWSER_THIS(iface);
 519     FIXME("(%p)->(%s)\n", This, debugstr_w(szProperty));
 520     return E_NOTIMPL;
 521 }
 522
 523 static HRESULT WINAPI WebBrowser_GetProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT *pvtValue)
 524 {
 525     WebBrowser *This = WEBBROWSER_THIS(iface);
 526     FIXME("(%p)->(%s %p)\n", This, debugstr_w(szProperty), pvtValue);
 527     return E_NOTIMPL;
 528 }
 529
 530 static HRESULT WINAPI WebBrowser_get_Name(IWebBrowser2 *iface, BSTR *Name)
 531 {
 532     WebBrowser *This = WEBBROWSER_THIS(iface);
 533     FIXME("(%p)->(%p)\n", This, Name);
 534     return E_NOTIMPL;
 535 }
 536
 537 static HRESULT WINAPI WebBrowser_get_HWND(IWebBrowser2 *iface, LONG *pHWND)
 538 {
 539     WebBrowser *This = WEBBROWSER_THIS(iface);
 540
 541     TRACE("(%p)->(%p)\n", This, pHWND);
 542
 543     /* WebBrowser control never has a frame window (in opposition to InternetExplorer) */
 544     *pHWND = 0;
 545     return E_FAIL;
 546 }
 547
 548 static HRESULT WINAPI WebBrowser_get_FullName(IWebBrowser2 *iface, BSTR *FullName)
 549 {
 550     WebBrowser *This = WEBBROWSER_THIS(iface);
 551     FIXME("(%p)->(%p)\n", This, FullName);
 552     return E_NOTIMPL;
 553 }
 554
 555 static HRESULT WINAPI WebBrowser_get_Path(IWebBrowser2 *iface, BSTR *Path)
 556 {
 557     WebBrowser *This = WEBBROWSER_THIS(iface);
 558     FIXME("(%p)->(%p)\n", This, Path);
 559     return E_NOTIMPL;
 560 }
 561
 562 static HRESULT WINAPI WebBrowser_get_Visible(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 563 {
 564     WebBrowser *This = WEBBROWSER_THIS(iface);
 565
 566     TRACE("(%p)->(%p)\n", This, pBool);
 567
 568     *pBool = This->visible;
 569     return S_OK;
 570 }
 571
 572 static HRESULT WINAPI WebBrowser_put_Visible(IWebBrowser2 *iface, VARIANT_BOOL Value)
 573 {
 574     WebBrowser *This = WEBBROWSER_THIS(iface);
 575     VARIANTARG arg;
 576     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 577
 578     TRACE("(%p)->(%x)\n", This, Value);
 579
 580     This->visible = Value;
 581
 582     V_VT(&arg) = VT_BOOL;
 583     V_BOOL(&arg) = Value;
 584     call_sink(This->doc_host.cps.wbe2, DISPID_ONVISIBLE, &dispparams);
 585
 586     return S_OK;
 587 }
 588
 589 static HRESULT WINAPI WebBrowser_get_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 590 {
 591     WebBrowser *This = WEBBROWSER_THIS(iface);
 592
 593     TRACE("(%p)->(%p)\n", This, pBool);
 594
 595     *pBool = This->status_bar;
 596     return S_OK;
 597 }
 598
 599 static HRESULT WINAPI WebBrowser_put_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 600 {
 601     WebBrowser *This = WEBBROWSER_THIS(iface);
 602     VARIANTARG arg;
 603     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 604
 605     TRACE("(%p)->(%x)\n", This, Value);
 606
 607     This->status_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
 608
 609     /* In opposition to InternetExplorer, all we should do here is
 610      * inform the embedder about the status bar change. */
 611
 612     V_VT(&arg) = VT_BOOL;
 613     V_BOOL(&arg) = Value;
 614     call_sink(This->doc_host.cps.wbe2, DISPID_ONSTATUSBAR, &dispparams);
 615
 616     return S_OK;
 617 }
 618
 619 static HRESULT WINAPI WebBrowser_get_StatusText(IWebBrowser2 *iface, BSTR *StatusText)
 620 {
 621     WebBrowser *This = WEBBROWSER_THIS(iface);
 622     FIXME("(%p)->(%p)\n", This, StatusText);
 623     return E_NOTIMPL;
 624 }
 625
 626 static HRESULT WINAPI WebBrowser_put_StatusText(IWebBrowser2 *iface, BSTR StatusText)
 627 {
 628     WebBrowser *This = WEBBROWSER_THIS(iface);
 629     FIXME("(%p)->(%s)\n", This, debugstr_w(StatusText));
 630     return E_NOTIMPL;
 631 }
 632
 633 static HRESULT WINAPI WebBrowser_get_ToolBar(IWebBrowser2 *iface, int *Value)
 634 {
 635     WebBrowser *This = WEBBROWSER_THIS(iface);
 636
 637     TRACE("(%p)->(%p)\n", This, Value);
 638
 639     *Value = This->tool_bar;
 640     return S_OK;
 641 }
 642
 643 static HRESULT WINAPI WebBrowser_put_ToolBar(IWebBrowser2 *iface, int Value)
 644 {
 645     WebBrowser *This = WEBBROWSER_THIS(iface);
 646     VARIANTARG arg;
 647     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 648
 649     TRACE("(%p)->(%x)\n", This, Value);
 650
 651     This->tool_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
 652
 653     /* In opposition to InternetExplorer, all we should do here is
 654      * inform the embedder about the tool bar change. */
 655
 656     V_VT(&arg) = VT_BOOL;
 657     V_BOOL(&arg) = This->tool_bar;
 658     call_sink(This->doc_host.cps.wbe2, DISPID_ONTOOLBAR, &dispparams);
 659
 660     return S_OK;
 661 }
 662
 663 static HRESULT WINAPI WebBrowser_get_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 664 {
 665     WebBrowser *This = WEBBROWSER_THIS(iface);
 666
 667     TRACE("(%p)->(%p)\n", This, Value);
 668
 669     *Value = This->menu_bar;
 670     return S_OK;
 671 }
 672
 673 static HRESULT WINAPI WebBrowser_put_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 674 {
 675     WebBrowser *This = WEBBROWSER_THIS(iface);
 676     VARIANTARG arg;
 677     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 678
 679     TRACE("(%p)->(%x)\n", This, Value);
 680
 681     This->menu_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
 682
 683     /* In opposition to InternetExplorer, all we should do here is
 684      * inform the embedder about the menu bar change. */
 685
 686     V_VT(&arg) = VT_BOOL;
 687     V_BOOL(&arg) = Value;
 688     call_sink(This->doc_host.cps.wbe2, DISPID_ONMENUBAR, &dispparams);
 689
 690     return S_OK;
 691 }
 692
 693 static HRESULT WINAPI WebBrowser_get_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL *pbFullScreen)
 694 {
 695     WebBrowser *This = WEBBROWSER_THIS(iface);
 696
 697     TRACE("(%p)->(%p)\n", This, pbFullScreen);
 698
 699     *pbFullScreen = This->full_screen;
 700     return S_OK;
 701 }
 702
 703 static HRESULT WINAPI WebBrowser_put_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL bFullScreen)
 704 {
 705     WebBrowser *This = WEBBROWSER_THIS(iface);
 706     VARIANTARG arg;
 707     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 708
 709     /* In opposition to InternetExplorer, all we should do here is
 710      * inform the embedder about the fullscreen change. */
 711
 712     TRACE("(%p)->(%x)\n", This, bFullScreen);
 713
 714     This->full_screen = bFullScreen ? VARIANT_TRUE : VARIANT_FALSE;
 715
 716     V_VT(&arg) = VT_BOOL;
 717     V_BOOL(&arg) = bFullScreen;
 718     call_sink(This->doc_host.cps.wbe2, DISPID_ONFULLSCREEN, &dispparams);
 719
 720     return S_OK;
 721 }
 722
 723 static HRESULT WINAPI WebBrowser_Navigate2(IWebBrowser2 *iface, VARIANT *URL, VARIANT *Flags,
 724         VARIANT *TargetFrameName, VARIANT *PostData, VARIANT *Headers)
 725 {
 726     WebBrowser *This = WEBBROWSER_THIS(iface);
 727     LPCWSTR url;
 728
 729     TRACE("(%p)->(%p %p %p %p %p)\n", This, URL, Flags, TargetFrameName, PostData, Headers);
 730
 731     if(!This->client)
 732         return E_FAIL;
 733
 734     if(!URL)
 735         return S_OK;
 736
 737     switch (V_VT(URL))
 738     {
 739     case VT_BSTR:
 740         url = V_BSTR(URL);
 741         break;
 742     case VT_BSTR|VT_BYREF:
 743         url = *V_BSTRREF(URL);
 744         break;
 745     default:
 746         FIXME("Unsupported V_VT(URL) %d\n", V_VT(URL));
 747         return E_INVALIDARG;
 748     }
 749
 750     return navigate_url(&This->doc_host, url, Flags, TargetFrameName, PostData, Headers);
 751 }
 752
 753 static HRESULT WINAPI WebBrowser_QueryStatusWB(IWebBrowser2 *iface, OLECMDID cmdID, OLECMDF *pcmdf)
 754 {
 755     WebBrowser *This = WEBBROWSER_THIS(iface);
 756     FIXME("(%p)->(%d %p)\n", This, cmdID, pcmdf);
 757     return E_NOTIMPL;
 758 }
 759
 760 static HRESULT WINAPI WebBrowser_ExecWB(IWebBrowser2 *iface, OLECMDID cmdID,
 761         OLECMDEXECOPT cmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
 762 {
 763     WebBrowser *This = WEBBROWSER_THIS(iface);
 764     FIXME("(%p)->(%d %d %p %p)\n", This, cmdID, cmdexecopt, pvaIn, pvaOut);
 765     return E_NOTIMPL;
 766 }
 767
 768 static HRESULT WINAPI WebBrowser_ShowBrowserBar(IWebBrowser2 *iface, VARIANT *pvaClsid,
 769         VARIANT *pvarShow, VARIANT *pvarSize)
 770 {
 771     WebBrowser *This = WEBBROWSER_THIS(iface);
 772     FIXME("(%p)->(%p %p %p)\n", This, pvaClsid, pvarShow, pvarSize);
 773     return E_NOTIMPL;
 774 }
 775
 776 static HRESULT WINAPI WebBrowser_get_ReadyState(IWebBrowser2 *iface, READYSTATE *lpReadyState)
 777 {
 778     WebBrowser *This = WEBBROWSER_THIS(iface);
 779
 780     TRACE("(%p)->(%p)\n", This, lpReadyState);
 781
 782     *lpReadyState = This->doc_host.ready_state;
 783     return S_OK;
 784 }
 785
 786 static HRESULT WINAPI WebBrowser_get_Offline(IWebBrowser2 *iface, VARIANT_BOOL *pbOffline)
 787 {
 788     WebBrowser *This = WEBBROWSER_THIS(iface);
 789
 790     TRACE("(%p)->(%p)\n", This, pbOffline);
 791
 792     *pbOffline = This->doc_host.offline;
 793     return S_OK;
 794 }
 795
 796 static HRESULT WINAPI WebBrowser_put_Offline(IWebBrowser2 *iface, VARIANT_BOOL bOffline)
 797 {
 798     WebBrowser *This = WEBBROWSER_THIS(iface);
 799
 800     TRACE("(%p)->(%x)\n", This, bOffline);
 801
 802     This->doc_host.offline = bOffline ? VARIANT_TRUE : VARIANT_FALSE;
 803     return S_OK;
 804 }
 805
 806 static HRESULT WINAPI WebBrowser_get_Silent(IWebBrowser2 *iface, VARIANT_BOOL *pbSilent)
 807 {
 808     WebBrowser *This = WEBBROWSER_THIS(iface);
 809
 810     TRACE("(%p)->(%p)\n", This, pbSilent);
 811
 812     *pbSilent = This->doc_host.silent;
 813     return S_OK;
 814 }
 815
 816 static HRESULT WINAPI WebBrowser_put_Silent(IWebBrowser2 *iface, VARIANT_BOOL bSilent)
 817 {
 818     WebBrowser *This = WEBBROWSER_THIS(iface);
 819
 820     TRACE("(%p)->(%x)\n", This, bSilent);
 821
 822     This->doc_host.silent = bSilent ? VARIANT_TRUE : VARIANT_FALSE;
 823     return S_OK;
 824 }
 825
 826 static HRESULT WINAPI WebBrowser_get_RegisterAsBrowser(IWebBrowser2 *iface,
 827         VARIANT_BOOL *pbRegister)
 828 {
 829     WebBrowser *This = WEBBROWSER_THIS(iface);
 830
 831     FIXME("(%p)->(%p)\n", This, pbRegister);
 832
 833     *pbRegister = This->register_browser;
 834     return S_OK;
 835 }
 836
 837 static HRESULT WINAPI WebBrowser_put_RegisterAsBrowser(IWebBrowser2 *iface,
 838         VARIANT_BOOL bRegister)
 839 {
 840     WebBrowser *This = WEBBROWSER_THIS(iface);
 841
 842     FIXME("(%p)->(%x)\n", This, bRegister);
 843
 844     This->register_browser = bRegister ? VARIANT_TRUE : VARIANT_FALSE;
 845     return S_OK;
 846 }
 847
 848 static HRESULT WINAPI WebBrowser_get_RegisterAsDropTarget(IWebBrowser2 *iface,
 849         VARIANT_BOOL *pbRegister)
 850 {
 851     WebBrowser *This = WEBBROWSER_THIS(iface);
 852     FIXME("(%p)->(%p)\n", This, pbRegister);
 853     *pbRegister=0;
 854     return S_OK;
 855 }
 856
 857 static HRESULT WINAPI WebBrowser_put_RegisterAsDropTarget(IWebBrowser2 *iface,
 858         VARIANT_BOOL bRegister)
 859 {
 860     WebBrowser *This = WEBBROWSER_THIS(iface);
 861     FIXME("(%p)->(%x)\n", This, bRegister);
 862     return S_OK;
 863 }
 864
 865 static HRESULT WINAPI WebBrowser_get_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL *pbRegister)
 866 {
 867     WebBrowser *This = WEBBROWSER_THIS(iface);
 868
 869     TRACE("(%p)->(%p)\n", This, pbRegister);
 870
 871     *pbRegister = This->theater_mode;
 872     return S_OK;
 873 }
 874
 875 static HRESULT WINAPI WebBrowser_put_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL bRegister)
 876 {
 877     WebBrowser *This = WEBBROWSER_THIS(iface);
 878     VARIANTARG arg;
 879     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 880
 881     TRACE("(%p)->(%x)\n", This, bRegister);
 882
 883     This->theater_mode = bRegister ? VARIANT_TRUE : VARIANT_FALSE;
 884
 885     /* In opposition to InternetExplorer, all we should do here is
 886      * inform the embedder about the theater mode change. */
 887
 888     V_VT(&arg) = VT_BOOL;
 889     V_BOOL(&arg) = bRegister;
 890     call_sink(This->doc_host.cps.wbe2, DISPID_ONTHEATERMODE, &dispparams);
 891
 892     return S_OK;
 893 }
 894
 895 static HRESULT WINAPI WebBrowser_get_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 896 {
 897     WebBrowser *This = WEBBROWSER_THIS(iface);
 898
 899     TRACE("(%p)->(%p)\n", This, Value);
 900
 901     *Value = This->address_bar;
 902     return S_OK;
 903 }
 904
 905 static HRESULT WINAPI WebBrowser_put_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 906 {
 907     WebBrowser *This = WEBBROWSER_THIS(iface);
 908     VARIANTARG arg;
 909     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 910
 911     TRACE("(%p)->(%x)\n", This, Value);
 912
 913     This->address_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
 914
 915     /* In opposition to InternetExplorer, all we should do here is
 916      * inform the embedder about the address bar change. */
 917
 918     V_VT(&arg) = VT_BOOL;
 919     V_BOOL(&arg) = Value;
 920     call_sink(This->doc_host.cps.wbe2, DISPID_ONADDRESSBAR, &dispparams);
 921
 922     return S_OK;
 923 }
 924
 925 static HRESULT WINAPI WebBrowser_get_Resizable(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 926 {
 927     WebBrowser *This = WEBBROWSER_THIS(iface);
 928
 929     TRACE("(%p)->(%p)\n", This, Value);
 930
 931     /* It's InternetExplorer object's method. We have nothing to do here. */
 932     return E_NOTIMPL;
 933 }
 934
 935 static HRESULT WINAPI WebBrowser_put_Resizable(IWebBrowser2 *iface, VARIANT_BOOL Value)
 936 {
 937     WebBrowser *This = WEBBROWSER_THIS(iface);
 938     VARIANTARG arg;
 939     DISPPARAMS dispparams = {&arg, NULL, 1, 0};
 940
 941     TRACE("(%p)->(%x)\n", This, Value);
 942
 943     /* In opposition to InternetExplorer, all we should do here is
 944      * inform the embedder about the resizable change. */
 945
 946     V_VT(&arg) = VT_BOOL;
 947     V_BOOL(&arg) = Value;
 948     call_sink(This->doc_host.cps.wbe2, DISPID_WINDOWSETRESIZABLE, &dispparams);
 949
 950     return S_OK;
 951 }
 952
 953 #undef WEBBROWSER_THIS
 954
 955 static const IWebBrowser2Vtbl WebBrowser2Vtbl =
 956 {
 957     WebBrowser_QueryInterface,
 958     WebBrowser_AddRef,
 959     WebBrowser_Release,
 960     WebBrowser_GetTypeInfoCount,
 961     WebBrowser_GetTypeInfo,
 962     WebBrowser_GetIDsOfNames,
 963     WebBrowser_Invoke,
 964     WebBrowser_GoBack,
 965     WebBrowser_GoForward,
 966     WebBrowser_GoHome,
 967     WebBrowser_GoSearch,
 968     WebBrowser_Navigate,
 969     WebBrowser_Refresh,
 970     WebBrowser_Refresh2,
 971     WebBrowser_Stop,
 972     WebBrowser_get_Application,
 973     WebBrowser_get_Parent,
 974     WebBrowser_get_Container,
 975     WebBrowser_get_Document,
 976     WebBrowser_get_TopLevelContainer,
 977     WebBrowser_get_Type,
 978     WebBrowser_get_Left,
 979     WebBrowser_put_Left,
 980     WebBrowser_get_Top,
 981     WebBrowser_put_Top,
 982     WebBrowser_get_Width,
 983     WebBrowser_put_Width,
 984     WebBrowser_get_Height,
 985     WebBrowser_put_Height,
 986     WebBrowser_get_LocationName,
 987     WebBrowser_get_LocationURL,
 988     WebBrowser_get_Busy,
 989     WebBrowser_Quit,
 990     WebBrowser_ClientToWindow,
 991     WebBrowser_PutProperty,
 992     WebBrowser_GetProperty,
 993     WebBrowser_get_Name,
 994     WebBrowser_get_HWND,
 995     WebBrowser_get_FullName,
 996     WebBrowser_get_Path,
 997     WebBrowser_get_Visible,
 998     WebBrowser_put_Visible,
 999     WebBrowser_get_StatusBar,
1000     WebBrowser_put_StatusBar,
1001     WebBrowser_get_StatusText,
1002     WebBrowser_put_StatusText,
1003     WebBrowser_get_ToolBar,
1004     WebBrowser_put_ToolBar,
1005     WebBrowser_get_MenuBar,
1006     WebBrowser_put_MenuBar,
1007     WebBrowser_get_FullScreen,
1008     WebBrowser_put_FullScreen,
1009     WebBrowser_Navigate2,
1010     WebBrowser_QueryStatusWB,
1011     WebBrowser_ExecWB,
1012     WebBrowser_ShowBrowserBar,
1013     WebBrowser_get_ReadyState,
1014     WebBrowser_get_Offline,
1015     WebBrowser_put_Offline,
1016     WebBrowser_get_Silent,
1017     WebBrowser_put_Silent,
1018     WebBrowser_get_RegisterAsBrowser,
1019     WebBrowser_put_RegisterAsBrowser,
1020     WebBrowser_get_RegisterAsDropTarget,
1021     WebBrowser_put_RegisterAsDropTarget,
1022     WebBrowser_get_TheaterMode,
1023     WebBrowser_put_TheaterMode,
1024     WebBrowser_get_AddressBar,
1025     WebBrowser_put_AddressBar,
1026     WebBrowser_get_Resizable,
1027     WebBrowser_put_Resizable
1028 };
1029
1030 #define SERVPROV_THIS(iface) DEFINE_THIS(WebBrowser, OleObject, iface)
1031 /*
1032  *  IServiceProvider interface.
1033  */
1034 static HRESULT WINAPI WebBrowser_IServiceProvider_QueryInterface(IServiceProvider *iface,
1035             REFIID riid, LPVOID *ppv)
1036 {
1037     WebBrowser *This = SERVPROV_THIS(iface);
1038
1039     if (ppv == NULL)
1040         return E_POINTER;
1041     *ppv = NULL;
1042
1043     if(IsEqualGUID(&IID_IUnknown, riid)) {
1044         *ppv = WEBBROWSER(This);
1045         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
1046     }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
1047         *ppv = WEBBROWSER(This);
1048         TRACE("(%p)->(IID_IServiceProvider %p)\n", This, ppv);
1049     }
1050
1051     if(*ppv) {
1052         IUnknown_AddRef((IUnknown*)*ppv);
1053         return S_OK;
1054     }
1055
1056     FIXME("(%p)->(%s %p) interface not supported\n", This, debugstr_guid(riid), ppv);
1057     return E_NOINTERFACE;
1058 }
1059
1060 static ULONG WINAPI WebBrowser_IServiceProvider_AddRef(IServiceProvider *iface)
1061 {
1062     WebBrowser *This = SERVPROV_THIS(iface);
1063     return IWebBrowser_AddRef(WEBBROWSER(This));
1064 }
1065
1066 static ULONG WINAPI WebBrowser_IServiceProvider_Release(IServiceProvider *iface)
1067 {
1068     WebBrowser *This = SERVPROV_THIS(iface);
1069     return IWebBrowser_Release(WEBBROWSER(This));
1070 }
1071
1072 static HRESULT STDMETHODCALLTYPE WebBrowser_IServiceProvider_QueryService(IServiceProvider *iface,
1073             REFGUID guidService, REFIID riid, void **ppv)
1074 {
1075     WebBrowser *This = SERVPROV_THIS(iface);
1076     static const IID IID_IBrowserService2 =
1077         {0x68BD21CC,0x438B,0x11d2,{0xA5,0x60,0x00,0xA0,0xC,0x2D,0xBF,0xE8}};
1078
1079     if(*ppv)
1080         ppv = NULL;
1081
1082     if(IsEqualGUID(&IID_IBrowserService2, riid)) {
1083         TRACE("(%p)->(IID_IBrowserService2 return E_FAIL)\n", This);
1084         return E_FAIL;
1085     }
1086
1087     FIXME("(%p)->(%s, %s %p)\n", This, debugstr_guid(guidService), debugstr_guid(riid), ppv);
1088
1089     return E_NOINTERFACE;
1090 }
1091
1092 #undef SERVPROV_THIS
1093
1094 static const IServiceProviderVtbl ServiceProviderVtbl =
1095 {
1096     WebBrowser_IServiceProvider_QueryInterface,
1097     WebBrowser_IServiceProvider_AddRef,
1098     WebBrowser_IServiceProvider_Release,
1099     WebBrowser_IServiceProvider_QueryService
1100 };
1101
1102 static HRESULT WebBrowser_Create(INT version, IUnknown *pOuter, REFIID riid, void **ppv)
1103 {
1104     WebBrowser *ret;
1105     HRESULT hres;
1106
1107     TRACE("(%p %s %p) version=%d\n", pOuter, debugstr_guid(riid), ppv, version);
1108
1109     ret = heap_alloc(sizeof(WebBrowser));
1110
1111     ret->lpWebBrowser2Vtbl = &WebBrowser2Vtbl;
1112     ret->lpServiceProviderVtbl = &ServiceProviderVtbl;
1113     ret->ref = 0;
1114     ret->version = version;
1115
1116     DocHost_Init(&ret->doc_host, (IDispatch*)WEBBROWSER2(ret));
1117
1118     ret->register_browser = VARIANT_FALSE;
1119     ret->visible = VARIANT_TRUE;
1120     ret->menu_bar = VARIANT_TRUE;
1121     ret->address_bar = VARIANT_TRUE;
1122     ret->status_bar = VARIANT_TRUE;
1123     ret->tool_bar = VARIANT_TRUE;
1124     ret->full_screen = VARIANT_FALSE;
1125     ret->theater_mode = VARIANT_FALSE;
1126
1127     WebBrowser_OleObject_Init(ret);
1128     WebBrowser_ViewObject_Init(ret);
1129     WebBrowser_Persist_Init(ret);
1130     WebBrowser_ClassInfo_Init(ret);
1131     WebBrowser_HlinkFrame_Init(ret);
1132
1133     hres = IWebBrowser_QueryInterface(WEBBROWSER(ret), riid, ppv);
1134     if(SUCCEEDED(hres)) {
1135         SHDOCVW_LockModule();
1136     }else {
1137         heap_free(ret);
1138         return hres;
1139     }
1140
1141     return hres;
1142 }
1143
1144 HRESULT WebBrowserV1_Create(IUnknown *pOuter, REFIID riid, void **ppv)
1145 {
1146     return WebBrowser_Create(1, pOuter, riid, ppv);
1147 }
1148
1149 HRESULT WebBrowserV2_Create(IUnknown *pOuter, REFIID riid, void **ppv)
1150 {
1151     return WebBrowser_Create(2, pOuter, riid, ppv);
1152 }