Get rid of the no longer used ICOM_MSVTABLE_COMPAT_DummyRTTIVALUE
[wine] / dlls / shdocvw / oleobject.c
1 /*
2  * Implementation of IOleObject interfaces for IE Web Browser
3  *
4  * - IOleObject
5  * - IOleInPlaceObject
6  * - IOleControl
7  *
8  * Copyright 2001 John R. Sheets (for CodeWeavers)
9  *
10  * This library is free software; you can redistribute it and/or
11  * modify it under the terms of the GNU Lesser General Public
12  * License as published by the Free Software Foundation; either
13  * version 2.1 of the License, or (at your option) any later version.
14  *
15  * This library is distributed in the hope that it will be useful,
16  * but WITHOUT ANY WARRANTY; without even the implied warranty of
17  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
18  * Lesser General Public License for more details.
19  *
20  * You should have received a copy of the GNU Lesser General Public
21  * License along with this library; if not, write to the Free Software
22  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
23  */
24
25 #include <string.h>
26 #include "wine/debug.h"
27 #include "shdocvw.h"
28 #include "ole2.h"
29
30 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
31
32 /**********************************************************************
33  * Implement the IOleObject interface for the web browser component
34  *
35  * Based on DefaultHandler code in dlls/ole32/defaulthandler.c.
36  */
37
38 static ULONG WINAPI WBOOBJ_AddRef(LPOLEOBJECT iface);
39 static ULONG WINAPI WBOOBJ_Release(LPOLEOBJECT iface);
40
41 /************************************************************************
42  * WBOOBJ_QueryInterface (IUnknown)
43  *
44  * Interfaces we need to (at least pretend to) retrieve:
45  *
46  *   a6bc3ac0-dbaa-11ce-9de3-00aa004bb851  IID_IProvideClassInfo2
47  *   b196b283-bab4-101a-b69c-00aa00341d07  IID_IProvideClassInfo
48  *   cf51ed10-62fe-11cf-bf86-00a0c9034836  IID_IQuickActivate
49  *   7fd52380-4e07-101b-ae2d-08002b2ec713  IID_IPersistStreamInit
50  *   0000010a-0000-0000-c000-000000000046  IID_IPersistStorage
51  *   b196b284-bab4-101a-b69c-00aa00341d07  IID_IConnectionPointContainer
52  */
53 static HRESULT WINAPI WBOOBJ_QueryInterface(LPOLEOBJECT iface,
54                                             REFIID riid, void** ppobj)
55 {
56     ICOM_THIS(IOleObjectImpl, iface);
57
58     /*
59      * Perform a sanity check on the parameters.
60      */
61     if ((This == NULL) || (ppobj == NULL) )
62         return E_INVALIDARG;
63
64     if (IsEqualGUID (&IID_IPersistStorage, riid))
65     {
66         TRACE("Returning IID_IPersistStorage interface\n");
67         *ppobj = (LPVOID)&SHDOCVW_PersistStorage;
68         WBOOBJ_AddRef (iface);
69         return S_OK;
70     }
71     else if (IsEqualGUID (&IID_IPersistStreamInit, riid))
72     {
73         TRACE("Returning IID_IPersistStreamInit interface\n");
74         *ppobj = (LPVOID)&SHDOCVW_PersistStreamInit;
75         WBOOBJ_AddRef (iface);
76         return S_OK;
77     }
78     else if (IsEqualGUID (&IID_IProvideClassInfo, riid))
79     {
80         TRACE("Returning IID_IProvideClassInfo interface\n");
81         *ppobj = (LPVOID)&SHDOCVW_ProvideClassInfo;
82         WBOOBJ_AddRef (iface);
83         return S_OK;
84     }
85     else if (IsEqualGUID (&IID_IProvideClassInfo2, riid))
86     {
87         TRACE("Returning IID_IProvideClassInfo2 interface %p\n",
88               &SHDOCVW_ProvideClassInfo2);
89         *ppobj = (LPVOID)&SHDOCVW_ProvideClassInfo2;
90         WBOOBJ_AddRef (iface);
91         return S_OK;
92     }
93     else if (IsEqualGUID (&IID_IQuickActivate, riid))
94     {
95         TRACE("Returning IID_IQuickActivate interface\n");
96         *ppobj = (LPVOID)&SHDOCVW_QuickActivate;
97         WBOOBJ_AddRef (iface);
98         return S_OK;
99     }
100     else if (IsEqualGUID (&IID_IConnectionPointContainer, riid))
101     {
102         TRACE("Returning IID_IConnectionPointContainer interface\n");
103         *ppobj = (LPVOID)&SHDOCVW_ConnectionPointContainer;
104         WBOOBJ_AddRef (iface);
105         return S_OK;
106     }
107     else if (IsEqualGUID (&IID_IOleInPlaceObject, riid))
108     {
109         TRACE("Returning IID_IOleInPlaceObject interface\n");
110         *ppobj = (LPVOID)&SHDOCVW_OleInPlaceObject;
111         WBOOBJ_AddRef (iface);
112         return S_OK;
113     }
114     else if (IsEqualGUID (&IID_IOleControl, riid))
115     {
116         TRACE("Returning IID_IOleControl interface\n");
117         *ppobj = (LPVOID)&SHDOCVW_OleControl;
118         WBOOBJ_AddRef (iface);
119         return S_OK;
120     }
121     else if (IsEqualGUID (&IID_IWebBrowser, riid))
122     {
123         TRACE("Returning IID_IWebBrowser interface\n");
124         *ppobj = (LPVOID)&SHDOCVW_WebBrowser;
125         WBOOBJ_AddRef (iface);
126         return S_OK;
127     }
128     else if (IsEqualGUID (&IID_IDispatch, riid))
129     {
130         TRACE("Returning IID_IDispatch interface\n");
131         *ppobj = (LPVOID)&SHDOCVW_WebBrowser;
132         WBOOBJ_AddRef (iface);
133         return S_OK;
134     }
135
136     TRACE ("Failed to find iid = %s\n", debugstr_guid(riid));
137
138     return E_NOINTERFACE;
139 }
140
141 /************************************************************************
142  * WBOOBJ_AddRef (IUnknown)
143  */
144 static ULONG WINAPI WBOOBJ_AddRef(LPOLEOBJECT iface)
145 {
146     ICOM_THIS(IOleObjectImpl, iface);
147
148     TRACE("\n");
149     return ++(This->ref);
150 }
151
152 /************************************************************************
153  * WBOOBJ_Release (IUnknown)
154  */
155 static ULONG WINAPI WBOOBJ_Release(LPOLEOBJECT iface)
156 {
157     ICOM_THIS(IOleObjectImpl, iface);
158
159     /* static class, won't be freed */
160     TRACE("\n");
161     return --(This->ref);
162 }
163
164 /************************************************************************
165  * WBOOBJ_SetClientSite (IOleObject)
166  */
167 static HRESULT WINAPI WBOOBJ_SetClientSite(LPOLEOBJECT iface,
168                                            LPOLECLIENTSITE pClientSite)
169 {
170     FIXME("stub: (%p, %p)\n", iface, pClientSite);
171     return S_OK;
172 }
173
174 /************************************************************************
175  * WBOOBJ_GetClientSite (IOleObject)
176  */
177 static HRESULT WINAPI WBOOBJ_GetClientSite(LPOLEOBJECT iface,
178                                            LPOLECLIENTSITE* ppClientSite)
179 {
180     FIXME("stub: (%p)\n", *ppClientSite);
181     return S_OK;
182 }
183
184 /************************************************************************
185  * WBOOBJ_SetHostNames (IOleObject)
186  */
187 static HRESULT WINAPI WBOOBJ_SetHostNames(LPOLEOBJECT iface, LPCOLESTR szContainerApp,
188                                           LPCOLESTR szContainerObj)
189 {
190     FIXME("stub: (%p, %s, %s)\n", iface, debugstr_w(szContainerApp),
191           debugstr_w(szContainerObj));
192     return S_OK;
193 }
194
195 /************************************************************************
196  * WBOOBJ_Close (IOleObject)
197  */
198 static HRESULT WINAPI WBOOBJ_Close(LPOLEOBJECT iface, DWORD dwSaveOption)
199 {
200     FIXME("stub: ()\n");
201     return S_OK;
202 }
203
204 /************************************************************************
205  * WBOOBJ_SetMoniker (IOleObject)
206  */
207 static HRESULT WINAPI WBOOBJ_SetMoniker(LPOLEOBJECT iface,
208                                         DWORD dwWhichMoniker, IMoniker* pmk)
209 {
210     FIXME("stub: (%p, %ld, %p)\n", iface, dwWhichMoniker, pmk);
211     return S_OK;
212 }
213
214 /************************************************************************
215  * WBOOBJ_GetMoniker (IOleObject)
216  *
217  * Delegate this request to the client site if we have one.
218  */
219 static HRESULT WINAPI WBOOBJ_GetMoniker(LPOLEOBJECT iface, DWORD dwAssign,
220                                         DWORD dwWhichMoniker, LPMONIKER *ppmk)
221 {
222     FIXME("stub (%p, %ld, %ld, %p)\n", iface, dwAssign, dwWhichMoniker, ppmk);
223     return E_FAIL;
224 }
225
226 /************************************************************************
227  * WBOOBJ_InitFromData (IOleObject)
228  *
229  * This method is meaningless if the server is not running
230  */
231 static HRESULT WINAPI WBOOBJ_InitFromData(LPOLEOBJECT iface, LPDATAOBJECT pDataObject,
232                                           BOOL fCreation, DWORD dwReserved)
233 {
234     FIXME("stub: (%p, %p, %d, %ld)\n", iface, pDataObject, fCreation, dwReserved);
235     return OLE_E_NOTRUNNING;
236 }
237
238 /************************************************************************
239  * WBOOBJ_GetClipboardData (IOleObject)
240  *
241  * This method is meaningless if the server is not running
242  */
243 static HRESULT WINAPI WBOOBJ_GetClipboardData(LPOLEOBJECT iface, DWORD dwReserved,
244                                               LPDATAOBJECT *ppDataObject)
245 {
246     FIXME("stub: (%p, %ld, %p)\n", iface, dwReserved, ppDataObject);
247     return OLE_E_NOTRUNNING;
248 }
249
250 /************************************************************************
251  * WBOOBJ_DoVerb (IOleObject)
252  */
253 static HRESULT WINAPI WBOOBJ_DoVerb(LPOLEOBJECT iface, LONG iVerb, struct tagMSG* lpmsg,
254                                     LPOLECLIENTSITE pActiveSite, LONG lindex,
255                                     HWND hwndParent, LPCRECT lprcPosRect)
256 {
257     FIXME(": stub iVerb = %ld\n", iVerb);
258     switch (iVerb)
259     {
260     case OLEIVERB_INPLACEACTIVATE:
261         FIXME ("stub for OLEIVERB_INPLACEACTIVATE\n");
262         break;
263     case OLEIVERB_HIDE:
264         FIXME ("stub for OLEIVERB_HIDE\n");
265         break;
266     }
267
268     return S_OK;
269 }
270
271 /************************************************************************
272  * WBOOBJ_EnumVerbs (IOleObject)
273  *
274  * Delegate to OleRegEnumVerbs.
275  */
276 static HRESULT WINAPI WBOOBJ_EnumVerbs(LPOLEOBJECT iface,
277                                        IEnumOLEVERB** ppEnumOleVerb)
278 {
279     TRACE("(%p, %p)\n", iface, ppEnumOleVerb);
280
281     return OleRegEnumVerbs(&CLSID_WebBrowser, ppEnumOleVerb);
282 }
283
284 /************************************************************************
285  * WBOOBJ_EnumVerbs (IOleObject)
286  */
287 static HRESULT WINAPI WBOOBJ_Update(LPOLEOBJECT iface)
288 {
289     FIXME(": Stub\n");
290     return E_NOTIMPL;
291 }
292
293 /************************************************************************
294  * WBOOBJ_IsUpToDate (IOleObject)
295  *
296  * This method is meaningless if the server is not running
297  */
298 static HRESULT WINAPI WBOOBJ_IsUpToDate(LPOLEOBJECT iface)
299 {
300     FIXME("(%p)\n", iface);
301     return OLE_E_NOTRUNNING;
302 }
303
304 /************************************************************************
305  * WBOOBJ_GetUserClassID (IOleObject)
306  */
307 static HRESULT WINAPI WBOOBJ_GetUserClassID(LPOLEOBJECT iface, CLSID* pClsid)
308 {
309     FIXME("stub: (%p, %p)\n", iface, pClsid);
310     return S_OK;
311 }
312
313 /************************************************************************
314  * WBOOBJ_GetUserType (IOleObject)
315  *
316  * Delegate to OleRegGetUserType.
317  */
318 static HRESULT WINAPI WBOOBJ_GetUserType(LPOLEOBJECT iface, DWORD dwFormOfType,
319                                          LPOLESTR* pszUserType)
320 {
321     TRACE("(%p, %ld, %p)\n", iface, dwFormOfType, pszUserType);
322
323     return OleRegGetUserType(&CLSID_WebBrowser, dwFormOfType, pszUserType);
324 }
325
326 /************************************************************************
327  * WBOOBJ_SetExtent (IOleObject)
328  *
329  * This method is meaningless if the server is not running
330  */
331 static HRESULT WINAPI WBOOBJ_SetExtent(LPOLEOBJECT iface, DWORD dwDrawAspect,
332                                        SIZEL* psizel)
333 {
334     FIXME("stub: (%p, %lx, (%ld x %ld))\n", iface, dwDrawAspect,
335           psizel->cx, psizel->cy);
336     return OLE_E_NOTRUNNING;
337 }
338
339 /************************************************************************
340  * WBOOBJ_GetExtent (IOleObject)
341  */
342 static HRESULT WINAPI WBOOBJ_GetExtent(LPOLEOBJECT iface, DWORD dwDrawAspect,
343                                        SIZEL* psizel)
344 {
345     FIXME("stub: (%p, %lx, %p)\n", iface, dwDrawAspect, psizel);
346     return S_OK;
347 }
348
349 /************************************************************************
350  * WBOOBJ_Advise (IOleObject)
351  */
352 static HRESULT WINAPI WBOOBJ_Advise(LPOLEOBJECT iface, IAdviseSink* pAdvSink,
353                                     DWORD* pdwConnection)
354 {
355     FIXME("stub: (%p, %p, %p)\n", iface, pAdvSink, pdwConnection);
356     return S_OK;
357 }
358
359 /************************************************************************
360  * WBOOBJ_Unadvise (IOleObject)
361  */
362 static HRESULT WINAPI WBOOBJ_Unadvise(LPOLEOBJECT iface, DWORD dwConnection)
363 {
364     FIXME("stub: (%p, %ld)\n", iface, dwConnection);
365     return S_OK;
366 }
367
368 /************************************************************************
369  * WBOOBJ_EnumAdvise (IOleObject)
370  */
371 static HRESULT WINAPI WBOOBJ_EnumAdvise(LPOLEOBJECT iface, IEnumSTATDATA** ppenumAdvise)
372 {
373     FIXME("stub: (%p, %p)\n", iface, ppenumAdvise);
374     return S_OK;
375 }
376
377 /************************************************************************
378  * WBOOBJ_GetMiscStatus (IOleObject)
379  *
380  * Delegate to OleRegGetMiscStatus.
381  */
382 static HRESULT WINAPI WBOOBJ_GetMiscStatus(LPOLEOBJECT iface, DWORD dwAspect,
383                                            DWORD* pdwStatus)
384 {
385     HRESULT hres;
386
387     TRACE("(%p, %lx, %p)\n", iface, dwAspect, pdwStatus);
388
389     hres = OleRegGetMiscStatus(&CLSID_WebBrowser, dwAspect, pdwStatus);
390
391     if (FAILED(hres))
392         *pdwStatus = 0;
393
394     return S_OK;
395 }
396
397 /************************************************************************
398  * WBOOBJ_SetColorScheme (IOleObject)
399  *
400  * This method is meaningless if the server is not running
401  */
402 static HRESULT WINAPI WBOOBJ_SetColorScheme(LPOLEOBJECT iface,
403                                             struct tagLOGPALETTE* pLogpal)
404 {
405     FIXME("stub: (%p, %p))\n", iface, pLogpal);
406     return OLE_E_NOTRUNNING;
407 }
408
409 /**********************************************************************
410  * IOleObject virtual function table for IE Web Browser component
411  */
412
413 static IOleObjectVtbl WBOOBJ_Vtbl =
414 {
415     WBOOBJ_QueryInterface,
416     WBOOBJ_AddRef,
417     WBOOBJ_Release,
418     WBOOBJ_SetClientSite,
419     WBOOBJ_GetClientSite,
420     WBOOBJ_SetHostNames,
421     WBOOBJ_Close,
422     WBOOBJ_SetMoniker,
423     WBOOBJ_GetMoniker,
424     WBOOBJ_InitFromData,
425     WBOOBJ_GetClipboardData,
426     WBOOBJ_DoVerb,
427     WBOOBJ_EnumVerbs,
428     WBOOBJ_Update,
429     WBOOBJ_IsUpToDate,
430     WBOOBJ_GetUserClassID,
431     WBOOBJ_GetUserType,
432     WBOOBJ_SetExtent,
433     WBOOBJ_GetExtent,
434     WBOOBJ_Advise,
435     WBOOBJ_Unadvise,
436     WBOOBJ_EnumAdvise,
437     WBOOBJ_GetMiscStatus,
438     WBOOBJ_SetColorScheme
439 };
440
441 IOleObjectImpl SHDOCVW_OleObject = { &WBOOBJ_Vtbl, 1 };
442
443
444 /**********************************************************************
445  * Implement the IOleInPlaceObject interface
446  */
447
448 static HRESULT WINAPI WBOIPO_QueryInterface(LPOLEINPLACEOBJECT iface,
449                                             REFIID riid, LPVOID *ppobj)
450 {
451     ICOM_THIS(IOleInPlaceObjectImpl, iface);
452
453     FIXME("(%p)->(%s,%p),stub!\n", This, debugstr_guid(riid), ppobj);
454     return E_NOINTERFACE;
455 }
456
457 static ULONG WINAPI WBOIPO_AddRef(LPOLEINPLACEOBJECT iface)
458 {
459     ICOM_THIS(IOleInPlaceObjectImpl, iface);
460
461     TRACE("\n");
462     return ++(This->ref);
463 }
464
465 static ULONG WINAPI WBOIPO_Release(LPOLEINPLACEOBJECT iface)
466 {
467     ICOM_THIS(IOleInPlaceObjectImpl, iface);
468
469     /* static class, won't be freed */
470     TRACE("\n");
471     return --(This->ref);
472 }
473
474 static HRESULT WINAPI WBOIPO_GetWindow(LPOLEINPLACEOBJECT iface, HWND* phwnd)
475 {
476 #if 0
477     /* Create a fake window to fool MFC into believing that we actually
478      * have an implemented browser control.  Avoids the assertion.
479      */
480     HWND hwnd;
481     hwnd = CreateWindowA("BUTTON", "Web Control",
482                         WS_HSCROLL | WS_VSCROLL | WS_OVERLAPPEDWINDOW,
483                         CW_USEDEFAULT, CW_USEDEFAULT, 600,
484                         400, NULL, NULL, NULL, NULL);
485
486     *phwnd = hwnd;
487     TRACE ("Returning hwnd = %d\n", hwnd);
488 #endif
489
490     FIXME("stub HWND* = %p\n", phwnd);
491     return S_OK;
492 }
493
494 static HRESULT WINAPI WBOIPO_ContextSensitiveHelp(LPOLEINPLACEOBJECT iface,
495                                                   BOOL fEnterMode)
496 {
497     FIXME("stub fEnterMode = %d\n", fEnterMode);
498     return S_OK;
499 }
500
501 static HRESULT WINAPI WBOIPO_InPlaceDeactivate(LPOLEINPLACEOBJECT iface)
502 {
503     FIXME("stub \n");
504     return S_OK;
505 }
506
507 static HRESULT WINAPI WBOIPO_UIDeactivate(LPOLEINPLACEOBJECT iface)
508 {
509     FIXME("stub \n");
510     return S_OK;
511 }
512
513 static HRESULT WINAPI WBOIPO_SetObjectRects(LPOLEINPLACEOBJECT iface,
514                                             LPCRECT lprcPosRect, LPCRECT lprcClipRect)
515 {
516     FIXME("stub PosRect = %p, ClipRect = %p\n", lprcPosRect, lprcClipRect);
517     return S_OK;
518 }
519
520 static HRESULT WINAPI WBOIPO_ReactivateAndUndo(LPOLEINPLACEOBJECT iface)
521 {
522     FIXME("stub \n");
523     return S_OK;
524 }
525
526 /**********************************************************************
527  * IOleInPlaceObject virtual function table for IE Web Browser component
528  */
529
530 static IOleInPlaceObjectVtbl WBOIPO_Vtbl =
531 {
532     WBOIPO_QueryInterface,
533     WBOIPO_AddRef,
534     WBOIPO_Release,
535     WBOIPO_GetWindow,
536     WBOIPO_ContextSensitiveHelp,
537     WBOIPO_InPlaceDeactivate,
538     WBOIPO_UIDeactivate,
539     WBOIPO_SetObjectRects,
540     WBOIPO_ReactivateAndUndo
541 };
542
543 IOleInPlaceObjectImpl SHDOCVW_OleInPlaceObject = { &WBOIPO_Vtbl, 1 };
544
545
546 /**********************************************************************
547  * Implement the IOleControl interface
548  */
549
550 static HRESULT WINAPI WBOC_QueryInterface(LPOLECONTROL iface,
551                                           REFIID riid, LPVOID *ppobj)
552 {
553     ICOM_THIS(IOleControlImpl, iface);
554
555     FIXME("(%p)->(%s,%p),stub!\n", This, debugstr_guid(riid), ppobj);
556     return E_NOINTERFACE;
557 }
558
559 static ULONG WINAPI WBOC_AddRef(LPOLECONTROL iface)
560 {
561     ICOM_THIS(IOleControlImpl, iface);
562
563     TRACE("\n");
564     return ++(This->ref);
565 }
566
567 static ULONG WINAPI WBOC_Release(LPOLECONTROL iface)
568 {
569     ICOM_THIS(IOleControlImpl, iface);
570
571     /* static class, won't be freed */
572     TRACE("\n");
573     return --(This->ref);
574 }
575
576 static HRESULT WINAPI WBOC_GetControlInfo(LPOLECONTROL iface, LPCONTROLINFO pCI)
577 {
578     FIXME("stub: LPCONTROLINFO = %p\n", pCI);
579     return S_OK;
580 }
581
582 static HRESULT WINAPI WBOC_OnMnemonic(LPOLECONTROL iface, struct tagMSG *pMsg)
583 {
584     FIXME("stub: MSG* = %p\n", pMsg);
585     return S_OK;
586 }
587
588 static HRESULT WINAPI WBOC_OnAmbientPropertyChange(LPOLECONTROL iface, DISPID dispID)
589 {
590     FIXME("stub: DISPID = %ld\n", dispID);
591     return S_OK;
592 }
593
594 static HRESULT WINAPI WBOC_FreezeEvents(LPOLECONTROL iface, BOOL bFreeze)
595 {
596     FIXME("stub: bFreeze = %d\n", bFreeze);
597     return S_OK;
598 }
599
600 /**********************************************************************
601  * IOleControl virtual function table for IE Web Browser component
602  */
603
604 static IOleControlVtbl WBOC_Vtbl =
605 {
606     WBOC_QueryInterface,
607     WBOC_AddRef,
608     WBOC_Release,
609     WBOC_GetControlInfo,
610     WBOC_OnMnemonic,
611     WBOC_OnAmbientPropertyChange,
612     WBOC_FreezeEvents
613 };
614
615 IOleControlImpl SHDOCVW_OleControl = { &WBOC_Vtbl, 1 };