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  *
   9  * This library is free software; you can redistribute it and/or
  10  * modify it under the terms of the GNU Lesser General Public
  11  * License as published by the Free Software Foundation; either
  12  * version 2.1 of the License, or (at your option) any later version.
  13  *
  14  * This library is distributed in the hope that it will be useful,
  15  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17  * Lesser General Public License for more details.
  18  *
  19  * You should have received a copy of the GNU Lesser General Public
  20  * License along with this library; if not, write to the Free Software
  21  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  22  */
  23
  24 #include <string.h>
  25 #include "wine/debug.h"
  26 #include "shdocvw.h"
  27
  28 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
  29
  30 struct ConnectionPoint {
  31     const IConnectionPointVtbl *lpConnectionPointVtbl;
  32
  33     WebBrowser *webbrowser;
  34
  35     IDispatch **sinks;
  36     DWORD sinks_size;
  37
  38     IID iid;
  39 };
  40
  41 #define CONPOINT(x)  ((IConnectionPoint*) &(x)->lpConnectionPointVtbl)
  42
  43 /**********************************************************************
  44  * Implement the IConnectionPointContainer interface
  45  */
  46
  47 #define CONPTCONT_THIS(iface) DEFINE_THIS(WebBrowser, ConnectionPointContainer, iface)
  48
  49 static HRESULT WINAPI ConnectionPointContainer_QueryInterface(IConnectionPointContainer *iface,
  50         REFIID riid, LPVOID *ppobj)
  51 {
  52     WebBrowser *This = CONPTCONT_THIS(iface);
  53     return IWebBrowser_QueryInterface(WEBBROWSER(This), riid, ppobj);
  54 }
  55
  56 static ULONG WINAPI ConnectionPointContainer_AddRef(IConnectionPointContainer *iface)
  57 {
  58     WebBrowser *This = CONPTCONT_THIS(iface);
  59     return IWebBrowser_AddRef(WEBBROWSER(This));
  60 }
  61
  62 static ULONG WINAPI ConnectionPointContainer_Release(IConnectionPointContainer *iface)
  63 {
  64     WebBrowser *This = CONPTCONT_THIS(iface);
  65     return IWebBrowser_Release(WEBBROWSER(This));
  66 }
  67
  68 static HRESULT WINAPI ConnectionPointContainer_EnumConnectionPoints(IConnectionPointContainer *iface,
  69         LPENUMCONNECTIONPOINTS *ppEnum)
  70 {
  71     WebBrowser *This = CONPTCONT_THIS(iface);
  72     FIXME("(%p)->(%p)\n", This, ppEnum);
  73     return E_NOTIMPL;
  74 }
  75
  76 static HRESULT WINAPI ConnectionPointContainer_FindConnectionPoint(IConnectionPointContainer *iface,
  77         REFIID riid, LPCONNECTIONPOINT *ppCP)
  78 {
  79     WebBrowser *This = CONPTCONT_THIS(iface);
  80
  81     if(!ppCP) {
  82         WARN("ppCP == NULL\n");
  83         return E_POINTER;
  84     }
  85
  86     *ppCP = NULL;
  87
  88     if(IsEqualGUID(&DIID_DWebBrowserEvents2, riid)) {
  89         TRACE("(%p)->(DIID_DWebBrowserEvents2 %p)\n", This, ppCP);
  90         *ppCP = CONPOINT(This->cp_wbe2);
  91     }else if(IsEqualGUID(&DIID_DWebBrowserEvents, riid)) {
  92         TRACE("(%p)->(DIID_DWebBrowserEvents %p)\n", This, ppCP);
  93         *ppCP = CONPOINT(This->cp_wbe);
  94     }else if(IsEqualGUID(&IID_IPropertyNotifySink, riid)) {
  95         TRACE("(%p)->(IID_IPropertyNotifySink %p)\n", This, ppCP);
  96         *ppCP = CONPOINT(This->cp_pns);
  97     }
  98
  99     if(*ppCP) {
 100         IConnectionPoint_AddRef(*ppCP);
 101         return S_OK;
 102     }
 103
 104     WARN("Unsupported IID %s\n", debugstr_guid(riid));
 105     return E_NOINTERFACE;
 106 }
 107
 108 #undef CONPTCONT_THIS
 109
 110 static const IConnectionPointContainerVtbl ConnectionPointContainerVtbl =
 111 {
 112     ConnectionPointContainer_QueryInterface,
 113     ConnectionPointContainer_AddRef,
 114     ConnectionPointContainer_Release,
 115     ConnectionPointContainer_EnumConnectionPoints,
 116     ConnectionPointContainer_FindConnectionPoint
 117 };
 118
 119
 120 /**********************************************************************
 121  * Implement the IConnectionPoint interface
 122  */
 123
 124 #define CONPOINT_THIS(iface) DEFINE_THIS(ConnectionPoint, ConnectionPoint, iface)
 125
 126 static HRESULT WINAPI ConnectionPoint_QueryInterface(IConnectionPoint *iface,
 127                                                      REFIID riid, LPVOID *ppv)
 128 {
 129     ConnectionPoint *This = CONPOINT_THIS(iface);
 130
 131     *ppv = NULL;
 132
 133     if(IsEqualGUID(&IID_IUnknown, riid)) {
 134         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
 135         *ppv = CONPOINT(This);
 136     }else if(IsEqualGUID(&IID_IConnectionPoint, riid)) {
 137         TRACE("(%p)->(IID_IConnectionPoint %p)\n", This, ppv);
 138         *ppv = CONPOINT(This);
 139     }
 140
 141     if(*ppv) {
 142         IWebBrowser2_AddRef(WEBBROWSER(This->webbrowser));
 143         return S_OK;
 144     }
 145
 146     WARN("Unsupported interface %s\n", debugstr_guid(riid));
 147     return E_NOINTERFACE;
 148 }
 149
 150 static ULONG WINAPI ConnectionPoint_AddRef(IConnectionPoint *iface)
 151 {
 152     ConnectionPoint *This = CONPOINT_THIS(iface);
 153     return IWebBrowser2_AddRef(WEBBROWSER(This->webbrowser));
 154 }
 155
 156 static ULONG WINAPI ConnectionPoint_Release(IConnectionPoint *iface)
 157 {
 158     ConnectionPoint *This = CONPOINT_THIS(iface);
 159     return IWebBrowser2_Release(WEBBROWSER(This->webbrowser));
 160 }
 161
 162 static HRESULT WINAPI ConnectionPoint_GetConnectionInterface(IConnectionPoint *iface, IID *pIID)
 163 {
 164     ConnectionPoint *This = CONPOINT_THIS(iface);
 165
 166     TRACE("(%p)->(%p)\n", This, pIID);
 167
 168     memcpy(pIID, &This->iid, sizeof(IID));
 169     return S_OK;
 170 }
 171
 172 static HRESULT WINAPI ConnectionPoint_GetConnectionPointContainer(IConnectionPoint *iface,
 173         IConnectionPointContainer **ppCPC)
 174 {
 175     ConnectionPoint *This = CONPOINT_THIS(iface);
 176
 177     TRACE("(%p)->(%p)\n", This, ppCPC);
 178
 179     *ppCPC = CONPTCONT(This->webbrowser);
 180     return S_OK;
 181 }
 182
 183 static HRESULT WINAPI ConnectionPoint_Advise(IConnectionPoint *iface, IUnknown *pUnkSink,
 184                                              DWORD *pdwCookie)
 185 {
 186     ConnectionPoint *This = CONPOINT_THIS(iface);
 187     IDispatch *disp;
 188     DWORD i;
 189     HRESULT hres;
 190
 191     TRACE("(%p)->(%p %p)\n", This, pUnkSink, pdwCookie);
 192
 193     hres = IUnknown_QueryInterface(pUnkSink, &This->iid, (void**)&disp);
 194     if(FAILED(hres)) {
 195         hres = IUnknown_QueryInterface(pUnkSink, &IID_IDispatch, (void**)&disp);
 196         if(FAILED(hres))
 197             return CONNECT_E_CANNOTCONNECT;
 198     }
 199
 200     if(This->sinks) {
 201         for(i=0; i<This->sinks_size; i++) {
 202             if(!This->sinks[i])
 203                 break;
 204         }
 205
 206         if(i == This->sinks_size)
 207             This->sinks = HeapReAlloc(GetProcessHeap(), 0, This->sinks,
 208                                       (++This->sinks_size)*sizeof(*This->sinks));
 209     }else {
 210         This->sinks = HeapAlloc(GetProcessHeap(), 0, sizeof(*This->sinks));
 211         This->sinks_size = 1;
 212         i = 0;
 213     }
 214
 215     This->sinks[i] = disp;
 216     *pdwCookie = i+1;
 217
 218     return S_OK;
 219 }
 220
 221 static HRESULT WINAPI ConnectionPoint_Unadvise(IConnectionPoint *iface, DWORD dwCookie)
 222 {
 223     ConnectionPoint *This = CONPOINT_THIS(iface);
 224
 225     TRACE("(%p)->(%ld)\n", This, dwCookie);
 226
 227     if(!dwCookie || dwCookie > This->sinks_size || !This->sinks[dwCookie-1])
 228         return CONNECT_E_NOCONNECTION;
 229
 230     IDispatch_Release(This->sinks[dwCookie-1]);
 231     This->sinks[dwCookie-1] = NULL;
 232
 233     return S_OK;
 234 }
 235
 236 static HRESULT WINAPI ConnectionPoint_EnumConnections(IConnectionPoint *iface,
 237                                                       IEnumConnections **ppEnum)
 238 {
 239     ConnectionPoint *This = CONPOINT_THIS(iface);
 240     FIXME("(%p)->(%p)\n", This, ppEnum);
 241     return E_NOTIMPL;
 242 }
 243
 244 #undef CONPOINT_THIS
 245
 246 static const IConnectionPointVtbl ConnectionPointVtbl =
 247 {
 248     ConnectionPoint_QueryInterface,
 249     ConnectionPoint_AddRef,
 250     ConnectionPoint_Release,
 251     ConnectionPoint_GetConnectionInterface,
 252     ConnectionPoint_GetConnectionPointContainer,
 253     ConnectionPoint_Advise,
 254     ConnectionPoint_Unadvise,
 255     ConnectionPoint_EnumConnections
 256 };
 257
 258 void call_sink(ConnectionPoint *This, DISPID dispid, DISPPARAMS *dispparams)
 259 {
 260     DWORD i;
 261
 262     for(i=0; i<This->sinks_size; i++) {
 263         if(This->sinks[i])
 264             IDispatch_Invoke(This->sinks[i], dispid, &IID_NULL, LOCALE_SYSTEM_DEFAULT,
 265                              DISPATCH_METHOD, dispparams, NULL, NULL, NULL);
 266     }
 267 }
 268
 269 static void ConnectionPoint_Create(WebBrowser *wb, REFIID riid, ConnectionPoint **cp)
 270 {
 271     ConnectionPoint *ret = HeapAlloc(GetProcessHeap(), 0, sizeof(ConnectionPoint));
 272
 273     ret->lpConnectionPointVtbl = &ConnectionPointVtbl;
 274     ret->webbrowser = wb;
 275
 276     ret->sinks = NULL;
 277     ret->sinks_size = 0;
 278
 279     memcpy(&ret->iid, riid, sizeof(IID));
 280
 281     *cp = ret;
 282 }
 283
 284 static void ConnectionPoint_Destroy(ConnectionPoint *This)
 285 {
 286     int i;
 287
 288     for(i=0; i<This->sinks_size; i++) {
 289         if(This->sinks[i])
 290             IDispatch_Release(This->sinks[i]);
 291     }
 292
 293     HeapFree(GetProcessHeap(), 0, This->sinks);
 294     HeapFree(GetProcessHeap(), 0, This);
 295 }
 296
 297 void WebBrowser_Events_Init(WebBrowser *This)
 298 {
 299     This->lpConnectionPointContainerVtbl = &ConnectionPointContainerVtbl;
 300
 301     ConnectionPoint_Create(This, &DIID_DWebBrowserEvents2, &This->cp_wbe2);
 302     ConnectionPoint_Create(This, &DIID_DWebBrowserEvents, &This->cp_wbe);
 303     ConnectionPoint_Create(This, &IID_IPropertyNotifySink, &This->cp_pns);
 304 }
 305
 306 void WebBrowser_Events_Destroy(WebBrowser *This)
 307 {
 308     ConnectionPoint_Destroy(This->cp_wbe2);
 309     ConnectionPoint_Destroy(This->cp_wbe);
 310     ConnectionPoint_Destroy(This->cp_pns);
 311 }