?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
gdi32: Pass the source/dest visible rectangles to the AlphaBlend driver entry point.
[wine/testsucceed.git] / dlls / shdocvw / tests / webbrowser.c
blob06d0ded9b895abc49a786a40626c27c169dffe07
1 /*
2 * Copyright 2006 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 #define COBJMACROS
20 #define CONST_VTABLE
21
22 #include <wine/test.h>
23 #include <stdarg.h>
24 #include <stdio.h>
25
26 #include "windef.h"
27 #include "winbase.h"
28 #include "initguid.h"
29 #include "ole2.h"
30 #include "exdisp.h"
31 #include "htiframe.h"
32 #include "mshtmhst.h"
33 #include "mshtmcid.h"
34 #include "mshtml.h"
35 #include "idispids.h"
36 #include "olectl.h"
37 #include "mshtmdid.h"
38 #include "shobjidl.h"
39 #include "shdeprecated.h"
40 #include "shlguid.h"
41 #include "exdispid.h"
42 #include "mimeinfo.h"
43 #include "hlink.h"
44 #include "docobjectservice.h"
45
46 DEFINE_GUID(GUID_NULL,0,0,0,0,0,0,0,0,0,0,0);
47 DEFINE_OLEGUID(CGID_DocHostCmdPriv, 0x000214D4L, 0, 0);
48
49 #define DEFINE_EXPECT(func) \
50 static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
51
52 #define SET_EXPECT(func) \
53 expect_ ## func = TRUE
54
55 #define CHECK_EXPECT2(func) \
56 do { \
57 ok(expect_ ##func, "unexpected call " #func "\n"); \
58 called_ ## func = TRUE; \
59 }while(0)
60
61 #define CHECK_EXPECT(func) \
62 do { \
63 CHECK_EXPECT2(func); \
64 expect_ ## func = FALSE; \
65 }while(0)
66
67 #define CHECK_CALLED(func) \
68 do { \
69 ok(called_ ## func, "expected " #func "\n"); \
70 expect_ ## func = called_ ## func = FALSE; \
71 }while(0)
72
73 #define CLEAR_CALLED(func) \
74 expect_ ## func = called_ ## func = FALSE
75
76 DEFINE_EXPECT(GetContainer);
77 DEFINE_EXPECT(Site_GetWindow);
78 DEFINE_EXPECT(ShowObject);
79 DEFINE_EXPECT(CanInPlaceActivate);
80 DEFINE_EXPECT(OnInPlaceActivate);
81 DEFINE_EXPECT(OnUIActivate);
82 DEFINE_EXPECT(GetWindowContext);
83 DEFINE_EXPECT(Frame_GetWindow);
84 DEFINE_EXPECT(Frame_SetActiveObject);
85 DEFINE_EXPECT(UIWindow_SetActiveObject);
86 DEFINE_EXPECT(SetMenu);
87 DEFINE_EXPECT(Invoke_AMBIENT_USERMODE);
88 DEFINE_EXPECT(Invoke_AMBIENT_DLCONTROL);
89 DEFINE_EXPECT(Invoke_AMBIENT_USERAGENT);
90 DEFINE_EXPECT(Invoke_AMBIENT_PALETTE);
91 DEFINE_EXPECT(Invoke_AMBIENT_SILENT);
92 DEFINE_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
93 DEFINE_EXPECT(Invoke_STATUSTEXTCHANGE);
94 DEFINE_EXPECT(Invoke_PROPERTYCHANGE);
95 DEFINE_EXPECT(Invoke_DOWNLOADBEGIN);
96 DEFINE_EXPECT(Invoke_BEFORENAVIGATE2);
97 DEFINE_EXPECT(Invoke_SETSECURELOCKICON);
98 DEFINE_EXPECT(Invoke_FILEDOWNLOAD);
99 DEFINE_EXPECT(Invoke_COMMANDSTATECHANGE);
100 DEFINE_EXPECT(Invoke_DOWNLOADCOMPLETE);
101 DEFINE_EXPECT(Invoke_ONMENUBAR);
102 DEFINE_EXPECT(Invoke_ONADDRESSBAR);
103 DEFINE_EXPECT(Invoke_ONSTATUSBAR);
104 DEFINE_EXPECT(Invoke_ONTOOLBAR);
105 DEFINE_EXPECT(Invoke_ONFULLSCREEN);
106 DEFINE_EXPECT(Invoke_ONTHEATERMODE);
107 DEFINE_EXPECT(Invoke_WINDOWSETRESIZABLE);
108 DEFINE_EXPECT(Invoke_TITLECHANGE);
109 DEFINE_EXPECT(Invoke_NAVIGATECOMPLETE2);
110 DEFINE_EXPECT(Invoke_PROGRESSCHANGE);
111 DEFINE_EXPECT(Invoke_DOCUMENTCOMPLETE);
112 DEFINE_EXPECT(Invoke_282);
113 DEFINE_EXPECT(EnableModeless_TRUE);
114 DEFINE_EXPECT(EnableModeless_FALSE);
115 DEFINE_EXPECT(GetHostInfo);
116 DEFINE_EXPECT(GetOptionKeyPath);
117 DEFINE_EXPECT(GetOverridesKeyPath);
118 DEFINE_EXPECT(SetStatusText);
119 DEFINE_EXPECT(UpdateUI);
120 DEFINE_EXPECT(Exec_SETDOWNLOADSTATE_0);
121 DEFINE_EXPECT(Exec_SETDOWNLOADSTATE_1);
122 DEFINE_EXPECT(Exec_SETPROGRESSMAX);
123 DEFINE_EXPECT(Exec_SETPROGRESSPOS);
124 DEFINE_EXPECT(Exec_UPDATECOMMANDS);
125 DEFINE_EXPECT(Exec_SETTITLE);
126 DEFINE_EXPECT(QueryStatus_SETPROGRESSTEXT);
127 DEFINE_EXPECT(Exec_STOP);
128 DEFINE_EXPECT(Exec_IDM_STOP);
129 DEFINE_EXPECT(QueryStatus_STOP);
130 DEFINE_EXPECT(QueryStatus_IDM_STOP);
131 DEFINE_EXPECT(DocHost_EnableModeless_TRUE);
132 DEFINE_EXPECT(DocHost_EnableModeless_FALSE);
133 DEFINE_EXPECT(DocHost_TranslateAccelerator);
134 DEFINE_EXPECT(GetDropTarget);
135 DEFINE_EXPECT(TranslateUrl);
136 DEFINE_EXPECT(ShowUI);
137 DEFINE_EXPECT(HideUI);
138 DEFINE_EXPECT(RequestUIActivate);
139 DEFINE_EXPECT(ControlSite_TranslateAccelerator);
140 DEFINE_EXPECT(OnFocus);
141
142 static const WCHAR wszItem[] = {'i','t','e','m',0};
143 static const WCHAR emptyW[] = {0};
144
145 static VARIANT_BOOL exvb;
146
147 static IWebBrowser2 *wb;
148
149 static HWND container_hwnd, shell_embedding_hwnd;
150 static BOOL is_downloading, is_first_load, use_container_olecmd;
151 static HRESULT hr_dochost_TranslateAccelerator = E_NOTIMPL;
152 static HRESULT hr_site_TranslateAccelerator = E_NOTIMPL;
153 static const char *current_url;
154
155 #define DWL_EXPECT_BEFORE_NAVIGATE 0x01
156 #define DWL_FROM_PUT_HREF 0x02
157
158 static DWORD dwl_flags;
159
160 static int strcmp_wa(LPCWSTR strw, const char *stra)
161 {
162 CHAR buf[512];
163 WideCharToMultiByte(CP_ACP, 0, strw, -1, buf, sizeof(buf), NULL, NULL);
164 return lstrcmpA(stra, buf);
165 }
166
167 static BOOL iface_cmp(IUnknown *iface1, IUnknown *iface2)
168 {
169 IUnknown *unk1, *unk2;
170
171 if(iface1 == iface2)
172 return TRUE;
173
174 IUnknown_QueryInterface(iface1, &IID_IUnknown, (void**)&unk1);
175 IUnknown_Release(unk1);
176 IUnknown_QueryInterface(iface2, &IID_IUnknown, (void**)&unk2);
177 IUnknown_Release(unk2);
178
179 return unk1 == unk2;
180 }
181
182 static const char *debugstr_guid(REFIID riid)
183 {
184 static char buf[50];
185
186 sprintf(buf, "{%08X-%04X-%04X-%02X%02X-%02X%02X%02X%02X%02X%02X}",
187 riid->Data1, riid->Data2, riid->Data3, riid->Data4[0],
188 riid->Data4[1], riid->Data4[2], riid->Data4[3], riid->Data4[4],
189 riid->Data4[5], riid->Data4[6], riid->Data4[7]);
190
191 return buf;
192 }
193
194 static BSTR a2bstr(const char *str)
195 {
196 BSTR ret;
197 int len;
198
199 len = MultiByteToWideChar(CP_ACP, 0, str, -1, NULL, 0);
200 ret = SysAllocStringLen(NULL, len);
201 MultiByteToWideChar(CP_ACP, 0, str, -1, ret, len);
202
203 return ret;
204 }
205
206 #define create_WebBrowser(a) _create_WebBrowser(__LINE__,a)
207 static HRESULT _create_WebBrowser(unsigned line, IUnknown **unk)
208 {
209 HRESULT hres;
210
211 hres = CoCreateInstance(&CLSID_WebBrowser, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
212 &IID_IUnknown, (void**)unk);
213 ok_(__FILE__,line)(hres == S_OK, "Creating WebBrowser object failed: %08x\n", hres);
214 return hres;
215 }
216
217 #define test_LocationURL(a,b) _test_LocationURL(__LINE__,a,b)
218 static void _test_LocationURL(unsigned line, IUnknown *unk, const char *exurl)
219 {
220 IWebBrowser2 *wb;
221 BSTR url = (void*)0xdeadbeef;
222 HRESULT hres;
223
224 hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
225 ok(hres == S_OK, "Could not get IWebBrowser2 interface: %08x\n", hres);
226 if(FAILED(hres))
227 return;
228
229 hres = IWebBrowser2_get_LocationURL(wb, &url);
230 ok_(__FILE__,line) (hres == (*exurl ? S_OK : S_FALSE), "get_LocationURL failed: %08x\n", hres);
231 ok_(__FILE__,line) (!strcmp_wa(url, exurl), "unexpected URL: %s\n", wine_dbgstr_w(url));
232
233 SysFreeString(url);
234 IWebBrowser2_Release(wb);
235 }
236
237 #define test_ready_state(ex) _test_ready_state(__LINE__,ex);
238 static void _test_ready_state(unsigned line, READYSTATE exstate)
239 {
240 READYSTATE state;
241 HRESULT hres;
242
243 hres = IWebBrowser2_get_ReadyState(wb, &state);
244 ok_(__FILE__,line)(hres == S_OK, "get_ReadyState failed: %08x\n", hres);
245 ok_(__FILE__,line)(state == exstate, "ReadyState = %d, expected %d\n", state, exstate);
246 }
247
248 #define get_document(u) _get_document(__LINE__,u)
249 static IDispatch *_get_document(unsigned line, IUnknown *unk)
250 {
251 IHTMLDocument2 *html_doc;
252 IWebBrowser2 *wb;
253 IDispatch *disp;
254 HRESULT hres;
255
256 hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
257 ok_(__FILE__,line)(hres == S_OK, "QueryInterface(IID_IWebBrowser2) failed: %08x\n", hres);
258
259 disp = NULL;
260 hres = IWebBrowser2_get_Document(wb, &disp);
261 IWebBrowser2_Release(wb);
262 ok_(__FILE__,line)(hres == S_OK, "get_Document failed: %08x\n", hres);
263 ok_(__FILE__,line)(disp != NULL, "doc_disp == NULL\n");
264
265 hres = IDispatch_QueryInterface(disp, &IID_IHTMLDocument2, (void**)&html_doc);
266 ok_(__FILE__,line)(hres == S_OK, "Could not get IHTMLDocument iface: %08x\n", hres);
267 ok(disp == (IDispatch*)html_doc, "disp != html_doc\n");
268 IHTMLDocument_Release(html_doc);
269
270 return disp;
271 }
272
273 #define get_dochost(u) _get_dochost(__LINE__,u)
274 static IOleClientSite *_get_dochost(unsigned line, IUnknown *unk)
275 {
276 IOleClientSite *client_site;
277 IOleObject *oleobj;
278 IDispatch *doc;
279 HRESULT hres;
280
281 doc = _get_document(line, unk);
282 hres = IDispatch_QueryInterface(doc, &IID_IOleObject, (void**)&oleobj);
283 IDispatch_Release(doc);
284 ok_(__FILE__,line)(hres == S_OK, "Got 0x%08x\n", hres);
285
286 hres = IOleObject_GetClientSite(oleobj, &client_site);
287 IOleObject_Release(oleobj);
288 ok_(__FILE__,line)(hres == S_OK, "Got 0x%08x\n", hres);
289
290 return client_site;
291 }
292
293 static HRESULT QueryInterface(REFIID,void**);
294
295 static HRESULT WINAPI OleCommandTarget_QueryInterface(IOleCommandTarget *iface,
296 REFIID riid, void **ppv)
297 {
298 ok(0, "unexpected call\n");
299 return E_NOINTERFACE;
300 }
301
302 static ULONG WINAPI OleCommandTarget_AddRef(IOleCommandTarget *iface)
303 {
304 return 2;
305 }
306
307 static ULONG WINAPI OleCommandTarget_Release(IOleCommandTarget *iface)
308 {
309 return 1;
310 }
311
312 static HRESULT WINAPI OleCommandTarget_QueryStatus(IOleCommandTarget *iface, const GUID *pguidCmdGroup,
313 ULONG cCmds, OLECMD prgCmds[], OLECMDTEXT *pCmdText)
314 {
315 ok(!pguidCmdGroup, "pguidCmdGroup != MULL\n");
316 ok(cCmds == 1, "cCmds=%d, expected 1\n", cCmds);
317 ok(!pCmdText, "pCmdText != NULL\n");
318
319 switch(prgCmds[0].cmdID) {
320 case OLECMDID_STOP:
321 CHECK_EXPECT2(QueryStatus_STOP);
322 prgCmds[0].cmdf = OLECMDF_SUPPORTED;
323 return S_OK;
324 case OLECMDID_SETPROGRESSTEXT:
325 CHECK_EXPECT(QueryStatus_SETPROGRESSTEXT);
326 prgCmds[0].cmdf = OLECMDF_ENABLED;
327 return S_OK;
328 case IDM_STOP:
329 /* Note:
330 * IDM_STOP is a command specific to CGID_MSHTML (not an OLECMDID command).
331 * This command appears here for the ExecWB and QueryStatusWB tests in order
332 * to help demonstrate that these routines use a NULL pguidCmdGroup.
333 */
334 CHECK_EXPECT(QueryStatus_IDM_STOP);
335 prgCmds[0].cmdf = 0;
336 return S_OK;
337 default:
338 ok(0, "unexpected command %d\n", prgCmds[0].cmdID);
339 }
340
341 return E_FAIL;
342 }
343
344 static HRESULT WINAPI OleCommandTarget_Exec(IOleCommandTarget *iface, const GUID *pguidCmdGroup,
345 DWORD nCmdID, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
346 {
347 if(!pguidCmdGroup) {
348 switch(nCmdID) {
349 case OLECMDID_SETPROGRESSMAX:
350 CHECK_EXPECT2(Exec_SETPROGRESSMAX);
351 ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER, "nCmdexecopts=%08x\n", nCmdexecopt);
352 ok(pvaIn != NULL, "pvaIn == NULL\n");
353 if(pvaIn)
354 ok(V_VT(pvaIn) == VT_I4, "V_VT(pvaIn)=%d, expected VT_I4\n", V_VT(pvaIn));
355 ok(pvaOut == NULL, "pvaOut=%p, expected NULL\n", pvaOut);
356 return S_OK;
357 case OLECMDID_SETPROGRESSPOS:
358 CHECK_EXPECT2(Exec_SETPROGRESSPOS);
359 ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER, "nCmdexecopts=%08x\n", nCmdexecopt);
360 ok(pvaIn != NULL, "pvaIn == NULL\n");
361 if(pvaIn)
362 ok(V_VT(pvaIn) == VT_I4, "V_VT(pvaIn)=%d, expected VT_I4\n", V_VT(pvaIn));
363 ok(pvaOut == NULL, "pvaOut=%p, expected NULL\n", pvaOut);
364 return S_OK;
365 case OLECMDID_SETDOWNLOADSTATE:
366 if(is_downloading)
367 ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER || !nCmdexecopt,
368 "nCmdexecopts=%08x\n", nCmdexecopt);
369 else
370 ok(!nCmdexecopt, "nCmdexecopts=%08x\n", nCmdexecopt);
371 ok(pvaOut == NULL, "pvaOut=%p\n", pvaOut);
372 ok(pvaIn != NULL, "pvaIn == NULL\n");
373 ok(V_VT(pvaIn) == VT_I4, "V_VT(pvaIn)=%d\n", V_VT(pvaIn));
374 switch(V_I4(pvaIn)) {
375 case 0:
376 CHECK_EXPECT2(Exec_SETDOWNLOADSTATE_0);
377 break;
378 case 1:
379 CHECK_EXPECT2(Exec_SETDOWNLOADSTATE_1);
380 break;
381 default:
382 ok(0, "unexpevted V_I4(pvaIn)=%d\n", V_I4(pvaIn));
383 }
384 return S_OK;
385 case OLECMDID_UPDATECOMMANDS:
386 CHECK_EXPECT(Exec_UPDATECOMMANDS);
387 ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER, "nCmdexecopts=%08x\n", nCmdexecopt);
388 ok(!pvaIn, "pvaIn != NULL\n");
389 ok(!pvaOut, "pvaOut=%p, expected NULL\n", pvaOut);
390 return S_OK;
391 case OLECMDID_SETTITLE:
392 CHECK_EXPECT(Exec_SETTITLE);
393 /* TODO: test args */
394 return S_OK;
395 case OLECMDID_STOP:
396 CHECK_EXPECT(Exec_STOP);
397 return S_OK;
398 case IDM_STOP:
399 /* Note:
400 * IDM_STOP is a command specific to CGID_MSHTML (not an OLECMDID command).
401 * This command appears here for the ExecWB and QueryStatusWB tests in order
402 * to help demonstrate that these routines use a NULL pguidCmdGroup.
403 */
404 CHECK_EXPECT(Exec_IDM_STOP);
405 return OLECMDERR_E_NOTSUPPORTED;
406 default:
407 ok(0, "unexpected nsCmdID %d\n", nCmdID);
408 }
409 }else if(IsEqualGUID(&CGID_Explorer, pguidCmdGroup)) {
410 switch(nCmdID) {
411 case 24: /* TODO */
412 case 25: /* IE5 */
413 case 37: /* TODO */
414 case 39: /* TODO */
415 case 66: /* TODO */
416 case 67: /* TODO */
417 case 69: /* TODO */
418 case 101: /* TODO (IE8) */
419 return E_FAIL;
420 default:
421 ok(0, "unexpected nCmdID %d\n", nCmdID);
422 }
423 }else if(IsEqualGUID(&CGID_ShellDocView, pguidCmdGroup)) {
424 switch(nCmdID) {
425 case 105: /* TODO */
426 case 140: /* TODO (Win7) */
427 return E_FAIL;
428 default:
429 ok(0, "unexpected nCmdID %d\n", nCmdID);
430 }
431 }else if(IsEqualGUID(&CGID_DocHostCmdPriv, pguidCmdGroup)) {
432 switch(nCmdID) {
433 case 11: /* TODO */
434 break;
435 default:
436 ok(0, "unexpected nCmdID %d of CGID_DocHostCmdPriv\n", nCmdID);
437 }
438 }else if(IsEqualGUID(&CGID_DocHostCommandHandler, pguidCmdGroup)) {
439 switch(nCmdID) {
440 case 6041: /* TODO */
441 break;
442 default:
443 ok(0, "unexpected nCmdID %d of CGID_DocHostCommandHandler\n", nCmdID);
444 }
445 }else {
446 ok(0, "unexpected pguidCmdGroup %s\n", debugstr_guid(pguidCmdGroup));
447 }
448
449 return E_FAIL;
450 }
451
452 static IOleCommandTargetVtbl OleCommandTargetVtbl = {
453 OleCommandTarget_QueryInterface,
454 OleCommandTarget_AddRef,
455 OleCommandTarget_Release,
456 OleCommandTarget_QueryStatus,
457 OleCommandTarget_Exec
458 };
459
460 static IOleCommandTarget OleCommandTarget = { &OleCommandTargetVtbl };
461
462 static HRESULT WINAPI OleContainer_QueryInterface(IOleContainer *iface, REFIID riid, void **ppv)
463 {
464 if(IsEqualGUID(&IID_ITargetContainer, riid))
465 return E_NOINTERFACE; /* TODO */
466
467 if(IsEqualGUID(&IID_IOleCommandTarget, riid)) {
468 if(use_container_olecmd)
469 {
470 *ppv = &OleCommandTarget;
471 return S_OK;
472 }
473 else
474 return E_NOINTERFACE;
475 }
476
477 ok(0, "unexpected call\n");
478 return E_NOINTERFACE;
479 }
480
481 static ULONG WINAPI OleContainer_AddRef(IOleContainer *iface)
482 {
483 return 2;
484 }
485
486 static ULONG WINAPI OleContainer_Release(IOleContainer *iface)
487 {
488 return 1;
489 }
490
491 static HRESULT WINAPI OleContainer_ParseDisplayName(IOleContainer *iface, IBindCtx *pbc,
492 LPOLESTR pszDiaplayName, ULONG *pchEaten, IMoniker **ppmkOut)
493 {
494 ok(0, "unexpected call\n");
495 return E_NOTIMPL;
496 }
497
498 static HRESULT WINAPI OleContainer_EnumObjects(IOleContainer *iface, DWORD grfFlags,
499 IEnumUnknown **ppenum)
500 {
501 ok(0, "unexpected call\n");
502 return E_NOTIMPL;
503 }
504
505 static HRESULT WINAPI OleContainer_LockContainer(IOleContainer *iface, BOOL fLock)
506 {
507 ok(0, "unexpected call\n");
508 return E_NOTIMPL;
509 }
510
511 static const IOleContainerVtbl OleContainerVtbl = {
512 OleContainer_QueryInterface,
513 OleContainer_AddRef,
514 OleContainer_Release,
515 OleContainer_ParseDisplayName,
516 OleContainer_EnumObjects,
517 OleContainer_LockContainer
518 };
519
520 static IOleContainer OleContainer = { &OleContainerVtbl };
521
522 static HRESULT WINAPI Dispatch_QueryInterface(IDispatch *iface, REFIID riid, void **ppv)
523 {
524 return QueryInterface(riid, ppv);
525 }
526
527 static ULONG WINAPI Dispatch_AddRef(IDispatch *iface)
528 {
529 return 2;
530 }
531
532 static ULONG WINAPI Dispatch_Release(IDispatch *iface)
533 {
534 return 1;
535 }
536
537 static HRESULT WINAPI Dispatch_GetTypeInfoCount(IDispatch *iface, UINT *pctinfo)
538 {
539 ok(0, "unexpected call\n");
540 return E_NOTIMPL;
541 }
542
543 static HRESULT WINAPI Dispatch_GetTypeInfo(IDispatch *iface, UINT iTInfo, LCID lcid,
544 ITypeInfo **ppTInfo)
545 {
546 ok(0, "unexpected call\n");
547 return E_NOTIMPL;
548 }
549
550 static HRESULT WINAPI Dispatch_GetIDsOfNames(IDispatch *iface, REFIID riid, LPOLESTR *rgszNames,
551 UINT cNames, LCID lcid, DISPID *rgDispId)
552 {
553 ok(0, "unexpected call\n");
554 return E_NOTIMPL;
555 }
556
557 static HRESULT WINAPI Dispatch_Invoke(IDispatch *iface, DISPID dispIdMember, REFIID riid,
558 LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult,
559 EXCEPINFO *pExcepInfo, UINT *puArgErr)
560 {
561 ok(IsEqualGUID(&IID_NULL, riid), "riid != IID_NULL\n");
562 ok(pDispParams != NULL, "pDispParams == NULL\n");
563 ok(pExcepInfo == NULL, "pExcepInfo=%p, expected NULL\n", pExcepInfo);
564 ok(V_VT(pVarResult) == VT_EMPTY, "V_VT(pVarResult)=%d\n", V_VT(pVarResult));
565 ok(wFlags == DISPATCH_PROPERTYGET, "wFlags=%08x, expected DISPATCH_PROPERTYGET\n", wFlags);
566 ok(pDispParams->rgvarg == NULL, "pDispParams->rgvarg = %p\n", pDispParams->rgvarg);
567 ok(pDispParams->rgdispidNamedArgs == NULL,
568 "pDispParams->rgdispidNamedArgs = %p\n", pDispParams->rgdispidNamedArgs);
569 ok(pDispParams->cArgs == 0, "pDispParams->cArgs = %d\n", pDispParams->cArgs);
570 ok(pDispParams->cNamedArgs == 0, "pDispParams->cNamedArgs = %d\n", pDispParams->cNamedArgs);
571
572 switch(dispIdMember) {
573 case DISPID_AMBIENT_USERMODE:
574 CHECK_EXPECT2(Invoke_AMBIENT_USERMODE);
575 return E_FAIL;
576 case DISPID_AMBIENT_DLCONTROL:
577 CHECK_EXPECT(Invoke_AMBIENT_DLCONTROL);
578 ok(puArgErr != NULL, "puArgErr=%p\n", puArgErr);
579 return E_FAIL;
580 case DISPID_AMBIENT_USERAGENT:
581 CHECK_EXPECT(Invoke_AMBIENT_USERAGENT);
582 ok(puArgErr != NULL, "puArgErr=%p\n", puArgErr);
583 return E_FAIL;
584 case DISPID_AMBIENT_PALETTE:
585 CHECK_EXPECT(Invoke_AMBIENT_PALETTE);
586 ok(puArgErr != NULL, "puArgErr=%p\n", puArgErr);
587 return E_FAIL;
588 case DISPID_AMBIENT_OFFLINEIFNOTCONNECTED:
589 CHECK_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
590 ok(puArgErr == NULL, "puArgErr=%p\n", puArgErr);
591 V_VT(pVarResult) = VT_BOOL;
592 V_BOOL(pVarResult) = VARIANT_FALSE;
593 return S_OK;
594 case DISPID_AMBIENT_SILENT:
595 CHECK_EXPECT(Invoke_AMBIENT_SILENT);
596 ok(puArgErr == NULL, "puArgErr=%p\n", puArgErr);
597 V_VT(pVarResult) = VT_BOOL;
598 V_BOOL(pVarResult) = VARIANT_FALSE;
599 return S_OK;
600 }
601
602 ok(0, "unexpected dispIdMember %d\n", dispIdMember);
603 return E_NOTIMPL;
604 }
605
606 static IDispatchVtbl DispatchVtbl = {
607 Dispatch_QueryInterface,
608 Dispatch_AddRef,
609 Dispatch_Release,
610 Dispatch_GetTypeInfoCount,
611 Dispatch_GetTypeInfo,
612 Dispatch_GetIDsOfNames,
613 Dispatch_Invoke
614 };
615
616 static IDispatch Dispatch = { &DispatchVtbl };
617
618 static HRESULT WINAPI WebBrowserEvents2_QueryInterface(IDispatch *iface, REFIID riid, void **ppv)
619 {
620 *ppv = NULL;
621
622 if(IsEqualGUID(&DIID_DWebBrowserEvents2, riid)) {
623 *ppv = iface;
624 return S_OK;
625 }
626
627 ok(0, "unexpected riid %s\n", debugstr_guid(riid));
628 return E_NOINTERFACE;
629 }
630
631 #define test_invoke_bool(p,s) _test_invoke_bool(__LINE__,p,s)
632 static void _test_invoke_bool(unsigned line, const DISPPARAMS *params, BOOL strict)
633 {
634 ok_(__FILE__,line) (params->rgvarg != NULL, "rgvarg == NULL\n");
635 ok_(__FILE__,line) (params->cArgs == 1, "cArgs=%d, expected 1\n", params->cArgs);
636 ok_(__FILE__,line) (V_VT(params->rgvarg) == VT_BOOL, "V_VT(arg)=%d\n", V_VT(params->rgvarg));
637 if(strict)
638 ok_(__FILE__,line) (V_BOOL(params->rgvarg) == exvb, "V_VT(arg)=%x, expected %x\n",
639 V_BOOL(params->rgvarg), exvb);
640 else
641 ok_(__FILE__,line) (!V_BOOL(params->rgvarg) == !exvb, "V_VT(arg)=%x, expected %x\n",
642 V_BOOL(params->rgvarg), exvb);
643 }
644
645 static void test_OnBeforeNavigate(const VARIANT *disp, const VARIANT *url, const VARIANT *flags,
646 const VARIANT *frame, const VARIANT *post_data, const VARIANT *headers, const VARIANT *cancel)
647 {
648 ok(V_VT(disp) == VT_DISPATCH, "V_VT(disp)=%d, expected VT_DISPATCH\n", V_VT(disp));
649 ok(V_DISPATCH(disp) != NULL, "V_DISPATCH(disp) == NULL\n");
650 ok(V_DISPATCH(disp) == (IDispatch*)wb, "V_DISPATCH(disp)=%p, wb=%p\n", V_DISPATCH(disp), wb);
651
652 ok(V_VT(url) == (VT_BYREF|VT_VARIANT), "V_VT(url)=%x, expected VT_BYREF|VT_VARIANT\n", V_VT(url));
653 ok(V_VARIANTREF(url) != NULL, "V_VARIANTREF(url) == NULL)\n");
654 if(V_VARIANTREF(url)) {
655 ok(V_VT(V_VARIANTREF(url)) == VT_BSTR, "V_VT(V_VARIANTREF(url))=%d, expected VT_BSTR\n",
656 V_VT(V_VARIANTREF(url)));
657 ok(V_BSTR(V_VARIANTREF(url)) != NULL, "V_BSTR(V_VARIANTREF(url)) == NULL\n");
658 ok(!strcmp_wa(V_BSTR(V_VARIANTREF(url)), current_url), "unexpected url %s, expected %s\n",
659 wine_dbgstr_w(V_BSTR(V_VARIANTREF(url))), current_url);
660 }
661
662 ok(V_VT(flags) == (VT_BYREF|VT_VARIANT), "V_VT(flags)=%x, expected VT_BYREF|VT_VARIANT\n",
663 V_VT(flags));
664 ok(V_VT(flags) == (VT_BYREF|VT_VARIANT), "V_VT(flags)=%x, expected VT_BYREF|VT_VARIANT\n",
665 V_VT(flags));
666 ok(V_VARIANTREF(flags) != NULL, "V_VARIANTREF(flags) == NULL)\n");
667 if(V_VARIANTREF(flags)) {
668 ok(V_VT(V_VARIANTREF(flags)) == VT_I4, "V_VT(V_VARIANTREF(flags))=%d, expected VT_I4\n",
669 V_VT(V_VARIANTREF(flags)));
670 if(is_first_load) {
671 ok(V_I4(V_VARIANTREF(flags)) == 0, "V_I4(V_VARIANTREF(flags)) = %x, expected 0\n",
672 V_I4(V_VARIANTREF(flags)));
673 }else {
674 ok((V_I4(V_VARIANTREF(flags)) & ~0x40) == 0, "V_I4(V_VARIANTREF(flags)) = %x, expected 0x40 or 0\n",
675 V_I4(V_VARIANTREF(flags)));
676 }
677 }
678
679 ok(V_VT(frame) == (VT_BYREF|VT_VARIANT), "V_VT(frame)=%x, expected VT_BYREF|VT_VARIANT\n",
680 V_VT(frame));
681 ok(V_VT(frame) == (VT_BYREF|VT_VARIANT), "V_VT(frame)=%x, expected VT_BYREF|VT_VARIANT\n",
682 V_VT(frame));
683 ok(V_VARIANTREF(frame) != NULL, "V_VARIANTREF(frame) == NULL)\n");
684 if(V_VARIANTREF(frame)) {
685 ok(V_VT(V_VARIANTREF(frame)) == VT_BSTR, "V_VT(V_VARIANTREF(frame))=%d, expected VT_BSTR\n",
686 V_VT(V_VARIANTREF(frame)));
687 ok(V_BSTR(V_VARIANTREF(frame)) == NULL, "V_BSTR(V_VARIANTREF(frame)) = %p, expected NULL\n",
688 V_BSTR(V_VARIANTREF(frame)));
689 }
690
691 ok(V_VT(post_data) == (VT_BYREF|VT_VARIANT), "V_VT(post_data)=%x, expected VT_BYREF|VT_VARIANT\n",
692 V_VT(post_data));
693 ok(V_VT(post_data) == (VT_BYREF|VT_VARIANT), "V_VT(post_data)=%x, expected VT_BYREF|VT_VARIANT\n",
694 V_VT(post_data));
695 ok(V_VARIANTREF(post_data) != NULL, "V_VARIANTREF(post_data) == NULL)\n");
696 if(V_VARIANTREF(post_data)) {
697 ok(V_VT(V_VARIANTREF(post_data)) == (VT_VARIANT|VT_BYREF),
698 "V_VT(V_VARIANTREF(post_data))=%d, expected VT_VARIANT|VT_BYREF\n",
699 V_VT(V_VARIANTREF(post_data)));
700 ok(V_VARIANTREF(V_VARIANTREF(post_data)) != NULL,
701 "V_VARIANTREF(V_VARIANTREF(post_data)) == NULL\n");
702 if(V_VARIANTREF(V_VARIANTREF(post_data))) {
703 ok(V_VT(V_VARIANTREF(V_VARIANTREF(post_data))) == VT_EMPTY,
704 "V_VT(V_VARIANTREF(V_VARIANTREF(post_data))) = %d, expected VT_EMPTY\n",
705 V_VT(V_VARIANTREF(V_VARIANTREF(post_data))));
706
707 if(V_VT(V_VARIANTREF(V_VARIANTREF(post_data))) == (VT_UI1|VT_ARRAY)) {
708 const SAFEARRAY *sa = V_ARRAY(V_VARIANTREF(V_VARIANTREF(post_data)));
709
710 ok(sa->cDims == 1, "sa->cDims = %d, expected 1\n", sa->cDims);
711 ok(sa->fFeatures == 0, "sa->fFeatures = %d, expected 0\n", sa->fFeatures);
712 }
713 }
714 }
715
716 ok(V_VT(headers) == (VT_BYREF|VT_VARIANT), "V_VT(headers)=%x, expected VT_BYREF|VT_VARIANT\n",
717 V_VT(headers));
718 ok(V_VARIANTREF(headers) != NULL, "V_VARIANTREF(headers) == NULL)\n");
719 if(V_VARIANTREF(headers)) {
720 ok(V_VT(V_VARIANTREF(headers)) == VT_BSTR, "V_VT(V_VARIANTREF(headers))=%d, expected VT_BSTR\n",
721 V_VT(V_VARIANTREF(headers)));
722 ok(V_BSTR(V_VARIANTREF(headers)) == NULL, "V_BSTR(V_VARIANTREF(heders)) = %p, expected NULL\n",
723 V_BSTR(V_VARIANTREF(headers)));
724 }
725
726 ok(V_VT(cancel) == (VT_BYREF|VT_BOOL), "V_VT(cancel)=%x, expected VT_BYREF|VT_BOOL\n",
727 V_VT(cancel));
728 ok(V_BOOLREF(cancel) != NULL, "V_BOOLREF(pDispParams->rgvarg[0] == NULL)\n");
729 if(V_BOOLREF(cancel))
730 ok(*V_BOOLREF(cancel) == VARIANT_FALSE, "*V_BOOLREF(calcel) = %x, expected VARIANT_FALSE\n",
731 *V_BOOLREF(cancel));
732 }
733
734 static HRESULT WINAPI WebBrowserEvents2_Invoke(IDispatch *iface, DISPID dispIdMember, REFIID riid,
735 LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult,
736 EXCEPINFO *pExcepInfo, UINT *puArgErr)
737 {
738 ok(IsEqualGUID(&IID_NULL, riid), "riid != IID_NULL\n");
739 ok(pDispParams != NULL, "pDispParams == NULL\n");
740 ok(pExcepInfo == NULL, "pExcepInfo=%p, expected NULL\n", pExcepInfo);
741 ok(pVarResult == NULL, "pVarResult=%p\n", pVarResult);
742 ok(wFlags == DISPATCH_METHOD, "wFlags=%08x, expected DISPATCH_METHOD\n", wFlags);
743 ok(pDispParams->rgdispidNamedArgs == NULL,
744 "pDispParams->rgdispidNamedArgs = %p\n", pDispParams->rgdispidNamedArgs);
745 ok(pDispParams->cNamedArgs == 0, "pDispParams->cNamedArgs = %d\n", pDispParams->cNamedArgs);
746
747 switch(dispIdMember) {
748 case DISPID_STATUSTEXTCHANGE:
749 CHECK_EXPECT2(Invoke_STATUSTEXTCHANGE);
750
751 ok(pDispParams->rgvarg != NULL, "rgvarg == NULL\n");
752 ok(pDispParams->cArgs == 1, "cArgs=%d, expected 1\n", pDispParams->cArgs);
753 ok(V_VT(pDispParams->rgvarg) == VT_BSTR, "V_VT(pDispParams->rgvarg)=%d, expected VT_BSTR\n",
754 V_VT(pDispParams->rgvarg));
755 /* TODO: Check text */
756 break;
757
758 case DISPID_PROPERTYCHANGE:
759 CHECK_EXPECT2(Invoke_PROPERTYCHANGE);
760
761 ok(pDispParams->rgvarg != NULL, "rgvarg == NULL\n");
762 ok(pDispParams->cArgs == 1, "cArgs=%d, expected 1\n", pDispParams->cArgs);
763 /* TODO: Check args */
764 break;
765
766 case DISPID_DOWNLOADBEGIN:
767 CHECK_EXPECT(Invoke_DOWNLOADBEGIN);
768
769 ok(pDispParams->rgvarg == NULL, "rgvarg=%p, expected NULL\n", pDispParams->rgvarg);
770 ok(pDispParams->cArgs == 0, "cArgs=%d, expected 0\n", pDispParams->cArgs);
771 test_ready_state(READYSTATE_LOADING);
772 break;
773
774 case DISPID_BEFORENAVIGATE2:
775 CHECK_EXPECT(Invoke_BEFORENAVIGATE2);
776
777 ok(pDispParams->rgvarg != NULL, "rgvarg == NULL\n");
778 ok(pDispParams->cArgs == 7, "cArgs=%d, expected 7\n", pDispParams->cArgs);
779 test_OnBeforeNavigate(pDispParams->rgvarg+6, pDispParams->rgvarg+5, pDispParams->rgvarg+4,
780 pDispParams->rgvarg+3, pDispParams->rgvarg+2, pDispParams->rgvarg+1,
781 pDispParams->rgvarg);
782 test_ready_state((dwl_flags & DWL_FROM_PUT_HREF) ? READYSTATE_COMPLETE : READYSTATE_LOADING);
783 break;
784
785 case DISPID_SETSECURELOCKICON:
786 CHECK_EXPECT2(Invoke_SETSECURELOCKICON);
787
788 ok(pDispParams->rgvarg != NULL, "rgvarg == NULL\n");
789 ok(pDispParams->cArgs == 1, "cArgs=%d, expected 1\n", pDispParams->cArgs);
790 /* TODO: Check args */
791 break;
792
793 case DISPID_FILEDOWNLOAD:
794 CHECK_EXPECT(Invoke_FILEDOWNLOAD);
795
796 ok(pDispParams->rgvarg != NULL, "rgvarg == NULL\n");
797 ok(pDispParams->cArgs == 2, "cArgs=%d, expected 2\n", pDispParams->cArgs);
798 /* TODO: Check args */
799 break;
800
801 case DISPID_COMMANDSTATECHANGE:
802 CHECK_EXPECT2(Invoke_COMMANDSTATECHANGE);
803
804 ok(pDispParams->rgvarg != NULL, "rgvarg == NULL\n");
805 ok(pDispParams->cArgs == 2, "cArgs=%d, expected 2\n", pDispParams->cArgs);
806 /* TODO: Check args */
807 break;
808
809 case DISPID_DOWNLOADCOMPLETE:
810 CHECK_EXPECT(Invoke_DOWNLOADCOMPLETE);
811
812 ok(pDispParams->rgvarg == NULL, "rgvarg=%p, expected NULL\n", pDispParams->rgvarg);
813 ok(pDispParams->cArgs == 0, "cArgs=%d, expected 0\n", pDispParams->cArgs);
814 test_ready_state(READYSTATE_LOADING);
815 break;
816
817 case DISPID_ONMENUBAR:
818 CHECK_EXPECT(Invoke_ONMENUBAR);
819 test_invoke_bool(pDispParams, TRUE);
820 break;
821
822 case DISPID_ONADDRESSBAR:
823 CHECK_EXPECT(Invoke_ONADDRESSBAR);
824 test_invoke_bool(pDispParams, TRUE);
825 break;
826
827 case DISPID_ONSTATUSBAR:
828 CHECK_EXPECT(Invoke_ONSTATUSBAR);
829 test_invoke_bool(pDispParams, TRUE);
830 break;
831
832 case DISPID_ONTOOLBAR:
833 CHECK_EXPECT(Invoke_ONTOOLBAR);
834 test_invoke_bool(pDispParams, FALSE);
835 break;
836
837 case DISPID_ONFULLSCREEN:
838 CHECK_EXPECT(Invoke_ONFULLSCREEN);
839 test_invoke_bool(pDispParams, TRUE);
840 break;
841
842 case DISPID_ONTHEATERMODE:
843 CHECK_EXPECT(Invoke_ONTHEATERMODE);
844 test_invoke_bool(pDispParams, TRUE);
845 break;
846
847 case DISPID_WINDOWSETRESIZABLE:
848 CHECK_EXPECT(Invoke_WINDOWSETRESIZABLE);
849 test_invoke_bool(pDispParams, TRUE);
850 break;
851
852 case DISPID_TITLECHANGE:
853 CHECK_EXPECT2(Invoke_TITLECHANGE);
854 /* FIXME */
855 break;
856
857 case DISPID_NAVIGATECOMPLETE2:
858 CHECK_EXPECT(Invoke_NAVIGATECOMPLETE2);
859 /* FIXME */
860 test_ready_state((dwl_flags & DWL_FROM_PUT_HREF) ? READYSTATE_COMPLETE : READYSTATE_LOADING);
861 break;
862
863 case DISPID_PROGRESSCHANGE:
864 CHECK_EXPECT(Invoke_PROGRESSCHANGE);
865 /* FIXME */
866 break;
867
868 case DISPID_DOCUMENTCOMPLETE:
869 CHECK_EXPECT(Invoke_DOCUMENTCOMPLETE);
870 /* FIXME */
871 test_ready_state(READYSTATE_COMPLETE);
872 break;
873
874 case 282: /* FIXME */
875 CHECK_EXPECT2(Invoke_282);
876 break;
877
878 default:
879 ok(0, "unexpected dispIdMember %d\n", dispIdMember);
880 }
881
882 return S_OK;
883 }
884
885 static IDispatchVtbl WebBrowserEvents2Vtbl = {
886 WebBrowserEvents2_QueryInterface,
887 Dispatch_AddRef,
888 Dispatch_Release,
889 Dispatch_GetTypeInfoCount,
890 Dispatch_GetTypeInfo,
891 Dispatch_GetIDsOfNames,
892 WebBrowserEvents2_Invoke
893 };
894
895 static IDispatch WebBrowserEvents2 = { &WebBrowserEvents2Vtbl };
896
897 static HRESULT WINAPI ClientSite_QueryInterface(IOleClientSite *iface, REFIID riid, void **ppv)
898 {
899 return QueryInterface(riid, ppv);
900 }
901
902 static ULONG WINAPI ClientSite_AddRef(IOleClientSite *iface)
903 {
904 return 2;
905 }
906
907 static ULONG WINAPI ClientSite_Release(IOleClientSite *iface)
908 {
909 return 1;
910 }
911
912 static HRESULT WINAPI ClientSite_SaveObject(IOleClientSite *iface)
913 {
914 ok(0, "unexpected call\n");
915 return E_NOTIMPL;
916 }
917
918 static HRESULT WINAPI ClientSite_GetMoniker(IOleClientSite *iface, DWORD dwAssign, DWORD dwWhichMoniker,
919 IMoniker **ppmon)
920 {
921 ok(0, "unexpected call\n");
922 return E_NOTIMPL;
923 }
924
925 static HRESULT WINAPI ClientSite_GetContainer(IOleClientSite *iface, IOleContainer **ppContainer)
926 {
927 CHECK_EXPECT(GetContainer);
928
929 ok(ppContainer != NULL, "ppContainer == NULL\n");
930 if(ppContainer)
931 *ppContainer = &OleContainer;
932
933 return S_OK;
934 }
935
936 static HRESULT WINAPI ClientSite_ShowObject(IOleClientSite *iface)
937 {
938 CHECK_EXPECT(ShowObject);
939 return S_OK;
940 }
941
942 static HRESULT WINAPI ClientSite_OnShowWindow(IOleClientSite *iface, BOOL fShow)
943 {
944 ok(0, "unexpected call\n");
945 return E_NOTIMPL;
946 }
947
948 static HRESULT WINAPI ClientSite_RequestNewObjectLayout(IOleClientSite *iface)
949 {
950 ok(0, "unexpected call\n");
951 return E_NOTIMPL;
952 }
953
954 static const IOleClientSiteVtbl ClientSiteVtbl = {
955 ClientSite_QueryInterface,
956 ClientSite_AddRef,
957 ClientSite_Release,
958 ClientSite_SaveObject,
959 ClientSite_GetMoniker,
960 ClientSite_GetContainer,
961 ClientSite_ShowObject,
962 ClientSite_OnShowWindow,
963 ClientSite_RequestNewObjectLayout
964 };
965
966 static IOleClientSite ClientSite = { &ClientSiteVtbl };
967
968 static HRESULT WINAPI IOleControlSite_fnQueryInterface(IOleControlSite *iface, REFIID riid, void **ppv)
969 {
970 *ppv = NULL;
971 return E_NOINTERFACE;
972 }
973
974 static ULONG WINAPI IOleControlSite_fnAddRef(IOleControlSite *iface)
975 {
976 return 2;
977 }
978
979 static ULONG WINAPI IOleControlSite_fnRelease(IOleControlSite *iface)
980 {
981 return 1;
982 }
983
984 static HRESULT WINAPI IOleControlSite_fnOnControlInfoChanged(IOleControlSite* This)
985 {
986 ok(0, "unexpected call\n");
987 return E_NOTIMPL;
988 }
989
990 static HRESULT WINAPI IOleControlSite_fnLockInPlaceActive(IOleControlSite* This,
991 BOOL fLock)
992 {
993 ok(0, "unexpected call\n");
994 return E_NOTIMPL;
995 }
996
997 static HRESULT WINAPI IOleControlSite_fnGetExtendedControl(IOleControlSite* This,
998 IDispatch **ppDisp)
999 {
1000 ok(0, "unexpected call\n");
1001 return E_NOTIMPL;
1002 }
1003
1004 static HRESULT WINAPI IOleControlSite_fnTransformCoords(IOleControlSite* This,
1005 POINTL *pPtlHimetric,
1006 POINTF *pPtfContainer,
1007 DWORD dwFlags)
1008 {
1009 ok(0, "unexpected call\n");
1010 return E_NOTIMPL;
1011 }
1012
1013 static HRESULT WINAPI IOleControlSite_fnTranslateAccelerator(IOleControlSite* This, MSG *pMsg,
1014 DWORD grfModifiers)
1015 {
1016 CHECK_EXPECT(ControlSite_TranslateAccelerator);
1017 return hr_site_TranslateAccelerator;
1018 }
1019
1020 static HRESULT WINAPI IOleControlSite_fnOnFocus(IOleControlSite* This, BOOL fGotFocus)
1021 {
1022 CHECK_EXPECT2(OnFocus);
1023 return E_NOTIMPL;
1024 }
1025
1026 static HRESULT WINAPI IOleControlSite_fnShowPropertyFrame(IOleControlSite* This)
1027 {
1028 ok(0, "unexpected call\n");
1029 return E_NOTIMPL;
1030 }
1031
1032 static IOleControlSiteVtbl ControlSiteVtbl = {
1033 IOleControlSite_fnQueryInterface,
1034 IOleControlSite_fnAddRef,
1035 IOleControlSite_fnRelease,
1036 IOleControlSite_fnOnControlInfoChanged,
1037 IOleControlSite_fnLockInPlaceActive,
1038 IOleControlSite_fnGetExtendedControl,
1039 IOleControlSite_fnTransformCoords,
1040 IOleControlSite_fnTranslateAccelerator,
1041 IOleControlSite_fnOnFocus,
1042 IOleControlSite_fnShowPropertyFrame
1043 };
1044
1045 static IOleControlSite ControlSite = { &ControlSiteVtbl };
1046
1047 static HRESULT WINAPI InPlaceUIWindow_QueryInterface(IOleInPlaceFrame *iface,
1048 REFIID riid, void **ppv)
1049 {
1050 ok(0, "unexpected call\n");
1051 return E_NOINTERFACE;
1052 }
1053
1054 static ULONG WINAPI InPlaceUIWindow_AddRef(IOleInPlaceFrame *iface)
1055 {
1056 return 2;
1057 }
1058
1059 static ULONG WINAPI InPlaceUIWindow_Release(IOleInPlaceFrame *iface)
1060 {
1061 return 1;
1062 }
1063
1064 static HRESULT WINAPI InPlaceUIWindow_GetWindow(IOleInPlaceFrame *iface, HWND *phwnd)
1065 {
1066 ok(0, "unexpected call\n");
1067 return E_NOTIMPL;
1068 }
1069
1070 static HRESULT WINAPI InPlaceFrame_GetWindow(IOleInPlaceFrame *iface, HWND *phwnd)
1071 {
1072 CHECK_EXPECT(Frame_GetWindow);
1073 ok(phwnd != NULL, "phwnd == NULL\n");
1074 if(phwnd)
1075 *phwnd = container_hwnd;
1076 return S_OK;
1077 }
1078
1079 static HRESULT WINAPI InPlaceUIWindow_ContextSensitiveHelp(IOleInPlaceFrame *iface, BOOL fEnterMode)
1080 {
1081 ok(0, "unexpected call\n");
1082 return E_NOTIMPL;
1083 }
1084
1085 static HRESULT WINAPI InPlaceUIWindow_GetBorder(IOleInPlaceFrame *iface, LPRECT lprectBorder)
1086 {
1087 ok(0, "unexpected call\n");
1088 return E_NOTIMPL;
1089 }
1090
1091 static HRESULT WINAPI InPlaceUIWindow_RequestBorderSpace(IOleInPlaceFrame *iface,
1092 LPCBORDERWIDTHS pborderwidths)
1093 {
1094 ok(0, "unexpected call\n");
1095 return E_NOTIMPL;
1096 }
1097
1098 static HRESULT WINAPI InPlaceUIWindow_SetBorderSpace(IOleInPlaceFrame *iface,
1099 LPCBORDERWIDTHS pborderwidths)
1100 {
1101 ok(0, "unexpected call\n");
1102 return E_NOTIMPL;
1103 }
1104
1105 static HRESULT WINAPI InPlaceUIWindow_SetActiveObject(IOleInPlaceFrame *iface,
1106 IOleInPlaceActiveObject *pActiveObject, LPCOLESTR pszObjName)
1107 {
1108 CHECK_EXPECT(UIWindow_SetActiveObject);
1109 ok(pActiveObject != NULL, "pActiveObject = NULL\n");
1110 ok(!lstrcmpW(pszObjName, wszItem), "unexpected pszObjName\n");
1111 return S_OK;
1112 }
1113
1114 static HRESULT WINAPI InPlaceFrame_SetActiveObject(IOleInPlaceFrame *iface,
1115 IOleInPlaceActiveObject *pActiveObject, LPCOLESTR pszObjName)
1116 {
1117 CHECK_EXPECT(Frame_SetActiveObject);
1118 ok(pActiveObject != NULL, "pActiveObject = NULL\n");
1119 ok(!lstrcmpW(pszObjName, wszItem), "unexpected pszObjName\n");
1120 return S_OK;
1121 }
1122
1123 static HRESULT WINAPI InPlaceFrame_InsertMenus(IOleInPlaceFrame *iface, HMENU hmenuShared,
1124 LPOLEMENUGROUPWIDTHS lpMenuWidths)
1125 {
1126 ok(0, "unexpected call\n");
1127 return E_NOTIMPL;
1128 }
1129
1130 static HRESULT WINAPI InPlaceFrame_SetMenu(IOleInPlaceFrame *iface, HMENU hmenuShared,
1131 HOLEMENU holemenu, HWND hwndActiveObject)
1132 {
1133 CHECK_EXPECT(SetMenu);
1134 ok(hmenuShared == NULL, "hmenuShared=%p\n", hmenuShared);
1135 ok(holemenu == NULL, "holemenu=%p\n", holemenu);
1136 ok(hwndActiveObject == shell_embedding_hwnd, "hwndActiveObject=%p, expected %p\n",
1137 hwndActiveObject, shell_embedding_hwnd);
1138 return S_OK;
1139 }
1140
1141 static HRESULT WINAPI InPlaceFrame_RemoveMenus(IOleInPlaceFrame *iface, HMENU hmenuShared)
1142 {
1143 ok(0, "unexpected call\n");
1144 return E_NOTIMPL;
1145 }
1146
1147 static HRESULT WINAPI InPlaceFrame_SetStatusText(IOleInPlaceFrame *iface, LPCOLESTR pszStatusText)
1148 {
1149 CHECK_EXPECT2(SetStatusText);
1150 /* FIXME: Check pszStatusText */
1151 return S_OK;
1152 }
1153
1154 static HRESULT WINAPI InPlaceFrame_EnableModeless(IOleInPlaceFrame *iface, BOOL fEnable)
1155 {
1156 if(fEnable)
1157 CHECK_EXPECT2(EnableModeless_TRUE);
1158 else
1159 CHECK_EXPECT2(EnableModeless_FALSE);
1160 return S_OK;
1161 }
1162
1163 static HRESULT WINAPI InPlaceFrame_TranslateAccelerator(IOleInPlaceFrame *iface, LPMSG lpmsg, WORD wID)
1164 {
1165 ok(0, "unexpected call\n");
1166 return E_NOTIMPL;
1167 }
1168
1169 static const IOleInPlaceFrameVtbl InPlaceUIWindowVtbl = {
1170 InPlaceUIWindow_QueryInterface,
1171 InPlaceUIWindow_AddRef,
1172 InPlaceUIWindow_Release,
1173 InPlaceUIWindow_GetWindow,
1174 InPlaceUIWindow_ContextSensitiveHelp,
1175 InPlaceUIWindow_GetBorder,
1176 InPlaceUIWindow_RequestBorderSpace,
1177 InPlaceUIWindow_SetBorderSpace,
1178 InPlaceUIWindow_SetActiveObject,
1179 };
1180
1181 static IOleInPlaceUIWindow InPlaceUIWindow = { (IOleInPlaceUIWindowVtbl*)&InPlaceUIWindowVtbl };
1182
1183 static const IOleInPlaceFrameVtbl InPlaceFrameVtbl = {
1184 InPlaceUIWindow_QueryInterface,
1185 InPlaceUIWindow_AddRef,
1186 InPlaceUIWindow_Release,
1187 InPlaceFrame_GetWindow,
1188 InPlaceUIWindow_ContextSensitiveHelp,
1189 InPlaceUIWindow_GetBorder,
1190 InPlaceUIWindow_RequestBorderSpace,
1191 InPlaceUIWindow_SetBorderSpace,
1192 InPlaceFrame_SetActiveObject,
1193 InPlaceFrame_InsertMenus,
1194 InPlaceFrame_SetMenu,
1195 InPlaceFrame_RemoveMenus,
1196 InPlaceFrame_SetStatusText,
1197 InPlaceFrame_EnableModeless,
1198 InPlaceFrame_TranslateAccelerator
1199 };
1200
1201 static IOleInPlaceFrame InPlaceFrame = { &InPlaceFrameVtbl };
1202
1203 static HRESULT WINAPI InPlaceSite_QueryInterface(IOleInPlaceSiteEx *iface, REFIID riid, void **ppv)
1204 {
1205 return QueryInterface(riid, ppv);
1206 }
1207
1208 static ULONG WINAPI InPlaceSite_AddRef(IOleInPlaceSiteEx *iface)
1209 {
1210 return 2;
1211 }
1212
1213 static ULONG WINAPI InPlaceSite_Release(IOleInPlaceSiteEx *iface)
1214 {
1215 return 1;
1216 }
1217
1218 static HRESULT WINAPI InPlaceSite_GetWindow(IOleInPlaceSiteEx *iface, HWND *phwnd)
1219 {
1220 CHECK_EXPECT(Site_GetWindow);
1221 ok(phwnd != NULL, "phwnd == NULL\n");
1222 if(phwnd)
1223 *phwnd = container_hwnd;
1224 return S_OK;
1225 }
1226
1227 static HRESULT WINAPI InPlaceSite_ContextSensitiveHelp(IOleInPlaceSiteEx *iface, BOOL fEnterMode)
1228 {
1229 ok(0, "unexpected call\n");
1230 return E_NOTIMPL;
1231 }
1232
1233 static HRESULT WINAPI InPlaceSite_CanInPlaceActivate(IOleInPlaceSiteEx *iface)
1234 {
1235 CHECK_EXPECT(CanInPlaceActivate);
1236 return S_OK;
1237 }
1238
1239 static HRESULT WINAPI InPlaceSite_OnInPlaceActivate(IOleInPlaceSiteEx *iface)
1240 {
1241 CHECK_EXPECT(OnInPlaceActivate);
1242 return S_OK;
1243 }
1244
1245 static HRESULT WINAPI InPlaceSite_OnUIActivate(IOleInPlaceSiteEx *iface)
1246 {
1247 CHECK_EXPECT(OnUIActivate);
1248 return S_OK;
1249 }
1250
1251 static HRESULT WINAPI InPlaceSite_GetWindowContext(IOleInPlaceSiteEx *iface,
1252 IOleInPlaceFrame **ppFrame, IOleInPlaceUIWindow **ppDoc, LPRECT lprcPosRect,
1253 LPRECT lprcClipRect, LPOLEINPLACEFRAMEINFO lpFrameInfo)
1254 {
1255 static const RECT pos_rect = {2,1,1002,901};
1256 static const RECT clip_rect = {10,10,990,890};
1257
1258 CHECK_EXPECT(GetWindowContext);
1259
1260 ok(ppFrame != NULL, "ppFrame = NULL\n");
1261 if(ppFrame)
1262 *ppFrame = &InPlaceFrame;
1263
1264 ok(ppDoc != NULL, "ppDoc = NULL\n");
1265 if(ppDoc)
1266 *ppDoc = &InPlaceUIWindow;
1267
1268 ok(lprcPosRect != NULL, "lprcPosRect = NULL\n");
1269 if(lprcPosRect)
1270 memcpy(lprcPosRect, &pos_rect, sizeof(RECT));
1271
1272 ok(lprcClipRect != NULL, "lprcClipRect = NULL\n");
1273 if(lprcClipRect)
1274 memcpy(lprcClipRect, &clip_rect, sizeof(RECT));
1275
1276 ok(lpFrameInfo != NULL, "lpFrameInfo = NULL\n");
1277 if(lpFrameInfo) {
1278 ok(lpFrameInfo->cb == sizeof(*lpFrameInfo), "lpFrameInfo->cb = %u, expected %u\n", lpFrameInfo->cb, (unsigned)sizeof(*lpFrameInfo));
1279 lpFrameInfo->fMDIApp = FALSE;
1280 lpFrameInfo->hwndFrame = container_hwnd;
1281 lpFrameInfo->haccel = NULL;
1282 lpFrameInfo->cAccelEntries = 0;
1283 }
1284
1285 return S_OK;
1286 }
1287
1288 static HRESULT WINAPI InPlaceSite_Scroll(IOleInPlaceSiteEx *iface, SIZE scrollExtant)
1289 {
1290 ok(0, "unexpected call\n");
1291 return E_NOTIMPL;
1292 }
1293
1294 static HRESULT WINAPI InPlaceSite_OnUIDeactivate(IOleInPlaceSiteEx *iface, BOOL fUndoable)
1295 {
1296 ok(0, "unexpected call\n");
1297 return E_NOTIMPL;
1298 }
1299
1300 static HRESULT WINAPI InPlaceSite_OnInPlaceDeactivate(IOleInPlaceSiteEx *iface)
1301 {
1302 ok(0, "unexpected call\n");
1303 return E_NOTIMPL;
1304 }
1305
1306 static HRESULT WINAPI InPlaceSite_DiscardUndoState(IOleInPlaceSiteEx *iface)
1307 {
1308 ok(0, "unexpected call\n");
1309 return E_NOTIMPL;
1310 }
1311
1312 static HRESULT WINAPI InPlaceSite_DeactivateAndUndo(IOleInPlaceSiteEx *iface)
1313 {
1314 ok(0, "unexpected call\n");
1315 return E_NOTIMPL;
1316 }
1317
1318 static HRESULT WINAPI InPlaceSite_OnPosRectChange(IOleInPlaceSiteEx *iface, LPCRECT lprcPosRect)
1319 {
1320 ok(0, "unexpected call\n");
1321 return E_NOTIMPL;
1322 }
1323
1324 static HRESULT WINAPI InPlaceSite_OnInPlaceActivateEx(IOleInPlaceSiteEx *iface,
1325 BOOL *pNoRedraw, DWORD dwFlags)
1326 {
1327 ok(0, "unexpected call\n");
1328 return E_NOTIMPL;
1329 }
1330
1331 static HRESULT WINAPI InPlaceSite_OnInPlaceDeactivateEx(IOleInPlaceSiteEx *iface,
1332 BOOL fNoRedraw)
1333 {
1334 ok(0, "unexpected call\n");
1335 return E_NOTIMPL;
1336 }
1337
1338 static HRESULT WINAPI InPlaceSite_RequestUIActivate(IOleInPlaceSiteEx *iface)
1339 {
1340 CHECK_EXPECT2(RequestUIActivate);
1341 return S_OK;
1342 }
1343
1344 static const IOleInPlaceSiteExVtbl InPlaceSiteExVtbl = {
1345 InPlaceSite_QueryInterface,
1346 InPlaceSite_AddRef,
1347 InPlaceSite_Release,
1348 InPlaceSite_GetWindow,
1349 InPlaceSite_ContextSensitiveHelp,
1350 InPlaceSite_CanInPlaceActivate,
1351 InPlaceSite_OnInPlaceActivate,
1352 InPlaceSite_OnUIActivate,
1353 InPlaceSite_GetWindowContext,
1354 InPlaceSite_Scroll,
1355 InPlaceSite_OnUIDeactivate,
1356 InPlaceSite_OnInPlaceDeactivate,
1357 InPlaceSite_DiscardUndoState,
1358 InPlaceSite_DeactivateAndUndo,
1359 InPlaceSite_OnPosRectChange,
1360 InPlaceSite_OnInPlaceActivateEx,
1361 InPlaceSite_OnInPlaceDeactivateEx,
1362 InPlaceSite_RequestUIActivate
1363 };
1364
1365 static IOleInPlaceSiteEx InPlaceSite = { &InPlaceSiteExVtbl };
1366
1367 static HRESULT WINAPI DocHostUIHandler_QueryInterface(IDocHostUIHandler2 *iface, REFIID riid, void **ppv)
1368 {
1369 return QueryInterface(riid, ppv);
1370 }
1371
1372 static ULONG WINAPI DocHostUIHandler_AddRef(IDocHostUIHandler2 *iface)
1373 {
1374 return 2;
1375 }
1376
1377 static ULONG WINAPI DocHostUIHandler_Release(IDocHostUIHandler2 *iface)
1378 {
1379 return 1;
1380 }
1381
1382 static HRESULT WINAPI DocHostUIHandler_ShowContextMenu(IDocHostUIHandler2 *iface, DWORD dwID, POINT *ppt,
1383 IUnknown *pcmdtReserved, IDispatch *pdicpReserved)
1384 {
1385 ok(0, "unexpected call %d %p %p %p\n", dwID, ppt, pcmdtReserved, pdicpReserved);
1386 return S_FALSE;
1387 }
1388
1389 static HRESULT WINAPI DocHostUIHandler_GetHostInfo(IDocHostUIHandler2 *iface, DOCHOSTUIINFO *pInfo)
1390 {
1391 CHECK_EXPECT2(GetHostInfo);
1392 ok(pInfo != NULL, "pInfo=NULL\n");
1393 if(pInfo) {
1394 ok(pInfo->cbSize == sizeof(DOCHOSTUIINFO) || broken(!pInfo->cbSize), "pInfo->cbSize=%u\n", pInfo->cbSize);
1395 ok(!pInfo->dwFlags, "pInfo->dwFlags=%08x, expected 0\n", pInfo->dwFlags);
1396 ok(!pInfo->dwDoubleClick, "pInfo->dwDoubleClick=%08x, expected 0\n", pInfo->dwDoubleClick);
1397 ok(!pInfo->pchHostCss, "pInfo->pchHostCss=%p, expected NULL\n", pInfo->pchHostCss);
1398 ok(!pInfo->pchHostNS, "pInfo->pchhostNS=%p, expected NULL\n", pInfo->pchHostNS);
1399 }
1400 return E_FAIL;
1401 }
1402
1403 static HRESULT WINAPI DocHostUIHandler_ShowUI(IDocHostUIHandler2 *iface, DWORD dwID,
1404 IOleInPlaceActiveObject *pActiveObject, IOleCommandTarget *pCommandTarget,
1405 IOleInPlaceFrame *pFrame, IOleInPlaceUIWindow *pDoc)
1406 {
1407 CHECK_EXPECT(ShowUI);
1408 return E_NOTIMPL;
1409 }
1410
1411 static HRESULT WINAPI DocHostUIHandler_HideUI(IDocHostUIHandler2 *iface)
1412 {
1413 CHECK_EXPECT(HideUI);
1414 return E_NOTIMPL;
1415 }
1416
1417 static HRESULT WINAPI DocHostUIHandler_UpdateUI(IDocHostUIHandler2 *iface)
1418 {
1419 CHECK_EXPECT(UpdateUI);
1420 return E_NOTIMPL;
1421 }
1422
1423 static HRESULT WINAPI DocHostUIHandler_EnableModeless(IDocHostUIHandler2 *iface, BOOL fEnable)
1424 {
1425 if(fEnable)
1426 CHECK_EXPECT(DocHost_EnableModeless_TRUE);
1427 else
1428 CHECK_EXPECT(DocHost_EnableModeless_FALSE);
1429
1430 return S_OK;
1431 }
1432
1433 static HRESULT WINAPI DocHostUIHandler_OnDocWindowActivate(IDocHostUIHandler2 *iface, BOOL fActivate)
1434 {
1435 ok(0, "unexpected call\n");
1436 return E_NOTIMPL;
1437 }
1438
1439 static HRESULT WINAPI DocHostUIHandler_OnFrameWindowActivate(IDocHostUIHandler2 *iface, BOOL fActivate)
1440 {
1441 ok(0, "unexpected call\n");
1442 return E_NOTIMPL;
1443 }
1444
1445 static HRESULT WINAPI DocHostUIHandler_ResizeBorder(IDocHostUIHandler2 *iface, LPCRECT prcBorder,
1446 IOleInPlaceUIWindow *pUIWindow, BOOL fRameWindow)
1447 {
1448 ok(0, "unexpected call\n");
1449 return E_NOTIMPL;
1450 }
1451
1452 static HRESULT WINAPI DocHostUIHandler_TranslateAccelerator(IDocHostUIHandler2 *iface, LPMSG lpMsg,
1453 const GUID *pguidCmdGroup, DWORD nCmdID)
1454 {
1455 CHECK_EXPECT(DocHost_TranslateAccelerator);
1456 ok(pguidCmdGroup != NULL, "Got NULL pguidCmdGroup.\n");
1457 if(pguidCmdGroup)
1458 ok(IsEqualGUID(pguidCmdGroup, &CGID_MSHTML), "Unexpected pguidCmdGroup\n");
1459 ok(lpMsg != NULL, "Got NULL lpMsg.\n");
1460 return hr_dochost_TranslateAccelerator;
1461 }
1462
1463 static HRESULT WINAPI DocHostUIHandler_GetOptionKeyPath(IDocHostUIHandler2 *iface,
1464 LPOLESTR *pchKey, DWORD dw)
1465 {
1466 CHECK_EXPECT(GetOptionKeyPath);
1467 ok(pchKey != NULL, "pchKey==NULL\n");
1468 if(pchKey)
1469 ok(*pchKey == NULL, "*pchKey=%p\n", *pchKey);
1470 ok(!dw, "dw=%x\n", dw);
1471 return E_NOTIMPL;
1472 }
1473
1474 static HRESULT WINAPI DocHostUIHandler_GetDropTarget(IDocHostUIHandler2 *iface,
1475 IDropTarget *pDropTarget, IDropTarget **ppDropTarget)
1476 {
1477 CHECK_EXPECT(GetDropTarget);
1478 return E_NOTIMPL;
1479 }
1480
1481 static HRESULT WINAPI DocHostUIHandler_GetExternal(IDocHostUIHandler2 *iface, IDispatch **ppDispatch)
1482 {
1483 ok(0, "unexpected call\n");
1484 return E_NOTIMPL;
1485 }
1486
1487 static HRESULT WINAPI DocHostUIHandler_TranslateUrl(IDocHostUIHandler2 *iface, DWORD dwTranslate,
1488 OLECHAR *pchURLIn, OLECHAR **ppchURLOut)
1489 {
1490 if(is_downloading && !(dwl_flags & DWL_EXPECT_BEFORE_NAVIGATE))
1491 todo_wine CHECK_EXPECT(TranslateUrl);
1492 else
1493 CHECK_EXPECT(TranslateUrl);
1494 return E_NOTIMPL;
1495 }
1496
1497 static HRESULT WINAPI DocHostUIHandler_FilterDataObject(IDocHostUIHandler2 *iface, IDataObject *pDO,
1498 IDataObject **ppPORet)
1499 {
1500 ok(0, "unexpected call\n");
1501 return E_NOTIMPL;
1502 }
1503
1504 static HRESULT WINAPI DocHostUIHandler_GetOverrideKeyPath(IDocHostUIHandler2 *iface,
1505 LPOLESTR *pchKey, DWORD dw)
1506 {
1507 CHECK_EXPECT(GetOverridesKeyPath);
1508 ok(pchKey != NULL, "pchKey==NULL\n");
1509 if(pchKey)
1510 ok(*pchKey == NULL, "*pchKey=%p\n", *pchKey);
1511 ok(!dw, "dw=%x\n", dw);
1512 return E_NOTIMPL;
1513 }
1514
1515 static const IDocHostUIHandler2Vtbl DocHostUIHandlerVtbl = {
1516 DocHostUIHandler_QueryInterface,
1517 DocHostUIHandler_AddRef,
1518 DocHostUIHandler_Release,
1519 DocHostUIHandler_ShowContextMenu,
1520 DocHostUIHandler_GetHostInfo,
1521 DocHostUIHandler_ShowUI,
1522 DocHostUIHandler_HideUI,
1523 DocHostUIHandler_UpdateUI,
1524 DocHostUIHandler_EnableModeless,
1525 DocHostUIHandler_OnDocWindowActivate,
1526 DocHostUIHandler_OnFrameWindowActivate,
1527 DocHostUIHandler_ResizeBorder,
1528 DocHostUIHandler_TranslateAccelerator,
1529 DocHostUIHandler_GetOptionKeyPath,
1530 DocHostUIHandler_GetDropTarget,
1531 DocHostUIHandler_GetExternal,
1532 DocHostUIHandler_TranslateUrl,
1533 DocHostUIHandler_FilterDataObject,
1534 DocHostUIHandler_GetOverrideKeyPath
1535 };
1536
1537 static IDocHostUIHandler2 DocHostUIHandler = { &DocHostUIHandlerVtbl };
1538
1539
1540 static HRESULT WINAPI ServiceProvider_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv)
1541 {
1542 return QueryInterface(riid, ppv);
1543 }
1544
1545 static ULONG WINAPI ServiceProvider_AddRef(IServiceProvider *iface)
1546 {
1547 return 2;
1548 }
1549
1550 static ULONG WINAPI ServiceProvider_Release(IServiceProvider *iface)
1551 {
1552 return 1;
1553 }
1554
1555 static HRESULT WINAPI ServiceProvider_QueryService(IServiceProvider *iface,
1556 REFGUID guidService, REFIID riid, void **ppv)
1557 {
1558 *ppv = NULL;
1559
1560 if(!winetest_interactive)
1561 return E_NOINTERFACE;
1562
1563 if (IsEqualGUID(&SID_STopLevelBrowser, guidService))
1564 trace("Service SID_STopLevelBrowser\n");
1565 else if (IsEqualGUID(&SID_SEditCommandTarget, guidService))
1566 trace("Service SID_SEditCommandTarget\n");
1567 else if (IsEqualGUID(&IID_ITargetFrame2, guidService))
1568 trace("Service IID_ITargetFrame2\n");
1569 else if (IsEqualGUID(&SID_SInternetSecurityManager, guidService))
1570 trace("Service SID_SInternetSecurityManager\n");
1571 else if (IsEqualGUID(&SID_SOleUndoManager, guidService))
1572 trace("Service SID_SOleUndoManager\n");
1573 else if (IsEqualGUID(&SID_IMimeInfo, guidService))
1574 trace("Service SID_IMimeInfo\n");
1575 else if (IsEqualGUID(&SID_STopWindow, guidService))
1576 trace("Service SID_STopWindow\n");
1577
1578 /* 30D02401-6A81-11D0-8274-00C04FD5AE38 Explorer Bar: Search */
1579 /* D1E7AFEC-6A2E-11D0-8C78-00C04FD918B4 no info */
1580 /* A9227C3C-7F8E-11D0-8CB0-00A0C92DBFE8 no info */
1581 /* 371EA634-DC5C-11D1-BA57-00C04FC2040E one reference to IVersionHost */
1582 /* 3050F429-98B5-11CF-BB82-00AA00BDCE0B IID_IElementBehaviorFactory */
1583 /* 6D12FE80-7911-11CF-9534-0000C05BAE0B SID_DefView */
1584 /* AD7F6C62-F6BD-11D2-959B-006097C553C8 no info */
1585 /* 53A2D5B1-D2FC-11D0-84E0-006097C9987D no info */
1586 /* 3050F312-98B5-11CF-BB82-00AA00BDCE0B HTMLFrameBaseClass */
1587 /* 639447BD-B2D3-44B9-9FB0-510F23CB45E4 no info */
1588 /* 20C46561-8491-11CF-960C-0080C7F4EE85 no info */
1589
1590 else
1591 trace("Service %s not supported\n", debugstr_guid(guidService));
1592
1593 return E_NOINTERFACE;
1594 }
1595
1596
1597 static const IServiceProviderVtbl ServiceProviderVtbl = {
1598 ServiceProvider_QueryInterface,
1599 ServiceProvider_AddRef,
1600 ServiceProvider_Release,
1601 ServiceProvider_QueryService
1602 };
1603
1604 static IServiceProvider ServiceProvider = { &ServiceProviderVtbl };
1605
1606
1607 static HRESULT QueryInterface(REFIID riid, void **ppv)
1608 {
1609 *ppv = NULL;
1610
1611 if(IsEqualGUID(&IID_IUnknown, riid)
1612 || IsEqualGUID(&IID_IOleClientSite, riid))
1613 *ppv = &ClientSite;
1614 else if(IsEqualGUID(&IID_IOleWindow, riid)
1615 || IsEqualGUID(&IID_IOleInPlaceSite, riid)
1616 || IsEqualGUID(&IID_IOleInPlaceSiteEx, riid))
1617 *ppv = &InPlaceSite;
1618 else if(IsEqualGUID(&IID_IDocHostUIHandler, riid)
1619 || IsEqualGUID(&IID_IDocHostUIHandler2, riid))
1620 *ppv = &DocHostUIHandler;
1621 else if(IsEqualGUID(&IID_IDispatch, riid))
1622 *ppv = &Dispatch;
1623 else if(IsEqualGUID(&IID_IServiceProvider, riid))
1624 *ppv = &ServiceProvider;
1625 else if(IsEqualGUID(&IID_IDocHostShowUI, riid))
1626 trace("interface IID_IDocHostShowUI\n");
1627 else if(IsEqualGUID(&IID_IOleControlSite, riid))
1628 *ppv = &ControlSite;
1629 else if(IsEqualGUID(&IID_IOleCommandTarget, riid))
1630 trace("interface IID_IOleCommandTarget\n");
1631
1632 /* B6EA2050-048A-11D1-82B9-00C04FB9942E IAxWinHostWindow */
1633
1634 else
1635 {
1636 /* are there more interfaces, that a host can support? */
1637 trace("%s: interface not supported\n", debugstr_guid(riid));
1638 }
1639
1640 return (*ppv) ? S_OK : E_NOINTERFACE;
1641 }
1642
1643 static LRESULT WINAPI wnd_proc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
1644 {
1645 return DefWindowProcW(hwnd, msg, wParam, lParam);
1646 }
1647
1648 static HWND create_container_window(void)
1649 {
1650 static const WCHAR wszWebBrowserContainer[] =
1651 {'W','e','b','B','r','o','w','s','e','r','C','o','n','t','a','i','n','e','r',0};
1652 static WNDCLASSEXW wndclass = {
1653 sizeof(WNDCLASSEXW),
1654 0,
1655 wnd_proc,
1656 0, 0, NULL, NULL, NULL, NULL, NULL,
1657 wszWebBrowserContainer,
1658 NULL
1659 };
1660
1661 RegisterClassExW(&wndclass);
1662 return CreateWindowW(wszWebBrowserContainer, wszWebBrowserContainer,
1663 WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
1664 CW_USEDEFAULT, NULL, NULL, NULL, NULL);
1665 }
1666
1667 static void test_DoVerb(IUnknown *unk)
1668 {
1669 IOleObject *oleobj;
1670 RECT rect = {0,0,1000,1000};
1671 HRESULT hres;
1672
1673 hres = IUnknown_QueryInterface(unk, &IID_IOleObject, (void**)&oleobj);
1674 ok(hres == S_OK, "QueryInterface(IID_OleObject) failed: %08x\n", hres);
1675 if(FAILED(hres))
1676 return;
1677
1678 SET_EXPECT(CanInPlaceActivate);
1679 SET_EXPECT(Site_GetWindow);
1680 SET_EXPECT(OnInPlaceActivate);
1681 SET_EXPECT(GetWindowContext);
1682 SET_EXPECT(ShowObject);
1683 SET_EXPECT(GetContainer);
1684 SET_EXPECT(Frame_GetWindow);
1685 SET_EXPECT(OnUIActivate);
1686 SET_EXPECT(Frame_SetActiveObject);
1687 SET_EXPECT(UIWindow_SetActiveObject);
1688 SET_EXPECT(SetMenu);
1689 SET_EXPECT(OnFocus);
1690
1691 hres = IOleObject_DoVerb(oleobj, OLEIVERB_SHOW, NULL, &ClientSite,
1692 0, (HWND)0xdeadbeef, &rect);
1693 ok(hres == S_OK, "DoVerb failed: %08x\n", hres);
1694
1695 CHECK_CALLED(CanInPlaceActivate);
1696 CHECK_CALLED(Site_GetWindow);
1697 CHECK_CALLED(OnInPlaceActivate);
1698 CHECK_CALLED(GetWindowContext);
1699 CHECK_CALLED(ShowObject);
1700 CHECK_CALLED(GetContainer);
1701 CHECK_CALLED(Frame_GetWindow);
1702 CHECK_CALLED(OnUIActivate);
1703 CHECK_CALLED(Frame_SetActiveObject);
1704 CHECK_CALLED(UIWindow_SetActiveObject);
1705 CHECK_CALLED(SetMenu);
1706 todo_wine CHECK_CALLED(OnFocus);
1707
1708 hres = IOleObject_DoVerb(oleobj, OLEIVERB_SHOW, NULL, &ClientSite,
1709 0, (HWND)0xdeadbeef, &rect);
1710 ok(hres == S_OK, "DoVerb failed: %08x\n", hres);
1711
1712 IOleObject_Release(oleobj);
1713 }
1714
1715 static void test_GetMiscStatus(IOleObject *oleobj)
1716 {
1717 DWORD st, i;
1718 HRESULT hres;
1719
1720 for(i=0; i<10; i++) {
1721 st = 0xdeadbeef;
1722 hres = IOleObject_GetMiscStatus(oleobj, i, &st);
1723 ok(hres == S_OK, "GetMiscStatus failed: %08x\n", hres);
1724 ok(st == (OLEMISC_SETCLIENTSITEFIRST|OLEMISC_ACTIVATEWHENVISIBLE|OLEMISC_INSIDEOUT
1725 |OLEMISC_CANTLINKINSIDE|OLEMISC_RECOMPOSEONRESIZE),
1726 "st=%08x, expected OLEMISC_SETCLIENTSITEFIRST|OLEMISC_ACTIVATEWHENVISIBLE|"
1727 "OLEMISC_INSIDEOUT|OLEMISC_CANTLINKINSIDE|OLEMISC_RECOMPOSEONRESIZE)\n", st);
1728 }
1729 }
1730
1731 static void test_SetHostNames(IOleObject *oleobj)
1732 {
1733 HRESULT hres;
1734
1735 static const WCHAR test_appW[] = {'t','e','s','t',' ','a','p','p',0};
1736
1737 hres = IOleObject_SetHostNames(oleobj, test_appW, (void*)0xdeadbeef);
1738 ok(hres == S_OK, "SetHostNames failed: %08x\n", hres);
1739 }
1740
1741 static void test_ClientSite(IUnknown *unk, IOleClientSite *client, BOOL stop_download)
1742 {
1743 IOleObject *oleobj;
1744 IOleInPlaceObject *inplace;
1745 HWND hwnd;
1746 HRESULT hres;
1747
1748 hres = IUnknown_QueryInterface(unk, &IID_IOleObject, (void**)&oleobj);
1749 ok(hres == S_OK, "QueryInterface(IID_OleObject) failed: %08x\n", hres);
1750 if(FAILED(hres))
1751 return;
1752
1753 test_GetMiscStatus(oleobj);
1754 test_SetHostNames(oleobj);
1755
1756 hres = IUnknown_QueryInterface(unk, &IID_IOleInPlaceObject, (void**)&inplace);
1757 ok(hres == S_OK, "QueryInterface(IID_OleInPlaceObject) failed: %08x\n", hres);
1758 if(FAILED(hres)) {
1759 IOleObject_Release(oleobj);
1760 return;
1761 }
1762
1763 hres = IOleInPlaceObject_GetWindow(inplace, &hwnd);
1764 ok(hres == S_OK, "GetWindow failed: %08x\n", hres);
1765 ok((hwnd == NULL) ^ (client == NULL), "unexpected hwnd %p\n", hwnd);
1766
1767 if(client) {
1768 SET_EXPECT(GetContainer);
1769 SET_EXPECT(Site_GetWindow);
1770 SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
1771 SET_EXPECT(Invoke_AMBIENT_SILENT);
1772 }else if(stop_download) {
1773 SET_EXPECT(Invoke_DOWNLOADCOMPLETE);
1774 if (use_container_olecmd) SET_EXPECT(Exec_SETDOWNLOADSTATE_0);
1775 SET_EXPECT(Invoke_COMMANDSTATECHANGE);
1776 }
1777
1778 hres = IOleObject_SetClientSite(oleobj, client);
1779 ok(hres == S_OK, "SetClientSite failed: %08x\n", hres);
1780
1781 if(client) {
1782 CHECK_CALLED(GetContainer);
1783 CHECK_CALLED(Site_GetWindow);
1784 CHECK_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
1785 CHECK_CALLED(Invoke_AMBIENT_SILENT);
1786 }else if(stop_download) {
1787 todo_wine CHECK_CALLED(Invoke_DOWNLOADCOMPLETE);
1788 if (use_container_olecmd) todo_wine CHECK_CALLED(Exec_SETDOWNLOADSTATE_0);
1789 todo_wine CHECK_CALLED(Invoke_COMMANDSTATECHANGE);
1790 }
1791
1792 hres = IOleInPlaceObject_GetWindow(inplace, &hwnd);
1793 ok(hres == S_OK, "GetWindow failed: %08x\n", hres);
1794 ok((hwnd == NULL) == (client == NULL), "unexpected hwnd %p\n", hwnd);
1795
1796 shell_embedding_hwnd = hwnd;
1797
1798 test_SetHostNames(oleobj);
1799
1800 IOleInPlaceObject_Release(inplace);
1801 IOleObject_Release(oleobj);
1802 }
1803
1804 static void test_ClassInfo(IUnknown *unk)
1805 {
1806 IProvideClassInfo2 *class_info;
1807 GUID guid;
1808 HRESULT hres;
1809
1810 hres = IUnknown_QueryInterface(unk, &IID_IProvideClassInfo2, (void**)&class_info);
1811 ok(hres == S_OK, "QueryInterface(IID_IProvideClassInfo) failed: %08x\n", hres);
1812 if(FAILED(hres))
1813 return;
1814
1815 hres = IProvideClassInfo2_GetGUID(class_info, GUIDKIND_DEFAULT_SOURCE_DISP_IID, &guid);
1816 ok(hres == S_OK, "GetGUID failed: %08x\n", hres);
1817 ok(IsEqualGUID(&DIID_DWebBrowserEvents2, &guid), "wrong guid\n");
1818
1819 hres = IProvideClassInfo2_GetGUID(class_info, 0, &guid);
1820 ok(hres == E_FAIL, "GetGUID failed: %08x, expected E_FAIL\n", hres);
1821 ok(IsEqualGUID(&IID_NULL, &guid), "wrong guid\n");
1822
1823 hres = IProvideClassInfo2_GetGUID(class_info, 2, &guid);
1824 ok(hres == E_FAIL, "GetGUID failed: %08x, expected E_FAIL\n", hres);
1825 ok(IsEqualGUID(&IID_NULL, &guid), "wrong guid\n");
1826
1827 hres = IProvideClassInfo2_GetGUID(class_info, GUIDKIND_DEFAULT_SOURCE_DISP_IID, NULL);
1828 ok(hres == E_POINTER, "GetGUID failed: %08x, expected E_POINTER\n", hres);
1829
1830 hres = IProvideClassInfo2_GetGUID(class_info, 0, NULL);
1831 ok(hres == E_POINTER, "GetGUID failed: %08x, expected E_POINTER\n", hres);
1832
1833 IProvideClassInfo2_Release(class_info);
1834 }
1835
1836 static void test_ie_funcs(IUnknown *unk)
1837 {
1838 IWebBrowser2 *wb;
1839 IDispatch *disp;
1840 VARIANT_BOOL b;
1841 int i;
1842 LONG hwnd;
1843 HRESULT hres;
1844 BSTR sName;
1845
1846 hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
1847 ok(hres == S_OK, "Could not get IWebBrowser2 interface: %08x\n", hres);
1848 if(FAILED(hres))
1849 return;
1850
1851 /* HWND */
1852
1853 hwnd = 0xdeadbeef;
1854 hres = IWebBrowser2_get_HWND(wb, &hwnd);
1855 ok(hres == E_FAIL, "get_HWND failed: %08x, expected E_FAIL\n", hres);
1856 ok(hwnd == 0, "unexpected hwnd %x\n", hwnd);
1857
1858 /* MenuBar */
1859
1860 hres = IWebBrowser2_get_MenuBar(wb, &b);
1861 ok(hres == S_OK, "get_MenuBar failed: %08x\n", hres);
1862 ok(b == VARIANT_TRUE, "b=%x\n", b);
1863
1864 SET_EXPECT(Invoke_ONMENUBAR);
1865 hres = IWebBrowser2_put_MenuBar(wb, (exvb = VARIANT_FALSE));
1866 ok(hres == S_OK, "put_MenuBar failed: %08x\n", hres);
1867 CHECK_CALLED(Invoke_ONMENUBAR);
1868
1869 hres = IWebBrowser2_get_MenuBar(wb, &b);
1870 ok(hres == S_OK, "get_MenuBar failed: %08x\n", hres);
1871 ok(b == VARIANT_FALSE, "b=%x\n", b);
1872
1873 SET_EXPECT(Invoke_ONMENUBAR);
1874 hres = IWebBrowser2_put_MenuBar(wb, (exvb = 100));
1875 ok(hres == S_OK, "put_MenuBar failed: %08x\n", hres);
1876 CHECK_CALLED(Invoke_ONMENUBAR);
1877
1878 hres = IWebBrowser2_get_MenuBar(wb, &b);
1879 ok(hres == S_OK, "get_MenuBar failed: %08x\n", hres);
1880 ok(b == VARIANT_TRUE, "b=%x\n", b);
1881
1882 /* AddressBar */
1883
1884 hres = IWebBrowser2_get_AddressBar(wb, &b);
1885 ok(hres == S_OK, "get_AddressBar failed: %08x\n", hres);
1886 ok(b == VARIANT_TRUE, "b=%x\n", b);
1887
1888 SET_EXPECT(Invoke_ONADDRESSBAR);
1889 hres = IWebBrowser2_put_AddressBar(wb, (exvb = VARIANT_FALSE));
1890 ok(hres == S_OK, "put_AddressBar failed: %08x\n", hres);
1891 CHECK_CALLED(Invoke_ONADDRESSBAR);
1892
1893 hres = IWebBrowser2_get_AddressBar(wb, &b);
1894 ok(hres == S_OK, "get_MenuBar failed: %08x\n", hres);
1895 ok(b == VARIANT_FALSE, "b=%x\n", b);
1896
1897 SET_EXPECT(Invoke_ONADDRESSBAR);
1898 hres = IWebBrowser2_put_AddressBar(wb, (exvb = 100));
1899 ok(hres == S_OK, "put_AddressBar failed: %08x\n", hres);
1900 CHECK_CALLED(Invoke_ONADDRESSBAR);
1901
1902 hres = IWebBrowser2_get_AddressBar(wb, &b);
1903 ok(hres == S_OK, "get_AddressBar failed: %08x\n", hres);
1904 ok(b == VARIANT_TRUE, "b=%x\n", b);
1905
1906 SET_EXPECT(Invoke_ONADDRESSBAR);
1907 hres = IWebBrowser2_put_AddressBar(wb, (exvb = VARIANT_TRUE));
1908 ok(hres == S_OK, "put_MenuBar failed: %08x\n", hres);
1909 CHECK_CALLED(Invoke_ONADDRESSBAR);
1910
1911 /* StatusBar */
1912
1913 hres = IWebBrowser2_get_StatusBar(wb, &b);
1914 ok(hres == S_OK, "get_StatusBar failed: %08x\n", hres);
1915 ok(b == VARIANT_TRUE, "b=%x\n", b);
1916
1917 SET_EXPECT(Invoke_ONSTATUSBAR);
1918 hres = IWebBrowser2_put_StatusBar(wb, (exvb = VARIANT_TRUE));
1919 ok(hres == S_OK, "put_StatusBar failed: %08x\n", hres);
1920 CHECK_CALLED(Invoke_ONSTATUSBAR);
1921
1922 hres = IWebBrowser2_get_StatusBar(wb, &b);
1923 ok(hres == S_OK, "get_StatusBar failed: %08x\n", hres);
1924 ok(b == VARIANT_TRUE, "b=%x\n", b);
1925
1926 SET_EXPECT(Invoke_ONSTATUSBAR);
1927 hres = IWebBrowser2_put_StatusBar(wb, (exvb = VARIANT_FALSE));
1928 ok(hres == S_OK, "put_StatusBar failed: %08x\n", hres);
1929 CHECK_CALLED(Invoke_ONSTATUSBAR);
1930
1931 hres = IWebBrowser2_get_StatusBar(wb, &b);
1932 ok(hres == S_OK, "get_StatusBar failed: %08x\n", hres);
1933 ok(b == VARIANT_FALSE, "b=%x\n", b);
1934
1935 SET_EXPECT(Invoke_ONSTATUSBAR);
1936 hres = IWebBrowser2_put_StatusBar(wb, (exvb = 100));
1937 ok(hres == S_OK, "put_StatusBar failed: %08x\n", hres);
1938 CHECK_CALLED(Invoke_ONSTATUSBAR);
1939
1940 hres = IWebBrowser2_get_StatusBar(wb, &b);
1941 ok(hres == S_OK, "get_StatusBar failed: %08x\n", hres);
1942 ok(b == VARIANT_TRUE, "b=%x\n", b);
1943
1944 /* ToolBar */
1945
1946 hres = IWebBrowser2_get_ToolBar(wb, &i);
1947 ok(hres == S_OK, "get_ToolBar failed: %08x\n", hres);
1948 ok(i, "i=%x\n", i);
1949
1950 SET_EXPECT(Invoke_ONTOOLBAR);
1951 hres = IWebBrowser2_put_ToolBar(wb, (exvb = VARIANT_FALSE));
1952 ok(hres == S_OK, "put_ToolBar failed: %08x\n", hres);
1953 CHECK_CALLED(Invoke_ONTOOLBAR);
1954
1955 hres = IWebBrowser2_get_ToolBar(wb, &i);
1956 ok(hres == S_OK, "get_ToolBar failed: %08x\n", hres);
1957 ok(i == VARIANT_FALSE, "b=%x\n", i);
1958
1959 SET_EXPECT(Invoke_ONTOOLBAR);
1960 hres = IWebBrowser2_put_ToolBar(wb, (exvb = 100));
1961 ok(hres == S_OK, "put_ToolBar failed: %08x\n", hres);
1962 CHECK_CALLED(Invoke_ONTOOLBAR);
1963
1964 hres = IWebBrowser2_get_ToolBar(wb, &i);
1965 ok(hres == S_OK, "get_ToolBar failed: %08x\n", hres);
1966 ok(i, "i=%x\n", i);
1967
1968 SET_EXPECT(Invoke_ONTOOLBAR);
1969 hres = IWebBrowser2_put_ToolBar(wb, (exvb = VARIANT_TRUE));
1970 ok(hres == S_OK, "put_ToolBar failed: %08x\n", hres);
1971 CHECK_CALLED(Invoke_ONTOOLBAR);
1972
1973 /* FullScreen */
1974
1975 hres = IWebBrowser2_get_FullScreen(wb, &b);
1976 ok(hres == S_OK, "get_FullScreen failed: %08x\n", hres);
1977 ok(b == VARIANT_FALSE, "b=%x\n", b);
1978
1979 SET_EXPECT(Invoke_ONFULLSCREEN);
1980 hres = IWebBrowser2_put_FullScreen(wb, (exvb = VARIANT_TRUE));
1981 ok(hres == S_OK, "put_FullScreen failed: %08x\n", hres);
1982 CHECK_CALLED(Invoke_ONFULLSCREEN);
1983
1984 hres = IWebBrowser2_get_FullScreen(wb, &b);
1985 ok(hres == S_OK, "get_FullScreen failed: %08x\n", hres);
1986 ok(b == VARIANT_TRUE, "b=%x\n", b);
1987
1988 SET_EXPECT(Invoke_ONFULLSCREEN);
1989 hres = IWebBrowser2_put_FullScreen(wb, (exvb = 100));
1990 ok(hres == S_OK, "put_FullScreen failed: %08x\n", hres);
1991 CHECK_CALLED(Invoke_ONFULLSCREEN);
1992
1993 hres = IWebBrowser2_get_FullScreen(wb, &b);
1994 ok(hres == S_OK, "get_FullScreen failed: %08x\n", hres);
1995 ok(b == VARIANT_TRUE, "b=%x\n", b);
1996
1997 SET_EXPECT(Invoke_ONFULLSCREEN);
1998 hres = IWebBrowser2_put_FullScreen(wb, (exvb = VARIANT_FALSE));
1999 ok(hres == S_OK, "put_FullScreen failed: %08x\n", hres);
2000 CHECK_CALLED(Invoke_ONFULLSCREEN);
2001
2002 /* TheaterMode */
2003
2004 hres = IWebBrowser2_get_TheaterMode(wb, &b);
2005 ok(hres == S_OK, "get_TheaterMode failed: %08x\n", hres);
2006 ok(b == VARIANT_FALSE, "b=%x\n", b);
2007
2008 SET_EXPECT(Invoke_ONTHEATERMODE);
2009 hres = IWebBrowser2_put_TheaterMode(wb, (exvb = VARIANT_TRUE));
2010 ok(hres == S_OK, "put_TheaterMode failed: %08x\n", hres);
2011 CHECK_CALLED(Invoke_ONTHEATERMODE);
2012
2013 hres = IWebBrowser2_get_TheaterMode(wb, &b);
2014 ok(hres == S_OK, "get_TheaterMode failed: %08x\n", hres);
2015 ok(b == VARIANT_TRUE, "b=%x\n", b);
2016
2017 SET_EXPECT(Invoke_ONTHEATERMODE);
2018 hres = IWebBrowser2_put_TheaterMode(wb, (exvb = 100));
2019 ok(hres == S_OK, "put_TheaterMode failed: %08x\n", hres);
2020 CHECK_CALLED(Invoke_ONTHEATERMODE);
2021
2022 hres = IWebBrowser2_get_TheaterMode(wb, &b);
2023 ok(hres == S_OK, "get_TheaterMode failed: %08x\n", hres);
2024 ok(b == VARIANT_TRUE, "b=%x\n", b);
2025
2026 SET_EXPECT(Invoke_ONTHEATERMODE);
2027 hres = IWebBrowser2_put_TheaterMode(wb, (exvb = VARIANT_FALSE));
2028 ok(hres == S_OK, "put_TheaterMode failed: %08x\n", hres);
2029 CHECK_CALLED(Invoke_ONTHEATERMODE);
2030
2031 /* Resizable */
2032
2033 b = 0x100;
2034 hres = IWebBrowser2_get_Resizable(wb, &b);
2035 ok(hres == E_NOTIMPL, "get_Resizable failed: %08x\n", hres);
2036 ok(b == 0x100, "b=%x\n", b);
2037
2038 SET_EXPECT(Invoke_WINDOWSETRESIZABLE);
2039 hres = IWebBrowser2_put_Resizable(wb, (exvb = VARIANT_TRUE));
2040 ok(hres == S_OK, "put_Resizable failed: %08x\n", hres);
2041 CHECK_CALLED(Invoke_WINDOWSETRESIZABLE);
2042
2043 SET_EXPECT(Invoke_WINDOWSETRESIZABLE);
2044 hres = IWebBrowser2_put_Resizable(wb, (exvb = VARIANT_FALSE));
2045 ok(hres == S_OK, "put_Resizable failed: %08x\n", hres);
2046 CHECK_CALLED(Invoke_WINDOWSETRESIZABLE);
2047
2048 hres = IWebBrowser2_get_Resizable(wb, &b);
2049 ok(hres == E_NOTIMPL, "get_Resizable failed: %08x\n", hres);
2050 ok(b == 0x100, "b=%x\n", b);
2051
2052 /* Application */
2053
2054 disp = NULL;
2055 hres = IWebBrowser2_get_Application(wb, &disp);
2056 ok(hres == S_OK, "get_Application failed: %08x\n", hres);
2057 ok(disp == (void*)wb, "disp=%p, expected %p\n", disp, wb);
2058 if(disp)
2059 IDispatch_Release(disp);
2060
2061 hres = IWebBrowser2_get_Application(wb, NULL);
2062 ok(hres == E_POINTER, "get_Application failed: %08x, expected E_POINTER\n", hres);
2063
2064 /* Name */
2065 hres = IWebBrowser2_get_Name(wb, &sName);
2066 ok(hres == S_OK, "getName failed: %08x, expected S_OK\n", hres);
2067 if (PRIMARYLANGID(LANGIDFROMLCID(GetThreadLocale())) == LANG_ENGLISH)
2068 ok(!strcmp_wa(sName, "Microsoft Web Browser Control"), "got '%s', expected 'Microsoft Web Browser Control'\n", wine_dbgstr_w(sName));
2069 else /* Non-English cannot be blank. */
2070 ok(sName!=NULL, "get_Name return a NULL string.\n");
2071 SysFreeString(sName);
2072
2073 /* Quit */
2074
2075 hres = IWebBrowser2_Quit(wb);
2076 ok(hres == E_FAIL, "Quit failed: %08x, expected E_FAIL\n", hres);
2077
2078 IWebBrowser2_Release(wb);
2079 }
2080
2081 static void test_Silent(IWebBrowser2 *wb, IOleControl *control, BOOL is_clientsite)
2082 {
2083 VARIANT_BOOL b;
2084 HRESULT hres;
2085
2086 b = 100;
2087 hres = IWebBrowser2_get_Silent(wb, &b);
2088 ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
2089 ok(b == VARIANT_FALSE, "b=%x\n", b);
2090
2091 hres = IWebBrowser2_put_Silent(wb, VARIANT_TRUE);
2092 ok(hres == S_OK, "set_Silent failed: %08x\n", hres);
2093
2094 b = 100;
2095 hres = IWebBrowser2_get_Silent(wb, &b);
2096 ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
2097 ok(b == VARIANT_TRUE, "b=%x\n", b);
2098
2099 hres = IWebBrowser2_put_Silent(wb, 100);
2100 ok(hres == S_OK, "set_Silent failed: %08x\n", hres);
2101
2102 b = 100;
2103 hres = IWebBrowser2_get_Silent(wb, &b);
2104 ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
2105 ok(b == VARIANT_TRUE, "b=%x\n", b);
2106
2107 hres = IWebBrowser2_put_Silent(wb, VARIANT_FALSE);
2108 ok(hres == S_OK, "set_Silent failed: %08x\n", hres);
2109
2110 b = 100;
2111 hres = IWebBrowser2_get_Silent(wb, &b);
2112 ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
2113 ok(b == VARIANT_FALSE, "b=%x\n", b);
2114
2115 if(is_clientsite) {
2116 hres = IWebBrowser2_put_Silent(wb, VARIANT_TRUE);
2117 ok(hres == S_OK, "set_Silent failed: %08x\n", hres);
2118
2119 SET_EXPECT(Invoke_AMBIENT_SILENT);
2120 }
2121
2122 hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_SILENT);
2123 ok(hres == S_OK, "OnAmbientPropertyChange failed %08x\n", hres);
2124
2125 if(is_clientsite)
2126 CHECK_CALLED(Invoke_AMBIENT_SILENT);
2127
2128 b = 100;
2129 hres = IWebBrowser2_get_Silent(wb, &b);
2130 ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
2131 ok(b == VARIANT_FALSE, "b=%x\n", b);
2132 }
2133
2134 static void test_Offline(IWebBrowser2 *wb, IOleControl *control, BOOL is_clientsite)
2135 {
2136 VARIANT_BOOL b;
2137 HRESULT hres;
2138
2139 b = 100;
2140 hres = IWebBrowser2_get_Offline(wb, &b);
2141 ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
2142 ok(b == VARIANT_FALSE, "b=%x\n", b);
2143
2144 hres = IWebBrowser2_put_Offline(wb, VARIANT_TRUE);
2145 ok(hres == S_OK, "set_Offline failed: %08x\n", hres);
2146
2147 b = 100;
2148 hres = IWebBrowser2_get_Offline(wb, &b);
2149 ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
2150 ok(b == VARIANT_TRUE, "b=%x\n", b);
2151
2152 hres = IWebBrowser2_put_Offline(wb, 100);
2153 ok(hres == S_OK, "set_Offline failed: %08x\n", hres);
2154
2155 b = 100;
2156 hres = IWebBrowser2_get_Offline(wb, &b);
2157 ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
2158 ok(b == VARIANT_TRUE, "b=%x\n", b);
2159
2160 hres = IWebBrowser2_put_Offline(wb, VARIANT_FALSE);
2161 ok(hres == S_OK, "set_Offline failed: %08x\n", hres);
2162
2163 b = 100;
2164 hres = IWebBrowser2_get_Offline(wb, &b);
2165 ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
2166 ok(b == VARIANT_FALSE, "b=%x\n", b);
2167
2168 if(is_clientsite) {
2169 hres = IWebBrowser2_put_Offline(wb, VARIANT_TRUE);
2170 ok(hres == S_OK, "set_Offline failed: %08x\n", hres);
2171
2172 SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2173 }
2174
2175 hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_OFFLINEIFNOTCONNECTED);
2176 ok(hres == S_OK, "OnAmbientPropertyChange failed %08x\n", hres);
2177
2178 if(is_clientsite)
2179 CHECK_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2180
2181 b = 100;
2182 hres = IWebBrowser2_get_Offline(wb, &b);
2183 ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
2184 ok(b == VARIANT_FALSE, "b=%x\n", b);
2185 }
2186
2187 static void test_ambient_unknown(IWebBrowser2 *wb, IOleControl *control, BOOL is_clientsite)
2188 {
2189 HRESULT hres;
2190
2191 SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2192 SET_EXPECT(Invoke_AMBIENT_SILENT);
2193 SET_EXPECT(Invoke_AMBIENT_USERMODE);
2194 SET_EXPECT(Invoke_AMBIENT_DLCONTROL);
2195 SET_EXPECT(Invoke_AMBIENT_USERAGENT);
2196 SET_EXPECT(Invoke_AMBIENT_PALETTE);
2197
2198 hres = IOleControl_OnAmbientPropertyChange(control, DISPID_UNKNOWN);
2199 ok(hres == S_OK, "OnAmbientPropertyChange failed %08x\n", hres);
2200
2201 CHECK_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2202 CHECK_EXPECT(Invoke_AMBIENT_SILENT);
2203 CHECK_EXPECT(Invoke_AMBIENT_USERMODE);
2204 CHECK_EXPECT(Invoke_AMBIENT_DLCONTROL);
2205 CHECK_EXPECT(Invoke_AMBIENT_USERAGENT);
2206 CHECK_EXPECT(Invoke_AMBIENT_PALETTE);
2207
2208 CLEAR_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
2209 CLEAR_CALLED(Invoke_AMBIENT_SILENT);
2210 CLEAR_CALLED(Invoke_AMBIENT_USERMODE);
2211 CLEAR_CALLED(Invoke_AMBIENT_DLCONTROL);
2212 CLEAR_CALLED(Invoke_AMBIENT_USERAGENT);
2213 CLEAR_CALLED(Invoke_AMBIENT_PALETTE);
2214 }
2215
2216 static void test_wb_funcs(IUnknown *unk, BOOL is_clientsite)
2217 {
2218 IWebBrowser2 *wb;
2219 IOleControl *control;
2220 HRESULT hres;
2221
2222 hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
2223 ok(hres == S_OK, "Could not get IWebBrowser2 interface: %08x\n", hres);
2224
2225 hres = IUnknown_QueryInterface(unk, &IID_IOleControl, (void**)&control);
2226 ok(hres == S_OK, "Could not get IOleControl interface: %08x\n", hres);
2227
2228 test_Silent(wb, control, is_clientsite);
2229 test_Offline(wb, control, is_clientsite);
2230 test_ambient_unknown(wb, control, is_clientsite);
2231
2232 IWebBrowser_Release(wb);
2233 IOleControl_Release(control);
2234 }
2235
2236 static void test_GetControlInfo(IUnknown *unk)
2237 {
2238 IOleControl *control;
2239 CONTROLINFO info;
2240 HRESULT hres;
2241
2242 hres = IUnknown_QueryInterface(unk, &IID_IOleControl, (void**)&control);
2243 ok(hres == S_OK, "Could not get IOleControl: %08x\n", hres);
2244 if(FAILED(hres))
2245 return;
2246
2247 hres = IOleControl_GetControlInfo(control, &info);
2248 ok(hres == E_NOTIMPL, "GetControlInfo failed: %08x, exxpected E_NOTIMPL\n", hres);
2249 hres = IOleControl_GetControlInfo(control, NULL);
2250 ok(hres == E_NOTIMPL, "GetControlInfo failed: %08x, exxpected E_NOTIMPL\n", hres);
2251
2252 IOleControl_Release(control);
2253 }
2254
2255 static void test_Extent(IUnknown *unk)
2256 {
2257 IOleObject *oleobj;
2258 SIZE size, expected;
2259 HRESULT hres;
2260 DWORD dpi_x;
2261 DWORD dpi_y;
2262 HDC hdc;
2263
2264 /* default aspect ratio is 96dpi / 96dpi */
2265 hdc = GetDC(0);
2266 dpi_x = GetDeviceCaps(hdc, LOGPIXELSX);
2267 dpi_y = GetDeviceCaps(hdc, LOGPIXELSY);
2268 ReleaseDC(0, hdc);
2269 if (dpi_x != 96 || dpi_y != 96)
2270 trace("dpi: %d / %d\n", dpi_y, dpi_y);
2271
2272 hres = IUnknown_QueryInterface(unk, &IID_IOleObject, (void**)&oleobj);
2273 ok(hres == S_OK, "Could not get IOleObkect: %08x\n", hres);
2274 if(FAILED(hres))
2275 return;
2276
2277 size.cx = size.cy = 0xdeadbeef;
2278 hres = IOleObject_GetExtent(oleobj, DVASPECT_CONTENT, &size);
2279 ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2280 /* Default size is 50x20 pixels, in himetric units */
2281 expected.cx = MulDiv( 50, 2540, dpi_x );
2282 expected.cy = MulDiv( 20, 2540, dpi_y );
2283 ok(size.cx == expected.cx && size.cy == expected.cy, "size = {%d %d} (expected %d %d)\n",
2284 size.cx, size.cy, expected.cx, expected.cy );
2285
2286 size.cx = 800;
2287 size.cy = 700;
2288 hres = IOleObject_SetExtent(oleobj, DVASPECT_CONTENT, &size);
2289 ok(hres == S_OK, "SetExtent failed: %08x\n", hres);
2290
2291 size.cx = size.cy = 0xdeadbeef;
2292 hres = IOleObject_GetExtent(oleobj, DVASPECT_CONTENT, &size);
2293 ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2294 ok(size.cx == 800 && size.cy == 700, "size = {%d %d}\n", size.cx, size.cy);
2295
2296 size.cx = size.cy = 0xdeadbeef;
2297 hres = IOleObject_GetExtent(oleobj, 0, &size);
2298 ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2299 ok(size.cx == 800 && size.cy == 700, "size = {%d %d}\n", size.cx, size.cy);
2300
2301 size.cx = 900;
2302 size.cy = 800;
2303 hres = IOleObject_SetExtent(oleobj, 0, &size);
2304 ok(hres == S_OK, "SetExtent failed: %08x\n", hres);
2305
2306 size.cx = size.cy = 0xdeadbeef;
2307 hres = IOleObject_GetExtent(oleobj, 0, &size);
2308 ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2309 ok(size.cx == 900 && size.cy == 800, "size = {%d %d}\n", size.cx, size.cy);
2310
2311 size.cx = size.cy = 0xdeadbeef;
2312 hres = IOleObject_GetExtent(oleobj, 0xdeadbeef, &size);
2313 ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2314 ok(size.cx == 900 && size.cy == 800, "size = {%d %d}\n", size.cx, size.cy);
2315
2316 size.cx = 1000;
2317 size.cy = 900;
2318 hres = IOleObject_SetExtent(oleobj, 0xdeadbeef, &size);
2319 ok(hres == S_OK, "SetExtent failed: %08x\n", hres);
2320
2321 size.cx = size.cy = 0xdeadbeef;
2322 hres = IOleObject_GetExtent(oleobj, 0xdeadbeef, &size);
2323 ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2324 ok(size.cx == 1000 && size.cy == 900, "size = {%d %d}\n", size.cx, size.cy);
2325
2326 size.cx = size.cy = 0xdeadbeef;
2327 hres = IOleObject_GetExtent(oleobj, DVASPECT_CONTENT, &size);
2328 ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2329 ok(size.cx == 1000 && size.cy == 900, "size = {%d %d}\n", size.cx, size.cy);
2330
2331 IOleObject_Release(oleobj);
2332 }
2333
2334 static void test_ConnectionPoint(IUnknown *unk, BOOL init)
2335 {
2336 IConnectionPointContainer *container;
2337 IConnectionPoint *point;
2338 HRESULT hres;
2339
2340 static DWORD dw = 100;
2341
2342 hres = IUnknown_QueryInterface(unk, &IID_IConnectionPointContainer, (void**)&container);
2343 ok(hres == S_OK, "QueryInterface(IID_IConnectionPointContainer) failed: %08x\n", hres);
2344 if(FAILED(hres))
2345 return;
2346
2347 hres = IConnectionPointContainer_FindConnectionPoint(container, &DIID_DWebBrowserEvents2, &point);
2348 IConnectionPointContainer_Release(container);
2349 ok(hres == S_OK, "FindConnectionPoint failed: %08x\n", hres);
2350 if(FAILED(hres))
2351 return;
2352
2353 if(init) {
2354 hres = IConnectionPoint_Advise(point, (IUnknown*)&WebBrowserEvents2, &dw);
2355 ok(hres == S_OK, "Advise failed: %08x\n", hres);
2356 ok(dw == 1, "dw=%d, expected 1\n", dw);
2357 }else {
2358 hres = IConnectionPoint_Unadvise(point, dw);
2359 ok(hres == S_OK, "Unadvise failed: %08x\n", hres);
2360 }
2361
2362 IConnectionPoint_Release(point);
2363 }
2364
2365 static void test_Navigate2(IUnknown *unk)
2366 {
2367 IWebBrowser2 *webbrowser;
2368 VARIANT url;
2369 HRESULT hres;
2370
2371 hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&webbrowser);
2372 ok(hres == S_OK, "QueryInterface(IID_IWebBrowser) failed: %08x\n", hres);
2373 if(FAILED(hres))
2374 return;
2375
2376 test_LocationURL(unk, is_first_load ? "" : current_url);
2377 test_ready_state(is_first_load ? READYSTATE_UNINITIALIZED : READYSTATE_COMPLETE);
2378
2379 V_VT(&url) = VT_BSTR;
2380 V_BSTR(&url) = a2bstr("about:blank");
2381 current_url = "about:blank";
2382
2383 if(is_first_load) {
2384 SET_EXPECT(Invoke_AMBIENT_USERMODE);
2385 SET_EXPECT(Invoke_PROPERTYCHANGE);
2386 SET_EXPECT(Invoke_BEFORENAVIGATE2);
2387 SET_EXPECT(Invoke_DOWNLOADBEGIN);
2388 if (use_container_olecmd) SET_EXPECT(Exec_SETDOWNLOADSTATE_1);
2389 SET_EXPECT(EnableModeless_FALSE);
2390 SET_EXPECT(Invoke_STATUSTEXTCHANGE);
2391 SET_EXPECT(SetStatusText);
2392 SET_EXPECT(GetHostInfo);
2393 SET_EXPECT(Invoke_AMBIENT_DLCONTROL);
2394 SET_EXPECT(Invoke_AMBIENT_USERAGENT);
2395 SET_EXPECT(Invoke_AMBIENT_PALETTE);
2396 SET_EXPECT(GetOptionKeyPath);
2397 SET_EXPECT(GetOverridesKeyPath);
2398 if (use_container_olecmd) SET_EXPECT(QueryStatus_SETPROGRESSTEXT);
2399 if (use_container_olecmd) SET_EXPECT(Exec_SETPROGRESSMAX);
2400 if (use_container_olecmd) SET_EXPECT(Exec_SETPROGRESSPOS);
2401 SET_EXPECT(Invoke_SETSECURELOCKICON);
2402 SET_EXPECT(Invoke_FILEDOWNLOAD);
2403 if (use_container_olecmd) SET_EXPECT(Exec_SETDOWNLOADSTATE_0);
2404 SET_EXPECT(Invoke_COMMANDSTATECHANGE);
2405 SET_EXPECT(EnableModeless_TRUE);
2406 if (!use_container_olecmd) SET_EXPECT(Invoke_DOWNLOADCOMPLETE);
2407 }
2408
2409 hres = IWebBrowser2_Navigate2(webbrowser, &url, NULL, NULL, NULL, NULL);
2410 ok(hres == S_OK, "Navigate2 failed: %08x\n", hres);
2411
2412 if(is_first_load) {
2413 CHECK_CALLED(Invoke_AMBIENT_USERMODE);
2414 todo_wine CHECK_CALLED(Invoke_PROPERTYCHANGE);
2415 CHECK_CALLED(Invoke_BEFORENAVIGATE2);
2416 todo_wine CHECK_CALLED(Invoke_DOWNLOADBEGIN);
2417 if (use_container_olecmd) todo_wine CHECK_CALLED(Exec_SETDOWNLOADSTATE_1);
2418 CHECK_CALLED(EnableModeless_FALSE);
2419 CHECK_CALLED(Invoke_STATUSTEXTCHANGE);
2420 CHECK_CALLED(SetStatusText);
2421 CHECK_CALLED(GetHostInfo);
2422 CHECK_CALLED(Invoke_AMBIENT_DLCONTROL);
2423 CHECK_CALLED(Invoke_AMBIENT_USERAGENT);
2424 CHECK_CALLED(Invoke_AMBIENT_PALETTE);
2425 CHECK_CALLED(GetOptionKeyPath);
2426 CHECK_CALLED(GetOverridesKeyPath);
2427 if (use_container_olecmd) todo_wine CHECK_CALLED(QueryStatus_SETPROGRESSTEXT);
2428 if (use_container_olecmd) todo_wine CHECK_CALLED(Exec_SETPROGRESSMAX);
2429 if (use_container_olecmd) todo_wine CHECK_CALLED(Exec_SETPROGRESSPOS);
2430 todo_wine CHECK_CALLED(Invoke_SETSECURELOCKICON);
2431 todo_wine CHECK_CALLED(Invoke_FILEDOWNLOAD);
2432 todo_wine CHECK_CALLED(Invoke_COMMANDSTATECHANGE);
2433 if (use_container_olecmd) todo_wine CHECK_CALLED(Exec_SETDOWNLOADSTATE_0);
2434 CHECK_CALLED(EnableModeless_TRUE);
2435 }
2436
2437 VariantClear(&url);
2438 IWebBrowser2_Release(webbrowser);
2439
2440 test_ready_state(READYSTATE_LOADING);
2441 }
2442
2443 static void test_QueryStatusWB(IWebBrowser2 *webbrowser, BOOL use_custom_target, BOOL has_document)
2444 {
2445 HRESULT hres, success_state;
2446 OLECMDF success_flags;
2447 enum OLECMDF status;
2448
2449 /*
2450 * We can tell the difference between the custom container target and the built-in target
2451 * since the custom target returns OLECMDF_SUPPORTED instead of OLECMDF_ENABLED.
2452 */
2453 if (use_custom_target)
2454 success_flags = OLECMDF_SUPPORTED;
2455 else
2456 success_flags = OLECMDF_ENABLED;
2457
2458 /* When no target is available (no document or custom target) an error is returned */
2459 if (has_document)
2460 success_state = S_OK;
2461 else
2462 success_state = E_UNEXPECTED;
2463
2464 /*
2465 * Test a safe operation that exists as both a high-numbered MSHTML id and an OLECMDID.
2466 * These tests show that QueryStatusWB uses a NULL pguidCmdGroup, since OLECMDID_STOP
2467 * is enabled and IDM_STOP is not.
2468 */
2469 status = 0xdeadbeef;
2470 if (use_custom_target) SET_EXPECT(QueryStatus_STOP);
2471 hres = IWebBrowser2_QueryStatusWB(webbrowser, OLECMDID_STOP, &status);
2472 ok(hres == success_state, "QueryStatusWB failed: %08x %08x\n", hres, success_state);
2473 if (!use_custom_target && has_document)
2474 todo_wine ok((has_document && status == success_flags) || (!has_document && status == 0xdeadbeef),
2475 "OLECMDID_STOP not enabled/supported: %08x %08x\n", status, success_flags);
2476 else
2477 ok((has_document && status == success_flags) || (!has_document && status == 0xdeadbeef),
2478 "OLECMDID_STOP not enabled/supported: %08x %08x\n", status, success_flags);
2479 status = 0xdeadbeef;
2480 if (use_custom_target) SET_EXPECT(QueryStatus_IDM_STOP);
2481 hres = IWebBrowser2_QueryStatusWB(webbrowser, IDM_STOP, &status);
2482 ok(hres == success_state, "QueryStatusWB failed: %08x %08x\n", hres, success_state);
2483 ok((has_document && status == 0) || (!has_document && status == 0xdeadbeef),
2484 "IDM_STOP is enabled/supported: %08x %d\n", status, has_document);
2485 }
2486
2487 static void test_ExecWB(IWebBrowser2 *webbrowser, BOOL use_custom_target, BOOL has_document)
2488 {
2489 HRESULT hres, olecmdid_state, idm_state;
2490
2491 /* When no target is available (no document or custom target) an error is returned */
2492 if (has_document)
2493 {
2494 olecmdid_state = S_OK;
2495 idm_state = OLECMDERR_E_NOTSUPPORTED;
2496 }
2497 else
2498 {
2499 olecmdid_state = E_UNEXPECTED;
2500 idm_state = E_UNEXPECTED;
2501 }
2502
2503 /*
2504 * Test a safe operation that exists as both a high-numbered MSHTML id and an OLECMDID.
2505 * These tests show that QueryStatusWB uses a NULL pguidCmdGroup, since OLECMDID_STOP
2506 * succeeds (S_OK) and IDM_STOP does not (OLECMDERR_E_NOTSUPPORTED).
2507 */
2508 if (use_custom_target)
2509 SET_EXPECT(Exec_STOP);
2510 hres = IWebBrowser2_ExecWB(webbrowser, OLECMDID_STOP, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0);
2511 if (!use_custom_target && has_document)
2512 todo_wine ok(hres == olecmdid_state, "ExecWB failed: %08x %08x\n", hres, olecmdid_state);
2513 else
2514 ok(hres == olecmdid_state, "ExecWB failed: %08x %08x\n", hres, olecmdid_state);
2515 if (use_custom_target)
2516 SET_EXPECT(Exec_IDM_STOP);
2517 hres = IWebBrowser2_ExecWB(webbrowser, IDM_STOP, OLECMDEXECOPT_DONTPROMPTUSER, 0, 0);
2518 ok(hres == idm_state, "ExecWB failed: %08x %08x\n", hres, idm_state);
2519 }
2520
2521 static void test_download(DWORD flags)
2522 {
2523 MSG msg;
2524
2525 is_downloading = TRUE;
2526 dwl_flags = flags;
2527
2528 test_ready_state((flags & DWL_FROM_PUT_HREF) ? READYSTATE_COMPLETE : READYSTATE_LOADING);
2529
2530 if(flags & DWL_EXPECT_BEFORE_NAVIGATE) {
2531 SET_EXPECT(Invoke_PROPERTYCHANGE);
2532 SET_EXPECT(Invoke_BEFORENAVIGATE2);
2533 SET_EXPECT(TranslateUrl);
2534 }
2535 SET_EXPECT(Exec_SETPROGRESSMAX);
2536 SET_EXPECT(Exec_SETPROGRESSPOS);
2537 SET_EXPECT(Exec_SETDOWNLOADSTATE_1);
2538 SET_EXPECT(DocHost_EnableModeless_FALSE);
2539 SET_EXPECT(DocHost_EnableModeless_TRUE);
2540 SET_EXPECT(Invoke_SETSECURELOCKICON);
2541 SET_EXPECT(Invoke_282);
2542 SET_EXPECT(EnableModeless_FALSE);
2543 SET_EXPECT(Invoke_COMMANDSTATECHANGE);
2544 SET_EXPECT(Invoke_STATUSTEXTCHANGE);
2545 SET_EXPECT(SetStatusText);
2546 SET_EXPECT(EnableModeless_TRUE);
2547 if(!is_first_load)
2548 SET_EXPECT(GetHostInfo);
2549 SET_EXPECT(Exec_SETDOWNLOADSTATE_0);
2550 SET_EXPECT(Invoke_TITLECHANGE);
2551 SET_EXPECT(Invoke_NAVIGATECOMPLETE2);
2552 if(is_first_load)
2553 SET_EXPECT(GetDropTarget);
2554 SET_EXPECT(Invoke_PROGRESSCHANGE);
2555 SET_EXPECT(Invoke_DOCUMENTCOMPLETE);
2556
2557 SET_EXPECT(UpdateUI);
2558 SET_EXPECT(Exec_UPDATECOMMANDS);
2559 SET_EXPECT(QueryStatus_STOP);
2560
2561 while(!called_Invoke_DOCUMENTCOMPLETE && GetMessage(&msg, NULL, 0, 0)) {
2562 TranslateMessage(&msg);
2563 DispatchMessage(&msg);
2564 }
2565
2566 if(flags & DWL_EXPECT_BEFORE_NAVIGATE) {
2567 todo_wine CHECK_CALLED(Invoke_PROPERTYCHANGE);
2568 CHECK_CALLED(Invoke_BEFORENAVIGATE2);
2569 CHECK_CALLED(TranslateUrl);
2570 }
2571 todo_wine CHECK_CALLED(Exec_SETPROGRESSMAX);
2572 todo_wine CHECK_CALLED(Exec_SETPROGRESSPOS);
2573 todo_wine CHECK_CALLED(Exec_SETDOWNLOADSTATE_1);
2574 CLEAR_CALLED(DocHost_EnableModeless_FALSE); /* IE 7 */
2575 CLEAR_CALLED(DocHost_EnableModeless_TRUE); /* IE 7 */
2576 todo_wine CHECK_CALLED(Invoke_SETSECURELOCKICON);
2577 CLEAR_CALLED(Invoke_282); /* IE 7 */
2578 if(is_first_load)
2579 todo_wine CHECK_CALLED(EnableModeless_FALSE);
2580 else
2581 CLEAR_CALLED(EnableModeless_FALSE); /* IE 8 */
2582 CLEAR_CALLED(Invoke_COMMANDSTATECHANGE);
2583 todo_wine CHECK_CALLED(Invoke_STATUSTEXTCHANGE);
2584 todo_wine CHECK_CALLED(SetStatusText);
2585 if(is_first_load)
2586 todo_wine CHECK_CALLED(EnableModeless_TRUE);
2587 else
2588 CLEAR_CALLED(EnableModeless_FALSE); /* IE 8 */
2589 if(!is_first_load)
2590 todo_wine CHECK_CALLED(GetHostInfo);
2591 todo_wine CHECK_CALLED(Exec_SETDOWNLOADSTATE_0);
2592 todo_wine CHECK_CALLED(Invoke_TITLECHANGE);
2593 CHECK_CALLED(Invoke_NAVIGATECOMPLETE2);
2594 if(is_first_load)
2595 todo_wine CHECK_CALLED(GetDropTarget);
2596 todo_wine CHECK_CALLED(Invoke_PROGRESSCHANGE);
2597 CHECK_CALLED(Invoke_DOCUMENTCOMPLETE);
2598
2599 is_downloading = FALSE;
2600
2601 test_ready_state(READYSTATE_COMPLETE);
2602
2603 while(!called_Exec_UPDATECOMMANDS && GetMessage(&msg, NULL, 0, 0)) {
2604 TranslateMessage(&msg);
2605 DispatchMessage(&msg);
2606 }
2607
2608 CHECK_CALLED(UpdateUI);
2609 CHECK_CALLED(Exec_UPDATECOMMANDS);
2610 CLEAR_CALLED(QueryStatus_STOP);
2611 }
2612
2613 static void test_olecmd(IUnknown *unk, BOOL loaded)
2614 {
2615 IOleCommandTarget *cmdtrg;
2616 OLECMD cmds[3];
2617 HRESULT hres;
2618
2619 hres = IUnknown_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
2620 ok(hres == S_OK, "Could not get IOleCommandTarget iface: %08x\n", hres);
2621 if(FAILED(hres))
2622 return;
2623
2624 cmds[0].cmdID = OLECMDID_SPELL;
2625 cmds[0].cmdf = 0xdeadbeef;
2626 cmds[1].cmdID = OLECMDID_REFRESH;
2627 cmds[1].cmdf = 0xdeadbeef;
2628 hres = IOleCommandTarget_QueryStatus(cmdtrg, NULL, 2, cmds, NULL);
2629 if(loaded) {
2630 ok(hres == S_OK, "QueryStatus failed: %08x\n", hres);
2631 ok(cmds[0].cmdf == OLECMDF_SUPPORTED, "OLECMDID_SPELL cmdf = %x\n", cmds[0].cmdf);
2632 ok(cmds[1].cmdf == (OLECMDF_ENABLED|OLECMDF_SUPPORTED),
2633 "OLECMDID_REFRESH cmdf = %x\n", cmds[1].cmdf);
2634 }else {
2635 ok(hres == 0x80040104, "QueryStatus failed: %08x\n", hres);
2636 ok(cmds[0].cmdf == 0xdeadbeef, "OLECMDID_SPELL cmdf = %x\n", cmds[0].cmdf);
2637 ok(cmds[1].cmdf == 0xdeadbeef, "OLECMDID_REFRESH cmdf = %x\n", cmds[0].cmdf);
2638 }
2639
2640 IOleCommandTarget_Release(cmdtrg);
2641 }
2642
2643 static void test_IServiceProvider(IUnknown *unk)
2644 {
2645 IServiceProvider *servprov = (void*)0xdeadbeef;
2646 HRESULT hres;
2647 IUnknown *ret = NULL;
2648
2649 hres = IUnknown_QueryInterface(unk, &IID_IServiceProvider, (void**)&servprov);
2650 ok(hres == S_OK, "QueryInterface returned %08x, expected S_OK\n", hres);
2651 if(FAILED(hres))
2652 return;
2653
2654 hres = IServiceProvider_QueryService(servprov, &SID_STopLevelBrowser, &IID_IBrowserService2, (LPVOID*)&ret);
2655 ok(hres == E_FAIL, "QueryService returned %08x, expected E_FAIL\n", hres);
2656 ok(ret == NULL, "ret returned %p, expected NULL\n", ret);
2657 if(hres == S_OK)
2658 {
2659 IUnknown_Release(ret);
2660 }
2661
2662 IServiceProvider_Release(servprov);
2663 }
2664
2665 static void test_put_href(IUnknown *unk)
2666 {
2667 IHTMLLocation *location;
2668 IHTMLDocument2 *doc;
2669 IDispatch *doc_disp;
2670 BSTR str;
2671 HRESULT hres;
2672
2673 doc_disp = get_document(unk);
2674
2675 hres = IDispatch_QueryInterface(doc_disp, &IID_IHTMLDocument2, (void**)&doc);
2676 IDispatch_Release(doc_disp);
2677 ok(hres == S_OK, "QueryInterface(IID_IHTMLDocument2 failed: %08x\n", hres);
2678
2679 location = NULL;
2680 hres = IHTMLDocument2_get_location(doc, &location);
2681 IHTMLDocument2_Release(doc);
2682 ok(hres == S_OK, "get_location failed: %08x\n", hres);
2683 ok(location != NULL, "location == NULL\n");
2684
2685 SET_EXPECT(TranslateUrl);
2686 SET_EXPECT(Invoke_BEFORENAVIGATE2);
2687 SET_EXPECT(Invoke_PROPERTYCHANGE);
2688
2689 dwl_flags = DWL_FROM_PUT_HREF;
2690
2691 str = a2bstr("about:test");
2692 current_url = "about:test";
2693 is_first_load = FALSE;
2694 hres = IHTMLLocation_put_href(location, str);
2695
2696 CHECK_CALLED(TranslateUrl);
2697 CHECK_CALLED(Invoke_BEFORENAVIGATE2);
2698 todo_wine CHECK_CALLED(Invoke_PROPERTYCHANGE);
2699
2700 IHTMLLocation_Release(location);
2701 SysFreeString(str);
2702 ok(hres == S_OK, "put_href failed: %08x\n", hres);
2703
2704 test_ready_state(READYSTATE_COMPLETE);
2705 }
2706
2707 static void test_QueryInterface(IUnknown *unk)
2708 {
2709 IQuickActivate *qa = (IQuickActivate*)0xdeadbeef;
2710 IRunnableObject *runnable = (IRunnableObject*)0xdeadbeef;
2711 IPerPropertyBrowsing *propbrowse = (void*)0xdeadbeef;
2712 IOleInPlaceSite *inplace = (void*)0xdeadbeef;
2713 IOleCache *cache = (void*)0xdeadbeef;
2714 IObjectWithSite *site = (void*)0xdeadbeef;
2715 IViewObjectEx *viewex = (void*)0xdeadbeef;
2716 IOleLink *link = (void*)0xdeadbeef;
2717 IMarshal *marshal = (void*)0xdeadbeef;
2718 IStdMarshalInfo *marshalinfo = (void*)0xdeadbeef;
2719 HRESULT hres;
2720
2721 hres = IUnknown_QueryInterface(unk, &IID_IQuickActivate, (void**)&qa);
2722 ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2723 ok(qa == NULL, "qa=%p, expected NULL\n", qa);
2724
2725 hres = IUnknown_QueryInterface(unk, &IID_IRunnableObject, (void**)&runnable);
2726 ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2727 ok(runnable == NULL, "runnable=%p, expected NULL\n", runnable);
2728
2729 hres = IUnknown_QueryInterface(unk, &IID_IPerPropertyBrowsing, (void**)&propbrowse);
2730 ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2731 ok(propbrowse == NULL, "propbrowse=%p, expected NULL\n", propbrowse);
2732
2733 hres = IUnknown_QueryInterface(unk, &IID_IOleCache, (void**)&cache);
2734 ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2735 ok(cache == NULL, "cache=%p, expected NULL\n", cache);
2736
2737 hres = IUnknown_QueryInterface(unk, &IID_IOleInPlaceSite, (void**)&inplace);
2738 ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2739 ok(inplace == NULL, "inplace=%p, expected NULL\n", inplace);
2740
2741 hres = IUnknown_QueryInterface(unk, &IID_IObjectWithSite, (void**)&site);
2742 ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2743 ok(site == NULL, "site=%p, expected NULL\n", site);
2744
2745 hres = IUnknown_QueryInterface(unk, &IID_IViewObjectEx, (void**)&viewex);
2746 ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2747 ok(viewex == NULL, "viewex=%p, expected NULL\n", viewex);
2748
2749 hres = IUnknown_QueryInterface(unk, &IID_IOleLink, (void**)&link);
2750 ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2751 ok(link == NULL, "link=%p, expected NULL\n", link);
2752
2753 hres = IUnknown_QueryInterface(unk, &IID_IMarshal, (void**)&marshal);
2754 ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2755 ok(marshal == NULL, "marshal=%p, expected NULL\n", marshal);
2756
2757 hres = IUnknown_QueryInterface(unk, &IID_IStdMarshalInfo, (void**)&marshalinfo);
2758 ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2759 ok(marshalinfo == NULL, "marshalinfo=%p, expected NULL\n", marshalinfo);
2760
2761 }
2762
2763 static void test_UIActivate(IUnknown *unk, BOOL activate)
2764 {
2765 IOleDocumentView *docview;
2766 IDispatch *disp;
2767 HRESULT hres;
2768
2769 disp = get_document(unk);
2770
2771 hres = IDispatch_QueryInterface(disp, &IID_IOleDocumentView, (void**)&docview);
2772 ok(hres == S_OK, "Got 0x%08x\n", hres);
2773 if(SUCCEEDED(hres)) {
2774 if(activate) {
2775 SET_EXPECT(RequestUIActivate);
2776 SET_EXPECT(ShowUI);
2777 SET_EXPECT(HideUI);
2778 SET_EXPECT(OnFocus);
2779 }
2780
2781 hres = IOleDocumentView_UIActivate(docview, activate);
2782 if(activate)
2783 todo_wine ok(hres == S_OK, "Got 0x%08x\n", hres);
2784 else
2785 ok(hres == S_OK, "Got 0x%08x\n", hres);
2786
2787 if(activate) {
2788 todo_wine {
2789 CHECK_CALLED(RequestUIActivate);
2790 CHECK_CALLED(ShowUI);
2791 CHECK_CALLED(HideUI);
2792 CHECK_CALLED(OnFocus);
2793 }
2794 }
2795
2796 IOleDocumentView_Release(docview);
2797 }
2798
2799 IDispatch_Release(disp);
2800 }
2801
2802 static void test_TranslateAccelerator(IUnknown *unk)
2803 {
2804 IOleClientSite *doc_clientsite;
2805 IOleInPlaceActiveObject *pao;
2806 HRESULT hres;
2807 DWORD keycode;
2808 MSG msg_a = {
2809 container_hwnd,
2810 0, 0, 0,
2811 GetTickCount(),
2812 {5, 5}
2813 };
2814
2815 test_Navigate2(unk);
2816
2817 hres = IUnknown_QueryInterface(unk, &IID_IOleInPlaceActiveObject, (void**)&pao);
2818 ok(hres == S_OK, "Got 0x%08x\n", hres);
2819 if(SUCCEEDED(hres)) {
2820 /* One accelerator that should be handled by mshtml */
2821 msg_a.message = WM_KEYDOWN;
2822 msg_a.wParam = VK_F1;
2823 hres = IOleInPlaceActiveObject_TranslateAccelerator(pao, &msg_a);
2824 ok(hres == S_FALSE, "Got 0x%08x (%04x::%02lx)\n", hres, msg_a.message, msg_a.wParam);
2825
2826 /* And one that should not */
2827 msg_a.message = WM_KEYDOWN;
2828 msg_a.wParam = VK_F5;
2829 hres = IOleInPlaceActiveObject_TranslateAccelerator(pao, &msg_a);
2830 ok(hres == S_FALSE, "Got 0x%08x (%04x::%02lx)\n", hres, msg_a.message, msg_a.wParam);
2831
2832 IOleInPlaceActiveObject_Release(pao);
2833 }
2834
2835 test_UIActivate(unk, TRUE);
2836
2837 /* Test again after UIActivate */
2838 hres = IUnknown_QueryInterface(unk, &IID_IOleInPlaceActiveObject, (void**)&pao);
2839 ok(hres == S_OK, "Got 0x%08x\n", hres);
2840 if(SUCCEEDED(hres)) {
2841 /* One accelerator that should be handled by mshtml */
2842 msg_a.message = WM_KEYDOWN;
2843 msg_a.wParam = VK_F1;
2844 SET_EXPECT(DocHost_TranslateAccelerator);
2845 SET_EXPECT(ControlSite_TranslateAccelerator);
2846 hres = IOleInPlaceActiveObject_TranslateAccelerator(pao, &msg_a);
2847 ok(hres == S_FALSE, "Got 0x%08x (%04x::%02lx)\n", hres, msg_a.message, msg_a.wParam);
2848 todo_wine CHECK_CALLED(DocHost_TranslateAccelerator);
2849 todo_wine CHECK_CALLED(ControlSite_TranslateAccelerator);
2850
2851 /* And one that should not */
2852 msg_a.message = WM_KEYDOWN;
2853 msg_a.wParam = VK_F5;
2854 SET_EXPECT(DocHost_TranslateAccelerator);
2855 hres = IOleInPlaceActiveObject_TranslateAccelerator(pao, &msg_a);
2856 todo_wine ok(hres == S_OK, "Got 0x%08x (%04x::%02lx)\n", hres, msg_a.message, msg_a.wParam);
2857 todo_wine CHECK_CALLED(DocHost_TranslateAccelerator);
2858
2859 IOleInPlaceActiveObject_Release(pao);
2860 }
2861
2862 doc_clientsite = get_dochost(unk);
2863 if(doc_clientsite) {
2864 IDocHostUIHandler2 *dochost;
2865 IOleControlSite *doc_controlsite;
2866 IUnknown *unk_test;
2867
2868 hres = IOleClientSite_QueryInterface(doc_clientsite, &IID_IOleInPlaceFrame, (void**)&unk_test);
2869 ok(hres == E_NOINTERFACE, "Got 0x%08x\n", hres);
2870 if(SUCCEEDED(hres)) IUnknown_Release(unk_test);
2871
2872 hres = IOleClientSite_QueryInterface(doc_clientsite, &IID_IDocHostShowUI, (void**)&unk_test);
2873 todo_wine ok(hres == S_OK, "Got 0x%08x\n", hres);
2874 if(SUCCEEDED(hres)) IUnknown_Release(unk_test);
2875
2876 hres = IOleClientSite_QueryInterface(doc_clientsite, &IID_IDocHostUIHandler, (void**)&unk_test);
2877 ok(hres == S_OK, "Got 0x%08x\n", hres);
2878 if(SUCCEEDED(hres)) IUnknown_Release(unk_test);
2879
2880 hres = IOleClientSite_QueryInterface(doc_clientsite, &IID_IDocHostUIHandler2, (void**)&dochost);
2881 ok(hres == S_OK, "Got 0x%08x\n", hres);
2882 if(SUCCEEDED(hres)) {
2883 msg_a.message = WM_KEYDOWN;
2884 hr_dochost_TranslateAccelerator = 0xdeadbeef;
2885 for(keycode = 0; keycode <= 0x100; keycode++) {
2886 msg_a.wParam = keycode;
2887 SET_EXPECT(DocHost_TranslateAccelerator);
2888 hres = IDocHostUIHandler_TranslateAccelerator(dochost, &msg_a, &CGID_MSHTML, 1234);
2889 ok(hres == 0xdeadbeef, "Got 0x%08x\n", hres);
2890 CHECK_CALLED(DocHost_TranslateAccelerator);
2891 }
2892 hr_dochost_TranslateAccelerator = E_NOTIMPL;
2893
2894 SET_EXPECT(DocHost_TranslateAccelerator);
2895 hres = IDocHostUIHandler_TranslateAccelerator(dochost, &msg_a, &CGID_MSHTML, 1234);
2896 ok(hres == E_NOTIMPL, "Got 0x%08x\n", hres);
2897 CHECK_CALLED(DocHost_TranslateAccelerator);
2898
2899 IDocHostUIHandler2_Release(dochost);
2900 }
2901
2902 hres = IOleClientSite_QueryInterface(doc_clientsite, &IID_IOleControlSite, (void**)&doc_controlsite);
2903 ok(hres == S_OK, "Got 0x%08x\n", hres);
2904 if(SUCCEEDED(hres)) {
2905 msg_a.message = WM_KEYDOWN;
2906 hr_site_TranslateAccelerator = 0xdeadbeef;
2907 for(keycode = 0; keycode < 0x100; keycode++) {
2908 msg_a.wParam = keycode;
2909 SET_EXPECT(ControlSite_TranslateAccelerator);
2910 hres = IOleControlSite_TranslateAccelerator(doc_controlsite, &msg_a, 0);
2911 if(keycode == 0x9 || keycode == 0x75)
2912 todo_wine ok(hres == S_OK, "Got 0x%08x (keycode: %04x)\n", hres, keycode);
2913 else
2914 ok(hres == S_FALSE, "Got 0x%08x (keycode: %04x)\n", hres, keycode);
2915
2916 CHECK_CALLED(ControlSite_TranslateAccelerator);
2917 }
2918 msg_a.wParam = VK_LEFT;
2919 SET_EXPECT(ControlSite_TranslateAccelerator);
2920 hres = IOleControlSite_TranslateAccelerator(doc_controlsite, &msg_a, 0);
2921 ok(hres == S_FALSE, "Got 0x%08x (keycode: %04x)\n", hres, keycode);
2922 CHECK_CALLED(ControlSite_TranslateAccelerator);
2923
2924 hr_site_TranslateAccelerator = S_OK;
2925 SET_EXPECT(ControlSite_TranslateAccelerator);
2926 hres = IOleControlSite_TranslateAccelerator(doc_controlsite, &msg_a, 0);
2927 ok(hres == S_OK, "Got 0x%08x (keycode: %04x)\n", hres, keycode);
2928 CHECK_CALLED(ControlSite_TranslateAccelerator);
2929
2930 hr_site_TranslateAccelerator = E_NOTIMPL;
2931 SET_EXPECT(ControlSite_TranslateAccelerator);
2932 hres = IOleControlSite_TranslateAccelerator(doc_controlsite, &msg_a, 0);
2933 ok(hres == S_FALSE, "Got 0x%08x (keycode: %04x)\n", hres, keycode);
2934 CHECK_CALLED(ControlSite_TranslateAccelerator);
2935
2936 IOleControlSite_Release(doc_controlsite);
2937 }
2938
2939 IOleClientSite_Release(doc_clientsite);
2940 }
2941
2942 test_UIActivate(unk, FALSE);
2943 }
2944
2945 static void test_dochost_qs(IUnknown *unk)
2946 {
2947 IOleClientSite *client_site;
2948 IServiceProvider *serv_prov;
2949 IUnknown *service;
2950 HRESULT hres;
2951
2952 client_site = get_dochost(unk);
2953 hres = IOleClientSite_QueryInterface(client_site, &IID_IServiceProvider, (void**)&serv_prov);
2954 IOleClientSite_Release(client_site);
2955 ok(hres == S_OK, "Could not get IServiceProvider iface: %08x\n", hres);
2956
2957 hres = IServiceProvider_QueryService(serv_prov, &IID_IHlinkFrame, &IID_IHlinkFrame, (void**)&service);
2958 ok(hres == S_OK, "QueryService failed: %08x\n", hres);
2959 ok(iface_cmp(service, unk), "service != unk\n");
2960 IUnknown_Release(service);
2961
2962 hres = IServiceProvider_QueryService(serv_prov, &IID_IWebBrowserApp, &IID_IHlinkFrame, (void**)&service);
2963 ok(hres == S_OK, "QueryService failed: %08x\n", hres);
2964 ok(iface_cmp(service, unk), "service != unk\n");
2965 IUnknown_Release(service);
2966
2967 hres = IServiceProvider_QueryService(serv_prov, &IID_IShellBrowser, &IID_IShellBrowser, (void**)&service);
2968 ok(hres == S_OK, "QueryService failed: %08x\n", hres);
2969 IUnknown_Release(service);
2970
2971 hres = IServiceProvider_QueryService(serv_prov, &IID_IShellBrowser, &IID_IBrowserService, (void**)&service);
2972 ok(hres == S_OK, "QueryService failed: %08x\n", hres);
2973 IUnknown_Release(service);
2974
2975 hres = IServiceProvider_QueryService(serv_prov, &IID_IShellBrowser, &IID_IDocObjectService, (void**)&service);
2976 ok(hres == S_OK, "QueryService failed: %08x\n", hres);
2977 IUnknown_Release(service);
2978
2979 IServiceProvider_Release(serv_prov);
2980 }
2981
2982 static void test_WebBrowser(BOOL do_download)
2983 {
2984 IUnknown *unk = NULL;
2985 ULONG ref;
2986 HRESULT hres;
2987
2988 if (FAILED(create_WebBrowser(&unk)))
2989 return;
2990
2991 is_downloading = FALSE;
2992 is_first_load = TRUE;
2993 use_container_olecmd = TRUE;
2994
2995 hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
2996 ok(hres == S_OK, "Could not get IWebBrowser2 iface: %08x\n", hres);
2997
2998 test_QueryStatusWB(wb, FALSE, FALSE);
2999 test_ExecWB(wb, FALSE, FALSE);
3000 test_QueryInterface(unk);
3001 test_ready_state(READYSTATE_UNINITIALIZED);
3002 test_ClassInfo(unk);
3003 test_LocationURL(unk, "");
3004 test_ConnectionPoint(unk, TRUE);
3005 test_ClientSite(unk, &ClientSite, !do_download);
3006 test_Extent(unk);
3007 test_wb_funcs(unk, TRUE);
3008 test_DoVerb(unk);
3009 test_olecmd(unk, FALSE);
3010 test_Navigate2(unk);
3011 test_QueryStatusWB(wb, TRUE, TRUE);
3012 test_ExecWB(wb, TRUE, TRUE);
3013
3014 if(do_download) {
3015 IDispatch *doc, *doc2;
3016
3017 test_download(0);
3018 test_olecmd(unk, TRUE);
3019 doc = get_document(unk);
3020
3021 test_put_href(unk);
3022 test_download(DWL_FROM_PUT_HREF);
3023 doc2 = get_document(unk);
3024 ok(doc == doc2, "doc != doc2\n");
3025 IDispatch_Release(doc2);
3026
3027 test_Navigate2(unk);
3028 test_download(DWL_EXPECT_BEFORE_NAVIGATE);
3029 test_TranslateAccelerator(unk);
3030 doc2 = get_document(unk);
3031 ok(doc == doc2, "doc != doc2\n");
3032 IDispatch_Release(doc2);
3033 IDispatch_Release(doc2);
3034
3035 test_dochost_qs(unk);
3036 }
3037
3038 test_ClientSite(unk, NULL, !do_download);
3039 test_ie_funcs(unk);
3040 test_GetControlInfo(unk);
3041 test_wb_funcs(unk, FALSE);
3042 test_ConnectionPoint(unk, FALSE);
3043 test_IServiceProvider(unk);
3044
3045 IWebBrowser2_Release(wb);
3046 ref = IUnknown_Release(unk);
3047 ok(ref == 0, "ref=%d, expected 0\n", ref);
3048 }
3049
3050 static void test_WebBrowser_NoContainerOlecmd(void)
3051 {
3052 IUnknown *unk = NULL;
3053 HRESULT hres;
3054 ULONG ref;
3055
3056 is_downloading = FALSE;
3057 is_first_load = TRUE;
3058 use_container_olecmd = FALSE;
3059
3060 /* Setup stage */
3061 if (FAILED(create_WebBrowser(&unk)))
3062 return;
3063 hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
3064 ok(hres == S_OK, "QueryInterface(IID_IWebBrowser) failed: %08x\n", hres);
3065 if(FAILED(hres))
3066 return;
3067 test_ConnectionPoint(unk, TRUE);
3068 test_ClientSite(unk, &ClientSite, TRUE);
3069 test_DoVerb(unk);
3070 test_Navigate2(unk);
3071
3072 /* Tests of interest */
3073 test_QueryStatusWB(wb, FALSE, TRUE);
3074 test_ExecWB(wb, FALSE, TRUE);
3075
3076 /* Cleanup stage */
3077 IWebBrowser2_Release(wb);
3078 test_ClientSite(unk, NULL, TRUE);
3079 test_ConnectionPoint(unk, FALSE);
3080 ref = IUnknown_Release(unk);
3081 ok(ref == 0, "ref=%d, expected 0\n", ref);
3082 }
3083
3084 static BOOL check_ie(void)
3085 {
3086 IHTMLDocument5 *doc;
3087 HRESULT hres;
3088
3089 hres = CoCreateInstance(&CLSID_HTMLDocument, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
3090 &IID_IHTMLDocument5, (void**)&doc);
3091 if(FAILED(hres))
3092 return FALSE;
3093
3094 IHTMLDocument5_Release(doc);
3095 return TRUE;
3096 }
3097
3098 START_TEST(webbrowser)
3099 {
3100 OleInitialize(NULL);
3101
3102 if(check_ie()) {
3103 container_hwnd = create_container_window();
3104
3105 trace("Testing WebBrowser (no download)...\n");
3106 test_WebBrowser(FALSE);
3107 trace("Testing WebBrowser...\n");
3108 test_WebBrowser(TRUE);
3109 trace("Testing WebBrowser w/o container-based olecmd...\n");
3110 test_WebBrowser_NoContainerOlecmd();
3111 }else {
3112 win_skip("Skipping tests on too old IE\n");
3113 }
3114
3115 OleUninitialize();
3116 }
Quick hack tree for wine patches julliard doesn't want to commit