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