reactos/dll/win32/shdocvw/client.c

   1 /*
   2  * Copyright 2005 Jacek Caban for CodeWeavers
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Lesser General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2.1 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Lesser General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Lesser General Public
  15  * License along with this library; if not, write to the Free Software
  16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include <stdio.h>
  20
  21 #include "wine/debug.h"
  22 #include "shdocvw.h"
  23 #include "mshtmdid.h"
  24 #include "idispids.h"
  25
  26 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
  27
  28 #define CLIENTSITE_THIS(iface) DEFINE_THIS(DocHost, OleClientSite, iface)
  29
  30 static HRESULT WINAPI ClientSite_QueryInterface(IOleClientSite *iface, REFIID riid, void **ppv)
  31 {
  32     DocHost *This = CLIENTSITE_THIS(iface);
  33
  34     *ppv = NULL;
  35
  36     if(IsEqualGUID(&IID_IUnknown, riid)) {
  37         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
  38         *ppv = CLIENTSITE(This);
  39     }else if(IsEqualGUID(&IID_IOleClientSite, riid)) {
  40         TRACE("(%p)->(IID_IOleClientSite %p)\n", This, ppv);
  41         *ppv = CLIENTSITE(This);
  42     }else if(IsEqualGUID(&IID_IOleWindow, riid)) {
  43         TRACE("(%p)->(IID_IOleWindow %p)\n", This, ppv);
  44         *ppv = INPLACESITE(This);
  45     }else if(IsEqualGUID(&IID_IOleInPlaceSite, riid)) {
  46         TRACE("(%p)->(IID_IOleInPlaceSite %p)\n", This, ppv);
  47         *ppv = INPLACESITE(This);
  48     }else if(IsEqualGUID(&IID_IDocHostUIHandler, riid)) {
  49         TRACE("(%p)->(IID_IDocHostUIHandler %p)\n", This, ppv);
  50         *ppv = DOCHOSTUI(This);
  51     }else if(IsEqualGUID(&IID_IDocHostUIHandler2, riid)) {
  52         TRACE("(%p)->(IID_IDocHostUIHandler2 %p)\n", This, ppv);
  53         *ppv = DOCHOSTUI2(This);
  54     }else if(IsEqualGUID(&IID_IOleDocumentSite, riid)) {
  55         TRACE("(%p)->(IID_IOleDocumentSite %p)\n", This, ppv);
  56         *ppv = DOCSITE(This);
  57     }else if(IsEqualGUID(&IID_IOleCommandTarget, riid)) {
  58         TRACE("(%p)->(IID_IOleCommandTarget %p)\n", This, ppv);
  59         *ppv = OLECMD(This);
  60     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
  61         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
  62         *ppv = CLDISP(This);
  63     }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
  64         TRACE("(%p)->(IID_IServiceProvider %p)\n", This, ppv);
  65         *ppv = SERVPROV(This);
  66     }
  67
  68     if(*ppv) {
  69         IOleClientSite_AddRef(CLIENTSITE(This));
  70         return S_OK;
  71     }
  72
  73     WARN("Unsupported intrface %s\n", debugstr_guid(riid));
  74
  75     return E_NOINTERFACE;
  76 }
  77
  78 static ULONG WINAPI ClientSite_AddRef(IOleClientSite *iface)
  79 {
  80     DocHost *This = CLIENTSITE_THIS(iface);
  81     return IDispatch_AddRef(This->disp);
  82 }
  83
  84 static ULONG WINAPI ClientSite_Release(IOleClientSite *iface)
  85 {
  86     DocHost *This = CLIENTSITE_THIS(iface);
  87     return IDispatch_Release(This->disp);
  88 }
  89
  90 static HRESULT WINAPI ClientSite_SaveObject(IOleClientSite *iface)
  91 {
  92     DocHost *This = CLIENTSITE_THIS(iface);
  93     FIXME("(%p)\n", This);
  94     return E_NOTIMPL;
  95 }
  96
  97 static HRESULT WINAPI ClientSite_GetMoniker(IOleClientSite *iface, DWORD dwAssign,
  98                                             DWORD dwWhichMoniker, IMoniker **ppmk)
  99 {
 100     DocHost *This = CLIENTSITE_THIS(iface);
 101     FIXME("(%p)->(%d %d %p)\n", This, dwAssign, dwWhichMoniker, ppmk);
 102     return E_NOTIMPL;
 103 }
 104
 105 static HRESULT WINAPI ClientSite_GetContainer(IOleClientSite *iface, IOleContainer **ppContainer)
 106 {
 107     DocHost *This = CLIENTSITE_THIS(iface);
 108     FIXME("(%p)->(%p)\n", This, ppContainer);
 109     return E_NOTIMPL;
 110 }
 111
 112 static HRESULT WINAPI ClientSite_ShowObject(IOleClientSite *iface)
 113 {
 114     DocHost *This = CLIENTSITE_THIS(iface);
 115     FIXME("(%p)\n", This);
 116     return E_NOTIMPL;
 117 }
 118
 119 static HRESULT WINAPI ClientSite_OnShowWindow(IOleClientSite *iface, BOOL fShow)
 120 {
 121     DocHost *This = CLIENTSITE_THIS(iface);
 122     FIXME("(%p)->(%x)\n", This, fShow);
 123     return E_NOTIMPL;
 124 }
 125
 126 static HRESULT WINAPI ClientSite_RequestNewObjectLayout(IOleClientSite *iface)
 127 {
 128     DocHost *This = CLIENTSITE_THIS(iface);
 129     FIXME("(%p)\n", This);
 130     return E_NOTIMPL;
 131 }
 132
 133 #undef CLIENTSITE_THIS
 134
 135 static const IOleClientSiteVtbl OleClientSiteVtbl = {
 136     ClientSite_QueryInterface,
 137     ClientSite_AddRef,
 138     ClientSite_Release,
 139     ClientSite_SaveObject,
 140     ClientSite_GetMoniker,
 141     ClientSite_GetContainer,
 142     ClientSite_ShowObject,
 143     ClientSite_OnShowWindow,
 144     ClientSite_RequestNewObjectLayout
 145 };
 146
 147 #define INPLACESITE_THIS(iface) DEFINE_THIS(DocHost, OleInPlaceSite, iface)
 148
 149 static HRESULT WINAPI InPlaceSite_QueryInterface(IOleInPlaceSite *iface, REFIID riid, void **ppv)
 150 {
 151     DocHost *This = INPLACESITE_THIS(iface);
 152     return IOleClientSite_QueryInterface(CLIENTSITE(This), riid, ppv);
 153 }
 154
 155 static ULONG WINAPI InPlaceSite_AddRef(IOleInPlaceSite *iface)
 156 {
 157     DocHost *This = INPLACESITE_THIS(iface);
 158     return IOleClientSite_AddRef(CLIENTSITE(This));
 159 }
 160
 161 static ULONG WINAPI InPlaceSite_Release(IOleInPlaceSite *iface)
 162 {
 163     DocHost *This = INPLACESITE_THIS(iface);
 164     return IOleClientSite_Release(CLIENTSITE(This));
 165 }
 166
 167 static HRESULT WINAPI InPlaceSite_GetWindow(IOleInPlaceSite *iface, HWND *phwnd)
 168 {
 169     DocHost *This = INPLACESITE_THIS(iface);
 170
 171     TRACE("(%p)->(%p)\n", This, phwnd);
 172
 173     *phwnd = This->hwnd;
 174     return S_OK;
 175 }
 176
 177 static HRESULT WINAPI InPlaceSite_ContextSensitiveHelp(IOleInPlaceSite *iface, BOOL fEnterMode)
 178 {
 179     DocHost *This = INPLACESITE_THIS(iface);
 180     FIXME("(%p)->(%x)\n", This, fEnterMode);
 181     return E_NOTIMPL;
 182 }
 183
 184 static HRESULT WINAPI InPlaceSite_CanInPlaceActivate(IOleInPlaceSite *iface)
 185 {
 186     DocHost *This = INPLACESITE_THIS(iface);
 187
 188     TRACE("(%p)\n", This);
 189
 190     /* Nothing to do here */
 191     return S_OK;
 192 }
 193
 194 static HRESULT WINAPI InPlaceSite_OnInPlaceActivate(IOleInPlaceSite *iface)
 195 {
 196     DocHost *This = INPLACESITE_THIS(iface);
 197
 198     TRACE("(%p)\n", This);
 199
 200     /* Nothing to do here */
 201     return S_OK;
 202 }
 203
 204 static HRESULT WINAPI InPlaceSite_OnUIActivate(IOleInPlaceSite *iface)
 205 {
 206     DocHost *This = INPLACESITE_THIS(iface);
 207     FIXME("(%p)\n", This);
 208     return E_NOTIMPL;
 209 }
 210
 211 static HRESULT WINAPI InPlaceSite_GetWindowContext(IOleInPlaceSite *iface,
 212         IOleInPlaceFrame **ppFrame, IOleInPlaceUIWindow **ppDoc, LPRECT lprcPosRect,
 213         LPRECT lprcClipRect, LPOLEINPLACEFRAMEINFO lpFrameInfo)
 214 {
 215     DocHost *This = INPLACESITE_THIS(iface);
 216
 217     TRACE("(%p)->(%p %p %p %p %p)\n", This, ppFrame, ppDoc, lprcPosRect,
 218           lprcClipRect, lpFrameInfo);
 219
 220     IOleInPlaceFrame_AddRef(INPLACEFRAME(This));
 221     *ppFrame = INPLACEFRAME(This);
 222     *ppDoc = NULL;
 223
 224     GetClientRect(This->hwnd, lprcPosRect);
 225     *lprcClipRect = *lprcPosRect;
 226
 227     lpFrameInfo->cb = sizeof(*lpFrameInfo);
 228     lpFrameInfo->fMDIApp = FALSE;
 229     lpFrameInfo->hwndFrame = This->frame_hwnd;
 230     lpFrameInfo->haccel = NULL;
 231     lpFrameInfo->cAccelEntries = 0; /* FIXME: should be 5 */
 232
 233     return S_OK;
 234 }
 235
 236 static HRESULT WINAPI InPlaceSite_Scroll(IOleInPlaceSite *iface, SIZE scrollExtent)
 237 {
 238     DocHost *This = INPLACESITE_THIS(iface);
 239     FIXME("(%p)->({%d %d})\n", This, scrollExtent.cx, scrollExtent.cy);
 240     return E_NOTIMPL;
 241 }
 242
 243 static HRESULT WINAPI InPlaceSite_OnUIDeactivate(IOleInPlaceSite *iface, BOOL fUndoable)
 244 {
 245     DocHost *This = INPLACESITE_THIS(iface);
 246     FIXME("(%p)->(%x)\n", This, fUndoable);
 247     return E_NOTIMPL;
 248 }
 249
 250 static HRESULT WINAPI InPlaceSite_OnInPlaceDeactivate(IOleInPlaceSite *iface)
 251 {
 252     DocHost *This = INPLACESITE_THIS(iface);
 253
 254     TRACE("(%p)\n", This);
 255
 256     /* Nothing to do here */
 257     return S_OK;
 258 }
 259
 260 static HRESULT WINAPI InPlaceSite_DiscardUndoState(IOleInPlaceSite *iface)
 261 {
 262     DocHost *This = INPLACESITE_THIS(iface);
 263     FIXME("(%p)\n", This);
 264     return E_NOTIMPL;
 265 }
 266
 267 static HRESULT WINAPI InPlaceSite_DeactivateAndUndo(IOleInPlaceSite *iface)
 268 {
 269     DocHost *This = INPLACESITE_THIS(iface);
 270     FIXME("(%p)\n", This);
 271     return E_NOTIMPL;
 272 }
 273
 274 static HRESULT WINAPI InPlaceSite_OnPosRectChange(IOleInPlaceSite *iface,
 275                                                   LPCRECT lprcPosRect)
 276 {
 277     DocHost *This = INPLACESITE_THIS(iface);
 278     FIXME("(%p)->(%p)\n", This, lprcPosRect);
 279     return E_NOTIMPL;
 280 }
 281
 282 #undef INPLACESITE_THIS
 283
 284 static const IOleInPlaceSiteVtbl OleInPlaceSiteVtbl = {
 285     InPlaceSite_QueryInterface,
 286     InPlaceSite_AddRef,
 287     InPlaceSite_Release,
 288     InPlaceSite_GetWindow,
 289     InPlaceSite_ContextSensitiveHelp,
 290     InPlaceSite_CanInPlaceActivate,
 291     InPlaceSite_OnInPlaceActivate,
 292     InPlaceSite_OnUIActivate,
 293     InPlaceSite_GetWindowContext,
 294     InPlaceSite_Scroll,
 295     InPlaceSite_OnUIDeactivate,
 296     InPlaceSite_OnInPlaceDeactivate,
 297     InPlaceSite_DiscardUndoState,
 298     InPlaceSite_DeactivateAndUndo,
 299     InPlaceSite_OnPosRectChange
 300 };
 301
 302 #define DOCSITE_THIS(iface) DEFINE_THIS(DocHost, OleDocumentSite, iface)
 303
 304 static HRESULT WINAPI OleDocumentSite_QueryInterface(IOleDocumentSite *iface,
 305                                                      REFIID riid, void **ppv)
 306 {
 307     DocHost *This = DOCSITE_THIS(iface);
 308     return IOleClientSite_QueryInterface(CLIENTSITE(This), riid, ppv);
 309 }
 310
 311 static ULONG WINAPI OleDocumentSite_AddRef(IOleDocumentSite *iface)
 312 {
 313     DocHost *This = DOCSITE_THIS(iface);
 314     return IOleClientSite_AddRef(CLIENTSITE(This));
 315 }
 316
 317 static ULONG WINAPI OleDocumentSite_Release(IOleDocumentSite *iface)
 318 {
 319     DocHost *This = DOCSITE_THIS(iface);
 320     return IOleClientSite_Release(CLIENTSITE(This));
 321 }
 322
 323 static HRESULT WINAPI OleDocumentSite_ActivateMe(IOleDocumentSite *iface,
 324                                                  IOleDocumentView *pViewToActivate)
 325 {
 326     DocHost *This = DOCSITE_THIS(iface);
 327     IOleDocument *oledoc;
 328     RECT rect;
 329     HRESULT hres;
 330
 331     TRACE("(%p)->(%p)\n", This, pViewToActivate);
 332
 333     hres = IUnknown_QueryInterface(This->document, &IID_IOleDocument, (void**)&oledoc);
 334     if(FAILED(hres))
 335         return hres;
 336
 337     IOleDocument_CreateView(oledoc, INPLACESITE(This), NULL, 0, &This->view);
 338     IOleDocument_Release(oledoc);
 339
 340     GetClientRect(This->hwnd, &rect);
 341     IOleDocumentView_SetRect(This->view, &rect);
 342
 343     hres = IOleDocumentView_Show(This->view, TRUE);
 344
 345     return hres;
 346 }
 347
 348 #undef DOCSITE_THIS
 349
 350 static const IOleDocumentSiteVtbl OleDocumentSiteVtbl = {
 351     OleDocumentSite_QueryInterface,
 352     OleDocumentSite_AddRef,
 353     OleDocumentSite_Release,
 354     OleDocumentSite_ActivateMe
 355 };
 356
 357 #define DISP_THIS(iface) DEFINE_THIS(DocHost, Dispatch, iface)
 358
 359 static HRESULT WINAPI ClDispatch_QueryInterface(IDispatch *iface, REFIID riid, void **ppv)
 360 {
 361     DocHost *This = DISP_THIS(iface);
 362     return IOleClientSite_QueryInterface(CLIENTSITE(This), riid, ppv);
 363 }
 364
 365 static ULONG WINAPI ClDispatch_AddRef(IDispatch *iface)
 366 {
 367     DocHost *This = DISP_THIS(iface);
 368     return IOleClientSite_AddRef(CLIENTSITE(This));
 369 }
 370
 371 static ULONG WINAPI ClDispatch_Release(IDispatch *iface)
 372 {
 373     DocHost *This = DISP_THIS(iface);
 374     return IOleClientSite_Release(CLIENTSITE(This));
 375 }
 376
 377 static HRESULT WINAPI ClDispatch_GetTypeInfoCount(IDispatch *iface, UINT *pctinfo)
 378 {
 379     DocHost *This = DISP_THIS(iface);
 380
 381     TRACE("(%p)->(%p)\n", This, pctinfo);
 382
 383     return E_NOTIMPL;
 384 }
 385
 386 static HRESULT WINAPI ClDispatch_GetTypeInfo(IDispatch *iface, UINT iTInfo, LCID lcid,
 387                                              ITypeInfo **ppTInfo)
 388 {
 389     DocHost *This = DISP_THIS(iface);
 390
 391     TRACE("(%p)->(%u %d %p)\n", This, iTInfo, lcid, ppTInfo);
 392
 393     return E_NOTIMPL;
 394 }
 395
 396 static HRESULT WINAPI ClDispatch_GetIDsOfNames(IDispatch *iface, REFIID riid, LPOLESTR *rgszNames,
 397                                                UINT cNames, LCID lcid, DISPID *rgDispId)
 398 {
 399     DocHost *This = DISP_THIS(iface);
 400
 401     TRACE("(%p)->(%s %p %u %d %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
 402           lcid, rgDispId);
 403
 404     return E_NOTIMPL;
 405 }
 406
 407 static const char *debugstr_dispid(DISPID dispid)
 408 {
 409     static char buf[16];
 410
 411 #define CASE_DISPID(did) case did: return #did
 412     switch(dispid) {
 413         CASE_DISPID(DISPID_AMBIENT_USERMODE);
 414         CASE_DISPID(DISPID_AMBIENT_DLCONTROL);
 415         CASE_DISPID(DISPID_AMBIENT_USERAGENT);
 416         CASE_DISPID(DISPID_AMBIENT_PALETTE);
 417         CASE_DISPID(DISPID_AMBIENT_OFFLINEIFNOTCONNECTED);
 418         CASE_DISPID(DISPID_AMBIENT_SILENT);
 419     }
 420 #undef CASE_DISPID
 421
 422     sprintf(buf, "%d", dispid);
 423     return buf;
 424 }
 425
 426 static HRESULT WINAPI ClDispatch_Invoke(IDispatch *iface, DISPID dispIdMember, REFIID riid,
 427                                         LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
 428                                         VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 429 {
 430     DocHost *This = DISP_THIS(iface);
 431
 432     TRACE("(%p)->(%s %s %d %04x %p %p %p %p)\n", This, debugstr_dispid(dispIdMember),
 433           debugstr_guid(riid), lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
 434
 435     switch(dispIdMember) {
 436     case DISPID_AMBIENT_USERMODE:
 437     case DISPID_AMBIENT_DLCONTROL:
 438     case DISPID_AMBIENT_USERAGENT:
 439     case DISPID_AMBIENT_PALETTE:
 440         if(!This->client_disp)
 441             return E_FAIL;
 442         return IDispatch_Invoke(This->client_disp, dispIdMember, riid, lcid, wFlags,
 443                                 pDispParams, pVarResult, pExcepInfo, puArgErr);
 444     case DISPID_AMBIENT_OFFLINEIFNOTCONNECTED:
 445         V_VT(pVarResult) = VT_BOOL;
 446         V_BOOL(pVarResult) = This->offline;
 447         return S_OK;
 448     case DISPID_AMBIENT_SILENT:
 449         V_VT(pVarResult) = VT_BOOL;
 450         V_BOOL(pVarResult) = This->offline;
 451         return S_OK;
 452     }
 453
 454     FIXME("unhandled dispid %d\n", dispIdMember);
 455     return E_NOTIMPL;
 456 }
 457
 458 #undef DISP_THIS
 459
 460 static const IDispatchVtbl DispatchVtbl = {
 461     ClDispatch_QueryInterface,
 462     ClDispatch_AddRef,
 463     ClDispatch_Release,
 464     ClDispatch_GetTypeInfoCount,
 465     ClDispatch_GetTypeInfo,
 466     ClDispatch_GetIDsOfNames,
 467     ClDispatch_Invoke
 468 };
 469
 470 #define SERVPROV_THIS(iface) DEFINE_THIS(DocHost, ServiceProvider, iface)
 471
 472 static HRESULT WINAPI ClServiceProvider_QueryInterface(IServiceProvider *iface, REFIID riid,
 473                                                        void **ppv)
 474 {
 475     DocHost *This = SERVPROV_THIS(iface);
 476     return IOleClientSite_QueryInterface(CLIENTSITE(This), riid, ppv);
 477 }
 478
 479 static ULONG WINAPI ClServiceProvider_AddRef(IServiceProvider *iface)
 480 {
 481     DocHost *This = SERVPROV_THIS(iface);
 482     return IOleClientSite_AddRef(CLIENTSITE(This));
 483 }
 484
 485 static ULONG WINAPI ClServiceProvider_Release(IServiceProvider *iface)
 486 {
 487     DocHost *This = SERVPROV_THIS(iface);
 488     return IOleClientSite_Release(CLIENTSITE(This));
 489 }
 490
 491 static HRESULT WINAPI ClServiceProvider_QueryService(IServiceProvider *iface, REFGUID guidService,
 492                                                      REFIID riid, void **ppv)
 493 {
 494     DocHost *This = SERVPROV_THIS(iface);
 495
 496     if(IsEqualGUID(&IID_IHlinkFrame, guidService)) {
 497         TRACE("(%p)->(IID_IHlinkFrame %s %p)\n", This, debugstr_guid(riid), ppv);
 498         return IDispatch_QueryInterface(This->disp, riid, ppv);
 499     }
 500
 501     FIXME("(%p)->(%s %s %p)\n", This, debugstr_guid(guidService), debugstr_guid(riid), ppv);
 502
 503     return E_NOINTERFACE;
 504 }
 505
 506 #undef SERVPROV_THIS
 507
 508 static const IServiceProviderVtbl ServiceProviderVtbl = {
 509     ClServiceProvider_QueryInterface,
 510     ClServiceProvider_AddRef,
 511     ClServiceProvider_Release,
 512     ClServiceProvider_QueryService
 513 };
 514
 515 void DocHost_ClientSite_Init(DocHost *This)
 516 {
 517     This->lpOleClientSiteVtbl   = &OleClientSiteVtbl;
 518     This->lpOleInPlaceSiteVtbl  = &OleInPlaceSiteVtbl;
 519     This->lpOleDocumentSiteVtbl = &OleDocumentSiteVtbl;
 520     This->lpDispatchVtbl        = &DispatchVtbl;
 521     This->lpServiceProviderVtbl = &ServiceProviderVtbl;
 522
 523     This->view = NULL;
 524 }
 525
 526 void DocHost_ClientSite_Release(DocHost *This)
 527 {
 528     if(This->view)
 529         IOleDocumentView_Release(This->view);
 530 }