shdocvw: Update Swedish translation.
[wine] / dlls / shdocvw / events.c
1 /*
2  * Implementation of event-related interfaces for WebBrowser control:
3  *
4  *  - IConnectionPointContainer
5  *  - IConnectionPoint
6  *
7  * Copyright 2001 John R. Sheets (for CodeWeavers)
8  * Copyright 2006 Jacek Caban 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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
23  */
24
25 #include <string.h>
26 #include "wine/debug.h"
27 #include "shdocvw.h"
28
29 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
30
31 struct ConnectionPoint {
32     const IConnectionPointVtbl *lpConnectionPointVtbl;
33
34     IConnectionPointContainer *container;
35
36     IDispatch **sinks;
37     DWORD sinks_size;
38
39     IID iid;
40 };
41
42 #define CONPOINT(x)  ((IConnectionPoint*) &(x)->lpConnectionPointVtbl)
43
44 /**********************************************************************
45  * Implement the IConnectionPointContainer interface
46  */
47
48 #define CONPTCONT_THIS(iface) DEFINE_THIS(ConnectionPointContainer, ConnectionPointContainer, iface)
49
50 static HRESULT WINAPI ConnectionPointContainer_QueryInterface(IConnectionPointContainer *iface,
51         REFIID riid, LPVOID *ppv)
52 {
53     ConnectionPointContainer *This = CONPTCONT_THIS(iface);
54     return IUnknown_QueryInterface(This->impl, riid, ppv);
55 }
56
57 static ULONG WINAPI ConnectionPointContainer_AddRef(IConnectionPointContainer *iface)
58 {
59     ConnectionPointContainer *This = CONPTCONT_THIS(iface);
60     return IUnknown_AddRef(This->impl);
61 }
62
63 static ULONG WINAPI ConnectionPointContainer_Release(IConnectionPointContainer *iface)
64 {
65     ConnectionPointContainer *This = CONPTCONT_THIS(iface);
66     return IUnknown_Release(This->impl);
67 }
68
69 static HRESULT WINAPI ConnectionPointContainer_EnumConnectionPoints(IConnectionPointContainer *iface,
70         LPENUMCONNECTIONPOINTS *ppEnum)
71 {
72     ConnectionPointContainer *This = CONPTCONT_THIS(iface);
73     FIXME("(%p)->(%p)\n", This, ppEnum);
74     return E_NOTIMPL;
75 }
76
77 static HRESULT WINAPI ConnectionPointContainer_FindConnectionPoint(IConnectionPointContainer *iface,
78         REFIID riid, LPCONNECTIONPOINT *ppCP)
79 {
80     ConnectionPointContainer *This = CONPTCONT_THIS(iface);
81
82     if(!ppCP) {
83         WARN("ppCP == NULL\n");
84         return E_POINTER;
85     }
86
87     *ppCP = NULL;
88
89     if(IsEqualGUID(&DIID_DWebBrowserEvents2, riid)) {
90         TRACE("(%p)->(DIID_DWebBrowserEvents2 %p)\n", This, ppCP);
91         *ppCP = CONPOINT(This->wbe2);
92     }else if(IsEqualGUID(&DIID_DWebBrowserEvents, riid)) {
93         TRACE("(%p)->(DIID_DWebBrowserEvents %p)\n", This, ppCP);
94         *ppCP = CONPOINT(This->wbe);
95     }else if(IsEqualGUID(&IID_IPropertyNotifySink, riid)) {
96         TRACE("(%p)->(IID_IPropertyNotifySink %p)\n", This, ppCP);
97         *ppCP = CONPOINT(This->pns);
98     }
99
100     if(*ppCP) {
101         IConnectionPoint_AddRef(*ppCP);
102         return S_OK;
103     }
104
105     WARN("Unsupported IID %s\n", debugstr_guid(riid));
106     return CONNECT_E_NOCONNECTION;
107 }
108
109 #undef CONPTCONT_THIS
110
111 static const IConnectionPointContainerVtbl ConnectionPointContainerVtbl =
112 {
113     ConnectionPointContainer_QueryInterface,
114     ConnectionPointContainer_AddRef,
115     ConnectionPointContainer_Release,
116     ConnectionPointContainer_EnumConnectionPoints,
117     ConnectionPointContainer_FindConnectionPoint
118 };
119
120
121 /**********************************************************************
122  * Implement the IConnectionPoint interface
123  */
124
125 #define CONPOINT_THIS(iface) DEFINE_THIS(ConnectionPoint, ConnectionPoint, iface)
126
127 static HRESULT WINAPI ConnectionPoint_QueryInterface(IConnectionPoint *iface,
128                                                      REFIID riid, LPVOID *ppv)
129 {
130     ConnectionPoint *This = CONPOINT_THIS(iface);
131
132     *ppv = NULL;
133
134     if(IsEqualGUID(&IID_IUnknown, riid)) {
135         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
136         *ppv = CONPOINT(This);
137     }else if(IsEqualGUID(&IID_IConnectionPoint, riid)) {
138         TRACE("(%p)->(IID_IConnectionPoint %p)\n", This, ppv);
139         *ppv = CONPOINT(This);
140     }
141
142     if(*ppv) {
143         IConnectionPointContainer_AddRef(This->container);
144         return S_OK;
145     }
146
147     WARN("Unsupported interface %s\n", debugstr_guid(riid));
148     return E_NOINTERFACE;
149 }
150
151 static ULONG WINAPI ConnectionPoint_AddRef(IConnectionPoint *iface)
152 {
153     ConnectionPoint *This = CONPOINT_THIS(iface);
154     return IConnectionPointContainer_AddRef(This->container);
155 }
156
157 static ULONG WINAPI ConnectionPoint_Release(IConnectionPoint *iface)
158 {
159     ConnectionPoint *This = CONPOINT_THIS(iface);
160     return IConnectionPointContainer_Release(This->container);
161 }
162
163 static HRESULT WINAPI ConnectionPoint_GetConnectionInterface(IConnectionPoint *iface, IID *pIID)
164 {
165     ConnectionPoint *This = CONPOINT_THIS(iface);
166
167     TRACE("(%p)->(%p)\n", This, pIID);
168
169     *pIID = This->iid;
170     return S_OK;
171 }
172
173 static HRESULT WINAPI ConnectionPoint_GetConnectionPointContainer(IConnectionPoint *iface,
174         IConnectionPointContainer **ppCPC)
175 {
176     ConnectionPoint *This = CONPOINT_THIS(iface);
177
178     TRACE("(%p)->(%p)\n", This, ppCPC);
179
180     *ppCPC = This->container;
181     IConnectionPointContainer_AddRef(This->container);
182     return S_OK;
183 }
184
185 static HRESULT WINAPI ConnectionPoint_Advise(IConnectionPoint *iface, IUnknown *pUnkSink,
186                                              DWORD *pdwCookie)
187 {
188     ConnectionPoint *This = CONPOINT_THIS(iface);
189     IDispatch *disp;
190     DWORD i;
191     HRESULT hres;
192
193     TRACE("(%p)->(%p %p)\n", This, pUnkSink, pdwCookie);
194
195     hres = IUnknown_QueryInterface(pUnkSink, &This->iid, (void**)&disp);
196     if(FAILED(hres)) {
197         hres = IUnknown_QueryInterface(pUnkSink, &IID_IDispatch, (void**)&disp);
198         if(FAILED(hres))
199             return CONNECT_E_CANNOTCONNECT;
200     }
201
202     if(This->sinks) {
203         for(i=0; i<This->sinks_size; i++) {
204             if(!This->sinks[i])
205                 break;
206         }
207
208         if(i == This->sinks_size)
209             This->sinks = heap_realloc(This->sinks,
210                                           (++This->sinks_size)*sizeof(*This->sinks));
211     }else {
212         This->sinks = heap_alloc(sizeof(*This->sinks));
213         This->sinks_size = 1;
214         i = 0;
215     }
216
217     This->sinks[i] = disp;
218     *pdwCookie = i+1;
219
220     return S_OK;
221 }
222
223 static HRESULT WINAPI ConnectionPoint_Unadvise(IConnectionPoint *iface, DWORD dwCookie)
224 {
225     ConnectionPoint *This = CONPOINT_THIS(iface);
226
227     TRACE("(%p)->(%d)\n", This, dwCookie);
228
229     if(!dwCookie || dwCookie > This->sinks_size || !This->sinks[dwCookie-1])
230         return CONNECT_E_NOCONNECTION;
231
232     IDispatch_Release(This->sinks[dwCookie-1]);
233     This->sinks[dwCookie-1] = NULL;
234
235     return S_OK;
236 }
237
238 static HRESULT WINAPI ConnectionPoint_EnumConnections(IConnectionPoint *iface,
239                                                       IEnumConnections **ppEnum)
240 {
241     ConnectionPoint *This = CONPOINT_THIS(iface);
242     FIXME("(%p)->(%p)\n", This, ppEnum);
243     return E_NOTIMPL;
244 }
245
246 #undef CONPOINT_THIS
247
248 static const IConnectionPointVtbl ConnectionPointVtbl =
249 {
250     ConnectionPoint_QueryInterface,
251     ConnectionPoint_AddRef,
252     ConnectionPoint_Release,
253     ConnectionPoint_GetConnectionInterface,
254     ConnectionPoint_GetConnectionPointContainer,
255     ConnectionPoint_Advise,
256     ConnectionPoint_Unadvise,
257     ConnectionPoint_EnumConnections
258 };
259
260 void call_sink(ConnectionPoint *This, DISPID dispid, DISPPARAMS *dispparams)
261 {
262     DWORD i;
263
264     for(i=0; i<This->sinks_size; i++) {
265         if(This->sinks[i])
266             IDispatch_Invoke(This->sinks[i], dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT,
267                              DISPATCH_METHOD, dispparams, NULL, NULL, NULL);
268     }
269 }
270
271 static void ConnectionPoint_Create(REFIID riid, ConnectionPoint **cp,
272                                    IConnectionPointContainer *container)
273 {
274     ConnectionPoint *ret = heap_alloc(sizeof(ConnectionPoint));
275
276     ret->lpConnectionPointVtbl = &ConnectionPointVtbl;
277
278     ret->sinks = NULL;
279     ret->sinks_size = 0;
280     ret->container = container;
281
282     ret->iid = *riid;
283
284     *cp = ret;
285 }
286
287 static void ConnectionPoint_Destroy(ConnectionPoint *This)
288 {
289     DWORD i;
290
291     for(i=0; i<This->sinks_size; i++) {
292         if(This->sinks[i])
293             IDispatch_Release(This->sinks[i]);
294     }
295
296     heap_free(This->sinks);
297     heap_free(This);
298 }
299
300 void ConnectionPointContainer_Init(ConnectionPointContainer *This, IUnknown *impl)
301 {
302     This->lpConnectionPointContainerVtbl = &ConnectionPointContainerVtbl;
303
304     ConnectionPoint_Create(&DIID_DWebBrowserEvents2, &This->wbe2, CONPTCONT(This));
305     ConnectionPoint_Create(&DIID_DWebBrowserEvents,  &This->wbe,  CONPTCONT(This));
306     ConnectionPoint_Create(&IID_IPropertyNotifySink, &This->pns,  CONPTCONT(This));
307
308     This->impl = impl;
309 }
310
311 void ConnectionPointContainer_Destroy(ConnectionPointContainer *This)
312 {
313     ConnectionPoint_Destroy(This->wbe2);
314     ConnectionPoint_Destroy(This->wbe);
315     ConnectionPoint_Destroy(This->pns);
316 }