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

   1 /*
   2  * Copyright 2010 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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  17  */
  18
  19 #include "config.h"
  20
  21 #include <stdarg.h>
  22
  23 #define COBJMACROS
  24
  25 #include "windef.h"
  26 #include "winbase.h"
  27 #include "winuser.h"
  28 #include "ole2.h"
  29 #include "shlobj.h"
  30 #include "mshtmdid.h"
  31
  32 #include "mshtml_private.h"
  33 #include "pluginhost.h"
  34
  35 #include "wine/debug.h"
  36
  37 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
  38
  39 const IID IID_HTMLPluginContainer =
  40     {0xbd7a6050,0xb373,0x4f6f,{0xa4,0x93,0xdd,0x40,0xc5,0x23,0xa8,0x6a}};
  41
  42 static BOOL check_load_safety(PluginHost *host)
  43 {
  44     DWORD policy_size, policy;
  45     struct CONFIRMSAFETY cs;
  46     BYTE *ppolicy;
  47     HRESULT hres;
  48
  49     cs.clsid = host->clsid;
  50     cs.pUnk = host->plugin_unk;
  51     cs.dwFlags = CONFIRMSAFETYACTION_LOADOBJECT;
  52
  53     hres = IInternetHostSecurityManager_QueryCustomPolicy(&host->doc->IInternetHostSecurityManager_iface,
  54             &GUID_CUSTOM_CONFIRMOBJECTSAFETY, &ppolicy, &policy_size, (BYTE*)&cs, sizeof(cs), 0);
  55     if(FAILED(hres))
  56         return FALSE;
  57
  58     policy = *(DWORD*)ppolicy;
  59     CoTaskMemFree(ppolicy);
  60     return policy == URLPOLICY_ALLOW;
  61 }
  62
  63 static BOOL check_script_safety(PluginHost *host)
  64 {
  65     DISPPARAMS params = {NULL,NULL,0,0};
  66     DWORD policy_size, policy;
  67     struct CONFIRMSAFETY cs;
  68     BYTE *ppolicy;
  69     ULONG err = 0;
  70     VARIANT v;
  71     HRESULT hres;
  72
  73     cs.clsid = host->clsid;
  74     cs.pUnk = host->plugin_unk;
  75     cs.dwFlags = 0;
  76
  77     hres = IInternetHostSecurityManager_QueryCustomPolicy(&host->doc->IInternetHostSecurityManager_iface,
  78             &GUID_CUSTOM_CONFIRMOBJECTSAFETY, &ppolicy, &policy_size, (BYTE*)&cs, sizeof(cs), 0);
  79     if(FAILED(hres))
  80         return FALSE;
  81
  82     policy = *(DWORD*)ppolicy;
  83     CoTaskMemFree(ppolicy);
  84
  85     if(policy != URLPOLICY_ALLOW)
  86         return FALSE;
  87
  88     V_VT(&v) = VT_EMPTY;
  89     hres = IDispatch_Invoke(host->disp, DISPID_SECURITYCTX, &IID_NULL, 0, DISPATCH_PROPERTYGET, &params, &v, NULL, &err);
  90     if(SUCCEEDED(hres)) {
  91         FIXME("Handle security ctx %s\n", debugstr_variant(&v));
  92         return FALSE;
  93     }
  94
  95     return TRUE;
  96 }
  97
  98 static void update_readystate(PluginHost *host)
  99 {
 100     DISPPARAMS params = {NULL,NULL,0,0};
 101     IDispatchEx *dispex;
 102     IDispatch *disp;
 103     ULONG err = 0;
 104     VARIANT v;
 105     HRESULT hres;
 106
 107     hres = IUnknown_QueryInterface(host->plugin_unk, &IID_IDispatchEx, (void**)&dispex);
 108     if(SUCCEEDED(hres)) {
 109         FIXME("Use IDispatchEx\n");
 110         IDispatchEx_Release(dispex);
 111     }
 112
 113     hres = IUnknown_QueryInterface(host->plugin_unk, &IID_IDispatch, (void**)&disp);
 114     if(FAILED(hres))
 115         return;
 116
 117     hres = IDispatch_Invoke(disp, DISPID_READYSTATE, &IID_NULL, 0, DISPATCH_PROPERTYGET, &params, &v, NULL, &err);
 118     IDispatch_Release(disp);
 119     if(SUCCEEDED(hres)) {
 120         /* FIXME: make plugin readystate affect document readystate */
 121         TRACE("readystate = %s\n", debugstr_variant(&v));
 122         VariantClear(&v);
 123     }
 124 }
 125
 126 /* FIXME: We shouldn't need this function and we should embed plugin directly in the main document */
 127 static void get_pos_rect(PluginHost *host, RECT *ret)
 128 {
 129     ret->top = 0;
 130     ret->left = 0;
 131     ret->bottom = host->rect.bottom - host->rect.top;
 132     ret->right = host->rect.right - host->rect.left;
 133 }
 134
 135 static void load_prop_bag(PluginHost *host, IPersistPropertyBag *persist_prop_bag)
 136 {
 137     IPropertyBag *prop_bag;
 138     HRESULT hres;
 139
 140     hres = create_param_prop_bag(host->element->element.nselem, &prop_bag);
 141     if(FAILED(hres))
 142         return;
 143
 144     if(prop_bag && !check_load_safety(host)) {
 145         IPropertyBag_Release(prop_bag);
 146         prop_bag = NULL;
 147     }
 148
 149     if(prop_bag) {
 150         hres = IPersistPropertyBag_Load(persist_prop_bag, prop_bag, NULL);
 151         IPropertyBag_Release(prop_bag);
 152         if(FAILED(hres))
 153             WARN("Load failed: %08x\n", hres);
 154     }else {
 155         hres = IPersistPropertyBag_InitNew(persist_prop_bag);
 156         if(FAILED(hres))
 157             WARN("InitNew failed: %08x\n", hres);
 158     }
 159 }
 160
 161 static void load_plugin(PluginHost *host)
 162 {
 163     IPersistPropertyBag2 *persist_prop_bag2;
 164     IPersistPropertyBag *persist_prop_bag;
 165     HRESULT hres;
 166
 167     hres = IUnknown_QueryInterface(host->plugin_unk, &IID_IPersistPropertyBag2, (void**)&persist_prop_bag2);
 168     if(SUCCEEDED(hres)) {
 169         FIXME("Use IPersistPropertyBag2 iface\n");
 170         IPersistPropertyBag2_Release(persist_prop_bag2);
 171         return;
 172     }
 173
 174     hres = IUnknown_QueryInterface(host->plugin_unk, &IID_IPersistPropertyBag, (void**)&persist_prop_bag);
 175     if(SUCCEEDED(hres)) {
 176         load_prop_bag(host, persist_prop_bag);
 177         IPersistPropertyBag_Release(persist_prop_bag);
 178         return;
 179     }
 180
 181     FIXME("No IPersistPropertyBag iface\n");
 182 }
 183
 184 static void activate_plugin(PluginHost *host)
 185 {
 186     IClientSecurity *client_security;
 187     IQuickActivate *quick_activate;
 188     IOleObject *ole_obj = NULL;
 189     IOleCommandTarget *cmdtrg;
 190     IViewObjectEx *view_obj;
 191     IDispatchEx *dispex;
 192     IDispatch *disp;
 193     RECT rect;
 194     HRESULT hres;
 195
 196     if(!host->plugin_unk)
 197         return;
 198
 199     /* Note native calls QI on plugin for an undocumented IID and CLSID_HTMLDocument */
 200
 201     /* FIXME: call FreezeEvents(TRUE) */
 202
 203     hres = IUnknown_QueryInterface(host->plugin_unk, &IID_IClientSecurity, (void**)&client_security);
 204     if(SUCCEEDED(hres)) {
 205         FIXME("Handle IClientSecurity\n");
 206         IClientSecurity_Release(client_security);
 207         return;
 208     }
 209
 210     hres = IUnknown_QueryInterface(host->plugin_unk, &IID_IQuickActivate, (void**)&quick_activate);
 211     if(SUCCEEDED(hres)) {
 212         QACONTAINER container = {sizeof(container)};
 213         QACONTROL control = {sizeof(control)};
 214
 215         TRACE("Using IQuickActivate\n");
 216
 217         container.pClientSite = &host->IOleClientSite_iface;
 218         container.dwAmbientFlags = QACONTAINER_SUPPORTSMNEMONICS|QACONTAINER_MESSAGEREFLECT|QACONTAINER_USERMODE;
 219         container.pAdviseSink = &host->IAdviseSinkEx_iface;
 220         container.pPropertyNotifySink = &host->IPropertyNotifySink_iface;
 221
 222         hres = IQuickActivate_QuickActivate(quick_activate, &container, &control);
 223         IQuickActivate_Release(quick_activate);
 224         if(FAILED(hres))
 225             FIXME("QuickActivate failed: %08x\n", hres);
 226     }else {
 227         DWORD status = 0;
 228
 229         hres = IUnknown_QueryInterface(host->plugin_unk, &IID_IOleObject, (void**)&ole_obj);
 230         if(SUCCEEDED(hres)) {
 231             hres = IOleObject_GetMiscStatus(ole_obj, DVASPECT_CONTENT, &status);
 232             TRACE("GetMiscStatus returned %08x %x\n", hres, status);
 233
 234             hres = IOleObject_SetClientSite(ole_obj, &host->IOleClientSite_iface);
 235             IOleObject_Release(ole_obj);
 236             if(FAILED(hres)) {
 237                 FIXME("SetClientSite failed: %08x\n", hres);
 238                 return;
 239             }
 240         }else {
 241             TRACE("Plugin does not support IOleObject\n");
 242         }
 243     }
 244
 245     load_plugin(host);
 246
 247     if(ole_obj) {
 248         hres = IUnknown_QueryInterface(host->plugin_unk, &IID_IViewObjectEx, (void**)&view_obj);
 249         if(SUCCEEDED(hres)) {
 250             DWORD view_status = 0;
 251
 252             hres = IViewObjectEx_SetAdvise(view_obj, DVASPECT_CONTENT, 0, (IAdviseSink*)&host->IAdviseSinkEx_iface);
 253             if(FAILED(hres))
 254                 WARN("SetAdvise failed: %08x\n", hres);
 255
 256             hres = IViewObjectEx_GetViewStatus(view_obj, &view_status);
 257             IViewObjectEx_Release(view_obj);
 258             TRACE("GetViewStatus returned %08x %x\n", hres, view_status);
 259         }
 260     }
 261
 262     update_readystate(host);
 263
 264     /* NOTE: Native QIs for IActiveScript, an undocumented IID, IOleControl and IRunnableObject */
 265
 266     hres = IUnknown_QueryInterface(host->plugin_unk, &IID_IDispatchEx, (void**)&dispex);
 267     if(SUCCEEDED(hres)) {
 268         FIXME("Use IDispatchEx\n");
 269         host->disp = (IDispatch*)dispex;
 270     }else {
 271         hres = IUnknown_QueryInterface(host->plugin_unk, &IID_IDispatch, (void**)&disp);
 272         if(SUCCEEDED(hres))
 273             host->disp = disp;
 274         else
 275             TRACE("no IDispatch iface\n");
 276     }
 277
 278     hres = IUnknown_QueryInterface(host->plugin_unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
 279     if(SUCCEEDED(hres)) {
 280         FIXME("Use IOleCommandTarget\n");
 281         IOleCommandTarget_Release(cmdtrg);
 282     }
 283
 284     hres = IUnknown_QueryInterface(host->plugin_unk, &IID_IOleObject, (void**)&ole_obj);
 285     if(FAILED(hres)) {
 286         FIXME("Plugin does not support IOleObject\n");
 287         return;
 288     }
 289
 290     if(ole_obj) {
 291         get_pos_rect(host, &rect);
 292         hres = IOleObject_DoVerb(ole_obj, OLEIVERB_INPLACEACTIVATE, NULL, &host->IOleClientSite_iface, 0, host->hwnd, &rect);
 293         IOleObject_Release(ole_obj);
 294         if(FAILED(hres))
 295             WARN("DoVerb failed: %08x\n", hres);
 296     }
 297
 298     if(host->ip_object) {
 299         HWND hwnd;
 300
 301         hres = IOleInPlaceObject_GetWindow(host->ip_object, &hwnd);
 302         if(SUCCEEDED(hres))
 303             TRACE("hwnd %p\n", hwnd);
 304     }
 305 }
 306
 307 void update_plugin_window(PluginHost *host, HWND hwnd, const RECT *rect)
 308 {
 309     BOOL rect_changed = FALSE;
 310
 311     if(!hwnd || (host->hwnd && host->hwnd != hwnd)) {
 312         FIXME("unhandled hwnd\n");
 313         return;
 314     }
 315
 316     TRACE("%p %s\n", hwnd, wine_dbgstr_rect(rect));
 317
 318     if(memcmp(rect, &host->rect, sizeof(RECT))) {
 319         host->rect = *rect;
 320         rect_changed = TRUE;
 321     }
 322
 323     if(!host->hwnd) {
 324         host->hwnd = hwnd;
 325         activate_plugin(host);
 326     }
 327
 328     if(rect_changed && host->ip_object)
 329         IOleInPlaceObject_SetObjectRects(host->ip_object, &host->rect, &host->rect);
 330 }
 331
 332 static void notif_enabled(PluginHost *plugin_host)
 333 {
 334     DISPPARAMS args = {NULL, NULL, 0, 0};
 335     IDispatch *disp;
 336     ULONG err = 0;
 337     VARIANT res;
 338     HRESULT hres;
 339
 340     hres = IUnknown_QueryInterface(plugin_host->plugin_unk, &IID_IDispatch, (void**)&disp);
 341     if(FAILED(hres)) {
 342         FIXME("Could not get IDispatch iface: %08x\n", hres);
 343         return;
 344     }
 345
 346     V_VT(&res) = VT_EMPTY;
 347     hres = IDispatch_Invoke(disp, DISPID_ENABLED, &IID_NULL, 0/*FIXME*/, DISPATCH_PROPERTYGET, &args, &res, NULL, &err);
 348     IDispatch_Release(disp);
 349     if(SUCCEEDED(hres)) {
 350         FIXME("Got enabled %s\n", debugstr_variant(&res));
 351         VariantClear(&res);
 352     }
 353 }
 354
 355 void notif_container_change(HTMLPluginContainer *plugin_container, DISPID dispid)
 356 {
 357     IOleControl *ole_control;
 358     HRESULT hres;
 359
 360     if(!plugin_container->plugin_host || !plugin_container->plugin_host->plugin_unk)
 361         return;
 362
 363     notif_enabled(plugin_container->plugin_host);
 364
 365     hres = IUnknown_QueryInterface(plugin_container->plugin_host->plugin_unk, &IID_IOleControl, (void**)&ole_control);
 366     if(SUCCEEDED(hres)) {
 367         IOleControl_OnAmbientPropertyChange(ole_control, dispid);
 368         IOleControl_Release(ole_control);
 369     }
 370 }
 371
 372 HRESULT get_plugin_disp(HTMLPluginContainer *plugin_container, IDispatch **ret)
 373 {
 374     PluginHost *host;
 375
 376     host = plugin_container->plugin_host;
 377     if(!host) {
 378         ERR("No plugin host\n");
 379         return E_UNEXPECTED;
 380     }
 381
 382     if(!host->disp) {
 383         *ret = NULL;
 384         return S_OK;
 385     }
 386
 387     if(!check_script_safety(host)) {
 388         FIXME("Insecure object\n");
 389         return E_FAIL;
 390     }
 391
 392     IDispatch_AddRef(host->disp);
 393     *ret = host->disp;
 394     return S_OK;
 395 }
 396
 397 HRESULT get_plugin_dispid(HTMLPluginContainer *plugin_container, WCHAR *name, DISPID *ret)
 398 {
 399     IDispatch *disp;
 400     DISPID id;
 401     DWORD i;
 402     HRESULT hres;
 403
 404     if(!plugin_container->plugin_host) {
 405         WARN("no plugin host\n");
 406         return DISP_E_UNKNOWNNAME;
 407     }
 408
 409     disp = plugin_container->plugin_host->disp;
 410     if(!disp)
 411         return DISP_E_UNKNOWNNAME;
 412
 413     hres = IDispatch_GetIDsOfNames(disp, &IID_NULL, &name, 1, 0, &id);
 414     if(FAILED(hres)) {
 415         TRACE("no prop %s\n", debugstr_w(name));
 416         return DISP_E_UNKNOWNNAME;
 417     }
 418
 419     for(i=0; i < plugin_container->props_len; i++) {
 420         if(id == plugin_container->props[i]) {
 421             *ret = MSHTML_DISPID_CUSTOM_MIN+i;
 422             return S_OK;
 423         }
 424     }
 425
 426     if(!plugin_container->props) {
 427         plugin_container->props = heap_alloc(8*sizeof(DISPID));
 428         if(!plugin_container->props)
 429             return E_OUTOFMEMORY;
 430         plugin_container->props_size = 8;
 431     }else if(plugin_container->props_len == plugin_container->props_size) {
 432         DISPID *new_props;
 433
 434         new_props = heap_realloc(plugin_container->props, plugin_container->props_size*2*sizeof(DISPID));
 435         if(!new_props)
 436             return E_OUTOFMEMORY;
 437
 438         plugin_container->props = new_props;
 439         plugin_container->props_size *= 2;
 440     }
 441
 442     plugin_container->props[plugin_container->props_len] = id;
 443     *ret = MSHTML_DISPID_CUSTOM_MIN+plugin_container->props_len;
 444     plugin_container->props_len++;
 445     return S_OK;
 446 }
 447
 448 HRESULT invoke_plugin_prop(HTMLPluginContainer *plugin_container, DISPID id, LCID lcid, WORD flags, DISPPARAMS *params,
 449         VARIANT *res, EXCEPINFO *ei)
 450 {
 451     PluginHost *host;
 452
 453     host = plugin_container->plugin_host;
 454     if(!host || !host->disp) {
 455         FIXME("Called with no disp\n");
 456         return E_UNEXPECTED;
 457     }
 458
 459     if(!check_script_safety(host)) {
 460         FIXME("Insecure object\n");
 461         return E_FAIL;
 462     }
 463
 464     if(id < MSHTML_DISPID_CUSTOM_MIN || id > MSHTML_DISPID_CUSTOM_MIN + plugin_container->props_len) {
 465         ERR("Invalid id\n");
 466         return E_FAIL;
 467     }
 468
 469     return IDispatch_Invoke(host->disp, plugin_container->props[id-MSHTML_DISPID_CUSTOM_MIN], &IID_NULL,
 470             lcid, flags, params, res, ei, NULL);
 471 }
 472
 473 static inline PluginHost *impl_from_IOleClientSite(IOleClientSite *iface)
 474 {
 475     return CONTAINING_RECORD(iface, PluginHost, IOleClientSite_iface);
 476 }
 477
 478 static HRESULT WINAPI PHClientSite_QueryInterface(IOleClientSite *iface, REFIID riid, void **ppv)
 479 {
 480     PluginHost *This = impl_from_IOleClientSite(iface);
 481
 482     if(IsEqualGUID(&IID_IUnknown, riid)) {
 483         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
 484         *ppv = &This->IOleClientSite_iface;
 485     }else if(IsEqualGUID(&IID_IOleClientSite, riid)) {
 486         TRACE("(%p)->(IID_IOleClientSite %p)\n", This, ppv);
 487         *ppv = &This->IOleClientSite_iface;
 488     }else if(IsEqualGUID(&IID_IAdviseSink, riid)) {
 489         TRACE("(%p)->(IID_IAdviseSink %p)\n", This, ppv);
 490         *ppv = &This->IAdviseSinkEx_iface;
 491     }else if(IsEqualGUID(&IID_IAdviseSinkEx, riid)) {
 492         TRACE("(%p)->(IID_IAdviseSinkEx %p)\n", This, ppv);
 493         *ppv = &This->IAdviseSinkEx_iface;
 494     }else if(IsEqualGUID(&IID_IPropertyNotifySink, riid)) {
 495         TRACE("(%p)->(IID_IPropertyNotifySink %p)\n", This, ppv);
 496         *ppv = &This->IPropertyNotifySink_iface;
 497     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
 498         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
 499         *ppv = &This->IDispatch_iface;
 500     }else if(IsEqualGUID(&IID_IOleWindow, riid)) {
 501         TRACE("(%p)->(IID_IOleWindow %p)\n", This, ppv);
 502         *ppv = &This->IOleInPlaceSiteEx_iface;
 503     }else if(IsEqualGUID(&IID_IOleInPlaceSite, riid)) {
 504         TRACE("(%p)->(IID_IOleInPlaceSite %p)\n", This, ppv);
 505         *ppv = &This->IOleInPlaceSiteEx_iface;
 506     }else if(IsEqualGUID(&IID_IOleInPlaceSiteEx, riid)) {
 507         TRACE("(%p)->(IID_IOleInPlaceSiteEx %p)\n", This, ppv);
 508         *ppv = &This->IOleInPlaceSiteEx_iface;
 509     }else if(IsEqualGUID(&IID_IOleControlSite, riid)) {
 510         TRACE("(%p)->(IID_IOleControlSite %p)\n", This, ppv);
 511         *ppv = &This->IOleControlSite_iface;
 512     }else if(IsEqualGUID(&IID_IBindHost, riid)) {
 513         TRACE("(%p)->(IID_IBindHost %p)\n", This, ppv);
 514         *ppv = &This->IBindHost_iface;
 515     }else if(IsEqualGUID(&IID_IServiceProvider, riid)) {
 516         TRACE("(%p)->(IID_IServiceProvider %p)\n", This, ppv);
 517         *ppv = &This->IServiceProvider_iface;
 518     }else {
 519         WARN("Unsupported interface %s\n", debugstr_guid(riid));
 520         *ppv = NULL;
 521         return E_NOINTERFACE;
 522     }
 523
 524     IUnknown_AddRef((IUnknown*)*ppv);
 525     return S_OK;
 526 }
 527
 528 static ULONG WINAPI PHClientSite_AddRef(IOleClientSite *iface)
 529 {
 530     PluginHost *This = impl_from_IOleClientSite(iface);
 531     LONG ref = InterlockedIncrement(&This->ref);
 532
 533     TRACE("(%p) ref=%d\n", This, ref);
 534
 535     return ref;
 536 }
 537
 538 static ULONG WINAPI PHClientSite_Release(IOleClientSite *iface)
 539 {
 540     PluginHost *This = impl_from_IOleClientSite(iface);
 541     LONG ref = InterlockedDecrement(&This->ref);
 542
 543     TRACE("(%p) ref=%d\n", This, ref);
 544
 545     if(!ref) {
 546         if(This->disp)
 547             IDispatch_Release(This->disp);
 548         if(This->ip_object)
 549             IOleInPlaceObject_Release(This->ip_object);
 550         list_remove(&This->entry);
 551         if(This->element)
 552             This->element->plugin_host = NULL;
 553         if(This->plugin_unk)
 554             IUnknown_Release(This->plugin_unk);
 555         heap_free(This);
 556     }
 557
 558     return ref;
 559 }
 560
 561 static HRESULT WINAPI PHClientSite_SaveObject(IOleClientSite *iface)
 562 {
 563     PluginHost *This = impl_from_IOleClientSite(iface);
 564     FIXME("(%p)\n", This);
 565     return E_NOTIMPL;
 566 }
 567
 568 static HRESULT WINAPI PHClientSite_GetMoniker(IOleClientSite *iface, DWORD dwAssign,
 569         DWORD dwWhichMoniker, IMoniker **ppmk)
 570 {
 571     PluginHost *This = impl_from_IOleClientSite(iface);
 572
 573     TRACE("(%p)->(%d %d %p)\n", This, dwAssign, dwWhichMoniker, ppmk);
 574
 575     switch(dwWhichMoniker) {
 576     case OLEWHICHMK_CONTAINER:
 577         if(!This->doc || !This->doc->window || !This->doc->window->mon) {
 578             FIXME("no moniker\n");
 579             return E_UNEXPECTED;
 580         }
 581
 582         *ppmk = This->doc->window->mon;
 583         IMoniker_AddRef(*ppmk);
 584         break;
 585     default:
 586         FIXME("which %d\n", dwWhichMoniker);
 587         return E_NOTIMPL;
 588     }
 589
 590     return S_OK;
 591 }
 592
 593 static HRESULT WINAPI PHClientSite_GetContainer(IOleClientSite *iface, IOleContainer **ppContainer)
 594 {
 595     PluginHost *This = impl_from_IOleClientSite(iface);
 596
 597     TRACE("(%p)->(%p)\n", This, ppContainer);
 598
 599     if(!This->doc) {
 600         ERR("Called on detached object\n");
 601         return E_UNEXPECTED;
 602     }
 603
 604     *ppContainer = &This->doc->basedoc.IOleContainer_iface;
 605     IOleContainer_AddRef(*ppContainer);
 606     return S_OK;
 607 }
 608
 609 static HRESULT WINAPI PHClientSite_ShowObject(IOleClientSite *iface)
 610 {
 611     PluginHost *This = impl_from_IOleClientSite(iface);
 612
 613     TRACE("(%p)\n", This);
 614
 615     return S_OK;
 616 }
 617
 618 static HRESULT WINAPI PHClientSite_OnShowWindow(IOleClientSite *iface, BOOL fShow)
 619 {
 620     PluginHost *This = impl_from_IOleClientSite(iface);
 621     FIXME("(%p)->(%x)\n", This, fShow);
 622     return E_NOTIMPL;
 623 }
 624
 625 static HRESULT WINAPI PHClientSite_RequestNewObjectLayout(IOleClientSite *iface)
 626 {
 627     PluginHost *This = impl_from_IOleClientSite(iface);
 628     FIXME("(%p)\n", This);
 629     return E_NOTIMPL;
 630 }
 631
 632 static const IOleClientSiteVtbl OleClientSiteVtbl = {
 633     PHClientSite_QueryInterface,
 634     PHClientSite_AddRef,
 635     PHClientSite_Release,
 636     PHClientSite_SaveObject,
 637     PHClientSite_GetMoniker,
 638     PHClientSite_GetContainer,
 639     PHClientSite_ShowObject,
 640     PHClientSite_OnShowWindow,
 641     PHClientSite_RequestNewObjectLayout
 642 };
 643
 644 static inline PluginHost *impl_from_IAdviseSinkEx(IAdviseSinkEx *iface)
 645 {
 646     return CONTAINING_RECORD(iface, PluginHost, IAdviseSinkEx_iface);
 647 }
 648
 649 static HRESULT WINAPI PHAdviseSinkEx_QueryInterface(IAdviseSinkEx *iface, REFIID riid, void **ppv)
 650 {
 651     PluginHost *This = impl_from_IAdviseSinkEx(iface);
 652     return IOleClientSite_QueryInterface(&This->IOleClientSite_iface, riid, ppv);
 653 }
 654
 655 static ULONG WINAPI PHAdviseSinkEx_AddRef(IAdviseSinkEx *iface)
 656 {
 657     PluginHost *This = impl_from_IAdviseSinkEx(iface);
 658     return IOleClientSite_AddRef(&This->IOleClientSite_iface);
 659 }
 660
 661 static ULONG WINAPI PHAdviseSinkEx_Release(IAdviseSinkEx *iface)
 662 {
 663     PluginHost *This = impl_from_IAdviseSinkEx(iface);
 664     return IOleClientSite_Release(&This->IOleClientSite_iface);
 665 }
 666
 667 static void WINAPI PHAdviseSinkEx_OnDataChange(IAdviseSinkEx *iface, FORMATETC *pFormatetc, STGMEDIUM *pStgMedium)
 668 {
 669     PluginHost *This = impl_from_IAdviseSinkEx(iface);
 670     FIXME("(%p)->(%p %p)\n", This, pFormatetc, pStgMedium);
 671 }
 672
 673 static void WINAPI PHAdviseSinkEx_OnViewChange(IAdviseSinkEx *iface, DWORD dwAspect, LONG lindex)
 674 {
 675     PluginHost *This = impl_from_IAdviseSinkEx(iface);
 676     FIXME("(%p)->(%d %d)\n", This, dwAspect, lindex);
 677 }
 678
 679 static void WINAPI PHAdviseSinkEx_OnRename(IAdviseSinkEx *iface, IMoniker *pmk)
 680 {
 681     PluginHost *This = impl_from_IAdviseSinkEx(iface);
 682     FIXME("(%p)->(%p)\n", This, pmk);
 683 }
 684
 685 static void WINAPI PHAdviseSinkEx_OnSave(IAdviseSinkEx *iface)
 686 {
 687     PluginHost *This = impl_from_IAdviseSinkEx(iface);
 688     FIXME("(%p)\n", This);
 689 }
 690
 691 static void WINAPI PHAdviseSinkEx_OnClose(IAdviseSinkEx *iface)
 692 {
 693     PluginHost *This = impl_from_IAdviseSinkEx(iface);
 694     FIXME("(%p)\n", This);
 695 }
 696
 697 static void WINAPI PHAdviseSinkEx_OnViewStatusChange(IAdviseSinkEx *iface, DWORD dwViewStatus)
 698 {
 699     PluginHost *This = impl_from_IAdviseSinkEx(iface);
 700     FIXME("(%p)->(%d)\n", This, dwViewStatus);
 701 }
 702
 703 static const IAdviseSinkExVtbl AdviseSinkExVtbl = {
 704     PHAdviseSinkEx_QueryInterface,
 705     PHAdviseSinkEx_AddRef,
 706     PHAdviseSinkEx_Release,
 707     PHAdviseSinkEx_OnDataChange,
 708     PHAdviseSinkEx_OnViewChange,
 709     PHAdviseSinkEx_OnRename,
 710     PHAdviseSinkEx_OnSave,
 711     PHAdviseSinkEx_OnClose,
 712     PHAdviseSinkEx_OnViewStatusChange
 713 };
 714
 715 static inline PluginHost *impl_from_IPropertyNotifySink(IPropertyNotifySink *iface)
 716 {
 717     return CONTAINING_RECORD(iface, PluginHost, IPropertyNotifySink_iface);
 718 }
 719
 720 static HRESULT WINAPI PHPropertyNotifySink_QueryInterface(IPropertyNotifySink *iface, REFIID riid, void **ppv)
 721 {
 722     PluginHost *This = impl_from_IPropertyNotifySink(iface);
 723     return IOleClientSite_QueryInterface(&This->IOleClientSite_iface, riid, ppv);
 724 }
 725
 726 static ULONG WINAPI PHPropertyNotifySink_AddRef(IPropertyNotifySink *iface)
 727 {
 728     PluginHost *This = impl_from_IPropertyNotifySink(iface);
 729     return IOleClientSite_AddRef(&This->IOleClientSite_iface);
 730 }
 731
 732 static ULONG WINAPI PHPropertyNotifySink_Release(IPropertyNotifySink *iface)
 733 {
 734     PluginHost *This = impl_from_IPropertyNotifySink(iface);
 735     return IOleClientSite_Release(&This->IOleClientSite_iface);
 736 }
 737
 738 static HRESULT WINAPI PHPropertyNotifySink_OnChanged(IPropertyNotifySink *iface, DISPID dispID)
 739 {
 740     PluginHost *This = impl_from_IPropertyNotifySink(iface);
 741
 742     TRACE("(%p)->(%d)\n", This, dispID);
 743
 744     switch(dispID) {
 745     case DISPID_READYSTATE:
 746         update_readystate(This);
 747         break;
 748     default :
 749         FIXME("Unimplemented dispID %d\n", dispID);
 750         return E_NOTIMPL;
 751     }
 752
 753     return S_OK;
 754 }
 755
 756 static HRESULT WINAPI PHPropertyNotifySink_OnRequestEdit(IPropertyNotifySink *iface, DISPID dispID)
 757 {
 758     PluginHost *This = impl_from_IPropertyNotifySink(iface);
 759     FIXME("(%p)->(%d)\n", This, dispID);
 760     return E_NOTIMPL;
 761 }
 762
 763 static const IPropertyNotifySinkVtbl PropertyNotifySinkVtbl = {
 764     PHPropertyNotifySink_QueryInterface,
 765     PHPropertyNotifySink_AddRef,
 766     PHPropertyNotifySink_Release,
 767     PHPropertyNotifySink_OnChanged,
 768     PHPropertyNotifySink_OnRequestEdit
 769 };
 770
 771 static inline PluginHost *impl_from_IDispatch(IDispatch *iface)
 772 {
 773     return CONTAINING_RECORD(iface, PluginHost, IDispatch_iface);
 774 }
 775
 776 static HRESULT WINAPI PHDispatch_QueryInterface(IDispatch *iface, REFIID riid, void **ppv)
 777 {
 778     PluginHost *This = impl_from_IDispatch(iface);
 779     return IOleClientSite_QueryInterface(&This->IOleClientSite_iface, riid, ppv);
 780 }
 781
 782 static ULONG WINAPI PHDispatch_AddRef(IDispatch *iface)
 783 {
 784     PluginHost *This = impl_from_IDispatch(iface);
 785     return IOleClientSite_AddRef(&This->IOleClientSite_iface);
 786 }
 787
 788 static ULONG WINAPI PHDispatch_Release(IDispatch *iface)
 789 {
 790     PluginHost *This = impl_from_IDispatch(iface);
 791     return IOleClientSite_Release(&This->IOleClientSite_iface);
 792 }
 793
 794 static HRESULT WINAPI PHDispatch_GetTypeInfoCount(IDispatch *iface, UINT *pctinfo)
 795 {
 796     PluginHost *This = impl_from_IDispatch(iface);
 797     FIXME("(%p)->(%p)\n", This, pctinfo);
 798     return E_NOTIMPL;
 799 }
 800
 801 static HRESULT WINAPI PHDispatch_GetTypeInfo(IDispatch *iface, UINT iTInfo,
 802         LCID lcid, ITypeInfo **ppTInfo)
 803 {
 804     PluginHost *This = impl_from_IDispatch(iface);
 805     FIXME("(%p)->(%d %d %p)\n", This, iTInfo, lcid, ppTInfo);
 806     return E_NOTIMPL;
 807 }
 808
 809 static HRESULT WINAPI PHDispatch_GetIDsOfNames(IDispatch *iface, REFIID riid,
 810         LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
 811 {
 812     PluginHost *This = impl_from_IDispatch(iface);
 813     FIXME("(%p)->(%s %p %d %d %p)\n", This, debugstr_guid(riid), rgszNames, cNames, lcid, rgDispId);
 814     return E_NOTIMPL;
 815 }
 816
 817 static HRESULT WINAPI PHDispatch_Invoke(IDispatch *iface, DISPID dispid,  REFIID riid, LCID lcid,
 818         WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
 819 {
 820     PluginHost *This = impl_from_IDispatch(iface);
 821     FIXME("(%p)->(%d %x %p %p)\n", This, dispid, wFlags, pDispParams, pVarResult);
 822     return E_NOTIMPL;
 823 }
 824
 825 static const IDispatchVtbl DispatchVtbl = {
 826     PHDispatch_QueryInterface,
 827     PHDispatch_AddRef,
 828     PHDispatch_Release,
 829     PHDispatch_GetTypeInfoCount,
 830     PHDispatch_GetTypeInfo,
 831     PHDispatch_GetIDsOfNames,
 832     PHDispatch_Invoke
 833 };
 834
 835 static inline PluginHost *impl_from_IOleInPlaceSiteEx(IOleInPlaceSiteEx *iface)
 836 {
 837     return CONTAINING_RECORD(iface, PluginHost, IOleInPlaceSiteEx_iface);
 838 }
 839
 840 static HRESULT WINAPI PHInPlaceSite_QueryInterface(IOleInPlaceSiteEx *iface, REFIID riid, void **ppv)
 841 {
 842     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 843     return IOleClientSite_QueryInterface(&This->IOleClientSite_iface, riid, ppv);
 844 }
 845
 846 static ULONG WINAPI PHInPlaceSite_AddRef(IOleInPlaceSiteEx *iface)
 847 {
 848     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 849     return IOleClientSite_AddRef(&This->IOleClientSite_iface);
 850 }
 851
 852 static ULONG WINAPI PHInPlaceSite_Release(IOleInPlaceSiteEx *iface)
 853 {
 854     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 855     return IOleClientSite_Release(&This->IOleClientSite_iface);
 856 }
 857
 858 static HRESULT WINAPI PHInPlaceSite_GetWindow(IOleInPlaceSiteEx *iface, HWND *phwnd)
 859 {
 860     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 861
 862     TRACE("(%p)->(%p)\n", This, phwnd);
 863
 864     *phwnd = This->hwnd;
 865     return S_OK;
 866 }
 867
 868 static HRESULT WINAPI PHInPlaceSite_ContextSensitiveHelp(IOleInPlaceSiteEx *iface, BOOL fEnterMode)
 869 {
 870     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 871     FIXME("(%p)->(%x)\n", This, fEnterMode);
 872     return E_NOTIMPL;
 873 }
 874
 875 static HRESULT WINAPI PHInPlaceSite_CanInPlaceActivate(IOleInPlaceSiteEx *iface)
 876 {
 877     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 878
 879     TRACE("(%p)\n", This);
 880
 881     return S_OK;
 882 }
 883
 884 static HRESULT WINAPI PHInPlaceSite_OnInPlaceActivate(IOleInPlaceSiteEx *iface)
 885 {
 886     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 887     FIXME("(%p)\n", This);
 888     return E_NOTIMPL;
 889 }
 890
 891 static HRESULT WINAPI PHInPlaceSite_OnUIActivate(IOleInPlaceSiteEx *iface)
 892 {
 893     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 894
 895     TRACE("(%p)\n", This);
 896
 897     if(!This->plugin_unk) {
 898         ERR("No plugin object\n");
 899         return E_UNEXPECTED;
 900     }
 901
 902     This->ui_active = TRUE;
 903
 904     notif_enabled(This);
 905     return S_OK;
 906 }
 907
 908 static HRESULT WINAPI PHInPlaceSite_GetWindowContext(IOleInPlaceSiteEx *iface,
 909         IOleInPlaceFrame **ppFrame, IOleInPlaceUIWindow **ppDoc, RECT *lprcPosRect,
 910         RECT *lprcClipRect, OLEINPLACEFRAMEINFO *frame_info)
 911 {
 912     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 913     IOleInPlaceUIWindow *ip_window;
 914     IOleInPlaceFrame *ip_frame;
 915     RECT pr, cr;
 916     HRESULT hres;
 917
 918     TRACE("(%p)->(%p %p %p %p %p)\n", This, ppFrame, ppDoc, lprcPosRect, lprcClipRect, frame_info);
 919
 920     if(!This->doc || !This->doc->basedoc.doc_obj || !This->doc->basedoc.doc_obj->ipsite) {
 921         FIXME("No ipsite\n");
 922         return E_UNEXPECTED;
 923     }
 924
 925     hres = IOleInPlaceSite_GetWindowContext(This->doc->basedoc.doc_obj->ipsite, &ip_frame, &ip_window, &pr, &cr, frame_info);
 926     if(FAILED(hres)) {
 927         WARN("GetWindowContext failed: %08x\n", hres);
 928         return hres;
 929     }
 930
 931     if(ip_window)
 932         IOleInPlaceUIWindow_Release(ip_window);
 933     if(ip_frame)
 934         IOleInPlaceFrame_Release(ip_frame);
 935
 936     hres = create_ip_frame(&ip_frame);
 937     if(FAILED(hres))
 938         return hres;
 939
 940     hres = create_ip_window(ppDoc);
 941     if(FAILED(hres))
 942         return hres;
 943
 944     *ppFrame = ip_frame;
 945     *lprcPosRect = This->rect;
 946     *lprcClipRect = This->rect;
 947     return S_OK;
 948 }
 949
 950 static HRESULT WINAPI PHInPlaceSite_Scroll(IOleInPlaceSiteEx *iface, SIZE scrollExtent)
 951 {
 952     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 953     FIXME("(%p)->({%d %d})\n", This, scrollExtent.cx, scrollExtent.cy);
 954     return E_NOTIMPL;
 955 }
 956
 957 static HRESULT WINAPI PHInPlaceSite_OnUIDeactivate(IOleInPlaceSiteEx *iface, BOOL fUndoable)
 958 {
 959     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 960     FIXME("(%p)->(%x)\n", This, fUndoable);
 961     return E_NOTIMPL;
 962 }
 963
 964 static HRESULT WINAPI PHInPlaceSite_OnInPlaceDeactivate(IOleInPlaceSiteEx *iface)
 965 {
 966     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 967
 968     TRACE("(%p)\n", This);
 969
 970     if(This->ip_object) {
 971         IOleInPlaceObject_Release(This->ip_object);
 972         This->ip_object = NULL;
 973     }
 974
 975     return S_OK;
 976 }
 977
 978 static HRESULT WINAPI PHInPlaceSite_DiscardUndoState(IOleInPlaceSiteEx *iface)
 979 {
 980     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 981     FIXME("(%p)\n", This);
 982     return E_NOTIMPL;
 983 }
 984
 985 static HRESULT WINAPI PHInPlaceSite_DeactivateAndUndo(IOleInPlaceSiteEx *iface)
 986 {
 987     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 988     FIXME("(%p)\n", This);
 989     return E_NOTIMPL;
 990 }
 991
 992 static HRESULT WINAPI PHInPlaceSite_OnPosRectChange(IOleInPlaceSiteEx *iface, LPCRECT lprcPosRect)
 993 {
 994     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 995     FIXME("(%p)->(%p)\n", This, lprcPosRect);
 996     return E_NOTIMPL;
 997 }
 998
 999 static HRESULT WINAPI PHInPlaceSiteEx_OnInPlaceActivateEx(IOleInPlaceSiteEx *iface, BOOL *pfNoRedraw, DWORD dwFlags)
1000 {
1001     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
1002     HWND hwnd;
1003     HRESULT hres;
1004
1005     TRACE("(%p)->(%p %x)\n", This, pfNoRedraw, dwFlags);
1006
1007     if(This->ip_object)
1008         return S_OK;
1009
1010     hres = IUnknown_QueryInterface(This->plugin_unk, &IID_IOleInPlaceObject, (void**)&This->ip_object);
1011     if(FAILED(hres))
1012         return hres;
1013
1014     hres = IOleInPlaceObject_GetWindow(This->ip_object, &hwnd);
1015     if(SUCCEEDED(hres))
1016         FIXME("Use hwnd %p\n", hwnd);
1017
1018     *pfNoRedraw = FALSE;
1019     return S_OK;
1020 }
1021
1022 static HRESULT WINAPI PHInPlaceSiteEx_OnInPlaceDeactivateEx(IOleInPlaceSiteEx *iface, BOOL fNoRedraw)
1023 {
1024     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
1025     FIXME("(%p)->(%x)\n", This, fNoRedraw);
1026     return E_NOTIMPL;
1027 }
1028
1029 static HRESULT WINAPI PHInPlaceSiteEx_RequestUIActivate(IOleInPlaceSiteEx *iface)
1030 {
1031     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
1032     FIXME("(%p)\n", This);
1033     return E_NOTIMPL;
1034 }
1035
1036 static const IOleInPlaceSiteExVtbl OleInPlaceSiteExVtbl = {
1037     PHInPlaceSite_QueryInterface,
1038     PHInPlaceSite_AddRef,
1039     PHInPlaceSite_Release,
1040     PHInPlaceSite_GetWindow,
1041     PHInPlaceSite_ContextSensitiveHelp,
1042     PHInPlaceSite_CanInPlaceActivate,
1043     PHInPlaceSite_OnInPlaceActivate,
1044     PHInPlaceSite_OnUIActivate,
1045     PHInPlaceSite_GetWindowContext,
1046     PHInPlaceSite_Scroll,
1047     PHInPlaceSite_OnUIDeactivate,
1048     PHInPlaceSite_OnInPlaceDeactivate,
1049     PHInPlaceSite_DiscardUndoState,
1050     PHInPlaceSite_DeactivateAndUndo,
1051     PHInPlaceSite_OnPosRectChange,
1052     PHInPlaceSiteEx_OnInPlaceActivateEx,
1053     PHInPlaceSiteEx_OnInPlaceDeactivateEx,
1054     PHInPlaceSiteEx_RequestUIActivate
1055 };
1056
1057 static inline PluginHost *impl_from_IOleControlSite(IOleControlSite *iface)
1058 {
1059     return CONTAINING_RECORD(iface, PluginHost, IOleControlSite_iface);
1060 }
1061
1062 static HRESULT WINAPI PHControlSite_QueryInterface(IOleControlSite *iface, REFIID riid, void **ppv)
1063 {
1064     PluginHost *This = impl_from_IOleControlSite(iface);
1065     return IOleClientSite_QueryInterface(&This->IOleClientSite_iface, riid, ppv);
1066 }
1067
1068 static ULONG WINAPI PHControlSite_AddRef(IOleControlSite *iface)
1069 {
1070     PluginHost *This = impl_from_IOleControlSite(iface);
1071     return IOleClientSite_AddRef(&This->IOleClientSite_iface);
1072 }
1073
1074 static ULONG WINAPI PHControlSite_Release(IOleControlSite *iface)
1075 {
1076     PluginHost *This = impl_from_IOleControlSite(iface);
1077     return IOleClientSite_Release(&This->IOleClientSite_iface);
1078 }
1079
1080 static HRESULT WINAPI PHControlSite_OnControlInfoChanged(IOleControlSite *iface)
1081 {
1082     PluginHost *This = impl_from_IOleControlSite(iface);
1083     FIXME("(%p)\n", This);
1084     return E_NOTIMPL;
1085 }
1086
1087 static HRESULT WINAPI PHControlSite_LockInPlaceActive(IOleControlSite *iface, BOOL fLock)
1088 {
1089     PluginHost *This = impl_from_IOleControlSite(iface);
1090     FIXME("(%p)->(%x)\n", This, fLock);
1091     return E_NOTIMPL;
1092 }
1093
1094 static HRESULT WINAPI PHControlSite_GetExtendedControl(IOleControlSite *iface, IDispatch **ppDisp)
1095 {
1096     PluginHost *This = impl_from_IOleControlSite(iface);
1097     FIXME("(%p)->(%p)\n", This, ppDisp);
1098     return E_NOTIMPL;
1099 }
1100
1101 static HRESULT WINAPI PHControlSite_TransformCoords(IOleControlSite *iface, POINTL *pPtlHimetric, POINTF *pPtfContainer, DWORD dwFlags)
1102 {
1103     PluginHost *This = impl_from_IOleControlSite(iface);
1104     FIXME("(%p)->(%p %p %x)\n", This, pPtlHimetric, pPtfContainer, dwFlags);
1105     return E_NOTIMPL;
1106 }
1107
1108 static HRESULT WINAPI PHControlSite_TranslateAccelerator(IOleControlSite *iface, MSG *pMsg, DWORD grfModifiers)
1109 {
1110     PluginHost *This = impl_from_IOleControlSite(iface);
1111     FIXME("(%p)->(%x)\n", This, grfModifiers);
1112     return E_NOTIMPL;
1113 }
1114
1115 static HRESULT WINAPI PHControlSite_OnFocus(IOleControlSite *iface, BOOL fGotFocus)
1116 {
1117     PluginHost *This = impl_from_IOleControlSite(iface);
1118     FIXME("(%p)->(%x)\n", This, fGotFocus);
1119     return E_NOTIMPL;
1120 }
1121
1122 static HRESULT WINAPI PHControlSite_ShowPropertyFrame(IOleControlSite *iface)
1123 {
1124     PluginHost *This = impl_from_IOleControlSite(iface);
1125     FIXME("(%p)\n", This);
1126     return E_NOTIMPL;
1127 }
1128
1129 static const IOleControlSiteVtbl OleControlSiteVtbl = {
1130     PHControlSite_QueryInterface,
1131     PHControlSite_AddRef,
1132     PHControlSite_Release,
1133     PHControlSite_OnControlInfoChanged,
1134     PHControlSite_LockInPlaceActive,
1135     PHControlSite_GetExtendedControl,
1136     PHControlSite_TransformCoords,
1137     PHControlSite_TranslateAccelerator,
1138     PHControlSite_OnFocus,
1139     PHControlSite_ShowPropertyFrame
1140 };
1141
1142 static inline PluginHost *impl_from_IBindHost(IBindHost *iface)
1143 {
1144     return CONTAINING_RECORD(iface, PluginHost, IBindHost_iface);
1145 }
1146
1147 static HRESULT WINAPI PHBindHost_QueryInterface(IBindHost *iface, REFIID riid, void **ppv)
1148 {
1149     PluginHost *This = impl_from_IBindHost(iface);
1150     return IOleClientSite_QueryInterface(&This->IOleClientSite_iface, riid, ppv);
1151 }
1152
1153 static ULONG WINAPI PHBindHost_AddRef(IBindHost *iface)
1154 {
1155     PluginHost *This = impl_from_IBindHost(iface);
1156     return IOleClientSite_AddRef(&This->IOleClientSite_iface);
1157 }
1158
1159 static ULONG WINAPI PHBindHost_Release(IBindHost *iface)
1160 {
1161     PluginHost *This = impl_from_IBindHost(iface);
1162     return IOleClientSite_Release(&This->IOleClientSite_iface);
1163 }
1164
1165 static HRESULT WINAPI PHBindHost_CreateMoniker(IBindHost *iface, LPOLESTR szName, IBindCtx *pBC, IMoniker **ppmk, DWORD dwReserved)
1166 {
1167     PluginHost *This = impl_from_IBindHost(iface);
1168
1169     TRACE("(%p)->(%s %p %p %x)\n", This, debugstr_w(szName), pBC, ppmk, dwReserved);
1170
1171     if(!This->doc || !This->doc->window || !This->doc->window->mon) {
1172         FIXME("no moniker\n");
1173         return E_UNEXPECTED;
1174     }
1175
1176     return CreateURLMoniker(This->doc->window->mon, szName, ppmk);
1177 }
1178
1179 static HRESULT WINAPI PHBindHost_MonikerBindToStorage(IBindHost *iface, IMoniker *pMk, IBindCtx *pBC,
1180         IBindStatusCallback *pBSC, REFIID riid, void **ppvObj)
1181 {
1182     PluginHost *This = impl_from_IBindHost(iface);
1183     FIXME("(%p)->(%p %p %p %s %p)\n", This, pMk, pBC, pBSC, debugstr_guid(riid), ppvObj);
1184     return E_NOTIMPL;
1185 }
1186
1187 static HRESULT WINAPI PHBindHost_MonikerBindToObject(IBindHost *iface, IMoniker *pMk, IBindCtx *pBC,
1188         IBindStatusCallback *pBSC, REFIID riid, void **ppvObj)
1189 {
1190     PluginHost *This = impl_from_IBindHost(iface);
1191     FIXME("(%p)->(%p %p %p %s %p)\n", This, pMk, pBC, pBSC, debugstr_guid(riid), ppvObj);
1192     return E_NOTIMPL;
1193 }
1194
1195 static const IBindHostVtbl BindHostVtbl = {
1196     PHBindHost_QueryInterface,
1197     PHBindHost_AddRef,
1198     PHBindHost_Release,
1199     PHBindHost_CreateMoniker,
1200     PHBindHost_MonikerBindToStorage,
1201     PHBindHost_MonikerBindToObject
1202 };
1203
1204 static inline PluginHost *impl_from_IServiceProvider(IServiceProvider *iface)
1205 {
1206     return CONTAINING_RECORD(iface, PluginHost, IServiceProvider_iface);
1207 }
1208
1209 static HRESULT WINAPI PHServiceProvider_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv)
1210 {
1211     PluginHost *This = impl_from_IServiceProvider(iface);
1212     return IOleClientSite_QueryInterface(&This->IOleClientSite_iface, riid, ppv);
1213 }
1214
1215 static ULONG WINAPI PHServiceProvider_AddRef(IServiceProvider *iface)
1216 {
1217     PluginHost *This = impl_from_IServiceProvider(iface);
1218     return IOleClientSite_AddRef(&This->IOleClientSite_iface);
1219 }
1220
1221 static ULONG WINAPI PHServiceProvider_Release(IServiceProvider *iface)
1222 {
1223     PluginHost *This = impl_from_IServiceProvider(iface);
1224     return IOleClientSite_Release(&This->IOleClientSite_iface);
1225 }
1226
1227 static HRESULT WINAPI PHServiceProvider_QueryService(IServiceProvider *iface, REFGUID guidService, REFIID riid, void **ppv)
1228 {
1229     PluginHost *This = impl_from_IServiceProvider(iface);
1230
1231     if(IsEqualGUID(guidService, &SID_SBindHost)) {
1232         TRACE("SID_SBindHost service\n");
1233         return IOleClientSite_QueryInterface(&This->IOleClientSite_iface, riid, ppv);
1234     }
1235
1236     TRACE("(%p)->(%s %s %p)\n", This, debugstr_guid(guidService), debugstr_guid(riid), ppv);
1237
1238     if(!This->doc || !This->doc->basedoc.window) {
1239         *ppv = NULL;
1240         return E_NOINTERFACE;
1241     }
1242
1243     return IServiceProvider_QueryService(&This->doc->basedoc.window->base.IServiceProvider_iface,
1244             guidService, riid, ppv);
1245 }
1246
1247 static const IServiceProviderVtbl ServiceProviderVtbl = {
1248     PHServiceProvider_QueryInterface,
1249     PHServiceProvider_AddRef,
1250     PHServiceProvider_Release,
1251     PHServiceProvider_QueryService
1252 };
1253
1254 static HRESULT assoc_element(PluginHost *host, HTMLDocumentNode *doc, nsIDOMElement *nselem)
1255 {
1256     HTMLPluginContainer *container_elem;
1257     HTMLDOMNode *node;
1258     HRESULT hres;
1259
1260     hres = get_node(doc, (nsIDOMNode*)nselem, TRUE, &node);
1261     if(FAILED(hres))
1262         return hres;
1263
1264     hres = IHTMLDOMNode_QueryInterface(&node->IHTMLDOMNode_iface, &IID_HTMLPluginContainer,
1265             (void**)&container_elem);
1266     node_release(node);
1267     if(FAILED(hres)) {
1268         ERR("Not an object element\n");
1269         return hres;
1270     }
1271
1272     container_elem->plugin_host = host;
1273     host->element = container_elem;
1274     return S_OK;
1275 }
1276
1277 void detach_plugin_host(PluginHost *host)
1278 {
1279     HRESULT hres;
1280
1281     TRACE("%p\n", host);
1282
1283     if(!host->doc)
1284         return;
1285
1286     if(host->ip_object) {
1287         if(host->ui_active)
1288             IOleInPlaceObject_UIDeactivate(host->ip_object);
1289         IOleInPlaceObject_InPlaceDeactivate(host->ip_object);
1290     }
1291
1292     if(host->plugin_unk) {
1293         IOleObject *ole_obj;
1294
1295         hres = IUnknown_QueryInterface(host->plugin_unk, &IID_IOleObject, (void**)&ole_obj);
1296         if(SUCCEEDED(hres)) {
1297             if(!host->ip_object)
1298                 IOleObject_Close(ole_obj, OLECLOSE_NOSAVE);
1299             IOleObject_SetClientSite(ole_obj, NULL);
1300             IOleObject_Release(ole_obj);
1301         }
1302     }
1303
1304     if(host->element) {
1305         host->element->plugin_host = NULL;
1306         host->element = NULL;
1307     }
1308
1309     list_remove(&host->entry);
1310     list_init(&host->entry);
1311     host->doc = NULL;
1312 }
1313
1314 HRESULT create_plugin_host(HTMLDocumentNode *doc, nsIDOMElement *nselem, IUnknown *unk, const CLSID *clsid, PluginHost **ret)
1315 {
1316     PluginHost *host;
1317     HRESULT hres;
1318
1319     host = heap_alloc_zero(sizeof(*host));
1320     if(!host)
1321         return E_OUTOFMEMORY;
1322
1323     host->IOleClientSite_iface.lpVtbl      = &OleClientSiteVtbl;
1324     host->IAdviseSinkEx_iface.lpVtbl       = &AdviseSinkExVtbl;
1325     host->IPropertyNotifySink_iface.lpVtbl = &PropertyNotifySinkVtbl;
1326     host->IDispatch_iface.lpVtbl           = &DispatchVtbl;
1327     host->IOleInPlaceSiteEx_iface.lpVtbl   = &OleInPlaceSiteExVtbl;
1328     host->IOleControlSite_iface.lpVtbl     = &OleControlSiteVtbl;
1329     host->IBindHost_iface.lpVtbl           = &BindHostVtbl;
1330     host->IServiceProvider_iface.lpVtbl    = &ServiceProviderVtbl;
1331
1332     host->ref = 1;
1333
1334     hres = assoc_element(host, doc, nselem);
1335     if(FAILED(hres)) {
1336         heap_free(host);
1337         return hres;
1338     }
1339
1340     IUnknown_AddRef(unk);
1341     host->plugin_unk = unk;
1342     host->clsid = *clsid;
1343
1344     host->doc = doc;
1345     list_add_tail(&doc->plugin_hosts, &host->entry);
1346
1347     *ret = host;
1348     return S_OK;
1349 }