dlls/hhctrl.ocx/webbrowser.c

   1 /*
   2  * WebBrowser Implementation
   3  *
   4  * Copyright 2005 James Hawkins
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include "hhctrl.h"
  22 #include "resource.h"
  23
  24 #include "wine/debug.h"
  25
  26 WINE_DEFAULT_DEBUG_CHANNEL(htmlhelp);
  27
  28 static inline WebBrowserContainer *impl_from_IOleClientSite(IOleClientSite *iface)
  29 {
  30     return CONTAINING_RECORD(iface, WebBrowserContainer, IOleClientSite_iface);
  31 }
  32
  33 static HRESULT STDMETHODCALLTYPE Site_QueryInterface(IOleClientSite *iface, REFIID riid, void **ppvObj)
  34 {
  35     WebBrowserContainer *This = impl_from_IOleClientSite(iface);
  36
  37     if (IsEqualIID(riid, &IID_IUnknown)) {
  38         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppvObj);
  39         *ppvObj = &This->IOleClientSite_iface;
  40     }else if(IsEqualIID(riid, &IID_IOleClientSite)) {
  41         TRACE("(%p)->(IID_IOleClientSite %p)\n", This, ppvObj);
  42         *ppvObj = &This->IOleClientSite_iface;
  43     }else if (IsEqualIID(riid, &IID_IOleInPlaceSite)) {
  44         TRACE("(%p)->(IID_IOleInPlaceSite %p)\n", This, ppvObj);
  45         *ppvObj = &This->IOleInPlaceSite_iface;
  46     }else if (IsEqualIID(riid, &IID_IOleInPlaceFrame)) {
  47         TRACE("(%p)->(IID_IOleInPlaceFrame %p)\n", This, ppvObj);
  48         *ppvObj = &This->IOleInPlaceSite_iface;
  49     }else if (IsEqualIID(riid, &IID_IDocHostUIHandler)) {
  50         TRACE("(%p)->(IID_IDocHostUIHandler %p)\n", This, ppvObj);
  51         *ppvObj = &This->IDocHostUIHandler_iface;
  52     }else {
  53         TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppvObj);
  54         *ppvObj = NULL;
  55         return E_NOINTERFACE;
  56     }
  57
  58     IUnknown_AddRef((IUnknown*)*ppvObj);
  59     return S_OK;
  60 }
  61
  62 static ULONG STDMETHODCALLTYPE Site_AddRef(IOleClientSite *iface)
  63 {
  64     WebBrowserContainer *This = impl_from_IOleClientSite(iface);
  65     LONG ref = InterlockedIncrement(&This->ref);
  66
  67     TRACE("(%p) ref=%d\n", This, ref);
  68
  69     return ref;
  70 }
  71
  72 static ULONG STDMETHODCALLTYPE Site_Release(IOleClientSite *iface)
  73 {
  74     WebBrowserContainer *This = impl_from_IOleClientSite(iface);
  75     LONG ref = InterlockedDecrement(&This->ref);
  76
  77     TRACE("(%p) ref=%d\n", This, ref);
  78
  79     if(!ref) {
  80         if(This->ole_obj)
  81             IOleObject_Release(This->ole_obj);
  82         if(This->web_browser)
  83             IWebBrowser2_Release(This->web_browser);
  84         heap_free(This);
  85     }
  86
  87     return ref;
  88 }
  89
  90 static HRESULT STDMETHODCALLTYPE Site_SaveObject(IOleClientSite *iface)
  91 {
  92     return E_NOTIMPL;
  93 }
  94
  95 static HRESULT STDMETHODCALLTYPE Site_GetMoniker(IOleClientSite *iface, DWORD dwAssign, DWORD dwWhichMoniker, IMoniker **ppmk)
  96 {
  97     return E_NOTIMPL;
  98 }
  99
 100 static HRESULT STDMETHODCALLTYPE Site_GetContainer(IOleClientSite *iface, LPOLECONTAINER *ppContainer)
 101 {
 102     *ppContainer = NULL;
 103
 104     return E_NOINTERFACE;
 105 }
 106
 107 static HRESULT STDMETHODCALLTYPE Site_ShowObject(IOleClientSite *iface)
 108 {
 109     return NOERROR;
 110 }
 111
 112 static HRESULT STDMETHODCALLTYPE Site_OnShowWindow(IOleClientSite *iface, BOOL fShow)
 113 {
 114     return E_NOTIMPL;
 115 }
 116
 117 static HRESULT STDMETHODCALLTYPE Site_RequestNewObjectLayout(IOleClientSite *iface)
 118 {
 119     return E_NOTIMPL;
 120 }
 121
 122 static const IOleClientSiteVtbl OleClientSiteVtbl =
 123 {
 124     Site_QueryInterface,
 125     Site_AddRef,
 126     Site_Release,
 127     Site_SaveObject,
 128     Site_GetMoniker,
 129     Site_GetContainer,
 130     Site_ShowObject,
 131     Site_OnShowWindow,
 132     Site_RequestNewObjectLayout
 133 };
 134
 135 static inline WebBrowserContainer *impl_from_IDocHostUIHandler(IDocHostUIHandler *iface)
 136 {
 137     return CONTAINING_RECORD(iface, WebBrowserContainer, IDocHostUIHandler_iface);
 138 }
 139
 140 static HRESULT STDMETHODCALLTYPE UI_QueryInterface(IDocHostUIHandler *iface, REFIID riid, LPVOID *ppvObj)
 141 {
 142     WebBrowserContainer *This = impl_from_IDocHostUIHandler(iface);
 143
 144     return IOleClientSite_QueryInterface(&This->IOleClientSite_iface, riid, ppvObj);
 145 }
 146
 147 static ULONG STDMETHODCALLTYPE UI_AddRef(IDocHostUIHandler *iface)
 148 {
 149     WebBrowserContainer *This = impl_from_IDocHostUIHandler(iface);
 150
 151     return IOleClientSite_AddRef(&This->IOleClientSite_iface);
 152 }
 153
 154 static ULONG STDMETHODCALLTYPE UI_Release(IDocHostUIHandler * iface)
 155 {
 156     WebBrowserContainer *This = impl_from_IDocHostUIHandler(iface);
 157
 158     return IOleClientSite_Release(&This->IOleClientSite_iface);
 159 }
 160
 161 static HRESULT STDMETHODCALLTYPE UI_ShowContextMenu(IDocHostUIHandler *iface, DWORD dwID, POINT *ppt, IUnknown *pcmdtReserved, IDispatch *pdispReserved)
 162 {
 163     WebBrowserContainer *This = impl_from_IDocHostUIHandler(iface);
 164     DWORD cmdid, menu_id = 0;
 165     HMENU menu, submenu;
 166
 167     TRACE("(%p)->(%d %s)\n", This, dwID, wine_dbgstr_point(ppt));
 168
 169     menu = LoadMenuW(hhctrl_hinstance, MAKEINTRESOURCEW(MENU_WEBBROWSER));
 170     if (!menu)
 171         return S_OK;
 172
 173     /* FIXME: Support more menu types. */
 174     if(dwID == CONTEXT_MENU_TEXTSELECT)
 175         menu_id = 1;
 176
 177     submenu = GetSubMenu(menu, menu_id);
 178
 179     cmdid = TrackPopupMenu(submenu, TPM_LEFTALIGN | TPM_RIGHTBUTTON | TPM_RETURNCMD,
 180             ppt->x, ppt->y, 0, This->hwndWindow, NULL);
 181     DestroyMenu(menu);
 182
 183     switch(cmdid) {
 184     case IDTB_BACK:
 185         DoPageAction(This, WB_GOBACK);
 186         break;
 187     case IDTB_FORWARD:
 188         DoPageAction(This, WB_GOFORWARD);
 189         break;
 190     case MIID_SELECTALL:
 191         IWebBrowser2_ExecWB(This->web_browser, OLECMDID_SELECTALL, 0, NULL, NULL);
 192         break;
 193     case MIID_VIEWSOURCE:
 194         FIXME("View source\n");
 195         break;
 196     case IDTB_PRINT:
 197         DoPageAction(This, WB_PRINT);
 198         break;
 199     case IDTB_REFRESH:
 200         DoPageAction(This, WB_REFRESH);
 201         break;
 202     case MIID_PROPERTIES:
 203         FIXME("Properties\n");
 204         break;
 205     case MIID_COPY:
 206         IWebBrowser2_ExecWB(This->web_browser, OLECMDID_COPY, 0, NULL, NULL);
 207         break;
 208     case MIID_PASTE:
 209         IWebBrowser2_ExecWB(This->web_browser, OLECMDID_PASTE, 0, NULL, NULL);
 210         break;
 211     case MIID_CUT:
 212         IWebBrowser2_ExecWB(This->web_browser, OLECMDID_CUT, 0, NULL, NULL);
 213         break;
 214     }
 215
 216     return S_OK;
 217 }
 218
 219 static HRESULT STDMETHODCALLTYPE UI_GetHostInfo(IDocHostUIHandler *iface, DOCHOSTUIINFO *pInfo)
 220 {
 221     pInfo->cbSize = sizeof(DOCHOSTUIINFO);
 222     pInfo->dwFlags = DOCHOSTUIFLAG_NO3DBORDER;
 223     pInfo->dwDoubleClick = DOCHOSTUIDBLCLK_DEFAULT;
 224
 225     return S_OK;
 226 }
 227
 228 static HRESULT STDMETHODCALLTYPE UI_ShowUI(IDocHostUIHandler *iface, DWORD dwID, IOleInPlaceActiveObject *pActiveObject, IOleCommandTarget *pCommandTarget, IOleInPlaceFrame *pFrame, IOleInPlaceUIWindow *pDoc)
 229 {
 230     return S_OK;
 231 }
 232
 233 static HRESULT STDMETHODCALLTYPE UI_HideUI(IDocHostUIHandler *iface)
 234 {
 235     return S_OK;
 236 }
 237
 238 static HRESULT STDMETHODCALLTYPE UI_UpdateUI(IDocHostUIHandler *iface)
 239 {
 240     return S_OK;
 241 }
 242
 243 static HRESULT STDMETHODCALLTYPE UI_EnableModeless(IDocHostUIHandler *iface, BOOL fEnable)
 244 {
 245     return S_OK;
 246 }
 247
 248 static HRESULT STDMETHODCALLTYPE UI_OnDocWindowActivate(IDocHostUIHandler *iface, BOOL fActivate)
 249 {
 250     return S_OK;
 251 }
 252
 253 static HRESULT STDMETHODCALLTYPE UI_OnFrameWindowActivate(IDocHostUIHandler *iface, BOOL fActivate)
 254 {
 255     return S_OK;
 256 }
 257
 258 static HRESULT STDMETHODCALLTYPE UI_ResizeBorder(IDocHostUIHandler *iface, LPCRECT prcBorder, IOleInPlaceUIWindow *pUIWindow, BOOL fRameWindow)
 259 {
 260     return S_OK;
 261 }
 262
 263 static HRESULT STDMETHODCALLTYPE UI_TranslateAccelerator(IDocHostUIHandler *iface, LPMSG lpMsg, const GUID *pguidCmdGroup, DWORD nCmdID)
 264 {
 265     return S_FALSE;
 266 }
 267
 268 static HRESULT STDMETHODCALLTYPE UI_GetOptionKeyPath(IDocHostUIHandler *iface, LPOLESTR *pchKey, DWORD dw)
 269 {
 270     return S_FALSE;
 271 }
 272
 273 static HRESULT STDMETHODCALLTYPE UI_GetDropTarget(IDocHostUIHandler *iface, IDropTarget *pDropTarget, IDropTarget **ppDropTarget)
 274 {
 275     return S_FALSE;
 276 }
 277
 278 static HRESULT STDMETHODCALLTYPE UI_GetExternal(IDocHostUIHandler *iface, IDispatch **ppDispatch)
 279 {
 280     *ppDispatch = NULL;
 281     return S_FALSE;
 282 }
 283
 284 static HRESULT STDMETHODCALLTYPE UI_TranslateUrl(IDocHostUIHandler *iface, DWORD dwTranslate, OLECHAR *pchURLIn, OLECHAR **ppchURLOut)
 285 {
 286     *ppchURLOut = NULL;
 287     return S_FALSE;
 288 }
 289
 290 static HRESULT STDMETHODCALLTYPE UI_FilterDataObject(IDocHostUIHandler *iface, IDataObject *pDO, IDataObject **ppDORet)
 291 {
 292     *ppDORet = NULL;
 293     return S_FALSE;
 294 }
 295
 296 static const IDocHostUIHandlerVtbl DocHostUIHandlerVtbl =
 297 {
 298     UI_QueryInterface,
 299     UI_AddRef,
 300     UI_Release,
 301     UI_ShowContextMenu,
 302     UI_GetHostInfo,
 303     UI_ShowUI,
 304     UI_HideUI,
 305     UI_UpdateUI,
 306     UI_EnableModeless,
 307     UI_OnDocWindowActivate,
 308     UI_OnFrameWindowActivate,
 309     UI_ResizeBorder,
 310     UI_TranslateAccelerator,
 311     UI_GetOptionKeyPath,
 312     UI_GetDropTarget,
 313     UI_GetExternal,
 314     UI_TranslateUrl,
 315     UI_FilterDataObject
 316 };
 317
 318 static inline WebBrowserContainer *impl_from_IOleInPlaceSite(IOleInPlaceSite *iface)
 319 {
 320     return CONTAINING_RECORD(iface, WebBrowserContainer, IOleInPlaceSite_iface);
 321 }
 322
 323 static HRESULT STDMETHODCALLTYPE InPlace_QueryInterface(IOleInPlaceSite *iface, REFIID riid, LPVOID *ppvObj)
 324 {
 325     WebBrowserContainer *This = impl_from_IOleInPlaceSite(iface);
 326
 327     return IOleClientSite_QueryInterface(&This->IOleClientSite_iface, riid, ppvObj);
 328 }
 329
 330 static ULONG STDMETHODCALLTYPE InPlace_AddRef(IOleInPlaceSite *iface)
 331 {
 332     WebBrowserContainer *This = impl_from_IOleInPlaceSite(iface);
 333
 334     return IOleClientSite_AddRef(&This->IOleClientSite_iface);
 335 }
 336
 337 static ULONG STDMETHODCALLTYPE InPlace_Release(IOleInPlaceSite *iface)
 338 {
 339     WebBrowserContainer *This = impl_from_IOleInPlaceSite(iface);
 340
 341     return IOleClientSite_Release(&This->IOleClientSite_iface);
 342 }
 343
 344 static HRESULT STDMETHODCALLTYPE InPlace_GetWindow(IOleInPlaceSite *iface, HWND *lphwnd)
 345 {
 346     WebBrowserContainer *This = impl_from_IOleInPlaceSite(iface);
 347
 348     *lphwnd = This->hwndWindow;
 349     return S_OK;
 350 }
 351
 352 static HRESULT STDMETHODCALLTYPE InPlace_ContextSensitiveHelp(IOleInPlaceSite *iface, BOOL fEnterMode)
 353 {
 354     return E_NOTIMPL;
 355 }
 356
 357 static HRESULT STDMETHODCALLTYPE InPlace_CanInPlaceActivate(IOleInPlaceSite *iface)
 358 {
 359     return S_OK;
 360 }
 361
 362 static HRESULT STDMETHODCALLTYPE InPlace_OnInPlaceActivate(IOleInPlaceSite *iface)
 363 {
 364     return S_OK;
 365 }
 366
 367 static HRESULT STDMETHODCALLTYPE InPlace_OnUIActivate(IOleInPlaceSite *iface)
 368 {
 369     return S_OK;
 370 }
 371
 372 static HRESULT STDMETHODCALLTYPE InPlace_GetWindowContext(IOleInPlaceSite *iface, LPOLEINPLACEFRAME *lplpFrame, LPOLEINPLACEUIWINDOW *lplpDoc, LPRECT lprcPosRect, LPRECT lprcClipRect, LPOLEINPLACEFRAMEINFO lpFrameInfo)
 373 {
 374     WebBrowserContainer *This = impl_from_IOleInPlaceSite(iface);
 375
 376     *lplpFrame = &This->IOleInPlaceFrame_iface;
 377     IOleInPlaceFrame_AddRef(&This->IOleInPlaceFrame_iface);
 378
 379     *lplpDoc = NULL;
 380
 381     lpFrameInfo->fMDIApp = FALSE;
 382     lpFrameInfo->hwndFrame = This->hwndWindow;
 383     lpFrameInfo->haccel = NULL;
 384     lpFrameInfo->cAccelEntries = 0;
 385
 386     return S_OK;
 387 }
 388
 389 static HRESULT STDMETHODCALLTYPE InPlace_Scroll(IOleInPlaceSite *iface, SIZE scrollExtent)
 390 {
 391     return E_NOTIMPL;
 392 }
 393
 394 static HRESULT STDMETHODCALLTYPE InPlace_OnUIDeactivate(IOleInPlaceSite *iface, BOOL fUndoable)
 395 {
 396     return S_OK;
 397 }
 398
 399 static HRESULT STDMETHODCALLTYPE InPlace_OnInPlaceDeactivate(IOleInPlaceSite *iface)
 400 {
 401     return S_OK;
 402 }
 403
 404 static HRESULT STDMETHODCALLTYPE InPlace_DiscardUndoState(IOleInPlaceSite *iface)
 405 {
 406     return E_NOTIMPL;
 407 }
 408
 409 static HRESULT STDMETHODCALLTYPE InPlace_DeactivateAndUndo(IOleInPlaceSite *iface)
 410 {
 411     return E_NOTIMPL;
 412 }
 413
 414 static HRESULT STDMETHODCALLTYPE InPlace_OnPosRectChange(IOleInPlaceSite *iface, LPCRECT lprcPosRect)
 415 {
 416     WebBrowserContainer *This = impl_from_IOleInPlaceSite(iface);
 417     IOleInPlaceObject *inplace;
 418
 419     if (IOleObject_QueryInterface(This->ole_obj, &IID_IOleInPlaceObject,
 420                                   (void **)&inplace) == S_OK)
 421     {
 422         IOleInPlaceObject_SetObjectRects(inplace, lprcPosRect, lprcPosRect);
 423         IOleInPlaceObject_Release(inplace);
 424     }
 425
 426     return S_OK;
 427 }
 428
 429 static const IOleInPlaceSiteVtbl OleInPlaceSiteVtbl =
 430 {
 431     InPlace_QueryInterface,
 432     InPlace_AddRef,
 433     InPlace_Release,
 434     InPlace_GetWindow,
 435     InPlace_ContextSensitiveHelp,
 436     InPlace_CanInPlaceActivate,
 437     InPlace_OnInPlaceActivate,
 438     InPlace_OnUIActivate,
 439     InPlace_GetWindowContext,
 440     InPlace_Scroll,
 441     InPlace_OnUIDeactivate,
 442     InPlace_OnInPlaceDeactivate,
 443     InPlace_DiscardUndoState,
 444     InPlace_DeactivateAndUndo,
 445     InPlace_OnPosRectChange
 446 };
 447
 448 static inline WebBrowserContainer *impl_from_IOleInPlaceFrame(IOleInPlaceFrame *iface)
 449 {
 450     return CONTAINING_RECORD(iface, WebBrowserContainer, IOleInPlaceFrame_iface);
 451 }
 452
 453 static HRESULT STDMETHODCALLTYPE Frame_QueryInterface(IOleInPlaceFrame *iface, REFIID riid, LPVOID *ppvObj)
 454 {
 455     WebBrowserContainer *This = impl_from_IOleInPlaceFrame(iface);
 456
 457     return IOleClientSite_QueryInterface(&This->IOleClientSite_iface, riid, ppvObj);
 458 }
 459
 460 static ULONG STDMETHODCALLTYPE Frame_AddRef(IOleInPlaceFrame *iface)
 461 {
 462     WebBrowserContainer *This = impl_from_IOleInPlaceFrame(iface);
 463
 464     return IOleClientSite_AddRef(&This->IOleClientSite_iface);
 465 }
 466
 467 static ULONG STDMETHODCALLTYPE Frame_Release(IOleInPlaceFrame *iface)
 468 {
 469     WebBrowserContainer *This = impl_from_IOleInPlaceFrame(iface);
 470
 471     return IOleClientSite_Release(&This->IOleClientSite_iface);
 472 }
 473
 474 static HRESULT STDMETHODCALLTYPE Frame_GetWindow(IOleInPlaceFrame *iface, HWND *lphwnd)
 475 {
 476     WebBrowserContainer *This = impl_from_IOleInPlaceFrame(iface);
 477
 478     *lphwnd = This->hwndWindow;
 479     return S_OK;
 480 }
 481
 482 static HRESULT STDMETHODCALLTYPE Frame_ContextSensitiveHelp(IOleInPlaceFrame *iface, BOOL fEnterMode)
 483 {
 484     return E_NOTIMPL;
 485 }
 486
 487 static HRESULT STDMETHODCALLTYPE Frame_GetBorder(IOleInPlaceFrame *iface, LPRECT lprectBorder)
 488 {
 489     return E_NOTIMPL;
 490 }
 491
 492 static HRESULT STDMETHODCALLTYPE Frame_RequestBorderSpace(IOleInPlaceFrame *iface, LPCBORDERWIDTHS pborderwidths)
 493 {
 494     return E_NOTIMPL;
 495 }
 496
 497 static HRESULT STDMETHODCALLTYPE Frame_SetBorderSpace(IOleInPlaceFrame *iface, LPCBORDERWIDTHS pborderwidths)
 498 {
 499     return E_NOTIMPL;
 500 }
 501
 502 static HRESULT STDMETHODCALLTYPE Frame_SetActiveObject(IOleInPlaceFrame *iface, IOleInPlaceActiveObject *pActiveObject, LPCOLESTR pszObjName)
 503 {
 504     return S_OK;
 505 }
 506
 507 static HRESULT STDMETHODCALLTYPE Frame_InsertMenus(IOleInPlaceFrame *iface, HMENU hmenuShared, LPOLEMENUGROUPWIDTHS lpMenuWidths)
 508 {
 509     return E_NOTIMPL;
 510 }
 511
 512 static HRESULT STDMETHODCALLTYPE Frame_SetMenu(IOleInPlaceFrame *iface, HMENU hmenuShared, HOLEMENU holemenu, HWND hwndActiveObject)
 513 {
 514     return S_OK;
 515 }
 516
 517 static HRESULT STDMETHODCALLTYPE Frame_RemoveMenus(IOleInPlaceFrame *iface, HMENU hmenuShared)
 518 {
 519     return E_NOTIMPL;
 520 }
 521
 522 static HRESULT STDMETHODCALLTYPE Frame_SetStatusText(IOleInPlaceFrame *iface, LPCOLESTR pszStatusText)
 523 {
 524     return S_OK;
 525 }
 526
 527 static HRESULT STDMETHODCALLTYPE Frame_EnableModeless(IOleInPlaceFrame *iface, BOOL fEnable)
 528 {
 529     return S_OK;
 530 }
 531
 532 static HRESULT STDMETHODCALLTYPE Frame_TranslateAccelerator(IOleInPlaceFrame *iface, LPMSG lpmsg, WORD wID)
 533 {
 534     return E_NOTIMPL;
 535 }
 536
 537 static const IOleInPlaceFrameVtbl OleInPlaceFrameVtbl =
 538 {
 539     Frame_QueryInterface,
 540     Frame_AddRef,
 541     Frame_Release,
 542     Frame_GetWindow,
 543     Frame_ContextSensitiveHelp,
 544     Frame_GetBorder,
 545     Frame_RequestBorderSpace,
 546     Frame_SetBorderSpace,
 547     Frame_SetActiveObject,
 548     Frame_InsertMenus,
 549     Frame_SetMenu,
 550     Frame_RemoveMenus,
 551     Frame_SetStatusText,
 552     Frame_EnableModeless,
 553     Frame_TranslateAccelerator
 554 };
 555
 556 static HRESULT STDMETHODCALLTYPE Storage_QueryInterface(IStorage *This, REFIID riid, LPVOID *ppvObj)
 557 {
 558     return E_NOTIMPL;
 559 }
 560
 561 static ULONG STDMETHODCALLTYPE Storage_AddRef(IStorage *This)
 562 {
 563     return 1;
 564 }
 565
 566 static ULONG STDMETHODCALLTYPE Storage_Release(IStorage *This)
 567 {
 568     return 2;
 569 }
 570
 571 static HRESULT STDMETHODCALLTYPE Storage_CreateStream(IStorage *This, const WCHAR *pwcsName, DWORD grfMode, DWORD reserved1, DWORD reserved2, IStream **ppstm)
 572 {
 573     return E_NOTIMPL;
 574 }
 575
 576 static HRESULT STDMETHODCALLTYPE Storage_OpenStream(IStorage *This, const WCHAR * pwcsName, void *reserved1, DWORD grfMode, DWORD reserved2, IStream **ppstm)
 577 {
 578     return E_NOTIMPL;
 579 }
 580
 581 static HRESULT STDMETHODCALLTYPE Storage_CreateStorage(IStorage *This, const WCHAR *pwcsName, DWORD grfMode, DWORD reserved1, DWORD reserved2, IStorage **ppstg)
 582 {
 583     return E_NOTIMPL;
 584 }
 585
 586 static HRESULT STDMETHODCALLTYPE Storage_OpenStorage(IStorage *This, const WCHAR * pwcsName, IStorage * pstgPriority, DWORD grfMode, SNB snbExclude, DWORD reserved, IStorage **ppstg)
 587 {
 588     return E_NOTIMPL;
 589 }
 590
 591 static HRESULT STDMETHODCALLTYPE Storage_CopyTo(IStorage *This, DWORD ciidExclude, IID const *rgiidExclude, SNB snbExclude,IStorage *pstgDest)
 592 {
 593     return E_NOTIMPL;
 594 }
 595
 596 static HRESULT STDMETHODCALLTYPE Storage_MoveElementTo(IStorage *This, const OLECHAR *pwcsName,IStorage * pstgDest, const OLECHAR *pwcsNewName, DWORD grfFlags)
 597 {
 598     return E_NOTIMPL;
 599 }
 600
 601 static HRESULT STDMETHODCALLTYPE Storage_Commit(IStorage *This, DWORD grfCommitFlags)
 602 {
 603     return E_NOTIMPL;
 604 }
 605
 606 static HRESULT STDMETHODCALLTYPE Storage_Revert(IStorage *This)
 607 {
 608     return E_NOTIMPL;
 609 }
 610
 611 static HRESULT STDMETHODCALLTYPE Storage_EnumElements(IStorage *This, DWORD reserved1, void *reserved2, DWORD reserved3, IEnumSTATSTG **ppenum)
 612 {
 613     return E_NOTIMPL;
 614 }
 615
 616 static HRESULT STDMETHODCALLTYPE Storage_DestroyElement(IStorage *This, const OLECHAR *pwcsName)
 617 {
 618     return E_NOTIMPL;
 619 }
 620
 621 static HRESULT STDMETHODCALLTYPE Storage_RenameElement(IStorage *This, const WCHAR *pwcsOldName, const WCHAR *pwcsNewName)
 622 {
 623     return E_NOTIMPL;
 624 }
 625
 626 static HRESULT STDMETHODCALLTYPE Storage_SetElementTimes(IStorage *This, const WCHAR *pwcsName, FILETIME const *pctime, FILETIME const *patime, FILETIME const *pmtime)
 627 {
 628     return E_NOTIMPL;
 629 }
 630
 631 static HRESULT STDMETHODCALLTYPE Storage_SetClass(IStorage *This, REFCLSID clsid)
 632 {
 633     return S_OK;
 634 }
 635
 636 static HRESULT STDMETHODCALLTYPE Storage_SetStateBits(IStorage *This, DWORD grfStateBits, DWORD grfMask)
 637 {
 638     return E_NOTIMPL;
 639 }
 640
 641 static HRESULT STDMETHODCALLTYPE Storage_Stat(IStorage *This, STATSTG *pstatstg, DWORD grfStatFlag)
 642 {
 643     return E_NOTIMPL;
 644 }
 645
 646 static const IStorageVtbl MyIStorageTable =
 647 {
 648     Storage_QueryInterface,
 649     Storage_AddRef,
 650     Storage_Release,
 651     Storage_CreateStream,
 652     Storage_OpenStream,
 653     Storage_CreateStorage,
 654     Storage_OpenStorage,
 655     Storage_CopyTo,
 656     Storage_MoveElementTo,
 657     Storage_Commit,
 658     Storage_Revert,
 659     Storage_EnumElements,
 660     Storage_DestroyElement,
 661     Storage_RenameElement,
 662     Storage_SetElementTimes,
 663     Storage_SetClass,
 664     Storage_SetStateBits,
 665     Storage_Stat
 666 };
 667
 668 static IStorage MyIStorage = { &MyIStorageTable };
 669
 670 BOOL InitWebBrowser(HHInfo *info, HWND hwndParent)
 671 {
 672     WebBrowserContainer *container;
 673     IOleInPlaceObject *inplace;
 674     HRESULT hr;
 675     RECT rc;
 676
 677     container = heap_alloc_zero(sizeof(*container));
 678     if (!container)
 679         return FALSE;
 680
 681     container->IOleClientSite_iface.lpVtbl = &OleClientSiteVtbl;
 682     container->IOleInPlaceSite_iface.lpVtbl = &OleInPlaceSiteVtbl;
 683     container->IOleInPlaceFrame_iface.lpVtbl = &OleInPlaceFrameVtbl;
 684     container->IDocHostUIHandler_iface.lpVtbl = &DocHostUIHandlerVtbl;
 685     container->ref = 1;
 686     container->hwndWindow = hwndParent;
 687
 688     info->web_browser = container;
 689
 690     hr = OleCreate(&CLSID_WebBrowser, &IID_IOleObject, OLERENDER_DRAW, 0,
 691                    &container->IOleClientSite_iface, &MyIStorage,
 692                    (void **)&container->ole_obj);
 693
 694     if (FAILED(hr)) goto error;
 695
 696     GetClientRect(hwndParent, &rc);
 697
 698     hr = OleSetContainedObject((struct IUnknown *)container->ole_obj, TRUE);
 699     if (FAILED(hr)) goto error;
 700
 701     hr = IOleObject_DoVerb(container->ole_obj, OLEIVERB_SHOW, NULL,
 702                            &container->IOleClientSite_iface, -1, hwndParent, &rc);
 703     if (FAILED(hr)) goto error;
 704
 705     hr = IOleObject_QueryInterface(container->ole_obj, &IID_IOleInPlaceObject, (void**)&inplace);
 706     if (FAILED(hr)) goto error;
 707
 708     IOleInPlaceObject_SetObjectRects(inplace, &rc, &rc);
 709     IOleInPlaceObject_Release(inplace);
 710
 711     hr = IOleObject_QueryInterface(container->ole_obj, &IID_IWebBrowser2, (void **)&container->web_browser);
 712     if (SUCCEEDED(hr))
 713         return TRUE;
 714
 715 error:
 716     ReleaseWebBrowser(info);
 717     return FALSE;
 718 }
 719
 720 void ReleaseWebBrowser(HHInfo *info)
 721 {
 722     WebBrowserContainer *container = info->web_browser;
 723     HRESULT hres;
 724
 725     if(!container)
 726         return;
 727
 728     if(container->ole_obj) {
 729         IOleInPlaceSite *inplace;
 730
 731         hres = IOleObject_QueryInterface(container->ole_obj, &IID_IOleInPlaceSite, (void**)&inplace);
 732         if(SUCCEEDED(hres)) {
 733             IOleInPlaceSite_OnInPlaceDeactivate(inplace);
 734             IOleInPlaceSite_Release(inplace);
 735         }
 736
 737         IOleObject_SetClientSite(container->ole_obj, NULL);
 738     }
 739
 740     info->web_browser = NULL;
 741     IOleClientSite_Release(&container->IOleClientSite_iface);
 742 }
 743
 744 void ResizeWebBrowser(HHInfo *info, DWORD dwWidth, DWORD dwHeight)
 745 {
 746     if (!info->web_browser)
 747         return;
 748
 749     IWebBrowser2_put_Width(info->web_browser->web_browser, dwWidth);
 750     IWebBrowser2_put_Height(info->web_browser->web_browser, dwHeight);
 751 }
 752
 753 void DoPageAction(WebBrowserContainer *container, DWORD dwAction)
 754 {
 755     if (!container || !container->web_browser)
 756         return;
 757
 758     switch (dwAction)
 759     {
 760         case WB_GOBACK:
 761             IWebBrowser2_GoBack(container->web_browser);
 762             break;
 763         case WB_GOFORWARD:
 764             IWebBrowser2_GoForward(container->web_browser);
 765             break;
 766         case WB_GOHOME:
 767             IWebBrowser2_GoHome(container->web_browser);
 768             break;
 769         case WB_SEARCH:
 770             IWebBrowser2_GoSearch(container->web_browser);
 771             break;
 772         case WB_REFRESH:
 773             IWebBrowser2_Refresh(container->web_browser);
 774             break;
 775         case WB_STOP:
 776             IWebBrowser2_Stop(container->web_browser);
 777             break;
 778         case WB_PRINT:
 779             IWebBrowser2_ExecWB(container->web_browser, OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0);
 780             break;
 781     }
 782 }