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