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