git.oblomov.eu Git - wine/blob - dlls/mshtml/oleobj.c

   1 /*
   2  * Copyright 2005 Jacek Caban
   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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  17  */
  18
  19 #include "config.h"
  20
  21 #include <stdarg.h>
  22 #include <stdio.h>
  23
  24 #define COBJMACROS
  25
  26 #include "windef.h"
  27 #include "winbase.h"
  28 #include "winuser.h"
  29 #include "ole2.h"
  30 #include "docobj.h"
  31
  32 #include "mshtml.h"
  33 #include "mshtmhst.h"
  34
  35 #include "wine/debug.h"
  36
  37 #include "mshtml_private.h"
  38
  39 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
  40
  41 /**********************************************************
  42  * IOleObject implementation
  43  */
  44
  45 #define OLEOBJ_THIS(iface) DEFINE_THIS(HTMLDocument, OleObject, iface)
  46
  47 static HRESULT WINAPI OleObject_QueryInterface(IOleObject *iface, REFIID riid, void **ppvObject)
  48 {
  49     HTMLDocument *This = OLEOBJ_THIS(iface);
  50     return IHTMLDocument2_QueryInterface(HTMLDOC(This), riid, ppvObject);
  51 }
  52
  53 static ULONG WINAPI OleObject_AddRef(IOleObject *iface)
  54 {
  55     HTMLDocument *This = OLEOBJ_THIS(iface);
  56     return IHTMLDocument2_AddRef(HTMLDOC(This));
  57 }
  58
  59 static ULONG WINAPI OleObject_Release(IOleObject *iface)
  60 {
  61     HTMLDocument *This = OLEOBJ_THIS(iface);
  62     return IHTMLDocument2_Release(HTMLDOC(This));
  63 }
  64
  65 static HRESULT WINAPI OleObject_SetClientSite(IOleObject *iface, IOleClientSite *pClientSite)
  66 {
  67     HTMLDocument *This = OLEOBJ_THIS(iface);
  68     IDocHostUIHandler *pDocHostUIHandler = NULL;
  69     HRESULT hres;
  70
  71     TRACE("(%p)->(%p)\n", This, pClientSite);
  72
  73     if(This->client)
  74         IOleClientSite_Release(This->client);
  75
  76     if(This->hostui)
  77         IDocHostUIHandler_Release(This->hostui);
  78
  79     if(!pClientSite) {
  80         This->client = NULL;
  81         return S_OK;
  82     }
  83
  84     hres = IOleObject_QueryInterface(pClientSite, &IID_IDocHostUIHandler, (void**)&pDocHostUIHandler);
  85     if(SUCCEEDED(hres)) {
  86         DOCHOSTUIINFO hostinfo;
  87         LPOLESTR key_path = NULL, override_key_path = NULL;
  88         IDocHostUIHandler2 *pDocHostUIHandler2;
  89
  90         memset(&hostinfo, 0, sizeof(DOCHOSTUIINFO));
  91         hostinfo.cbSize = sizeof(DOCHOSTUIINFO);
  92         hres = IDocHostUIHandler_GetHostInfo(pDocHostUIHandler, &hostinfo);
  93         if(SUCCEEDED(hres))
  94             /* FIXME: use hostinfo */
  95             TRACE("hostinfo = {%lu %08lx %08lx %s %s}\n",
  96                     hostinfo.cbSize, hostinfo.dwFlags, hostinfo.dwDoubleClick,
  97                     debugstr_w(hostinfo.pchHostCss), debugstr_w(hostinfo.pchHostNS));
  98
  99         hres = IDocHostUIHandler_GetOptionKeyPath(pDocHostUIHandler, &key_path, 0);
 100         if(hres == S_OK && key_path && key_path[0])
 101             /* FIXME: use key_path */
 102             TRACE("key_path = %s\n", debugstr_w(key_path));
 103
 104         hres = IDocHostUIHandler_QueryInterface(pDocHostUIHandler, &IID_IDocHostUIHandler2,
 105                 (void**)&pDocHostUIHandler2);
 106         if(SUCCEEDED(hres)) {
 107             /*FIXME: use override_key_path */
 108             hres = IDocHostUIHandler2_GetOverrideKeyPath(pDocHostUIHandler2, &override_key_path, 0);
 109             if(hres == S_OK && override_key_path && override_key_path[0])
 110                 FIXME("override_key_path = %s\n", debugstr_w(override_key_path));
 111         }
 112     }
 113
 114     /* Native calls here GetWindow. What is it for?
 115      * We don't have anything to do with it here (yet). */
 116     if(pClientSite) {
 117         IOleWindow *pOleWindow = NULL;
 118         HWND hwnd;
 119
 120         hres = IOleClientSite_QueryInterface(pClientSite, &IID_IOleWindow, (void**)&pOleWindow);
 121         if(SUCCEEDED(hres)) {
 122             IOleWindow_GetWindow(pOleWindow, &hwnd);
 123             IOleWindow_Release(pOleWindow);
 124         }
 125     }
 126
 127     IOleClientSite_AddRef(pClientSite);
 128     This->client = pClientSite;
 129     This->hostui = pDocHostUIHandler;
 130
 131     return S_OK;
 132 }
 133
 134 static HRESULT WINAPI OleObject_GetClientSite(IOleObject *iface, IOleClientSite **ppClientSite)
 135 {
 136     HTMLDocument *This = OLEOBJ_THIS(iface);
 137
 138     TRACE("(%p)->(%p)\n", This, ppClientSite);
 139
 140     if(!ppClientSite)
 141         return E_INVALIDARG;
 142
 143     if(This->client)
 144         IOleClientSite_AddRef(This->client);
 145     *ppClientSite = This->client;
 146
 147     return S_OK;
 148 }
 149
 150 static HRESULT WINAPI OleObject_SetHostNames(IOleObject *iface, LPCOLESTR szContainerApp, LPCOLESTR szContainerObj)
 151 {
 152     HTMLDocument *This = OLEOBJ_THIS(iface);
 153     FIXME("(%p)->(%s %s)\n", This, debugstr_w(szContainerApp), debugstr_w(szContainerObj));
 154     return E_NOTIMPL;
 155 }
 156
 157 static HRESULT WINAPI OleObject_Close(IOleObject *iface, DWORD dwSaveOption)
 158 {
 159     HTMLDocument *This = OLEOBJ_THIS(iface);
 160     HRESULT hres;
 161
 162     FIXME("(%p)->(%08lx)\n", This, dwSaveOption);
 163
 164     if(This->client) {
 165         IOleContainer *container;
 166         hres = IOleClientSite_GetContainer(This->client, &container);
 167         if(SUCCEEDED(hres)) {
 168             IOleContainer_LockContainer(container, FALSE);
 169             IOleContainer_Release(container);
 170         }
 171     }
 172
 173     return S_OK;
 174 }
 175
 176 static HRESULT WINAPI OleObject_SetMoniker(IOleObject *iface, DWORD dwWhichMoniker, IMoniker *pmk)
 177 {
 178     HTMLDocument *This = OLEOBJ_THIS(iface);
 179     FIXME("(%p %ld %p)->()\n", This, dwWhichMoniker, pmk);
 180     return E_NOTIMPL;
 181 }
 182
 183 static HRESULT WINAPI OleObject_GetMoniker(IOleObject *iface, DWORD dwAssign, DWORD dwWhichMoniker, IMoniker **ppmk)
 184 {
 185     HTMLDocument *This = OLEOBJ_THIS(iface);
 186     FIXME("(%p)->(%ld %ld %p)\n", This, dwAssign, dwWhichMoniker, ppmk);
 187     return E_NOTIMPL;
 188 }
 189
 190 static HRESULT WINAPI OleObject_InitFromData(IOleObject *iface, IDataObject *pDataObject, BOOL fCreation,
 191                                         DWORD dwReserved)
 192 {
 193     HTMLDocument *This = OLEOBJ_THIS(iface);
 194     FIXME("(%p)->(%p %x %ld)\n", This, pDataObject, fCreation, dwReserved);
 195     return E_NOTIMPL;
 196 }
 197
 198 static HRESULT WINAPI OleObject_GetClipboardData(IOleObject *iface, DWORD dwReserved, IDataObject **ppDataObject)
 199 {
 200     HTMLDocument *This = OLEOBJ_THIS(iface);
 201     FIXME("(%p)->(%ld %p)\n", This, dwReserved, ppDataObject);
 202     return E_NOTIMPL;
 203 }
 204
 205 static HRESULT WINAPI OleObject_DoVerb(IOleObject *iface, LONG iVerb, LPMSG lpmsg, IOleClientSite *pActiveSite,
 206                                         LONG lindex, HWND hwndParent, LPCRECT lprcPosRect)
 207 {
 208     HTMLDocument *This = OLEOBJ_THIS(iface);
 209     IOleDocumentSite *pDocSite;
 210     HRESULT hres;
 211
 212     TRACE("(%p)->(%ld %p %p %ld %p %p)\n", This, iVerb, lpmsg, pActiveSite, lindex, hwndParent, lprcPosRect);
 213
 214     if(iVerb != OLEIVERB_SHOW && iVerb != OLEIVERB_UIACTIVATE) {
 215         FIXME("iVerb = %ld not supported\n", iVerb);
 216         return E_NOTIMPL;
 217     }
 218
 219     if(!pActiveSite)
 220         pActiveSite = This->client;
 221
 222     hres = IOleClientSite_QueryInterface(pActiveSite, &IID_IOleDocumentSite, (void**)&pDocSite);
 223     if(SUCCEEDED(hres)) {
 224         IOleContainer *pContainer;
 225         hres = IOleClientSite_GetContainer(pActiveSite, &pContainer);
 226         if(SUCCEEDED(hres)) {
 227             IOleContainer_LockContainer(pContainer, TRUE);
 228             IOleContainer_Release(pContainer);
 229         }
 230         /* FIXME: Create new IOleDocumentView. See CreateView for more info. */
 231         hres = IOleDocumentSite_ActivateMe(pDocSite, DOCVIEW(This));
 232         IOleDocumentSite_Release(pDocSite);
 233     }else {
 234         hres = IOleDocumentView_UIActivate(DOCVIEW(This), TRUE);
 235         if(SUCCEEDED(hres)) {
 236             if(lprcPosRect) {
 237                 RECT rect; /* We need to pass rect as not const pointer */
 238                 memcpy(&rect, lprcPosRect, sizeof(RECT));
 239                 IOleDocumentView_SetRect(DOCVIEW(This), &rect);
 240             }
 241             IOleDocumentView_Show(DOCVIEW(This), TRUE);
 242         }
 243     }
 244
 245     return hres;
 246 }
 247
 248 static HRESULT WINAPI OleObject_EnumVerbs(IOleObject *iface, IEnumOLEVERB **ppEnumOleVerb)
 249 {
 250     HTMLDocument *This = OLEOBJ_THIS(iface);
 251     FIXME("(%p)->(%p)\n", This, ppEnumOleVerb);
 252     return E_NOTIMPL;
 253 }
 254
 255 static HRESULT WINAPI OleObject_Update(IOleObject *iface)
 256 {
 257     HTMLDocument *This = OLEOBJ_THIS(iface);
 258     FIXME("(%p)\n", This);
 259     return E_NOTIMPL;
 260 }
 261
 262 static HRESULT WINAPI OleObject_IsUpToDate(IOleObject *iface)
 263 {
 264     HTMLDocument *This = OLEOBJ_THIS(iface);
 265     FIXME("(%p)\n", This);
 266     return E_NOTIMPL;
 267 }
 268
 269 static HRESULT WINAPI OleObject_GetUserClassID(IOleObject *iface, CLSID *pClsid)
 270 {
 271     HTMLDocument *This = OLEOBJ_THIS(iface);
 272
 273     TRACE("(%p)->(%p)\n", This, pClsid);
 274
 275     if(!pClsid)
 276         return E_INVALIDARG;
 277
 278     memcpy(pClsid, &CLSID_HTMLDocument, sizeof(GUID));
 279     return S_OK;
 280 }
 281
 282 static HRESULT WINAPI OleObject_GetUserType(IOleObject *iface, DWORD dwFormOfType, LPOLESTR *pszUserType)
 283 {
 284     HTMLDocument *This = OLEOBJ_THIS(iface);
 285     FIXME("(%p)->(%ld %p)\n", This, dwFormOfType, pszUserType);
 286     return E_NOTIMPL;
 287 }
 288
 289 static HRESULT WINAPI OleObject_SetExtent(IOleObject *iface, DWORD dwDrawAspect, SIZEL *psizel)
 290 {
 291     HTMLDocument *This = OLEOBJ_THIS(iface);
 292     FIXME("(%p)->(%ld %p)\n", This, dwDrawAspect, psizel);
 293     return E_NOTIMPL;
 294 }
 295
 296 static HRESULT WINAPI OleObject_GetExtent(IOleObject *iface, DWORD dwDrawAspect, SIZEL *psizel)
 297 {
 298     HTMLDocument *This = OLEOBJ_THIS(iface);
 299     FIXME("(%p)->(%ld %p)\n", This, dwDrawAspect, psizel);
 300     return E_NOTIMPL;
 301 }
 302
 303 static HRESULT WINAPI OleObject_Advise(IOleObject *iface, IAdviseSink *pAdvSink, DWORD *pdwConnection)
 304 {
 305     HTMLDocument *This = OLEOBJ_THIS(iface);
 306     FIXME("(%p)->(%p %p)\n", This, pAdvSink, pdwConnection);
 307     return E_NOTIMPL;
 308 }
 309
 310 static HRESULT WINAPI OleObject_Unadvise(IOleObject *iface, DWORD dwConnection)
 311 {
 312     HTMLDocument *This = OLEOBJ_THIS(iface);
 313     FIXME("(%p)->(%ld)\n", This, dwConnection);
 314     return E_NOTIMPL;
 315 }
 316
 317 static HRESULT WINAPI OleObject_EnumAdvise(IOleObject *iface, IEnumSTATDATA **ppenumAdvise)
 318 {
 319     HTMLDocument *This = OLEOBJ_THIS(iface);
 320     FIXME("(%p)->(%p)\n", This, ppenumAdvise);
 321     return E_NOTIMPL;
 322 }
 323
 324 static HRESULT WINAPI OleObject_GetMiscStatus(IOleObject *iface, DWORD dwAspect, DWORD *pdwStatus)
 325 {
 326     HTMLDocument *This = OLEOBJ_THIS(iface);
 327     FIXME("(%p)->(%ld %p)\n", This, dwAspect, pdwStatus);
 328     return E_NOTIMPL;
 329 }
 330
 331 static HRESULT WINAPI OleObject_SetColorScheme(IOleObject *iface, LOGPALETTE *pLogpal)
 332 {
 333     HTMLDocument *This = OLEOBJ_THIS(iface);
 334     FIXME("(%p)->(%p)\n", This, pLogpal);
 335     return E_NOTIMPL;
 336 }
 337
 338 #undef OLEPBJ_THIS
 339
 340 static const IOleObjectVtbl OleObjectVtbl = {
 341     OleObject_QueryInterface,
 342     OleObject_AddRef,
 343     OleObject_Release,
 344     OleObject_SetClientSite,
 345     OleObject_GetClientSite,
 346     OleObject_SetHostNames,
 347     OleObject_Close,
 348     OleObject_SetMoniker,
 349     OleObject_GetMoniker,
 350     OleObject_InitFromData,
 351     OleObject_GetClipboardData,
 352     OleObject_DoVerb,
 353     OleObject_EnumVerbs,
 354     OleObject_Update,
 355     OleObject_IsUpToDate,
 356     OleObject_GetUserClassID,
 357     OleObject_GetUserType,
 358     OleObject_SetExtent,
 359     OleObject_GetExtent,
 360     OleObject_Advise,
 361     OleObject_Unadvise,
 362     OleObject_EnumAdvise,
 363     OleObject_GetMiscStatus,
 364     OleObject_SetColorScheme
 365 };
 366
 367 /**********************************************************
 368  * IOleDocument implementation
 369  */
 370
 371 #define OLEDOC_THIS(iface) DEFINE_THIS(HTMLDocument, OleDocument, iface)
 372
 373 static HRESULT WINAPI OleDocument_QueryInterface(IOleDocument *iface, REFIID riid, void **ppvObject)
 374 {
 375     HTMLDocument *This = OLEDOC_THIS(iface);
 376     return IHTMLDocument2_QueryInterface(HTMLDOC(This), riid, ppvObject);
 377 }
 378
 379 static ULONG WINAPI OleDocument_AddRef(IOleDocument *iface)
 380 {
 381     HTMLDocument *This = OLEDOC_THIS(iface);
 382     return IHTMLDocument2_AddRef(HTMLDOC(This));
 383 }
 384
 385 static ULONG WINAPI OleDocument_Release(IOleDocument *iface)
 386 {
 387     HTMLDocument *This = OLEDOC_THIS(iface);
 388     return IHTMLDocument2_Release(HTMLDOC(This));
 389 }
 390
 391 static HRESULT WINAPI OleDocument_CreateView(IOleDocument *iface, IOleInPlaceSite *pIPSite, IStream *pstm,
 392                                    DWORD dwReserved, IOleDocumentView **ppView)
 393 {
 394     HTMLDocument *This = OLEDOC_THIS(iface);
 395     HRESULT hres;
 396
 397     TRACE("(%p)->(%p %p %ld %p)\n", This, pIPSite, pstm, dwReserved, ppView);
 398
 399     if(!ppView)
 400         return E_INVALIDARG;
 401
 402     /* FIXME:
 403      * Windows implementation creates new IOleDocumentView when function is called for the
 404      * first time and returns E_FAIL when it is called for the second time, but it doesn't matter
 405      * if the application uses returned interfaces, passed to ActivateMe or returned by
 406      * QueryInterface, so there is no reason to create new interface. This needs more testing.
 407      */
 408
 409     if(pIPSite) {
 410         hres = IOleDocumentView_SetInPlaceSite(DOCVIEW(This), pIPSite);
 411         if(FAILED(hres))
 412             return hres;
 413     }
 414
 415     if(pstm)
 416         FIXME("pstm is not supported\n");
 417
 418     IOleDocumentView_AddRef(DOCVIEW(This));
 419     *ppView = DOCVIEW(This);
 420     return S_OK;
 421 }
 422
 423 static HRESULT WINAPI OleDocument_GetDocMiscStatus(IOleDocument *iface, DWORD *pdwStatus)
 424 {
 425     HTMLDocument *This = OLEDOC_THIS(iface);
 426     FIXME("(%p)->(%p)\n", This, pdwStatus);
 427     return E_NOTIMPL;
 428 }
 429
 430 static HRESULT WINAPI OleDocument_EnumViews(IOleDocument *iface, IEnumOleDocumentViews **ppEnum,
 431                                    IOleDocumentView **ppView)
 432 {
 433     HTMLDocument *This = OLEDOC_THIS(iface);
 434     FIXME("(%p)->(%p %p)\n", This, ppEnum, ppView);
 435     return E_NOTIMPL;
 436 }
 437
 438 #undef OLEDOC_THIS
 439
 440 static const IOleDocumentVtbl OleDocumentVtbl = {
 441     OleDocument_QueryInterface,
 442     OleDocument_AddRef,
 443     OleDocument_Release,
 444     OleDocument_CreateView,
 445     OleDocument_GetDocMiscStatus,
 446     OleDocument_EnumViews
 447 };
 448
 449 /**********************************************************
 450  * IOleCommandTarget implementation
 451  */
 452
 453 #define CMDTARGET_THIS(iface) DEFINE_THIS(HTMLDocument, OleCommandTarget, iface)
 454
 455 static HRESULT WINAPI OleCommandTarget_QueryInterface(IOleCommandTarget *iface, REFIID riid, void **ppv)
 456 {
 457     HTMLDocument *This = CMDTARGET_THIS(iface);
 458     return IHTMLDocument2_QueryInterface(HTMLDOC(This), riid, ppv);
 459 }
 460
 461 static ULONG WINAPI OleCommandTarget_AddRef(IOleCommandTarget *iface)
 462 {
 463     HTMLDocument *This = CMDTARGET_THIS(iface);
 464     return IHTMLDocument2_AddRef(HTMLDOC(This));
 465 }
 466
 467 static ULONG WINAPI OleCommandTarget_Release(IOleCommandTarget *iface)
 468 {
 469     HTMLDocument *This = CMDTARGET_THIS(iface);
 470     return IHTMLDocument_Release(HTMLDOC(This));
 471 }
 472
 473 static HRESULT WINAPI OleCommandTarget_QueryStatus(IOleCommandTarget *iface, const GUID *pguidCmdGroup,
 474         ULONG cCmds, OLECMD prgCmds[], OLECMDTEXT *pCmdText)
 475 {
 476     HTMLDocument *This = CMDTARGET_THIS(iface);
 477     FIXME("(%p)->(%s %ld %p %p)\n", This, debugstr_guid(pguidCmdGroup), cCmds, prgCmds, pCmdText);
 478     return E_NOTIMPL;
 479 }
 480
 481 static HRESULT WINAPI OleCommandTarget_Exec(IOleCommandTarget *iface, const GUID *pguidCmdGroup,
 482         DWORD nCmdID, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
 483 {
 484     HTMLDocument *This = CMDTARGET_THIS(iface);
 485     FIXME("(%p)->(%s %ld %ld %p %p)\n", This, debugstr_guid(pguidCmdGroup), nCmdID, nCmdexecopt,
 486             pvaIn, pvaOut);
 487     return E_NOTIMPL;
 488 }
 489
 490 static const IOleCommandTargetVtbl OleCommandTargetVtbl = {
 491     OleCommandTarget_QueryInterface,
 492     OleCommandTarget_AddRef,
 493     OleCommandTarget_Release,
 494     OleCommandTarget_QueryStatus,
 495     OleCommandTarget_Exec
 496 };
 497
 498 void HTMLDocument_OleObj_Init(HTMLDocument *This)
 499 {
 500     This->lpOleObjectVtbl = &OleObjectVtbl;
 501     This->lpOleDocumentVtbl = &OleDocumentVtbl;
 502     This->lpOleCommandTargetVtbl = &OleCommandTargetVtbl;
 503
 504     This->client = NULL;
 505     This->hostui = NULL;
 506 }