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