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     FIXME("(%p)\n", This);
 879     return E_NOTIMPL;
 880 }
 881
 882 static HRESULT WINAPI PHInPlaceSite_OnInPlaceActivate(IOleInPlaceSiteEx *iface)
 883 {
 884     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 885     FIXME("(%p)\n", This);
 886     return E_NOTIMPL;
 887 }
 888
 889 static HRESULT WINAPI PHInPlaceSite_OnUIActivate(IOleInPlaceSiteEx *iface)
 890 {
 891     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 892
 893     TRACE("(%p)\n", This);
 894
 895     if(!This->plugin_unk) {
 896         ERR("No plugin object\n");
 897         return E_UNEXPECTED;
 898     }
 899
 900     This->ui_active = TRUE;
 901
 902     notif_enabled(This);
 903     return S_OK;
 904 }
 905
 906 static HRESULT WINAPI PHInPlaceSite_GetWindowContext(IOleInPlaceSiteEx *iface,
 907         IOleInPlaceFrame **ppFrame, IOleInPlaceUIWindow **ppDoc, RECT *lprcPosRect,
 908         RECT *lprcClipRect, OLEINPLACEFRAMEINFO *frame_info)
 909 {
 910     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 911     IOleInPlaceUIWindow *ip_window;
 912     IOleInPlaceFrame *ip_frame;
 913     RECT pr, cr;
 914     HRESULT hres;
 915
 916     TRACE("(%p)->(%p %p %p %p %p)\n", This, ppFrame, ppDoc, lprcPosRect, lprcClipRect, frame_info);
 917
 918     if(!This->doc || !This->doc->basedoc.doc_obj || !This->doc->basedoc.doc_obj->ipsite) {
 919         FIXME("No ipsite\n");
 920         return E_UNEXPECTED;
 921     }
 922
 923     hres = IOleInPlaceSite_GetWindowContext(This->doc->basedoc.doc_obj->ipsite, &ip_frame, &ip_window, &pr, &cr, frame_info);
 924     if(FAILED(hres)) {
 925         WARN("GetWindowContext failed: %08x\n", hres);
 926         return hres;
 927     }
 928
 929     if(ip_window)
 930         IOleInPlaceUIWindow_Release(ip_window);
 931     if(ip_frame)
 932         IOleInPlaceFrame_Release(ip_frame);
 933
 934     hres = create_ip_frame(&ip_frame);
 935     if(FAILED(hres))
 936         return hres;
 937
 938     hres = create_ip_window(ppDoc);
 939     if(FAILED(hres))
 940         return hres;
 941
 942     *ppFrame = ip_frame;
 943     *lprcPosRect = This->rect;
 944     *lprcClipRect = This->rect;
 945     return S_OK;
 946 }
 947
 948 static HRESULT WINAPI PHInPlaceSite_Scroll(IOleInPlaceSiteEx *iface, SIZE scrollExtent)
 949 {
 950     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 951     FIXME("(%p)->({%d %d})\n", This, scrollExtent.cx, scrollExtent.cy);
 952     return E_NOTIMPL;
 953 }
 954
 955 static HRESULT WINAPI PHInPlaceSite_OnUIDeactivate(IOleInPlaceSiteEx *iface, BOOL fUndoable)
 956 {
 957     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 958     FIXME("(%p)->(%x)\n", This, fUndoable);
 959     return E_NOTIMPL;
 960 }
 961
 962 static HRESULT WINAPI PHInPlaceSite_OnInPlaceDeactivate(IOleInPlaceSiteEx *iface)
 963 {
 964     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 965
 966     TRACE("(%p)\n", This);
 967
 968     if(This->ip_object) {
 969         IOleInPlaceObject_Release(This->ip_object);
 970         This->ip_object = NULL;
 971     }
 972
 973     return S_OK;
 974 }
 975
 976 static HRESULT WINAPI PHInPlaceSite_DiscardUndoState(IOleInPlaceSiteEx *iface)
 977 {
 978     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 979     FIXME("(%p)\n", This);
 980     return E_NOTIMPL;
 981 }
 982
 983 static HRESULT WINAPI PHInPlaceSite_DeactivateAndUndo(IOleInPlaceSiteEx *iface)
 984 {
 985     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 986     FIXME("(%p)\n", This);
 987     return E_NOTIMPL;
 988 }
 989
 990 static HRESULT WINAPI PHInPlaceSite_OnPosRectChange(IOleInPlaceSiteEx *iface, LPCRECT lprcPosRect)
 991 {
 992     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
 993     FIXME("(%p)->(%p)\n", This, lprcPosRect);
 994     return E_NOTIMPL;
 995 }
 996
 997 static HRESULT WINAPI PHInPlaceSiteEx_OnInPlaceActivateEx(IOleInPlaceSiteEx *iface, BOOL *pfNoRedraw, DWORD dwFlags)
 998 {
 999     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
1000     HWND hwnd;
1001     HRESULT hres;
1002
1003     TRACE("(%p)->(%p %x)\n", This, pfNoRedraw, dwFlags);
1004
1005     if(This->ip_object)
1006         return S_OK;
1007
1008     hres = IUnknown_QueryInterface(This->plugin_unk, &IID_IOleInPlaceObject, (void**)&This->ip_object);
1009     if(FAILED(hres))
1010         return hres;
1011
1012     hres = IOleInPlaceObject_GetWindow(This->ip_object, &hwnd);
1013     if(SUCCEEDED(hres))
1014         FIXME("Use hwnd %p\n", hwnd);
1015
1016     *pfNoRedraw = FALSE;
1017     return S_OK;
1018 }
1019
1020 static HRESULT WINAPI PHInPlaceSiteEx_OnInPlaceDeactivateEx(IOleInPlaceSiteEx *iface, BOOL fNoRedraw)
1021 {
1022     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
1023     FIXME("(%p)->(%x)\n", This, fNoRedraw);
1024     return E_NOTIMPL;
1025 }
1026
1027 static HRESULT WINAPI PHInPlaceSiteEx_RequestUIActivate(IOleInPlaceSiteEx *iface)
1028 {
1029     PluginHost *This = impl_from_IOleInPlaceSiteEx(iface);
1030     FIXME("(%p)\n", This);
1031     return E_NOTIMPL;
1032 }
1033
1034 static const IOleInPlaceSiteExVtbl OleInPlaceSiteExVtbl = {
1035     PHInPlaceSite_QueryInterface,
1036     PHInPlaceSite_AddRef,
1037     PHInPlaceSite_Release,
1038     PHInPlaceSite_GetWindow,
1039     PHInPlaceSite_ContextSensitiveHelp,
1040     PHInPlaceSite_CanInPlaceActivate,
1041     PHInPlaceSite_OnInPlaceActivate,
1042     PHInPlaceSite_OnUIActivate,
1043     PHInPlaceSite_GetWindowContext,
1044     PHInPlaceSite_Scroll,
1045     PHInPlaceSite_OnUIDeactivate,
1046     PHInPlaceSite_OnInPlaceDeactivate,
1047     PHInPlaceSite_DiscardUndoState,
1048     PHInPlaceSite_DeactivateAndUndo,
1049     PHInPlaceSite_OnPosRectChange,
1050     PHInPlaceSiteEx_OnInPlaceActivateEx,
1051     PHInPlaceSiteEx_OnInPlaceDeactivateEx,
1052     PHInPlaceSiteEx_RequestUIActivate
1053 };
1054
1055 static inline PluginHost *impl_from_IOleControlSite(IOleControlSite *iface)
1056 {
1057     return CONTAINING_RECORD(iface, PluginHost, IOleControlSite_iface);
1058 }
1059
1060 static HRESULT WINAPI PHControlSite_QueryInterface(IOleControlSite *iface, REFIID riid, void **ppv)
1061 {
1062     PluginHost *This = impl_from_IOleControlSite(iface);
1063     return IOleClientSite_QueryInterface(&This->IOleClientSite_iface, riid, ppv);
1064 }
1065
1066 static ULONG WINAPI PHControlSite_AddRef(IOleControlSite *iface)
1067 {
1068     PluginHost *This = impl_from_IOleControlSite(iface);
1069     return IOleClientSite_AddRef(&This->IOleClientSite_iface);
1070 }
1071
1072 static ULONG WINAPI PHControlSite_Release(IOleControlSite *iface)
1073 {
1074     PluginHost *This = impl_from_IOleControlSite(iface);
1075     return IOleClientSite_Release(&This->IOleClientSite_iface);
1076 }
1077
1078 static HRESULT WINAPI PHControlSite_OnControlInfoChanged(IOleControlSite *iface)
1079 {
1080     PluginHost *This = impl_from_IOleControlSite(iface);
1081     FIXME("(%p)\n", This);
1082     return E_NOTIMPL;
1083 }
1084
1085 static HRESULT WINAPI PHControlSite_LockInPlaceActive(IOleControlSite *iface, BOOL fLock)
1086 {
1087     PluginHost *This = impl_from_IOleControlSite(iface);
1088     FIXME("(%p)->(%x)\n", This, fLock);
1089     return E_NOTIMPL;
1090 }
1091
1092 static HRESULT WINAPI PHControlSite_GetExtendedControl(IOleControlSite *iface, IDispatch **ppDisp)
1093 {
1094     PluginHost *This = impl_from_IOleControlSite(iface);
1095     FIXME("(%p)->(%p)\n", This, ppDisp);
1096     return E_NOTIMPL;
1097 }
1098
1099 static HRESULT WINAPI PHControlSite_TransformCoords(IOleControlSite *iface, POINTL *pPtlHimetric, POINTF *pPtfContainer, DWORD dwFlags)
1100 {
1101     PluginHost *This = impl_from_IOleControlSite(iface);
1102     FIXME("(%p)->(%p %p %x)\n", This, pPtlHimetric, pPtfContainer, dwFlags);
1103     return E_NOTIMPL;
1104 }
1105
1106 static HRESULT WINAPI PHControlSite_TranslateAccelerator(IOleControlSite *iface, MSG *pMsg, DWORD grfModifiers)
1107 {
1108     PluginHost *This = impl_from_IOleControlSite(iface);
1109     FIXME("(%p)->(%x)\n", This, grfModifiers);
1110     return E_NOTIMPL;
1111 }
1112
1113 static HRESULT WINAPI PHControlSite_OnFocus(IOleControlSite *iface, BOOL fGotFocus)
1114 {
1115     PluginHost *This = impl_from_IOleControlSite(iface);
1116     FIXME("(%p)->(%x)\n", This, fGotFocus);
1117     return E_NOTIMPL;
1118 }
1119
1120 static HRESULT WINAPI PHControlSite_ShowPropertyFrame(IOleControlSite *iface)
1121 {
1122     PluginHost *This = impl_from_IOleControlSite(iface);
1123     FIXME("(%p)\n", This);
1124     return E_NOTIMPL;
1125 }
1126
1127 static const IOleControlSiteVtbl OleControlSiteVtbl = {
1128     PHControlSite_QueryInterface,
1129     PHControlSite_AddRef,
1130     PHControlSite_Release,
1131     PHControlSite_OnControlInfoChanged,
1132     PHControlSite_LockInPlaceActive,
1133     PHControlSite_GetExtendedControl,
1134     PHControlSite_TransformCoords,
1135     PHControlSite_TranslateAccelerator,
1136     PHControlSite_OnFocus,
1137     PHControlSite_ShowPropertyFrame
1138 };
1139
1140 static inline PluginHost *impl_from_IBindHost(IBindHost *iface)
1141 {
1142     return CONTAINING_RECORD(iface, PluginHost, IBindHost_iface);
1143 }
1144
1145 static HRESULT WINAPI PHBindHost_QueryInterface(IBindHost *iface, REFIID riid, void **ppv)
1146 {
1147     PluginHost *This = impl_from_IBindHost(iface);
1148     return IOleClientSite_QueryInterface(&This->IOleClientSite_iface, riid, ppv);
1149 }
1150
1151 static ULONG WINAPI PHBindHost_AddRef(IBindHost *iface)
1152 {
1153     PluginHost *This = impl_from_IBindHost(iface);
1154     return IOleClientSite_AddRef(&This->IOleClientSite_iface);
1155 }
1156
1157 static ULONG WINAPI PHBindHost_Release(IBindHost *iface)
1158 {
1159     PluginHost *This = impl_from_IBindHost(iface);
1160     return IOleClientSite_Release(&This->IOleClientSite_iface);
1161 }
1162
1163 static HRESULT WINAPI PHBindHost_CreateMoniker(IBindHost *iface, LPOLESTR szName, IBindCtx *pBC, IMoniker **ppmk, DWORD dwReserved)
1164 {
1165     PluginHost *This = impl_from_IBindHost(iface);
1166
1167     TRACE("(%p)->(%s %p %p %x)\n", This, debugstr_w(szName), pBC, ppmk, dwReserved);
1168
1169     if(!This->doc || !This->doc->window || !This->doc->window->mon) {
1170         FIXME("no moniker\n");
1171         return E_UNEXPECTED;
1172     }
1173
1174     return CreateURLMoniker(This->doc->window->mon, szName, ppmk);
1175 }
1176
1177 static HRESULT WINAPI PHBindHost_MonikerBindToStorage(IBindHost *iface, IMoniker *pMk, IBindCtx *pBC,
1178         IBindStatusCallback *pBSC, REFIID riid, void **ppvObj)
1179 {
1180     PluginHost *This = impl_from_IBindHost(iface);
1181     FIXME("(%p)->(%p %p %p %s %p)\n", This, pMk, pBC, pBSC, debugstr_guid(riid), ppvObj);
1182     return E_NOTIMPL;
1183 }
1184
1185 static HRESULT WINAPI PHBindHost_MonikerBindToObject(IBindHost *iface, IMoniker *pMk, IBindCtx *pBC,
1186         IBindStatusCallback *pBSC, REFIID riid, void **ppvObj)
1187 {
1188     PluginHost *This = impl_from_IBindHost(iface);
1189     FIXME("(%p)->(%p %p %p %s %p)\n", This, pMk, pBC, pBSC, debugstr_guid(riid), ppvObj);
1190     return E_NOTIMPL;
1191 }
1192
1193 static const IBindHostVtbl BindHostVtbl = {
1194     PHBindHost_QueryInterface,
1195     PHBindHost_AddRef,
1196     PHBindHost_Release,
1197     PHBindHost_CreateMoniker,
1198     PHBindHost_MonikerBindToStorage,
1199     PHBindHost_MonikerBindToObject
1200 };
1201
1202 static inline PluginHost *impl_from_IServiceProvider(IServiceProvider *iface)
1203 {
1204     return CONTAINING_RECORD(iface, PluginHost, IServiceProvider_iface);
1205 }
1206
1207 static HRESULT WINAPI PHServiceProvider_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv)
1208 {
1209     PluginHost *This = impl_from_IServiceProvider(iface);
1210     return IOleClientSite_QueryInterface(&This->IOleClientSite_iface, riid, ppv);
1211 }
1212
1213 static ULONG WINAPI PHServiceProvider_AddRef(IServiceProvider *iface)
1214 {
1215     PluginHost *This = impl_from_IServiceProvider(iface);
1216     return IOleClientSite_AddRef(&This->IOleClientSite_iface);
1217 }
1218
1219 static ULONG WINAPI PHServiceProvider_Release(IServiceProvider *iface)
1220 {
1221     PluginHost *This = impl_from_IServiceProvider(iface);
1222     return IOleClientSite_Release(&This->IOleClientSite_iface);
1223 }
1224
1225 static HRESULT WINAPI PHServiceProvider_QueryService(IServiceProvider *iface, REFGUID guidService, REFIID riid, void **ppv)
1226 {
1227     PluginHost *This = impl_from_IServiceProvider(iface);
1228
1229     if(IsEqualGUID(guidService, &SID_SBindHost)) {
1230         TRACE("SID_SBindHost service\n");
1231         return IOleClientSite_QueryInterface(&This->IOleClientSite_iface, riid, ppv);
1232     }
1233
1234     TRACE("(%p)->(%s %s %p)\n", This, debugstr_guid(guidService), debugstr_guid(riid), ppv);
1235
1236     if(!This->doc || !This->doc->basedoc.window) {
1237         *ppv = NULL;
1238         return E_NOINTERFACE;
1239     }
1240
1241     return IServiceProvider_QueryService(&This->doc->basedoc.window->base.IServiceProvider_iface,
1242             guidService, riid, ppv);
1243 }
1244
1245 static const IServiceProviderVtbl ServiceProviderVtbl = {
1246     PHServiceProvider_QueryInterface,
1247     PHServiceProvider_AddRef,
1248     PHServiceProvider_Release,
1249     PHServiceProvider_QueryService
1250 };
1251
1252 static HRESULT assoc_element(PluginHost *host, HTMLDocumentNode *doc, nsIDOMElement *nselem)
1253 {
1254     HTMLPluginContainer *container_elem;
1255     HTMLDOMNode *node;
1256     HRESULT hres;
1257
1258     hres = get_node(doc, (nsIDOMNode*)nselem, TRUE, &node);
1259     if(FAILED(hres))
1260         return hres;
1261
1262     hres = IHTMLDOMNode_QueryInterface(&node->IHTMLDOMNode_iface, &IID_HTMLPluginContainer,
1263             (void**)&container_elem);
1264     node_release(node);
1265     if(FAILED(hres)) {
1266         ERR("Not an object element\n");
1267         return hres;
1268     }
1269
1270     container_elem->plugin_host = host;
1271     host->element = container_elem;
1272     return S_OK;
1273 }
1274
1275 void detach_plugin_host(PluginHost *host)
1276 {
1277     HRESULT hres;
1278
1279     TRACE("%p\n", host);
1280
1281     if(!host->doc)
1282         return;
1283
1284     if(host->ip_object) {
1285         if(host->ui_active)
1286             IOleInPlaceObject_UIDeactivate(host->ip_object);
1287         IOleInPlaceObject_InPlaceDeactivate(host->ip_object);
1288     }
1289
1290     if(host->plugin_unk) {
1291         IOleObject *ole_obj;
1292
1293         hres = IUnknown_QueryInterface(host->plugin_unk, &IID_IOleObject, (void**)&ole_obj);
1294         if(SUCCEEDED(hres)) {
1295             if(!host->ip_object)
1296                 IOleObject_Close(ole_obj, OLECLOSE_NOSAVE);
1297             IOleObject_SetClientSite(ole_obj, NULL);
1298             IOleObject_Release(ole_obj);
1299         }
1300     }
1301
1302     if(host->element) {
1303         host->element->plugin_host = NULL;
1304         host->element = NULL;
1305     }
1306
1307     list_remove(&host->entry);
1308     list_init(&host->entry);
1309     host->doc = NULL;
1310 }
1311
1312 HRESULT create_plugin_host(HTMLDocumentNode *doc, nsIDOMElement *nselem, IUnknown *unk, const CLSID *clsid, PluginHost **ret)
1313 {
1314     PluginHost *host;
1315     HRESULT hres;
1316
1317     host = heap_alloc_zero(sizeof(*host));
1318     if(!host)
1319         return E_OUTOFMEMORY;
1320
1321     host->IOleClientSite_iface.lpVtbl      = &OleClientSiteVtbl;
1322     host->IAdviseSinkEx_iface.lpVtbl       = &AdviseSinkExVtbl;
1323     host->IPropertyNotifySink_iface.lpVtbl = &PropertyNotifySinkVtbl;
1324     host->IDispatch_iface.lpVtbl           = &DispatchVtbl;
1325     host->IOleInPlaceSiteEx_iface.lpVtbl   = &OleInPlaceSiteExVtbl;
1326     host->IOleControlSite_iface.lpVtbl     = &OleControlSiteVtbl;
1327     host->IBindHost_iface.lpVtbl           = &BindHostVtbl;
1328     host->IServiceProvider_iface.lpVtbl    = &ServiceProviderVtbl;
1329
1330     host->ref = 1;
1331
1332     hres = assoc_element(host, doc, nselem);
1333     if(FAILED(hres)) {
1334         heap_free(host);
1335         return hres;
1336     }
1337
1338     IUnknown_AddRef(unk);
1339     host->plugin_unk = unk;
1340     host->clsid = *clsid;
1341
1342     host->doc = doc;
1343     list_add_tail(&doc->plugin_hosts, &host->entry);
1344
1345     *ret = host;
1346     return S_OK;
1347 }