shdocvw: Move connection points to DocHost object.
[wine] / dlls / shdocvw / dochost.c
1 /*
2  * Copyright 2005-2006 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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
17  */
18
19 #include "wine/debug.h"
20 #include "shdocvw.h"
21 #include "hlink.h"
22 #include "exdispid.h"
23
24 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
25
26 static ATOM doc_view_atom = 0;
27
28 static void navigate_complete(WebBrowser *This)
29 {
30     IDispatch *disp = NULL;
31     DISPPARAMS dispparams;
32     VARIANTARG params[2];
33     VARIANT url;
34     HRESULT hres;
35
36     hres = IUnknown_QueryInterface(This->doc_host.document, &IID_IDispatch, (void**)&disp);
37     if(FAILED(hres))
38         FIXME("Could not get IDispatch interface\n");
39
40     dispparams.cArgs = 2;
41     dispparams.cNamedArgs = 0;
42     dispparams.rgdispidNamedArgs = NULL;
43     dispparams.rgvarg = params;
44
45     V_VT(params) = (VT_BYREF|VT_VARIANT);
46     V_BYREF(params) = &url;
47
48     V_VT(params+1) = VT_DISPATCH;
49     V_DISPATCH(params+1) = disp;
50
51     V_VT(&url) = VT_BSTR;
52     V_BSTR(&url) = This->url;
53
54     call_sink(This->doc_host.cp_wbe2, DISPID_NAVIGATECOMPLETE2, &dispparams);
55     call_sink(This->doc_host.cp_wbe2, DISPID_DOCUMENTCOMPLETE, &dispparams);
56
57     if(disp)
58         IDispatch_Release(disp);
59 }
60
61 static LRESULT navigate2(WebBrowser *This)
62 {
63     IHlinkTarget *hlink;
64     HRESULT hres;
65
66     TRACE("(%p)\n", This);
67
68     if(!This->doc_host.document) {
69         WARN("document == NULL\n");
70         return 0;
71     }
72
73     hres = IUnknown_QueryInterface(This->doc_host.document, &IID_IHlinkTarget, (void**)&hlink);
74     if(FAILED(hres)) {
75         FIXME("Could not get IHlinkTarget interface\n");
76         return 0;
77     }
78
79     hres = IHlinkTarget_Navigate(hlink, 0, NULL);
80     IHlinkTarget_Release(hlink);
81     if(FAILED(hres)) {
82         FIXME("Navigate failed\n");
83         return 0;
84     }
85
86     navigate_complete(This);
87
88     return 0;
89 }
90
91 static LRESULT resize_document(WebBrowser *This, LONG width, LONG height)
92 {
93     RECT rect = {0, 0, width, height};
94
95     TRACE("(%p)->(%ld %ld)\n", This, width, height);
96
97     if(This->doc_host.view)
98         IOleDocumentView_SetRect(This->doc_host.view, &rect);
99
100     return 0;
101 }
102
103 static LRESULT WINAPI doc_view_proc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
104 {
105     WebBrowser *This;
106
107     static const WCHAR wszTHIS[] = {'T','H','I','S',0};
108
109     if(msg == WM_CREATE) {
110         This = *(WebBrowser**)lParam;
111         SetPropW(hwnd, wszTHIS, This);
112     }else {
113         This = GetPropW(hwnd, wszTHIS);
114     }
115
116     switch(msg) {
117     case WM_SIZE:
118         return resize_document(This, LOWORD(lParam), HIWORD(lParam));
119     case WB_WM_NAVIGATE2:
120         return navigate2(This);
121     }
122
123     return DefWindowProcW(hwnd, msg, wParam, lParam);
124 }
125
126 void create_doc_view_hwnd(WebBrowser *This)
127 {
128     RECT rect;
129
130     static const WCHAR wszShell_DocObject_View[] =
131         {'S','h','e','l','l',' ','D','o','c','O','b','j','e','c','t',' ','V','i','e','w',0};
132
133     if(!doc_view_atom) {
134         static WNDCLASSEXW wndclass = {
135             sizeof(wndclass),
136             CS_PARENTDC,
137             doc_view_proc,
138             0, 0 /* native uses 4*/, NULL, NULL, NULL,
139             (HBRUSH)COLOR_WINDOWFRAME, NULL,
140             wszShell_DocObject_View,
141             NULL
142         };
143
144         wndclass.hInstance = shdocvw_hinstance;
145
146         doc_view_atom = RegisterClassExW(&wndclass);
147     }
148
149     GetClientRect(This->shell_embedding_hwnd, &rect);
150     This->doc_host.hwnd = CreateWindowExW(0, wszShell_DocObject_View,
151          wszShell_DocObject_View,
152          WS_CHILD | WS_VISIBLE | WS_CLIPSIBLINGS | WS_CLIPCHILDREN | WS_TABSTOP,
153          rect.left, rect.top, rect.right, rect.bottom, This->shell_embedding_hwnd,
154          NULL, shdocvw_hinstance, This);
155 }
156
157 void deactivate_document(DocHost *This)
158 {
159     IOleInPlaceObjectWindowless *winobj;
160     IOleObject *oleobj = NULL;
161     IHlinkTarget *hlink = NULL;
162     HRESULT hres;
163
164     if(This->view)
165         IOleDocumentView_UIActivate(This->view, FALSE);
166
167     hres = IUnknown_QueryInterface(This->document, &IID_IOleInPlaceObjectWindowless,
168                                    (void**)&winobj);
169     if(SUCCEEDED(hres)) {
170         IOleInPlaceObjectWindowless_InPlaceDeactivate(winobj);
171         IOleInPlaceObjectWindowless_Release(winobj);
172     }
173
174     if(This->view) {
175         IOleDocumentView_Show(This->view, FALSE);
176         IOleDocumentView_CloseView(This->view, 0);
177         IOleDocumentView_SetInPlaceSite(This->view, NULL);
178         IOleDocumentView_Release(This->view);
179         This->view = NULL;
180     }
181
182     hres = IUnknown_QueryInterface(This->document, &IID_IOleObject, (void**)&oleobj);
183     if(SUCCEEDED(hres))
184         IOleObject_Close(oleobj, OLECLOSE_NOSAVE);
185
186     hres = IUnknown_QueryInterface(This->document, &IID_IHlinkTarget, (void**)&hlink);
187     if(SUCCEEDED(hres)) {
188         IHlinkTarget_SetBrowseContext(hlink, NULL);
189         IHlinkTarget_Release(hlink);
190     }
191
192     if(oleobj) {
193         IOleClientSite *client_site = NULL;
194
195         IOleObject_GetClientSite(oleobj, &client_site);
196         if(client_site) {
197             if(client_site == CLIENTSITE(This))
198                 IOleObject_SetClientSite(oleobj, NULL);
199             IOleClientSite_Release(client_site);
200         }
201
202         IOleObject_Release(oleobj);
203     }
204
205     IUnknown_Release(This->document);
206     This->document = NULL;
207 }
208
209 #define OLECMD_THIS(iface) DEFINE_THIS(DocHost, OleCommandTarget, iface)
210
211 static HRESULT WINAPI ClOleCommandTarget_QueryInterface(IOleCommandTarget *iface,
212         REFIID riid, void **ppv)
213 {
214     DocHost *This = OLECMD_THIS(iface);
215     return IOleClientSite_QueryInterface(CLIENTSITE(This), riid, ppv);
216 }
217
218 static ULONG WINAPI ClOleCommandTarget_AddRef(IOleCommandTarget *iface)
219 {
220     DocHost *This = OLECMD_THIS(iface);
221     return IOleClientSite_AddRef(CLIENTSITE(This));
222 }
223
224 static ULONG WINAPI ClOleCommandTarget_Release(IOleCommandTarget *iface)
225 {
226     DocHost *This = OLECMD_THIS(iface);
227     return IOleClientSite_Release(CLIENTSITE(This));
228 }
229
230 static HRESULT WINAPI ClOleCommandTarget_QueryStatus(IOleCommandTarget *iface,
231         const GUID *pguidCmdGroup, ULONG cCmds, OLECMD prgCmds[], OLECMDTEXT *pCmdText)
232 {
233     DocHost *This = OLECMD_THIS(iface);
234     FIXME("(%p)->(%s %lu %p %p)\n", This, debugstr_guid(pguidCmdGroup), cCmds, prgCmds,
235           pCmdText);
236     return E_NOTIMPL;
237 }
238
239 static HRESULT WINAPI ClOleCommandTarget_Exec(IOleCommandTarget *iface,
240         const GUID *pguidCmdGroup, DWORD nCmdID, DWORD nCmdexecopt, VARIANT *pvaIn,
241         VARIANT *pvaOut)
242 {
243     DocHost *This = OLECMD_THIS(iface);
244     FIXME("(%p)->(%s %ld %ld %p %p)\n", This, debugstr_guid(pguidCmdGroup), nCmdID,
245           nCmdexecopt, pvaIn, pvaOut);
246     return E_NOTIMPL;
247 }
248
249 #undef OLECMD_THIS
250
251 static const IOleCommandTargetVtbl OleCommandTargetVtbl = {
252     ClOleCommandTarget_QueryInterface,
253     ClOleCommandTarget_AddRef,
254     ClOleCommandTarget_Release,
255     ClOleCommandTarget_QueryStatus,
256     ClOleCommandTarget_Exec
257 };
258
259 #define DOCHOSTUI_THIS(iface) DEFINE_THIS(DocHost, DocHostUIHandler, iface)
260
261 static HRESULT WINAPI DocHostUIHandler_QueryInterface(IDocHostUIHandler2 *iface,
262                                                       REFIID riid, void **ppv)
263 {
264     DocHost *This = DOCHOSTUI_THIS(iface);
265     return IOleClientSite_QueryInterface(CLIENTSITE(This), riid, ppv);
266 }
267
268 static ULONG WINAPI DocHostUIHandler_AddRef(IDocHostUIHandler2 *iface)
269 {
270     DocHost *This = DOCHOSTUI_THIS(iface);
271     return IOleClientSite_AddRef(CLIENTSITE(This));
272 }
273
274 static ULONG WINAPI DocHostUIHandler_Release(IDocHostUIHandler2 *iface)
275 {
276     DocHost *This = DOCHOSTUI_THIS(iface);
277     return IOleClientSite_Release(CLIENTSITE(This));
278 }
279
280 static HRESULT WINAPI DocHostUIHandler_ShowContextMenu(IDocHostUIHandler2 *iface,
281          DWORD dwID, POINT *ppt, IUnknown *pcmdtReserved, IDispatch *pdispReserved)
282 {
283     DocHost *This = DOCHOSTUI_THIS(iface);
284     HRESULT hres;
285
286     TRACE("(%p)->(%ld %p %p %p)\n", This, dwID, ppt, pcmdtReserved, pdispReserved);
287
288     if(This->hostui) {
289         hres = IDocHostUIHandler_ShowContextMenu(This->hostui, dwID, ppt, pcmdtReserved,
290                                                  pdispReserved);
291         if(hres == S_OK)
292             return S_OK;
293     }
294
295     FIXME("default action not implemented\n");
296     return E_NOTIMPL;
297 }
298
299 static HRESULT WINAPI DocHostUIHandler_GetHostInfo(IDocHostUIHandler2 *iface,
300         DOCHOSTUIINFO *pInfo)
301 {
302     DocHost *This = DOCHOSTUI_THIS(iface);
303     HRESULT hres;
304
305     TRACE("(%p)->(%p)\n", This, pInfo);
306
307     if(This->hostui) {
308         hres = IDocHostUIHandler_GetHostInfo(This->hostui, pInfo);
309         if(SUCCEEDED(hres))
310             return hres;
311     }
312
313     pInfo->dwFlags = DOCHOSTUIFLAG_DISABLE_HELP_MENU | DOCHOSTUIFLAG_OPENNEWWIN
314         | DOCHOSTUIFLAG_URL_ENCODING_ENABLE_UTF8 | DOCHOSTUIFLAG_ENABLE_INPLACE_NAVIGATION
315         | DOCHOSTUIFLAG_IME_ENABLE_RECONVERSION;
316     return S_OK;
317 }
318
319 static HRESULT WINAPI DocHostUIHandler_ShowUI(IDocHostUIHandler2 *iface, DWORD dwID,
320         IOleInPlaceActiveObject *pActiveObject, IOleCommandTarget *pCommandTarget,
321         IOleInPlaceFrame *pFrame, IOleInPlaceUIWindow *pDoc)
322 {
323     DocHost *This = DOCHOSTUI_THIS(iface);
324     FIXME("(%p)->(%ld %p %p %p %p)\n", This, dwID, pActiveObject, pCommandTarget,
325           pFrame, pDoc);
326     return E_NOTIMPL;
327 }
328
329 static HRESULT WINAPI DocHostUIHandler_HideUI(IDocHostUIHandler2 *iface)
330 {
331     DocHost *This = DOCHOSTUI_THIS(iface);
332     FIXME("(%p)\n", This);
333     return E_NOTIMPL;
334 }
335
336 static HRESULT WINAPI DocHostUIHandler_UpdateUI(IDocHostUIHandler2 *iface)
337 {
338     DocHost *This = DOCHOSTUI_THIS(iface);
339     FIXME("(%p)\n", This);
340     return E_NOTIMPL;
341 }
342
343 static HRESULT WINAPI DocHostUIHandler_EnableModeless(IDocHostUIHandler2 *iface,
344                                                       BOOL fEnable)
345 {
346     DocHost *This = DOCHOSTUI_THIS(iface);
347     FIXME("(%p)->(%x)\n", This, fEnable);
348     return E_NOTIMPL;
349 }
350
351 static HRESULT WINAPI DocHostUIHandler_OnDocWindowActivate(IDocHostUIHandler2 *iface,
352                                                            BOOL fActivate)
353 {
354     DocHost *This = DOCHOSTUI_THIS(iface);
355     FIXME("(%p)->(%x)\n", This, fActivate);
356     return E_NOTIMPL;
357 }
358
359 static HRESULT WINAPI DocHostUIHandler_OnFrameWindowActivate(IDocHostUIHandler2 *iface,
360                                                              BOOL fActivate)
361 {
362     DocHost *This = DOCHOSTUI_THIS(iface);
363     FIXME("(%p)->(%x)\n", This, fActivate);
364     return E_NOTIMPL;
365 }
366
367 static HRESULT WINAPI DocHostUIHandler_ResizeBorder(IDocHostUIHandler2 *iface,
368         LPCRECT prcBorder, IOleInPlaceUIWindow *pUIWindow, BOOL fRameWindow)
369 {
370     DocHost *This = DOCHOSTUI_THIS(iface);
371     FIXME("(%p)->(%p %p %X)\n", This, prcBorder, pUIWindow, fRameWindow);
372     return E_NOTIMPL;
373 }
374
375 static HRESULT WINAPI DocHostUIHandler_TranslateAccelerator(IDocHostUIHandler2 *iface,
376         LPMSG lpMsg, const GUID *pguidCmdGroup, DWORD nCmdID)
377 {
378     DocHost *This = DOCHOSTUI_THIS(iface);
379     FIXME("(%p)->(%p %p %ld)\n", This, lpMsg, pguidCmdGroup, nCmdID);
380     return E_NOTIMPL;
381 }
382
383 static HRESULT WINAPI DocHostUIHandler_GetOptionKeyPath(IDocHostUIHandler2 *iface,
384         LPOLESTR *pchKey, DWORD dw)
385 {
386     DocHost *This = DOCHOSTUI_THIS(iface);
387
388     TRACE("(%p)->(%p %ld)\n", This, pchKey, dw);
389
390     if(This->hostui)
391         return IDocHostUIHandler_GetOptionKeyPath(This->hostui, pchKey, dw);
392
393     return S_OK;
394 }
395
396 static HRESULT WINAPI DocHostUIHandler_GetDropTarget(IDocHostUIHandler2 *iface,
397         IDropTarget *pDropTarget, IDropTarget **ppDropTarget)
398 {
399     DocHost *This = DOCHOSTUI_THIS(iface);
400     FIXME("(%p)\n", This);
401     return E_NOTIMPL;
402 }
403
404 static HRESULT WINAPI DocHostUIHandler_GetExternal(IDocHostUIHandler2 *iface,
405         IDispatch **ppDispatch)
406 {
407     DocHost *This = DOCHOSTUI_THIS(iface);
408     FIXME("(%p)->(%p)\n", This, ppDispatch);
409     return E_NOTIMPL;
410 }
411
412 static HRESULT WINAPI DocHostUIHandler_TranslateUrl(IDocHostUIHandler2 *iface,
413         DWORD dwTranslate, OLECHAR *pchURLIn, OLECHAR **ppchURLOut)
414 {
415     DocHost *This = DOCHOSTUI_THIS(iface);
416
417     TRACE("(%p)->(%ld %s %p)\n", This, dwTranslate, debugstr_w(pchURLIn), ppchURLOut);
418
419     if(This->hostui)
420         return IDocHostUIHandler_TranslateUrl(This->hostui, dwTranslate,
421                                               pchURLIn, ppchURLOut);
422
423     return S_FALSE;
424 }
425
426 static HRESULT WINAPI DocHostUIHandler_FilterDataObject(IDocHostUIHandler2 *iface,
427         IDataObject *pDO, IDataObject **ppDORet)
428 {
429     DocHost *This = DOCHOSTUI_THIS(iface);
430     FIXME("(%p)->(%p %p)\n", This, pDO, ppDORet);
431     return E_NOTIMPL;
432 }
433
434 static HRESULT WINAPI DocHostUIHandler_GetOverrideKeyPath(IDocHostUIHandler2 *iface,
435         LPOLESTR *pchKey, DWORD dw)
436 {
437     DocHost *This = DOCHOSTUI_THIS(iface);
438     IDocHostUIHandler2 *handler;
439     HRESULT hres;
440
441     TRACE("(%p)->(%p %ld)\n", This, pchKey, dw);
442
443     if(!This->hostui)
444         return S_OK;
445
446     hres = IDocHostUIHandler_QueryInterface(This->hostui, &IID_IDocHostUIHandler2,
447                                             (void**)&handler);
448     if(SUCCEEDED(hres)) {
449         hres = IDocHostUIHandler2_GetOverrideKeyPath(handler, pchKey, dw);
450         IDocHostUIHandler2_Release(handler);
451         return hres;
452     }
453
454     return S_OK;
455 }
456
457 #undef DOCHOSTUI_THIS
458
459 static const IDocHostUIHandler2Vtbl DocHostUIHandler2Vtbl = {
460     DocHostUIHandler_QueryInterface,
461     DocHostUIHandler_AddRef,
462     DocHostUIHandler_Release,
463     DocHostUIHandler_ShowContextMenu,
464     DocHostUIHandler_GetHostInfo,
465     DocHostUIHandler_ShowUI,
466     DocHostUIHandler_HideUI,
467     DocHostUIHandler_UpdateUI,
468     DocHostUIHandler_EnableModeless,
469     DocHostUIHandler_OnDocWindowActivate,
470     DocHostUIHandler_OnFrameWindowActivate,
471     DocHostUIHandler_ResizeBorder,
472     DocHostUIHandler_TranslateAccelerator,
473     DocHostUIHandler_GetOptionKeyPath,
474     DocHostUIHandler_GetDropTarget,
475     DocHostUIHandler_GetExternal,
476     DocHostUIHandler_TranslateUrl,
477     DocHostUIHandler_FilterDataObject,
478     DocHostUIHandler_GetOverrideKeyPath
479 };
480
481 void DocHost_Init(DocHost *This)
482 {
483     This->lpDocHostUIHandlerVtbl = &DocHostUIHandler2Vtbl;
484     This->lpOleCommandTargetVtbl = &OleCommandTargetVtbl;
485
486     This->document = NULL;
487     This->hostui = NULL;
488
489     This->hwnd = NULL;
490     This->frame_hwnd = NULL;
491
492     DocHost_ClientSite_Init(This);
493     DocHost_Frame_Init(This);
494     DocHost_Events_Init(This);
495 }
496
497 void DocHost_Release(DocHost *This)
498 {
499     DocHost_ClientSite_Release(This);
500     DocHost_Events_Release(This);
501 }