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