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