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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  20  */
  21
  22 #include "wine/debug.h"
  23 #include "shdocvw.h"
  24 #include "mshtml.h"
  25
  26
  27 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
  28
  29 /**********************************************************************
  30  * Implement the IWebBrowser interface
  31  */
  32
  33 #define WEBBROWSER_THIS(iface) DEFINE_THIS(WebBrowser, WebBrowser2, iface)
  34
  35 static HRESULT WINAPI WebBrowser_QueryInterface(IWebBrowser2 *iface, REFIID riid, LPVOID *ppv)
  36 {
  37     WebBrowser *This = WEBBROWSER_THIS(iface);
  38
  39     if (ppv == NULL)
  40         return E_POINTER;
  41     *ppv = NULL;
  42
  43     if(IsEqualGUID(&IID_IUnknown, riid)) {
  44         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
  45         *ppv = WEBBROWSER(This);
  46     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
  47         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
  48         *ppv = WEBBROWSER(This);
  49     }else if(IsEqualGUID(&IID_IWebBrowser, riid)) {
  50         TRACE("(%p)->(IID_IWebBrowser %p)\n", This, ppv);
  51         *ppv = WEBBROWSER(This);
  52     }else if(IsEqualGUID(&IID_IWebBrowserApp, riid)) {
  53         TRACE("(%p)->(IID_IWebBrowserApp %p)\n", This, ppv);
  54         *ppv = WEBBROWSER(This);
  55     }else if(IsEqualGUID(&IID_IWebBrowser2, riid)) {
  56         TRACE("(%p)->(IID_IWebBrowser2 %p)\n", This, ppv);
  57         *ppv = WEBBROWSER(This);
  58     }else if(IsEqualGUID(&IID_IOleObject, riid)) {
  59         TRACE("(%p)->(IID_IOleObject %p)\n", This, ppv);
  60         *ppv = OLEOBJ(This);
  61     }else if(IsEqualGUID(&IID_IOleWindow, riid)) {
  62         TRACE("(%p)->(IID_IOleWindow %p)\n", This, ppv);
  63         *ppv = INPLACEOBJ(This);
  64     }else if(IsEqualGUID (&IID_IOleInPlaceObject, riid)) {
  65         TRACE("(%p)->(IID_IOleInPlaceObject %p)\n", This, ppv);
  66         *ppv = INPLACEOBJ(This);
  67     }else if(IsEqualGUID(&IID_IOleControl, riid)) {
  68         TRACE("(%p)->(IID_IOleControl %p)\n", This, ppv);
  69         *ppv = CONTROL(This);
  70     }else if(IsEqualGUID(&IID_IPersist, riid)) {
  71         TRACE("(%p)->(IID_IPersist %p)\n", This, ppv);
  72         *ppv = PERSTORAGE(This);
  73     }else if(IsEqualGUID(&IID_IPersistStorage, riid)) {
  74         TRACE("(%p)->(IID_IPersistStorage %p)\n", This, ppv);
  75         *ppv = PERSTORAGE(This);
  76     }else if(IsEqualGUID (&IID_IPersistStreamInit, riid)) {
  77         TRACE("(%p)->(IID_IPersistStreamInit %p)\n", This, ppv);
  78         *ppv = PERSTRINIT(This);
  79     }else if(IsEqualGUID(&IID_IProvideClassInfo, riid)) {
  80         TRACE("(%p)->(IID_IProvideClassInfo %p)\n", This, ppv);
  81         *ppv = CLASSINFO(This);
  82     }else if(IsEqualGUID(&IID_IProvideClassInfo2, riid)) {
  83         TRACE("(%p)->(IID_IProvideClassInfo2 %p)\n", This, ppv);
  84         *ppv = CLASSINFO(This);
  85     }else if(IsEqualGUID(&IID_IQuickActivate, riid)) {
  86         TRACE("(%p)->(IID_IQuickActivate %p)\n", This, ppv);
  87         *ppv = QUICKACT(This);
  88     }else if(IsEqualGUID(&IID_IConnectionPointContainer, riid)) {
  89         TRACE("(%p)->(IID_IConnectionPointContainer %p)\n", This, ppv);
  90         *ppv = CONPTCONT(This);
  91     }else if(IsEqualGUID(&IID_IViewObject, riid)) {
  92         TRACE("(%p)->(IID_IViewObject %p)\n", This, ppv);
  93         *ppv = VIEWOBJ(This);
  94     }else if(IsEqualGUID(&IID_IViewObject2, riid)) {
  95         TRACE("(%p)->(IID_IViewObject2 %p)\n", This, ppv);
  96         *ppv = VIEWOBJ2(This);
  97     }
  98
  99     if(*ppv) {
 100         IUnknown_AddRef((IUnknown*)*ppv);
 101         return S_OK;
 102     }
 103
 104     FIXME("(%p)->(%s %p) interface not supported\n", This, debugstr_guid(riid), ppv);
 105     return E_NOINTERFACE;
 106 }
 107
 108 static ULONG WINAPI WebBrowser_AddRef(IWebBrowser2 *iface)
 109 {
 110     WebBrowser *This = WEBBROWSER_THIS(iface);
 111     LONG ref = InterlockedIncrement(&This->ref);
 112     TRACE("(%p) ref=%ld\n", This, ref);
 113     return ref;
 114 }
 115
 116 static ULONG WINAPI WebBrowser_Release(IWebBrowser2 *iface)
 117 {
 118     WebBrowser *This = WEBBROWSER_THIS(iface);
 119     LONG ref = InterlockedDecrement(&This->ref);
 120
 121     TRACE("(%p) ref=%ld\n", This, ref);
 122
 123     if(!ref) {
 124         if(This->document)
 125             IUnknown_Release(This->document);
 126
 127         WebBrowser_OleObject_Destroy(This);
 128         WebBrowser_Events_Destroy(This);
 129         WebBrowser_ClientSite_Destroy(This);
 130
 131         SysFreeString(This->url);
 132         HeapFree(GetProcessHeap(), 0, This);
 133         SHDOCVW_UnlockModule();
 134     }
 135
 136     return ref;
 137 }
 138
 139 /* IDispatch methods */
 140 static HRESULT WINAPI WebBrowser_GetTypeInfoCount(IWebBrowser2 *iface, UINT *pctinfo)
 141 {
 142     WebBrowser *This = WEBBROWSER_THIS(iface);
 143     FIXME("(%p)->(%p)\n", This, pctinfo);
 144     return E_NOTIMPL;
 145 }
 146
 147 static HRESULT WINAPI WebBrowser_GetTypeInfo(IWebBrowser2 *iface, UINT iTInfo, LCID lcid,
 148                                      LPTYPEINFO *ppTInfo)
 149 {
 150     WebBrowser *This = WEBBROWSER_THIS(iface);
 151     FIXME("(%p)->(%d %ld %p)\n", This, iTInfo, lcid, ppTInfo);
 152     return E_NOTIMPL;
 153 }
 154
 155 static HRESULT WINAPI WebBrowser_GetIDsOfNames(IWebBrowser2 *iface, REFIID riid,
 156                                        LPOLESTR *rgszNames, UINT cNames,
 157                                        LCID lcid, DISPID *rgDispId)
 158 {
 159     WebBrowser *This = WEBBROWSER_THIS(iface);
 160     FIXME("(%p)->(%s %p %d %ld %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
 161             lcid, rgDispId);
 162     return E_NOTIMPL;
 163 }
 164
 165 static HRESULT WINAPI WebBrowser_Invoke(IWebBrowser2 *iface, DISPID dispIdMember,
 166                                 REFIID riid, LCID lcid, WORD wFlags,
 167                                 DISPPARAMS *pDispParams, VARIANT *pVarResult,
 168                                 EXCEPINFO *pExepInfo, UINT *puArgErr)
 169 {
 170     WebBrowser *This = WEBBROWSER_THIS(iface);
 171     FIXME("(%p)->(%ld %s %ld %08x %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
 172             lcid, wFlags, pDispParams, pVarResult, pExepInfo, puArgErr);
 173     return E_NOTIMPL;
 174 }
 175
 176 /* IWebBrowser methods */
 177 static HRESULT WINAPI WebBrowser_GoBack(IWebBrowser2 *iface)
 178 {
 179     WebBrowser *This = WEBBROWSER_THIS(iface);
 180     FIXME("(%p)\n", This);
 181     return E_NOTIMPL;
 182 }
 183
 184 static HRESULT WINAPI WebBrowser_GoForward(IWebBrowser2 *iface)
 185 {
 186     WebBrowser *This = WEBBROWSER_THIS(iface);
 187     FIXME("(%p)\n", This);
 188     return E_NOTIMPL;
 189 }
 190
 191 static HRESULT WINAPI WebBrowser_GoHome(IWebBrowser2 *iface)
 192 {
 193     WebBrowser *This = WEBBROWSER_THIS(iface);
 194     FIXME("(%p)\n", This);
 195     return E_NOTIMPL;
 196 }
 197
 198 static HRESULT WINAPI WebBrowser_GoSearch(IWebBrowser2 *iface)
 199 {
 200     WebBrowser *This = WEBBROWSER_THIS(iface);
 201     FIXME("(%p)\n", This);
 202     return E_NOTIMPL;
 203 }
 204
 205 static HRESULT WINAPI WebBrowser_Navigate(IWebBrowser2 *iface, BSTR URL,
 206                                   VARIANT *Flags, VARIANT *TargetFrameName,
 207                                   VARIANT *PostData, VARIANT *Headers)
 208 {
 209     WebBrowser *This = WEBBROWSER_THIS(iface);
 210     FIXME("(%p)->(%s %p %p %p %p)\n", This, debugstr_w(URL), Flags, TargetFrameName,
 211           PostData, Headers);
 212     return E_NOTIMPL;
 213 }
 214
 215 static HRESULT WINAPI WebBrowser_Refresh(IWebBrowser2 *iface)
 216 {
 217     WebBrowser *This = WEBBROWSER_THIS(iface);
 218     FIXME("(%p)\n", This);
 219     return E_NOTIMPL;
 220 }
 221
 222 static HRESULT WINAPI WebBrowser_Refresh2(IWebBrowser2 *iface, VARIANT *Level)
 223 {
 224     WebBrowser *This = WEBBROWSER_THIS(iface);
 225     FIXME("(%p)->(%p)\n", This, Level);
 226     return E_NOTIMPL;
 227 }
 228
 229 static HRESULT WINAPI WebBrowser_Stop(IWebBrowser2 *iface)
 230 {
 231     WebBrowser *This = WEBBROWSER_THIS(iface);
 232     FIXME("(%p)\n", This);
 233     return E_NOTIMPL;
 234 }
 235
 236 static HRESULT WINAPI WebBrowser_get_Application(IWebBrowser2 *iface, IDispatch **ppDisp)
 237 {
 238     WebBrowser *This = WEBBROWSER_THIS(iface);
 239     FIXME("(%p)->(%p)\n", This, ppDisp);
 240     return E_NOTIMPL;
 241 }
 242
 243 static HRESULT WINAPI WebBrowser_get_Parent(IWebBrowser2 *iface, IDispatch **ppDisp)
 244 {
 245     WebBrowser *This = WEBBROWSER_THIS(iface);
 246     FIXME("(%p)->(%p)\n", This, ppDisp);
 247     return E_NOTIMPL;
 248 }
 249
 250 static HRESULT WINAPI WebBrowser_get_Container(IWebBrowser2 *iface, IDispatch **ppDisp)
 251 {
 252     WebBrowser *This = WEBBROWSER_THIS(iface);
 253     FIXME("(%p)->(%p)\n", This, ppDisp);
 254     return E_NOTIMPL;
 255 }
 256
 257 static HRESULT WINAPI WebBrowser_get_Document(IWebBrowser2 *iface, IDispatch **ppDisp)
 258 {
 259     WebBrowser *This = WEBBROWSER_THIS(iface);
 260     FIXME("(%p)->(%p)\n", This, ppDisp);
 261     return E_NOTIMPL;
 262 }
 263
 264 static HRESULT WINAPI WebBrowser_get_TopLevelContainer(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 265 {
 266     WebBrowser *This = WEBBROWSER_THIS(iface);
 267     FIXME("(%p)->(%p)\n", This, pBool);
 268     return E_NOTIMPL;
 269 }
 270
 271 static HRESULT WINAPI WebBrowser_get_Type(IWebBrowser2 *iface, BSTR *Type)
 272 {
 273     WebBrowser *This = WEBBROWSER_THIS(iface);
 274     FIXME("(%p)->(%p)\n", This, Type);
 275     return E_NOTIMPL;
 276 }
 277
 278 static HRESULT WINAPI WebBrowser_get_Left(IWebBrowser2 *iface, long *pl)
 279 {
 280     WebBrowser *This = WEBBROWSER_THIS(iface);
 281     FIXME("(%p)->(%p)\n", This, pl);
 282     return E_NOTIMPL;
 283 }
 284
 285 static HRESULT WINAPI WebBrowser_put_Left(IWebBrowser2 *iface, long Left)
 286 {
 287     WebBrowser *This = WEBBROWSER_THIS(iface);
 288     FIXME("(%p)->(%ld)\n", This, Left);
 289     return E_NOTIMPL;
 290 }
 291
 292 static HRESULT WINAPI WebBrowser_get_Top(IWebBrowser2 *iface, long *pl)
 293 {
 294     WebBrowser *This = WEBBROWSER_THIS(iface);
 295     FIXME("(%p)->(%p)\n", This, pl);
 296     return E_NOTIMPL;
 297 }
 298
 299 static HRESULT WINAPI WebBrowser_put_Top(IWebBrowser2 *iface, long Top)
 300 {
 301     WebBrowser *This = WEBBROWSER_THIS(iface);
 302     FIXME("(%p)->(%ld)\n", This, Top);
 303     return E_NOTIMPL;
 304 }
 305
 306 static HRESULT WINAPI WebBrowser_get_Width(IWebBrowser2 *iface, long *pl)
 307 {
 308     WebBrowser *This = WEBBROWSER_THIS(iface);
 309     FIXME("(%p)->(%p)\n", This, pl);
 310     return E_NOTIMPL;
 311 }
 312
 313 static HRESULT WINAPI WebBrowser_put_Width(IWebBrowser2 *iface, long Width)
 314 {
 315     WebBrowser *This = WEBBROWSER_THIS(iface);
 316     FIXME("(%p)->(%ld)\n", This, Width);
 317     return E_NOTIMPL;
 318 }
 319
 320 static HRESULT WINAPI WebBrowser_get_Height(IWebBrowser2 *iface, long *pl)
 321 {
 322     WebBrowser *This = WEBBROWSER_THIS(iface);
 323     FIXME("(%p)->(%p)\n", This, pl);
 324     return E_NOTIMPL;
 325 }
 326
 327 static HRESULT WINAPI WebBrowser_put_Height(IWebBrowser2 *iface, long Height)
 328 {
 329     WebBrowser *This = WEBBROWSER_THIS(iface);
 330     FIXME("(%p)->(%ld)\n", This, Height);
 331     return E_NOTIMPL;
 332 }
 333
 334 static HRESULT WINAPI WebBrowser_get_LocationName(IWebBrowser2 *iface, BSTR *LocationName)
 335 {
 336     WebBrowser *This = WEBBROWSER_THIS(iface);
 337     FIXME("(%p)->(%p)\n", This, LocationName);
 338     return E_NOTIMPL;
 339 }
 340
 341 static HRESULT WINAPI WebBrowser_get_LocationURL(IWebBrowser2 *iface, BSTR *LocationURL)
 342 {
 343     WebBrowser *This = WEBBROWSER_THIS(iface);
 344     FIXME("(%p)->(%p)\n", This, LocationURL);
 345     return E_NOTIMPL;
 346 }
 347
 348 static HRESULT WINAPI WebBrowser_get_Busy(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 349 {
 350     WebBrowser *This = WEBBROWSER_THIS(iface);
 351     FIXME("(%p)->(%p)\n", This, pBool);
 352     return E_NOTIMPL;
 353 }
 354
 355 static HRESULT WINAPI WebBrowser_Quit(IWebBrowser2 *iface)
 356 {
 357     WebBrowser *This = WEBBROWSER_THIS(iface);
 358     FIXME("(%p)\n", This);
 359     return E_NOTIMPL;
 360 }
 361
 362 static HRESULT WINAPI WebBrowser_ClientToWindow(IWebBrowser2 *iface, int *pcx, int *pcy)
 363 {
 364     WebBrowser *This = WEBBROWSER_THIS(iface);
 365     FIXME("(%p)->(%p %p)\n", This, pcx, pcy);
 366     return E_NOTIMPL;
 367 }
 368
 369 static HRESULT WINAPI WebBrowser_PutProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT vtValue)
 370 {
 371     WebBrowser *This = WEBBROWSER_THIS(iface);
 372     FIXME("(%p)->(%s)\n", This, debugstr_w(szProperty));
 373     return E_NOTIMPL;
 374 }
 375
 376 static HRESULT WINAPI WebBrowser_GetProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT *pvtValue)
 377 {
 378     WebBrowser *This = WEBBROWSER_THIS(iface);
 379     FIXME("(%p)->(%s %p)\n", This, debugstr_w(szProperty), pvtValue);
 380     return E_NOTIMPL;
 381 }
 382
 383 static HRESULT WINAPI WebBrowser_get_Name(IWebBrowser2 *iface, BSTR *Name)
 384 {
 385     WebBrowser *This = WEBBROWSER_THIS(iface);
 386     FIXME("(%p)->(%p)\n", This, Name);
 387     return E_NOTIMPL;
 388 }
 389
 390 static HRESULT WINAPI WebBrowser_get_HWND(IWebBrowser2 *iface, long *pHWND)
 391 {
 392     WebBrowser *This = WEBBROWSER_THIS(iface);
 393     FIXME("(%p)->(%p)\n", This, pHWND);
 394     return E_NOTIMPL;
 395 }
 396
 397 static HRESULT WINAPI WebBrowser_get_FullName(IWebBrowser2 *iface, BSTR *FullName)
 398 {
 399     WebBrowser *This = WEBBROWSER_THIS(iface);
 400     FIXME("(%p)->(%p)\n", This, FullName);
 401     return E_NOTIMPL;
 402 }
 403
 404 static HRESULT WINAPI WebBrowser_get_Path(IWebBrowser2 *iface, BSTR *Path)
 405 {
 406     WebBrowser *This = WEBBROWSER_THIS(iface);
 407     FIXME("(%p)->(%p)\n", This, Path);
 408     return E_NOTIMPL;
 409 }
 410
 411 static HRESULT WINAPI WebBrowser_get_Visible(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 412 {
 413     WebBrowser *This = WEBBROWSER_THIS(iface);
 414     FIXME("(%p)->(%p)\n", This, pBool);
 415     return E_NOTIMPL;
 416 }
 417
 418 static HRESULT WINAPI WebBrowser_put_Visible(IWebBrowser2 *iface, VARIANT_BOOL Value)
 419 {
 420     WebBrowser *This = WEBBROWSER_THIS(iface);
 421     FIXME("(%p)->(%x)\n", This, Value);
 422     return E_NOTIMPL;
 423 }
 424
 425 static HRESULT WINAPI WebBrowser_get_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
 426 {
 427     WebBrowser *This = WEBBROWSER_THIS(iface);
 428     FIXME("(%p)->(%p)\n", This, pBool);
 429     return E_NOTIMPL;
 430 }
 431
 432 static HRESULT WINAPI WebBrowser_put_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 433 {
 434     WebBrowser *This = WEBBROWSER_THIS(iface);
 435     FIXME("(%p)->(%x)\n", This, Value);
 436     return E_NOTIMPL;
 437 }
 438
 439 static HRESULT WINAPI WebBrowser_get_StatusText(IWebBrowser2 *iface, BSTR *StatusText)
 440 {
 441     WebBrowser *This = WEBBROWSER_THIS(iface);
 442     FIXME("(%p)->(%p)\n", This, StatusText);
 443     return E_NOTIMPL;
 444 }
 445
 446 static HRESULT WINAPI WebBrowser_put_StatusText(IWebBrowser2 *iface, BSTR StatusText)
 447 {
 448     WebBrowser *This = WEBBROWSER_THIS(iface);
 449     FIXME("(%p)->(%s)\n", This, debugstr_w(StatusText));
 450     return E_NOTIMPL;
 451 }
 452
 453 static HRESULT WINAPI WebBrowser_get_ToolBar(IWebBrowser2 *iface, int *Value)
 454 {
 455     WebBrowser *This = WEBBROWSER_THIS(iface);
 456     FIXME("(%p)->(%p)\n", This, Value);
 457     return E_NOTIMPL;
 458 }
 459
 460 static HRESULT WINAPI WebBrowser_put_ToolBar(IWebBrowser2 *iface, int Value)
 461 {
 462     WebBrowser *This = WEBBROWSER_THIS(iface);
 463     FIXME("(%p)->(%d)\n", This, Value);
 464     return E_NOTIMPL;
 465 }
 466
 467 static HRESULT WINAPI WebBrowser_get_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 468 {
 469     WebBrowser *This = WEBBROWSER_THIS(iface);
 470     FIXME("(%p)->(%p)\n", This, Value);
 471     return E_NOTIMPL;
 472 }
 473
 474 static HRESULT WINAPI WebBrowser_put_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 475 {
 476     WebBrowser *This = WEBBROWSER_THIS(iface);
 477     FIXME("(%p)->(%x)\n", This, Value);
 478     return E_NOTIMPL;
 479 }
 480
 481 static HRESULT WINAPI WebBrowser_get_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL *pbFullScreen)
 482 {
 483     WebBrowser *This = WEBBROWSER_THIS(iface);
 484     FIXME("(%p)->(%p)\n", This, pbFullScreen);
 485     return E_NOTIMPL;
 486 }
 487
 488 static HRESULT WINAPI WebBrowser_put_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL bFullScreen)
 489 {
 490     WebBrowser *This = WEBBROWSER_THIS(iface);
 491     FIXME("(%p)->(%x)\n", This, bFullScreen);
 492     return E_NOTIMPL;
 493 }
 494
 495 static HRESULT WINAPI WebBrowser_Navigate2(IWebBrowser2 *iface, VARIANT *URL, VARIANT *Flags,
 496         VARIANT *TargetFrameName, VARIANT *PostData, VARIANT *Headers)
 497 {
 498     WebBrowser *This = WEBBROWSER_THIS(iface);
 499     IPersistMoniker *persist;
 500     IOleObject *oleobj;
 501     IMoniker *mon;
 502     HRESULT hres;
 503
 504     TRACE("(%p)->(%p %p %p %p %p)\n", This, URL, Flags, TargetFrameName, PostData, Headers);
 505
 506     if(!This->client)
 507         return E_FAIL;
 508
 509     if((Flags && V_VT(Flags) != VT_EMPTY)
 510        || (TargetFrameName && V_VT(TargetFrameName) != VT_EMPTY)
 511        || (PostData && V_VT(PostData) != VT_EMPTY)
 512        || (Headers && V_VT(Headers) != VT_EMPTY))
 513         FIXME("Unsupported arguments\n");
 514
 515     if(!URL)
 516         return S_OK;
 517     if(V_VT(URL) != VT_BSTR)
 518         return E_INVALIDARG;
 519
 520     if(!This->doc_view_hwnd)
 521         create_doc_view_hwnd(This);
 522
 523     /*
 524      * FIXME:
 525      * We should use URLMoniker's BindToObject instead creating HTMLDocument here.
 526      * This should be fixed when mshtml.dll and urlmon.dll will be good enough.
 527      */
 528
 529     if(!This->document) {
 530         hres = CoCreateInstance(&CLSID_HTMLDocument, NULL,
 531                                 CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
 532                                 &IID_IUnknown, (void**)&This->document);
 533         if(FAILED(hres))
 534             return hres;
 535     }
 536
 537     hres = IUnknown_QueryInterface(This->document, &IID_IPersistMoniker, (void**)&persist);
 538     if(FAILED(hres))
 539         return hres;
 540
 541     hres = CreateURLMoniker(NULL, V_BSTR(URL), &mon);
 542     if(FAILED(hres)) {
 543         IPersistMoniker_Release(persist);
 544         return hres;
 545     }
 546
 547     hres = IPersistMoniker_Load(persist, FALSE, mon, NULL /* FIXME */, 0);
 548     IMoniker_Release(mon);
 549     IPersistMoniker_Release(persist);
 550     if(FAILED(hres)) {
 551         WARN("Load failed: %08lx\n", hres);
 552         return hres;
 553     }
 554
 555     This->url = SysAllocString(V_BSTR(URL));
 556
 557     hres = IUnknown_QueryInterface(This->document, &IID_IOleObject, (void**)&oleobj);
 558     if(FAILED(hres))
 559         return hres;
 560
 561     hres = IOleObject_SetClientSite(oleobj, CLIENTSITE(This));
 562     IOleObject_Release(oleobj);
 563
 564     PostMessageW(This->doc_view_hwnd, WB_WM_NAVIGATE2, 0, 0);
 565
 566     return hres;
 567 }
 568
 569 static HRESULT WINAPI WebBrowser_QueryStatusWB(IWebBrowser2 *iface, OLECMDID cmdID, OLECMDF *pcmdf)
 570 {
 571     WebBrowser *This = WEBBROWSER_THIS(iface);
 572     FIXME("(%p)->(%d %p)\n", This, cmdID, pcmdf);
 573     return E_NOTIMPL;
 574 }
 575
 576 static HRESULT WINAPI WebBrowser_ExecWB(IWebBrowser2 *iface, OLECMDID cmdID,
 577         OLECMDEXECOPT cmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
 578 {
 579     WebBrowser *This = WEBBROWSER_THIS(iface);
 580     FIXME("(%p)->(%d %d %p %p)\n", This, cmdID, cmdexecopt, pvaIn, pvaOut);
 581     return E_NOTIMPL;
 582 }
 583
 584 static HRESULT WINAPI WebBrowser_ShowBrowserBar(IWebBrowser2 *iface, VARIANT *pvaClsid,
 585         VARIANT *pvarShow, VARIANT *pvarSize)
 586 {
 587     WebBrowser *This = WEBBROWSER_THIS(iface);
 588     FIXME("(%p)->(%p %p %p)\n", This, pvaClsid, pvarShow, pvarSize);
 589     return E_NOTIMPL;
 590 }
 591
 592 static HRESULT WINAPI WebBrowser_get_ReadyState(IWebBrowser2 *iface, READYSTATE *lpReadyState)
 593 {
 594     WebBrowser *This = WEBBROWSER_THIS(iface);
 595     FIXME("(%p)->(%p)\n", This, lpReadyState);
 596     return E_NOTIMPL;
 597 }
 598
 599 static HRESULT WINAPI WebBrowser_get_Offline(IWebBrowser2 *iface, VARIANT_BOOL *pbOffline)
 600 {
 601     WebBrowser *This = WEBBROWSER_THIS(iface);
 602     FIXME("(%p)->(%p)\n", This, pbOffline);
 603     return E_NOTIMPL;
 604 }
 605
 606 static HRESULT WINAPI WebBrowser_put_Offline(IWebBrowser2 *iface, VARIANT_BOOL bOffline)
 607 {
 608     WebBrowser *This = WEBBROWSER_THIS(iface);
 609     FIXME("(%p)->(%x)\n", This, bOffline);
 610     return E_NOTIMPL;
 611 }
 612
 613 static HRESULT WINAPI WebBrowser_get_Silent(IWebBrowser2 *iface, VARIANT_BOOL *pbSilent)
 614 {
 615     WebBrowser *This = WEBBROWSER_THIS(iface);
 616     FIXME("(%p)->(%p)\n", This, pbSilent);
 617     return E_NOTIMPL;
 618 }
 619
 620 static HRESULT WINAPI WebBrowser_put_Silent(IWebBrowser2 *iface, VARIANT_BOOL bSilent)
 621 {
 622     WebBrowser *This = WEBBROWSER_THIS(iface);
 623     FIXME("(%p)->(%x)\n", This, bSilent);
 624     return E_NOTIMPL;
 625 }
 626
 627 static HRESULT WINAPI WebBrowser_get_RegisterAsBrowser(IWebBrowser2 *iface,
 628         VARIANT_BOOL *pbRegister)
 629 {
 630     WebBrowser *This = WEBBROWSER_THIS(iface);
 631     FIXME("(%p)->(%p)\n", This, pbRegister);
 632     return E_NOTIMPL;
 633 }
 634
 635 static HRESULT WINAPI WebBrowser_put_RegisterAsBrowser(IWebBrowser2 *iface,
 636         VARIANT_BOOL bRegister)
 637 {
 638     WebBrowser *This = WEBBROWSER_THIS(iface);
 639     FIXME("(%p)->(%x)\n", This, bRegister);
 640     return E_NOTIMPL;
 641 }
 642
 643 static HRESULT WINAPI WebBrowser_get_RegisterAsDropTarget(IWebBrowser2 *iface,
 644         VARIANT_BOOL *pbRegister)
 645 {
 646     WebBrowser *This = WEBBROWSER_THIS(iface);
 647     FIXME("(%p)->(%p)\n", This, pbRegister);
 648     return E_NOTIMPL;
 649 }
 650
 651 static HRESULT WINAPI WebBrowser_put_RegisterAsDropTarget(IWebBrowser2 *iface,
 652         VARIANT_BOOL bRegister)
 653 {
 654     WebBrowser *This = WEBBROWSER_THIS(iface);
 655     FIXME("(%p)->(%x)\n", This, bRegister);
 656     return E_NOTIMPL;
 657 }
 658
 659 static HRESULT WINAPI WebBrowser_get_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL *pbRegister)
 660 {
 661     WebBrowser *This = WEBBROWSER_THIS(iface);
 662     FIXME("(%p)->(%p)\n", This, pbRegister);
 663     return E_NOTIMPL;
 664 }
 665
 666 static HRESULT WINAPI WebBrowser_put_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL bRegister)
 667 {
 668     WebBrowser *This = WEBBROWSER_THIS(iface);
 669     FIXME("(%p)->(%x)\n", This, bRegister);
 670     return E_NOTIMPL;
 671 }
 672
 673 static HRESULT WINAPI WebBrowser_get_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 674 {
 675     WebBrowser *This = WEBBROWSER_THIS(iface);
 676     FIXME("(%p)->(%p)\n", This, Value);
 677     return E_NOTIMPL;
 678 }
 679
 680 static HRESULT WINAPI WebBrowser_put_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
 681 {
 682     WebBrowser *This = WEBBROWSER_THIS(iface);
 683     FIXME("(%p)->(%x)\n", This, Value);
 684     return E_NOTIMPL;
 685 }
 686
 687 static HRESULT WINAPI WebBrowser_get_Resizable(IWebBrowser2 *iface, VARIANT_BOOL *Value)
 688 {
 689     WebBrowser *This = WEBBROWSER_THIS(iface);
 690     FIXME("(%p)->(%p)\n", This, Value);
 691     return E_NOTIMPL;
 692 }
 693
 694 static HRESULT WINAPI WebBrowser_put_Resizable(IWebBrowser2 *iface, VARIANT_BOOL Value)
 695 {
 696     WebBrowser *This = WEBBROWSER_THIS(iface);
 697     FIXME("(%p)->(%x)\n", This, Value);
 698     return E_NOTIMPL;
 699 }
 700
 701 #undef WEBBROWSER_THIS
 702
 703 static const IWebBrowser2Vtbl WebBrowser2Vtbl =
 704 {
 705     WebBrowser_QueryInterface,
 706     WebBrowser_AddRef,
 707     WebBrowser_Release,
 708     WebBrowser_GetTypeInfoCount,
 709     WebBrowser_GetTypeInfo,
 710     WebBrowser_GetIDsOfNames,
 711     WebBrowser_Invoke,
 712     WebBrowser_GoBack,
 713     WebBrowser_GoForward,
 714     WebBrowser_GoHome,
 715     WebBrowser_GoSearch,
 716     WebBrowser_Navigate,
 717     WebBrowser_Refresh,
 718     WebBrowser_Refresh2,
 719     WebBrowser_Stop,
 720     WebBrowser_get_Application,
 721     WebBrowser_get_Parent,
 722     WebBrowser_get_Container,
 723     WebBrowser_get_Document,
 724     WebBrowser_get_TopLevelContainer,
 725     WebBrowser_get_Type,
 726     WebBrowser_get_Left,
 727     WebBrowser_put_Left,
 728     WebBrowser_get_Top,
 729     WebBrowser_put_Top,
 730     WebBrowser_get_Width,
 731     WebBrowser_put_Width,
 732     WebBrowser_get_Height,
 733     WebBrowser_put_Height,
 734     WebBrowser_get_LocationName,
 735     WebBrowser_get_LocationURL,
 736     WebBrowser_get_Busy,
 737     WebBrowser_Quit,
 738     WebBrowser_ClientToWindow,
 739     WebBrowser_PutProperty,
 740     WebBrowser_GetProperty,
 741     WebBrowser_get_Name,
 742     WebBrowser_get_HWND,
 743     WebBrowser_get_FullName,
 744     WebBrowser_get_Path,
 745     WebBrowser_get_Visible,
 746     WebBrowser_put_Visible,
 747     WebBrowser_get_StatusBar,
 748     WebBrowser_put_StatusBar,
 749     WebBrowser_get_StatusText,
 750     WebBrowser_put_StatusText,
 751     WebBrowser_get_ToolBar,
 752     WebBrowser_put_ToolBar,
 753     WebBrowser_get_MenuBar,
 754     WebBrowser_put_MenuBar,
 755     WebBrowser_get_FullScreen,
 756     WebBrowser_put_FullScreen,
 757     WebBrowser_Navigate2,
 758     WebBrowser_QueryStatusWB,
 759     WebBrowser_ExecWB,
 760     WebBrowser_ShowBrowserBar,
 761     WebBrowser_get_ReadyState,
 762     WebBrowser_get_Offline,
 763     WebBrowser_put_Offline,
 764     WebBrowser_get_Silent,
 765     WebBrowser_put_Silent,
 766     WebBrowser_get_RegisterAsBrowser,
 767     WebBrowser_put_RegisterAsBrowser,
 768     WebBrowser_get_RegisterAsDropTarget,
 769     WebBrowser_put_RegisterAsDropTarget,
 770     WebBrowser_get_TheaterMode,
 771     WebBrowser_put_TheaterMode,
 772     WebBrowser_get_AddressBar,
 773     WebBrowser_put_AddressBar,
 774     WebBrowser_get_Resizable,
 775     WebBrowser_put_Resizable
 776 };
 777
 778 HRESULT WebBrowser_Create(IUnknown *pOuter, REFIID riid, void **ppv)
 779 {
 780     WebBrowser *ret;
 781     HRESULT hres;
 782
 783     TRACE("(%p %s %p)\n", pOuter, debugstr_guid(riid), ppv);
 784
 785     ret = HeapAlloc(GetProcessHeap(), 0, sizeof(WebBrowser));
 786
 787     ret->lpWebBrowser2Vtbl = &WebBrowser2Vtbl;
 788     ret->ref = 0;
 789
 790     ret->document = NULL;
 791     ret->url = NULL;
 792
 793     WebBrowser_OleObject_Init(ret);
 794     WebBrowser_ViewObject_Init(ret);
 795     WebBrowser_Persist_Init(ret);
 796     WebBrowser_ClassInfo_Init(ret);
 797     WebBrowser_Misc_Init(ret);
 798     WebBrowser_Events_Init(ret);
 799     WebBrowser_ClientSite_Init(ret);
 800     WebBrowser_DocHost_Init(ret);
 801     WebBrowser_Frame_Init(ret);
 802
 803     hres = IWebBrowser_QueryInterface(WEBBROWSER(ret), riid, ppv);
 804     if(SUCCEEDED(hres)) {
 805         SHDOCVW_LockModule();
 806     }else {
 807         HeapFree(GetProcessHeap(), 0, ret);
 808         return hres;
 809     }
 810
 811     return hres;
 812 }