static HRESULT create_mime_object(Binding *binding, const CLSID *clsid, LPCWSTR clsid_str)
{
IPersistMoniker *persist;
HRESULT hres;
hres = CoCreateInstance(clsid, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
&binding->iid, (void**)&binding->obj);
if(FAILED(hres)) {
WARN("CoCreateInstance failed: %08x\n", hres);
return INET_E_CANNOT_INSTANTIATE_OBJECT;
}
binding->state |= BINDING_OBJAVAIL;
hres = IUnknown_QueryInterface(binding->obj, &IID_IPersistMoniker, (void**)&persist);
if(SUCCEEDED(hres)) {
IMonikerProp *prop;
hres = IPersistMoniker_QueryInterface(persist, &IID_IMonikerProp, (void**)&prop);
if(SUCCEEDED(hres)) {
IMonikerProp_PutProperty(prop, MIMETYPEPROP, binding->mime);
IMonikerProp_PutProperty(prop, CLASSIDPROP, clsid_str);
IMonikerProp_Release(prop);
}
load_doc_mon(binding, persist);
IPersistMoniker_Release(persist);
} else {
FIXME("Could not get IPersistMoniker: %08x\n", hres);
/* FIXME: Try query IPersistFile */
}
IBindStatusCallback_OnObjectAvailable(binding->callback, &binding->iid, binding->obj);
return S_OK;
}
static HRESULT WINAPI XMLView_OleObject_QueryInterface(
IOleObject *iface, REFIID riid, void **ppvObject)
{
XMLView *This = impl_from_IOleObject(iface);
return IPersistMoniker_QueryInterface(&This->IPersistMoniker_iface, riid, ppvObject);
}
static void test_Load(void)
{
static const WCHAR xmlview_xmlW[] = {'/','x','m','l','/','x','m','l','v','i','e','w','.','x','m','l',0};
static const WCHAR res[] = {'r','e','s',':','/','/',0};
WCHAR buf[1024];
IPersistMoniker *pers_mon;
IConnectionPointContainer *cpc;
IConnectionPoint *cp;
IMoniker *mon;
IBindCtx *bctx;
IHTMLElement *elem;
HRESULT hres;
MSG msg;
BSTR source;
lstrcpyW(buf, res);
GetModuleFileNameW(NULL, buf+lstrlenW(buf), (sizeof(buf)-sizeof(res))/sizeof(WCHAR));
lstrcatW(buf, xmlview_xmlW);
if(!pCreateURLMoniker) {
win_skip("CreateURLMoniker not available\n");
return;
}
hres = CoCreateInstance(&CLSID_XMLView, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
&IID_IPersistMoniker, (void**)&pers_mon);
if(FAILED(hres)) {
win_skip("Failed to create XMLView instance\n");
return;
}
ok(hres == S_OK, "CoCreateInstance returned %x, expected S_OK\n", hres);
hres = IPersistMoniker_QueryInterface(pers_mon, &IID_IHTMLDocument2, (void**)&html_doc);
ok(hres == S_OK, "QueryInterface(HTMLDocument2) returned %x, expected S_OK\n", hres);
hres = IPersistMoniker_QueryInterface(pers_mon, &IID_IConnectionPointContainer, (void**)&cpc);
ok(hres == S_OK, "QueryInterface(IConnectionPointContainer) returned %x, expected S_OK\n", hres);
hres = IConnectionPointContainer_FindConnectionPoint(cpc, &IID_IDispatch, &cp);
ok(hres == S_OK, "FindConnectionPoint returned %x, expected S_OK\n", hres);
hres = IConnectionPoint_Advise(cp, (IUnknown*)&HTMLEvents, NULL);
ok(hres == S_OK, "Advise returned %x, expected S_OK\n", hres);
IConnectionPoint_Release(cp);
IConnectionPointContainer_Release(cpc);
hres = CreateBindCtx(0, &bctx);
ok(hres == S_OK, "CreateBindCtx returned %x, expected S_OK\n", hres);
hres = pCreateURLMoniker(NULL, buf, &mon);
ok(hres == S_OK, "CreateUrlMoniker returned %x, expected S_OK\n", hres);
loaded = FALSE;
hres = IPersistMoniker_Load(pers_mon, TRUE, mon, bctx, 0);
ok(hres == S_OK, "Load returned %x, expected S_OK\n", hres);
IBindCtx_Release(bctx);
IMoniker_Release(mon);
while(!loaded && GetMessageA(&msg, NULL, 0, 0)) {
TranslateMessage(&msg);
DispatchMessageA(&msg);
}
hres = IHTMLDocument2_get_body(html_doc, &elem);
ok(hres == S_OK, "get_body returned %x, expected S_OK\n", hres);
hres = IHTMLElement_get_outerHTML(elem, &source);
ok(hres == S_OK, "get_outerHTML returned %x, expected S_OK\n", hres);
ok(!html_src_compare(source, xmlview_html), "Incorrect HTML source: %s\n", wine_dbgstr_w(source));
IHTMLElement_Release(elem);
SysFreeString(source);
IHTMLDocument2_Release(html_doc);
html_doc = NULL;
IPersistMoniker_Release(pers_mon);
}
