?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
push a6cedc1a067cfdfb1ba44a8f4b98ea78ae3fe78f
[wine/hacks.git] / dlls / shdocvw / tests / webbrowser.c
blob131b29ca8bc654cd4d65893f8cc27ebdc57f54e8
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 "shlguid.h"
40 #include "exdispid.h"
41 #include "mimeinfo.h"
42
43 DEFINE_GUID(GUID_NULL,0,0,0,0,0,0,0,0,0,0,0);
44
45 #define DEFINE_EXPECT(func) \
46 static BOOL expect_ ## func = FALSE, called_ ## func = FALSE
47
48 #define SET_EXPECT(func) \
49 expect_ ## func = TRUE
50
51 #define CHECK_EXPECT2(func) \
52 do { \
53 ok(expect_ ##func, "unexpected call " #func "\n"); \
54 called_ ## func = TRUE; \
55 }while(0)
56
57 #define CHECK_EXPECT(func) \
58 do { \
59 CHECK_EXPECT2(func); \
60 expect_ ## func = FALSE; \
61 }while(0)
62
63 #define CHECK_CALLED(func) \
64 do { \
65 ok(called_ ## func, "expected " #func "\n"); \
66 expect_ ## func = called_ ## func = FALSE; \
67 }while(0)
68
69 #define CHECK_CALLED_BROKEN(func) \
70 do { \
71 ok(called_ ## func || broken(!called_ ## func), "expected " #func "\n"); \
72 expect_ ## func = called_ ## func = FALSE; \
73 }while(0)
74
75 #define CLEAR_CALLED(func) \
76 expect_ ## func = called_ ## func = FALSE
77
78 DEFINE_EXPECT(GetContainer);
79 DEFINE_EXPECT(Site_GetWindow);
80 DEFINE_EXPECT(ShowObject);
81 DEFINE_EXPECT(CanInPlaceActivate);
82 DEFINE_EXPECT(OnInPlaceActivate);
83 DEFINE_EXPECT(OnUIActivate);
84 DEFINE_EXPECT(GetWindowContext);
85 DEFINE_EXPECT(Frame_GetWindow);
86 DEFINE_EXPECT(Frame_SetActiveObject);
87 DEFINE_EXPECT(UIWindow_SetActiveObject);
88 DEFINE_EXPECT(SetMenu);
89 DEFINE_EXPECT(Invoke_AMBIENT_USERMODE);
90 DEFINE_EXPECT(Invoke_AMBIENT_DLCONTROL);
91 DEFINE_EXPECT(Invoke_AMBIENT_USERAGENT);
92 DEFINE_EXPECT(Invoke_AMBIENT_PALETTE);
93 DEFINE_EXPECT(Invoke_AMBIENT_SILENT);
94 DEFINE_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
95 DEFINE_EXPECT(Invoke_STATUSTEXTCHANGE);
96 DEFINE_EXPECT(Invoke_PROPERTYCHANGE);
97 DEFINE_EXPECT(Invoke_DOWNLOADBEGIN);
98 DEFINE_EXPECT(Invoke_BEFORENAVIGATE2);
99 DEFINE_EXPECT(Invoke_SETSECURELOCKICON);
100 DEFINE_EXPECT(Invoke_FILEDOWNLOAD);
101 DEFINE_EXPECT(Invoke_COMMANDSTATECHANGE);
102 DEFINE_EXPECT(Invoke_DOWNLOADCOMPLETE);
103 DEFINE_EXPECT(Invoke_ONMENUBAR);
104 DEFINE_EXPECT(Invoke_ONADDRESSBAR);
105 DEFINE_EXPECT(Invoke_ONSTATUSBAR);
106 DEFINE_EXPECT(Invoke_ONTOOLBAR);
107 DEFINE_EXPECT(Invoke_ONFULLSCREEN);
108 DEFINE_EXPECT(Invoke_ONTHEATERMODE);
109 DEFINE_EXPECT(Invoke_WINDOWSETRESIZABLE);
110 DEFINE_EXPECT(Invoke_TITLECHANGE);
111 DEFINE_EXPECT(Invoke_NAVIGATECOMPLETE2);
112 DEFINE_EXPECT(Invoke_PROGRESSCHANGE);
113 DEFINE_EXPECT(Invoke_DOCUMENTCOMPLETE);
114 DEFINE_EXPECT(Invoke_282);
115 DEFINE_EXPECT(EnableModeless_TRUE);
116 DEFINE_EXPECT(EnableModeless_FALSE);
117 DEFINE_EXPECT(GetHostInfo);
118 DEFINE_EXPECT(GetOptionKeyPath);
119 DEFINE_EXPECT(GetOverridesKeyPath);
120 DEFINE_EXPECT(SetStatusText);
121 DEFINE_EXPECT(UpdateUI);
122 DEFINE_EXPECT(Exec_SETDOWNLOADSTATE_0);
123 DEFINE_EXPECT(Exec_SETDOWNLOADSTATE_1);
124 DEFINE_EXPECT(Exec_SETPROGRESSMAX);
125 DEFINE_EXPECT(Exec_SETPROGRESSPOS);
126 DEFINE_EXPECT(QueryStatus_SETPROGRESSTEXT);
127 DEFINE_EXPECT(QueryStatus_STOP);
128 DEFINE_EXPECT(DocHost_EnableModeless_TRUE);
129 DEFINE_EXPECT(DocHost_EnableModeless_FALSE);
130 DEFINE_EXPECT(GetDropTarget);
131
132 static const WCHAR wszItem[] = {'i','t','e','m',0};
133 static const WCHAR about_blankW[] = {'a','b','o','u','t',':','b','l','a','n','k',0};
134 static const WCHAR emptyW[] = {0};
135
136 static VARIANT_BOOL exvb;
137 static IWebBrowser2 *wb;
138
139 static HWND container_hwnd, shell_embedding_hwnd;
140 static BOOL is_downloading = FALSE;
141
142 static const char *debugstr_w(LPCWSTR str)
143 {
144 static char buf[1024];
145 if(!str)
146 return "(null)";
147 WideCharToMultiByte(CP_ACP, 0, str, -1, buf, sizeof(buf), NULL, NULL);
148 return buf;
149 }
150
151 static const char *debugstr_guid(REFIID riid)
152 {
153 static char buf[50];
154
155 sprintf(buf, "{%08X-%04X-%04X-%02X%02X-%02X%02X%02X%02X%02X%02X}",
156 riid->Data1, riid->Data2, riid->Data3, riid->Data4[0],
157 riid->Data4[1], riid->Data4[2], riid->Data4[3], riid->Data4[4],
158 riid->Data4[5], riid->Data4[6], riid->Data4[7]);
159
160 return buf;
161 }
162
163 #define test_LocationURL(a,b) _test_LocationURL(__LINE__,a,b)
164 static void _test_LocationURL(unsigned line, IUnknown *unk, LPCWSTR exurl)
165 {
166 IWebBrowser2 *wb;
167 BSTR url = (void*)0xdeadbeef;
168 HRESULT hres;
169
170 hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
171 ok(hres == S_OK, "Could not get IWebBrowser2 interface: %08x\n", hres);
172 if(FAILED(hres))
173 return;
174
175 hres = IWebBrowser2_get_LocationURL(wb, &url);
176 ok_(__FILE__,line) (hres == (*exurl ? S_OK : S_FALSE), "get_LocationURL failed: %08x\n", hres);
177 ok_(__FILE__,line) (!lstrcmpW(url, exurl), "unexpected URL: %s\n", debugstr_w(url));
178
179 SysFreeString(url);
180 IWebBrowser2_Release(wb);
181 }
182
183 static HRESULT QueryInterface(REFIID,void**);
184
185 static HRESULT WINAPI OleCommandTarget_QueryInterface(IOleCommandTarget *iface,
186 REFIID riid, void **ppv)
187 {
188 ok(0, "unexpected call\n");
189 return E_NOINTERFACE;
190 }
191
192 static ULONG WINAPI OleCommandTarget_AddRef(IOleCommandTarget *iface)
193 {
194 return 2;
195 }
196
197 static ULONG WINAPI OleCommandTarget_Release(IOleCommandTarget *iface)
198 {
199 return 1;
200 }
201
202 static HRESULT WINAPI OleCommandTarget_QueryStatus(IOleCommandTarget *iface, const GUID *pguidCmdGroup,
203 ULONG cCmds, OLECMD prgCmds[], OLECMDTEXT *pCmdText)
204 {
205 ok(!pguidCmdGroup, "pguidCmdGroup != MULL\n");
206 ok(cCmds == 1, "cCmds=%d, expected 1\n", cCmds);
207 ok(!pCmdText, "pCmdText != NULL\n");
208
209 switch(prgCmds[0].cmdID) {
210 case OLECMDID_STOP:
211 CHECK_EXPECT2(QueryStatus_STOP);
212 prgCmds[0].cmdf = OLECMDF_SUPPORTED;
213 return S_OK;
214 case OLECMDID_SETPROGRESSTEXT:
215 CHECK_EXPECT(QueryStatus_SETPROGRESSTEXT);
216 prgCmds[0].cmdf = OLECMDF_ENABLED;
217 return S_OK;
218 default:
219 ok(0, "unexpected command %d\n", prgCmds[0].cmdID);
220 }
221
222 return E_FAIL;
223 }
224
225 static HRESULT WINAPI OleCommandTarget_Exec(IOleCommandTarget *iface, const GUID *pguidCmdGroup,
226 DWORD nCmdID, DWORD nCmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
227 {
228 if(!pguidCmdGroup) {
229 switch(nCmdID) {
230 case OLECMDID_SETPROGRESSMAX:
231 CHECK_EXPECT2(Exec_SETPROGRESSMAX);
232 ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER, "nCmdexecopts=%08x\n", nCmdexecopt);
233 ok(pvaIn != NULL, "pvaIn == NULL\n");
234 if(pvaIn)
235 ok(V_VT(pvaIn) == VT_I4, "V_VT(pvaIn)=%d, expected VT_I4\n", V_VT(pvaIn));
236 ok(pvaOut == NULL, "pvaOut=%p, expected NULL\n", pvaOut);
237 return S_OK;
238 case OLECMDID_SETPROGRESSPOS:
239 CHECK_EXPECT2(Exec_SETPROGRESSPOS);
240 ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER, "nCmdexecopts=%08x\n", nCmdexecopt);
241 ok(pvaIn != NULL, "pvaIn == NULL\n");
242 if(pvaIn)
243 ok(V_VT(pvaIn) == VT_I4, "V_VT(pvaIn)=%d, expected VT_I4\n", V_VT(pvaIn));
244 ok(pvaOut == NULL, "pvaOut=%p, expected NULL\n", pvaOut);
245 return S_OK;
246 case OLECMDID_SETDOWNLOADSTATE:
247 if(is_downloading)
248 ok(nCmdexecopt == OLECMDEXECOPT_DONTPROMPTUSER || !nCmdexecopt,
249 "nCmdexecopts=%08x\n", nCmdexecopt);
250 else
251 ok(!nCmdexecopt, "nCmdexecopts=%08x\n", nCmdexecopt);
252 ok(pvaOut == NULL, "pvaOut=%p\n", pvaOut);
253 ok(pvaIn != NULL, "pvaIn == NULL\n");
254 ok(V_VT(pvaIn) == VT_I4, "V_VT(pvaIn)=%d\n", V_VT(pvaIn));
255 switch(V_I4(pvaIn)) {
256 case 0:
257 CHECK_EXPECT2(Exec_SETDOWNLOADSTATE_0);
258 break;
259 case 1:
260 CHECK_EXPECT2(Exec_SETDOWNLOADSTATE_1);
261 break;
262 default:
263 ok(0, "unexpevted V_I4(pvaIn)=%d\n", V_I4(pvaIn));
264 }
265 return S_OK;
266 default:
267 ok(0, "unexpected nsCmdID %d\n", nCmdID);
268 }
269 }else if(IsEqualGUID(&CGID_Explorer, pguidCmdGroup)) {
270 switch(nCmdID) {
271 case 24: /* TODO */
272 case 25: /* IE5 */
273 case 37: /* TODO */
274 case 39: /* TODO */
275 case 66: /* TODO */
276 case 67: /* TODO */
277 case 69: /* TODO */
278 case 101: /* TODO (IE8) */
279 return E_FAIL;
280 default:
281 ok(0, "unexpected nCmdID %d\n", nCmdID);
282 }
283 }else if(IsEqualGUID(&CGID_ShellDocView, pguidCmdGroup)) {
284 switch(nCmdID) {
285 case 105: /* TODO */
286 return E_FAIL;
287 default:
288 ok(0, "unexpected nCmdID %d\n", nCmdID);
289 }
290 }else {
291 ok(0, "unexpected pguidCmdGroup %s\n", debugstr_guid(pguidCmdGroup));
292 }
293
294 return E_FAIL;
295 }
296
297 static IOleCommandTargetVtbl OleCommandTargetVtbl = {
298 OleCommandTarget_QueryInterface,
299 OleCommandTarget_AddRef,
300 OleCommandTarget_Release,
301 OleCommandTarget_QueryStatus,
302 OleCommandTarget_Exec
303 };
304
305 static IOleCommandTarget OleCommandTarget = { &OleCommandTargetVtbl };
306
307 static HRESULT WINAPI OleContainer_QueryInterface(IOleContainer *iface, REFIID riid, void **ppv)
308 {
309 if(IsEqualGUID(&IID_ITargetContainer, riid))
310 return E_NOINTERFACE; /* TODO */
311
312 if(IsEqualGUID(&IID_IOleCommandTarget, riid)) {
313 *ppv = &OleCommandTarget;
314 return S_OK;
315 }
316
317 ok(0, "unexpected call\n");
318 return E_NOINTERFACE;
319 }
320
321 static ULONG WINAPI OleContainer_AddRef(IOleContainer *iface)
322 {
323 return 2;
324 }
325
326 static ULONG WINAPI OleContainer_Release(IOleContainer *iface)
327 {
328 return 1;
329 }
330
331 static HRESULT WINAPI OleContainer_ParseDisplayName(IOleContainer *iface, IBindCtx *pbc,
332 LPOLESTR pszDiaplayName, ULONG *pchEaten, IMoniker **ppmkOut)
333 {
334 ok(0, "unexpected call\n");
335 return E_NOTIMPL;
336 }
337
338 static HRESULT WINAPI OleContainer_EnumObjects(IOleContainer *iface, DWORD grfFlags,
339 IEnumUnknown **ppenum)
340 {
341 ok(0, "unexpected call\n");
342 return E_NOTIMPL;
343 }
344
345 static HRESULT WINAPI OleContainer_LockContainer(IOleContainer *iface, BOOL fLock)
346 {
347 ok(0, "unexpected call\n");
348 return E_NOTIMPL;
349 }
350
351 static const IOleContainerVtbl OleContainerVtbl = {
352 OleContainer_QueryInterface,
353 OleContainer_AddRef,
354 OleContainer_Release,
355 OleContainer_ParseDisplayName,
356 OleContainer_EnumObjects,
357 OleContainer_LockContainer
358 };
359
360 static IOleContainer OleContainer = { &OleContainerVtbl };
361
362 static HRESULT WINAPI Dispatch_QueryInterface(IDispatch *iface, REFIID riid, void **ppv)
363 {
364 return QueryInterface(riid, ppv);
365 }
366
367 static ULONG WINAPI Dispatch_AddRef(IDispatch *iface)
368 {
369 return 2;
370 }
371
372 static ULONG WINAPI Dispatch_Release(IDispatch *iface)
373 {
374 return 1;
375 }
376
377 static HRESULT WINAPI Dispatch_GetTypeInfoCount(IDispatch *iface, UINT *pctinfo)
378 {
379 ok(0, "unexpected call\n");
380 return E_NOTIMPL;
381 }
382
383 static HRESULT WINAPI Dispatch_GetTypeInfo(IDispatch *iface, UINT iTInfo, LCID lcid,
384 ITypeInfo **ppTInfo)
385 {
386 ok(0, "unexpected call\n");
387 return E_NOTIMPL;
388 }
389
390 static HRESULT WINAPI Dispatch_GetIDsOfNames(IDispatch *iface, REFIID riid, LPOLESTR *rgszNames,
391 UINT cNames, LCID lcid, DISPID *rgDispId)
392 {
393 ok(0, "unexpected call\n");
394 return E_NOTIMPL;
395 }
396
397 static HRESULT WINAPI Dispatch_Invoke(IDispatch *iface, DISPID dispIdMember, REFIID riid,
398 LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult,
399 EXCEPINFO *pExcepInfo, UINT *puArgErr)
400 {
401 ok(IsEqualGUID(&IID_NULL, riid), "riid != IID_NULL\n");
402 ok(pDispParams != NULL, "pDispParams == NULL\n");
403 ok(pExcepInfo == NULL, "pExcepInfo=%p, expected NULL\n", pExcepInfo);
404 ok(V_VT(pVarResult) == VT_EMPTY, "V_VT(pVarResult)=%d\n", V_VT(pVarResult));
405 ok(wFlags == DISPATCH_PROPERTYGET, "wFlags=%08x, expected DISPATCH_PROPERTYGET\n", wFlags);
406 ok(pDispParams->rgvarg == NULL, "pDispParams->rgvarg = %p\n", pDispParams->rgvarg);
407 ok(pDispParams->rgdispidNamedArgs == NULL,
408 "pDispParams->rgdispidNamedArgs = %p\n", pDispParams->rgdispidNamedArgs);
409 ok(pDispParams->cArgs == 0, "pDispParams->cArgs = %d\n", pDispParams->cArgs);
410 ok(pDispParams->cNamedArgs == 0, "pDispParams->cNamedArgs = %d\n", pDispParams->cNamedArgs);
411
412 switch(dispIdMember) {
413 case DISPID_AMBIENT_USERMODE:
414 CHECK_EXPECT2(Invoke_AMBIENT_USERMODE);
415 return E_FAIL;
416 case DISPID_AMBIENT_DLCONTROL:
417 CHECK_EXPECT(Invoke_AMBIENT_DLCONTROL);
418 ok(puArgErr != NULL, "puArgErr=%p\n", puArgErr);
419 return E_FAIL;
420 case DISPID_AMBIENT_USERAGENT:
421 CHECK_EXPECT(Invoke_AMBIENT_USERAGENT);
422 ok(puArgErr != NULL, "puArgErr=%p\n", puArgErr);
423 return E_FAIL;
424 case DISPID_AMBIENT_PALETTE:
425 CHECK_EXPECT(Invoke_AMBIENT_PALETTE);
426 ok(puArgErr != NULL, "puArgErr=%p\n", puArgErr);
427 return E_FAIL;
428 case DISPID_AMBIENT_OFFLINEIFNOTCONNECTED:
429 CHECK_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
430 ok(puArgErr == NULL, "puArgErr=%p\n", puArgErr);
431 V_VT(pVarResult) = VT_BOOL;
432 V_BOOL(pVarResult) = VARIANT_FALSE;
433 return S_OK;
434 case DISPID_AMBIENT_SILENT:
435 CHECK_EXPECT(Invoke_AMBIENT_SILENT);
436 ok(puArgErr == NULL, "puArgErr=%p\n", puArgErr);
437 V_VT(pVarResult) = VT_BOOL;
438 V_BOOL(pVarResult) = VARIANT_FALSE;
439 return S_OK;
440 }
441
442 ok(0, "unexpected dispIdMember %d\n", dispIdMember);
443 return E_NOTIMPL;
444 }
445
446 static IDispatchVtbl DispatchVtbl = {
447 Dispatch_QueryInterface,
448 Dispatch_AddRef,
449 Dispatch_Release,
450 Dispatch_GetTypeInfoCount,
451 Dispatch_GetTypeInfo,
452 Dispatch_GetIDsOfNames,
453 Dispatch_Invoke
454 };
455
456 static IDispatch Dispatch = { &DispatchVtbl };
457
458 static HRESULT WINAPI WebBrowserEvents2_QueryInterface(IDispatch *iface, REFIID riid, void **ppv)
459 {
460 *ppv = NULL;
461
462 if(IsEqualGUID(&DIID_DWebBrowserEvents2, riid)) {
463 *ppv = iface;
464 return S_OK;
465 }
466
467 ok(0, "unexpected riid %s\n", debugstr_guid(riid));
468 return E_NOINTERFACE;
469 }
470
471 #define test_invoke_bool(p,s) _test_invoke_bool(__LINE__,p,s)
472 static void _test_invoke_bool(unsigned line, const DISPPARAMS *params, BOOL strict)
473 {
474 ok_(__FILE__,line) (params->rgvarg != NULL, "rgvarg == NULL\n");
475 ok_(__FILE__,line) (params->cArgs == 1, "cArgs=%d, expected 1\n", params->cArgs);
476 ok_(__FILE__,line) (V_VT(params->rgvarg) == VT_BOOL, "V_VT(arg)=%d\n", V_VT(params->rgvarg));
477 if(strict)
478 ok_(__FILE__,line) (V_BOOL(params->rgvarg) == exvb, "V_VT(arg)=%x, expected %x\n",
479 V_BOOL(params->rgvarg), exvb);
480 else
481 ok_(__FILE__,line) (!V_BOOL(params->rgvarg) == !exvb, "V_VT(arg)=%x, expected %x\n",
482 V_BOOL(params->rgvarg), exvb);
483 }
484
485 static void test_OnBeforeNavigate(const VARIANT *disp, const VARIANT *url, const VARIANT *flags,
486 const VARIANT *frame, const VARIANT *post_data, const VARIANT *headers, const VARIANT *cancel)
487 {
488 ok(V_VT(disp) == VT_DISPATCH, "V_VT(disp)=%d, expected VT_DISPATCH\n", V_VT(disp));
489 ok(V_DISPATCH(disp) != NULL, "V_DISPATCH(disp) == NULL\n");
490 ok(V_DISPATCH(disp) == (IDispatch*)wb, "V_DISPATCH(disp)=%p, wb=%p\n", V_DISPATCH(disp), wb);
491
492 ok(V_VT(url) == (VT_BYREF|VT_VARIANT), "V_VT(url)=%x, expected VT_BYREF|VT_VARIANT\n", V_VT(url));
493 ok(V_VARIANTREF(url) != NULL, "V_VARIANTREF(url) == NULL)\n");
494 if(V_VARIANTREF(url)) {
495 ok(V_VT(V_VARIANTREF(url)) == VT_BSTR, "V_VT(V_VARIANTREF(url))=%d, expected VT_BSTR\n",
496 V_VT(V_VARIANTREF(url)));
497 ok(V_BSTR(V_VARIANTREF(url)) != NULL, "V_BSTR(V_VARIANTREF(url)) == NULL\n");
498 ok(!lstrcmpW(V_BSTR(V_VARIANTREF(url)), about_blankW), "unexpected url %s\n",
499 debugstr_w(V_BSTR(V_VARIANTREF(url))));
500 }
501
502 ok(V_VT(flags) == (VT_BYREF|VT_VARIANT), "V_VT(flags)=%x, expected VT_BYREF|VT_VARIANT\n",
503 V_VT(flags));
504 ok(V_VT(flags) == (VT_BYREF|VT_VARIANT), "V_VT(flags)=%x, expected VT_BYREF|VT_VARIANT\n",
505 V_VT(flags));
506 ok(V_VARIANTREF(flags) != NULL, "V_VARIANTREF(flags) == NULL)\n");
507 if(V_VARIANTREF(flags)) {
508 ok(V_VT(V_VARIANTREF(flags)) == VT_I4, "V_VT(V_VARIANTREF(flags))=%d, expected VT_I4\n",
509 V_VT(V_VARIANTREF(flags)));
510 ok(V_I4(V_VARIANTREF(flags)) == 0, "V_I4(V_VARIANTREF(flags)) = %d, expected 0\n",
511 V_I4(V_VARIANTREF(flags)));
512 }
513
514 ok(V_VT(frame) == (VT_BYREF|VT_VARIANT), "V_VT(frame)=%x, expected VT_BYREF|VT_VARIANT\n",
515 V_VT(frame));
516 ok(V_VT(frame) == (VT_BYREF|VT_VARIANT), "V_VT(frame)=%x, expected VT_BYREF|VT_VARIANT\n",
517 V_VT(frame));
518 ok(V_VARIANTREF(frame) != NULL, "V_VARIANTREF(frame) == NULL)\n");
519 if(V_VARIANTREF(frame)) {
520 ok(V_VT(V_VARIANTREF(frame)) == VT_BSTR, "V_VT(V_VARIANTREF(frame))=%d, expected VT_BSTR\n",
521 V_VT(V_VARIANTREF(frame)));
522 ok(V_BSTR(V_VARIANTREF(frame)) == NULL, "V_BSTR(V_VARIANTREF(frame)) = %p, expected NULL\n",
523 V_BSTR(V_VARIANTREF(frame)));
524 }
525
526 ok(V_VT(post_data) == (VT_BYREF|VT_VARIANT), "V_VT(post_data)=%x, expected VT_BYREF|VT_VARIANT\n",
527 V_VT(post_data));
528 ok(V_VT(post_data) == (VT_BYREF|VT_VARIANT), "V_VT(post_data)=%x, expected VT_BYREF|VT_VARIANT\n",
529 V_VT(post_data));
530 ok(V_VARIANTREF(post_data) != NULL, "V_VARIANTREF(post_data) == NULL)\n");
531 if(V_VARIANTREF(post_data)) {
532 ok(V_VT(V_VARIANTREF(post_data)) == (VT_VARIANT|VT_BYREF),
533 "V_VT(V_VARIANTREF(post_data))=%d, expected VT_VARIANT|VT_BYREF\n",
534 V_VT(V_VARIANTREF(post_data)));
535 ok(V_VARIANTREF(V_VARIANTREF(post_data)) != NULL,
536 "V_VARIANTREF(V_VARIANTREF(post_data)) == NULL\n");
537 if(V_VARIANTREF(V_VARIANTREF(post_data))) {
538 ok(V_VT(V_VARIANTREF(V_VARIANTREF(post_data))) == VT_EMPTY,
539 "V_VT(V_VARIANTREF(V_VARIANTREF(post_data))) = %d, expected VT_EMPTY\n",
540 V_VT(V_VARIANTREF(V_VARIANTREF(post_data))));
541
542 if(V_VT(V_VARIANTREF(V_VARIANTREF(post_data))) == (VT_UI1|VT_ARRAY)) {
543 const SAFEARRAY *sa = V_ARRAY(V_VARIANTREF(V_VARIANTREF(post_data)));
544
545 ok(sa->cDims == 1, "sa->cDims = %d, expected 1\n", sa->cDims);
546 ok(sa->fFeatures == 0, "sa->fFeatures = %d, expected 0\n", sa->fFeatures);
547 }
548 }
549 }
550
551 ok(V_VT(headers) == (VT_BYREF|VT_VARIANT), "V_VT(headers)=%x, expected VT_BYREF|VT_VARIANT\n",
552 V_VT(headers));
553 ok(V_VARIANTREF(headers) != NULL, "V_VARIANTREF(headers) == NULL)\n");
554 if(V_VARIANTREF(headers)) {
555 ok(V_VT(V_VARIANTREF(headers)) == VT_BSTR, "V_VT(V_VARIANTREF(headers))=%d, expected VT_BSTR\n",
556 V_VT(V_VARIANTREF(headers)));
557 ok(V_BSTR(V_VARIANTREF(headers)) == NULL, "V_BSTR(V_VARIANTREF(heders)) = %p, expected NULL\n",
558 V_BSTR(V_VARIANTREF(headers)));
559 }
560
561 ok(V_VT(cancel) == (VT_BYREF|VT_BOOL), "V_VT(cancel)=%x, expected VT_BYREF|VT_BOOL\n",
562 V_VT(cancel));
563 ok(V_BOOLREF(cancel) != NULL, "V_BOOLREF(pDispParams->rgvarg[0] == NULL)\n");
564 if(V_BOOLREF(cancel))
565 ok(*V_BOOLREF(cancel) == VARIANT_FALSE, "*V_BOOLREF(calcel) = %x, expected VARIANT_FALSE\n",
566 *V_BOOLREF(cancel));
567 }
568
569 static HRESULT WINAPI WebBrowserEvents2_Invoke(IDispatch *iface, DISPID dispIdMember, REFIID riid,
570 LCID lcid, WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult,
571 EXCEPINFO *pExcepInfo, UINT *puArgErr)
572 {
573 ok(IsEqualGUID(&IID_NULL, riid), "riid != IID_NULL\n");
574 ok(pDispParams != NULL, "pDispParams == NULL\n");
575 ok(pExcepInfo == NULL, "pExcepInfo=%p, expected NULL\n", pExcepInfo);
576 ok(pVarResult == NULL, "pVarResult=%p\n", pVarResult);
577 ok(wFlags == DISPATCH_METHOD, "wFlags=%08x, expected DISPATCH_METHOD\n", wFlags);
578 ok(pDispParams->rgdispidNamedArgs == NULL,
579 "pDispParams->rgdispidNamedArgs = %p\n", pDispParams->rgdispidNamedArgs);
580 ok(pDispParams->cNamedArgs == 0, "pDispParams->cNamedArgs = %d\n", pDispParams->cNamedArgs);
581
582 switch(dispIdMember) {
583 case DISPID_STATUSTEXTCHANGE:
584 CHECK_EXPECT2(Invoke_STATUSTEXTCHANGE);
585
586 ok(pDispParams->rgvarg != NULL, "rgvarg == NULL\n");
587 ok(pDispParams->cArgs == 1, "cArgs=%d, expected 1\n", pDispParams->cArgs);
588 ok(V_VT(pDispParams->rgvarg) == VT_BSTR, "V_VT(pDispParams->rgvarg)=%d, expected VT_BSTR\n",
589 V_VT(pDispParams->rgvarg));
590 /* TODO: Check text */
591 break;
592
593 case DISPID_PROPERTYCHANGE:
594 CHECK_EXPECT2(Invoke_PROPERTYCHANGE);
595
596 ok(pDispParams->rgvarg != NULL, "rgvarg == NULL\n");
597 ok(pDispParams->cArgs == 1, "cArgs=%d, expected 1\n", pDispParams->cArgs);
598 /* TODO: Check args */
599 break;
600
601 case DISPID_DOWNLOADBEGIN:
602 CHECK_EXPECT(Invoke_DOWNLOADBEGIN);
603
604 ok(pDispParams->rgvarg == NULL, "rgvarg=%p, expected NULL\n", pDispParams->rgvarg);
605 ok(pDispParams->cArgs == 0, "cArgs=%d, expected 0\n", pDispParams->cArgs);
606 break;
607
608 case DISPID_BEFORENAVIGATE2:
609 CHECK_EXPECT(Invoke_BEFORENAVIGATE2);
610
611 ok(pDispParams->rgvarg != NULL, "rgvarg == NULL\n");
612 ok(pDispParams->cArgs == 7, "cArgs=%d, expected 7\n", pDispParams->cArgs);
613 test_OnBeforeNavigate(pDispParams->rgvarg+6, pDispParams->rgvarg+5, pDispParams->rgvarg+4,
614 pDispParams->rgvarg+3, pDispParams->rgvarg+2, pDispParams->rgvarg+1,
615 pDispParams->rgvarg);
616 break;
617
618 case DISPID_SETSECURELOCKICON:
619 CHECK_EXPECT2(Invoke_SETSECURELOCKICON);
620
621 ok(pDispParams->rgvarg != NULL, "rgvarg == NULL\n");
622 ok(pDispParams->cArgs == 1, "cArgs=%d, expected 1\n", pDispParams->cArgs);
623 /* TODO: Check args */
624 break;
625
626 case DISPID_FILEDOWNLOAD:
627 CHECK_EXPECT(Invoke_FILEDOWNLOAD);
628
629 ok(pDispParams->rgvarg != NULL, "rgvarg == NULL\n");
630 ok(pDispParams->cArgs == 2, "cArgs=%d, expected 2\n", pDispParams->cArgs);
631 /* TODO: Check args */
632 break;
633
634 case DISPID_COMMANDSTATECHANGE:
635 CHECK_EXPECT2(Invoke_COMMANDSTATECHANGE);
636
637 ok(pDispParams->rgvarg != NULL, "rgvarg == NULL\n");
638 ok(pDispParams->cArgs == 2, "cArgs=%d, expected 2\n", pDispParams->cArgs);
639 /* TODO: Check args */
640 break;
641
642 case DISPID_DOWNLOADCOMPLETE:
643 CHECK_EXPECT(Invoke_DOWNLOADCOMPLETE);
644
645 ok(pDispParams->rgvarg == NULL, "rgvarg=%p, expected NULL\n", pDispParams->rgvarg);
646 ok(pDispParams->cArgs == 0, "cArgs=%d, expected 0\n", pDispParams->cArgs);
647 break;
648
649 case DISPID_ONMENUBAR:
650 CHECK_EXPECT(Invoke_ONMENUBAR);
651 test_invoke_bool(pDispParams, TRUE);
652 break;
653
654 case DISPID_ONADDRESSBAR:
655 CHECK_EXPECT(Invoke_ONADDRESSBAR);
656 test_invoke_bool(pDispParams, TRUE);
657 break;
658
659 case DISPID_ONSTATUSBAR:
660 CHECK_EXPECT(Invoke_ONSTATUSBAR);
661 test_invoke_bool(pDispParams, TRUE);
662 break;
663
664 case DISPID_ONTOOLBAR:
665 CHECK_EXPECT(Invoke_ONTOOLBAR);
666 test_invoke_bool(pDispParams, FALSE);
667 break;
668
669 case DISPID_ONFULLSCREEN:
670 CHECK_EXPECT(Invoke_ONFULLSCREEN);
671 test_invoke_bool(pDispParams, TRUE);
672 break;
673
674 case DISPID_ONTHEATERMODE:
675 CHECK_EXPECT(Invoke_ONTHEATERMODE);
676 test_invoke_bool(pDispParams, TRUE);
677 break;
678
679 case DISPID_WINDOWSETRESIZABLE:
680 CHECK_EXPECT(Invoke_WINDOWSETRESIZABLE);
681 test_invoke_bool(pDispParams, TRUE);
682 break;
683
684 case DISPID_TITLECHANGE:
685 CHECK_EXPECT2(Invoke_TITLECHANGE);
686 /* FIXME */
687 break;
688
689 case DISPID_NAVIGATECOMPLETE2:
690 CHECK_EXPECT(Invoke_NAVIGATECOMPLETE2);
691 /* FIXME */
692 break;
693
694 case DISPID_PROGRESSCHANGE:
695 CHECK_EXPECT(Invoke_PROGRESSCHANGE);
696 /* FIXME */
697 break;
698
699 case DISPID_DOCUMENTCOMPLETE:
700 CHECK_EXPECT(Invoke_DOCUMENTCOMPLETE);
701 /* FIXME */
702 break;
703
704 case 282: /* FIXME */
705 CHECK_EXPECT2(Invoke_282);
706 break;
707
708 default:
709 ok(0, "unexpected dispIdMember %d\n", dispIdMember);
710 }
711
712 return S_OK;
713 }
714
715 static IDispatchVtbl WebBrowserEvents2Vtbl = {
716 WebBrowserEvents2_QueryInterface,
717 Dispatch_AddRef,
718 Dispatch_Release,
719 Dispatch_GetTypeInfoCount,
720 Dispatch_GetTypeInfo,
721 Dispatch_GetIDsOfNames,
722 WebBrowserEvents2_Invoke
723 };
724
725 static IDispatch WebBrowserEvents2 = { &WebBrowserEvents2Vtbl };
726
727 static HRESULT WINAPI ClientSite_QueryInterface(IOleClientSite *iface, REFIID riid, void **ppv)
728 {
729 return QueryInterface(riid, ppv);
730 }
731
732 static ULONG WINAPI ClientSite_AddRef(IOleClientSite *iface)
733 {
734 return 2;
735 }
736
737 static ULONG WINAPI ClientSite_Release(IOleClientSite *iface)
738 {
739 return 1;
740 }
741
742 static HRESULT WINAPI ClientSite_SaveObject(IOleClientSite *iface)
743 {
744 ok(0, "unexpected call\n");
745 return E_NOTIMPL;
746 }
747
748 static HRESULT WINAPI ClientSite_GetMoniker(IOleClientSite *iface, DWORD dwAssign, DWORD dwWhichMoniker,
749 IMoniker **ppmon)
750 {
751 ok(0, "unexpected call\n");
752 return E_NOTIMPL;
753 }
754
755 static HRESULT WINAPI ClientSite_GetContainer(IOleClientSite *iface, IOleContainer **ppContainer)
756 {
757 CHECK_EXPECT(GetContainer);
758
759 ok(ppContainer != NULL, "ppContainer == NULL\n");
760 if(ppContainer)
761 *ppContainer = &OleContainer;
762
763 return S_OK;
764 }
765
766 static HRESULT WINAPI ClientSite_ShowObject(IOleClientSite *iface)
767 {
768 CHECK_EXPECT(ShowObject);
769 return S_OK;
770 }
771
772 static HRESULT WINAPI ClientSite_OnShowWindow(IOleClientSite *iface, BOOL fShow)
773 {
774 ok(0, "unexpected call\n");
775 return E_NOTIMPL;
776 }
777
778 static HRESULT WINAPI ClientSite_RequestNewObjectLayout(IOleClientSite *iface)
779 {
780 ok(0, "unexpected call\n");
781 return E_NOTIMPL;
782 }
783
784 static const IOleClientSiteVtbl ClientSiteVtbl = {
785 ClientSite_QueryInterface,
786 ClientSite_AddRef,
787 ClientSite_Release,
788 ClientSite_SaveObject,
789 ClientSite_GetMoniker,
790 ClientSite_GetContainer,
791 ClientSite_ShowObject,
792 ClientSite_OnShowWindow,
793 ClientSite_RequestNewObjectLayout
794 };
795
796 static IOleClientSite ClientSite = { &ClientSiteVtbl };
797
798 static HRESULT WINAPI InPlaceUIWindow_QueryInterface(IOleInPlaceFrame *iface,
799 REFIID riid, void **ppv)
800 {
801 ok(0, "unexpected call\n");
802 return E_NOINTERFACE;
803 }
804
805 static ULONG WINAPI InPlaceUIWindow_AddRef(IOleInPlaceFrame *iface)
806 {
807 return 2;
808 }
809
810 static ULONG WINAPI InPlaceUIWindow_Release(IOleInPlaceFrame *iface)
811 {
812 return 1;
813 }
814
815 static HRESULT WINAPI InPlaceUIWindow_GetWindow(IOleInPlaceFrame *iface, HWND *phwnd)
816 {
817 ok(0, "unexpected call\n");
818 return E_NOTIMPL;
819 }
820
821 static HRESULT WINAPI InPlaceFrame_GetWindow(IOleInPlaceFrame *iface, HWND *phwnd)
822 {
823 CHECK_EXPECT(Frame_GetWindow);
824 ok(phwnd != NULL, "phwnd == NULL\n");
825 if(phwnd)
826 *phwnd = container_hwnd;
827 return S_OK;
828 }
829
830 static HRESULT WINAPI InPlaceUIWindow_ContextSensitiveHelp(IOleInPlaceFrame *iface, BOOL fEnterMode)
831 {
832 ok(0, "unexpected call\n");
833 return E_NOTIMPL;
834 }
835
836 static HRESULT WINAPI InPlaceUIWindow_GetBorder(IOleInPlaceFrame *iface, LPRECT lprectBorder)
837 {
838 ok(0, "unexpected call\n");
839 return E_NOTIMPL;
840 }
841
842 static HRESULT WINAPI InPlaceUIWindow_RequestBorderSpace(IOleInPlaceFrame *iface,
843 LPCBORDERWIDTHS pborderwidths)
844 {
845 ok(0, "unexpected call\n");
846 return E_NOTIMPL;
847 }
848
849 static HRESULT WINAPI InPlaceUIWindow_SetBorderSpace(IOleInPlaceFrame *iface,
850 LPCBORDERWIDTHS pborderwidths)
851 {
852 ok(0, "unexpected call\n");
853 return E_NOTIMPL;
854 }
855
856 static HRESULT WINAPI InPlaceUIWindow_SetActiveObject(IOleInPlaceFrame *iface,
857 IOleInPlaceActiveObject *pActiveObject, LPCOLESTR pszObjName)
858 {
859 CHECK_EXPECT(UIWindow_SetActiveObject);
860 ok(pActiveObject != NULL, "pActiveObject = NULL\n");
861 ok(!lstrcmpW(pszObjName, wszItem), "unexpected pszObjName\n");
862 return S_OK;
863 }
864
865 static HRESULT WINAPI InPlaceFrame_SetActiveObject(IOleInPlaceFrame *iface,
866 IOleInPlaceActiveObject *pActiveObject, LPCOLESTR pszObjName)
867 {
868 CHECK_EXPECT(Frame_SetActiveObject);
869 ok(pActiveObject != NULL, "pActiveObject = NULL\n");
870 ok(!lstrcmpW(pszObjName, wszItem), "unexpected pszObjName\n");
871 return S_OK;
872 }
873
874 static HRESULT WINAPI InPlaceFrame_InsertMenus(IOleInPlaceFrame *iface, HMENU hmenuShared,
875 LPOLEMENUGROUPWIDTHS lpMenuWidths)
876 {
877 ok(0, "unexpected call\n");
878 return E_NOTIMPL;
879 }
880
881 static HRESULT WINAPI InPlaceFrame_SetMenu(IOleInPlaceFrame *iface, HMENU hmenuShared,
882 HOLEMENU holemenu, HWND hwndActiveObject)
883 {
884 CHECK_EXPECT(SetMenu);
885 ok(hmenuShared == NULL, "hmenuShared=%p\n", hmenuShared);
886 ok(holemenu == NULL, "holemenu=%p\n", holemenu);
887 ok(hwndActiveObject == shell_embedding_hwnd, "hwndActiveObject=%p, expected %p\n",
888 hwndActiveObject, shell_embedding_hwnd);
889 return S_OK;
890 }
891
892 static HRESULT WINAPI InPlaceFrame_RemoveMenus(IOleInPlaceFrame *iface, HMENU hmenuShared)
893 {
894 ok(0, "unexpected call\n");
895 return E_NOTIMPL;
896 }
897
898 static HRESULT WINAPI InPlaceFrame_SetStatusText(IOleInPlaceFrame *iface, LPCOLESTR pszStatusText)
899 {
900 CHECK_EXPECT2(SetStatusText);
901 /* FIXME: Check pszStatusText */
902 return S_OK;
903 }
904
905 static HRESULT WINAPI InPlaceFrame_EnableModeless(IOleInPlaceFrame *iface, BOOL fEnable)
906 {
907 if(fEnable)
908 CHECK_EXPECT2(EnableModeless_TRUE);
909 else
910 CHECK_EXPECT2(EnableModeless_FALSE);
911 return S_OK;
912 }
913
914 static HRESULT WINAPI InPlaceFrame_TranslateAccelerator(IOleInPlaceFrame *iface, LPMSG lpmsg, WORD wID)
915 {
916 ok(0, "unexpected call\n");
917 return E_NOTIMPL;
918 }
919
920 static const IOleInPlaceFrameVtbl InPlaceUIWindowVtbl = {
921 InPlaceUIWindow_QueryInterface,
922 InPlaceUIWindow_AddRef,
923 InPlaceUIWindow_Release,
924 InPlaceUIWindow_GetWindow,
925 InPlaceUIWindow_ContextSensitiveHelp,
926 InPlaceUIWindow_GetBorder,
927 InPlaceUIWindow_RequestBorderSpace,
928 InPlaceUIWindow_SetBorderSpace,
929 InPlaceUIWindow_SetActiveObject,
930 };
931
932 static IOleInPlaceUIWindow InPlaceUIWindow = { (IOleInPlaceUIWindowVtbl*)&InPlaceUIWindowVtbl };
933
934 static const IOleInPlaceFrameVtbl InPlaceFrameVtbl = {
935 InPlaceUIWindow_QueryInterface,
936 InPlaceUIWindow_AddRef,
937 InPlaceUIWindow_Release,
938 InPlaceFrame_GetWindow,
939 InPlaceUIWindow_ContextSensitiveHelp,
940 InPlaceUIWindow_GetBorder,
941 InPlaceUIWindow_RequestBorderSpace,
942 InPlaceUIWindow_SetBorderSpace,
943 InPlaceFrame_SetActiveObject,
944 InPlaceFrame_InsertMenus,
945 InPlaceFrame_SetMenu,
946 InPlaceFrame_RemoveMenus,
947 InPlaceFrame_SetStatusText,
948 InPlaceFrame_EnableModeless,
949 InPlaceFrame_TranslateAccelerator
950 };
951
952 static IOleInPlaceFrame InPlaceFrame = { &InPlaceFrameVtbl };
953
954 static HRESULT WINAPI InPlaceSite_QueryInterface(IOleInPlaceSiteEx *iface, REFIID riid, void **ppv)
955 {
956 return QueryInterface(riid, ppv);
957 }
958
959 static ULONG WINAPI InPlaceSite_AddRef(IOleInPlaceSiteEx *iface)
960 {
961 return 2;
962 }
963
964 static ULONG WINAPI InPlaceSite_Release(IOleInPlaceSiteEx *iface)
965 {
966 return 1;
967 }
968
969 static HRESULT WINAPI InPlaceSite_GetWindow(IOleInPlaceSiteEx *iface, HWND *phwnd)
970 {
971 CHECK_EXPECT(Site_GetWindow);
972 ok(phwnd != NULL, "phwnd == NULL\n");
973 if(phwnd)
974 *phwnd = container_hwnd;
975 return S_OK;
976 }
977
978 static HRESULT WINAPI InPlaceSite_ContextSensitiveHelp(IOleInPlaceSiteEx *iface, BOOL fEnterMode)
979 {
980 ok(0, "unexpected call\n");
981 return E_NOTIMPL;
982 }
983
984 static HRESULT WINAPI InPlaceSite_CanInPlaceActivate(IOleInPlaceSiteEx *iface)
985 {
986 CHECK_EXPECT(CanInPlaceActivate);
987 return S_OK;
988 }
989
990 static HRESULT WINAPI InPlaceSite_OnInPlaceActivate(IOleInPlaceSiteEx *iface)
991 {
992 CHECK_EXPECT(OnInPlaceActivate);
993 return S_OK;
994 }
995
996 static HRESULT WINAPI InPlaceSite_OnUIActivate(IOleInPlaceSiteEx *iface)
997 {
998 CHECK_EXPECT(OnUIActivate);
999 return S_OK;
1000 }
1001
1002 static HRESULT WINAPI InPlaceSite_GetWindowContext(IOleInPlaceSiteEx *iface,
1003 IOleInPlaceFrame **ppFrame, IOleInPlaceUIWindow **ppDoc, LPRECT lprcPosRect,
1004 LPRECT lprcClipRect, LPOLEINPLACEFRAMEINFO lpFrameInfo)
1005 {
1006 static const RECT pos_rect = {2,1,1002,901};
1007 static const RECT clip_rect = {10,10,990,890};
1008
1009 CHECK_EXPECT(GetWindowContext);
1010
1011 ok(ppFrame != NULL, "ppFrame = NULL\n");
1012 if(ppFrame)
1013 *ppFrame = &InPlaceFrame;
1014
1015 ok(ppDoc != NULL, "ppDoc = NULL\n");
1016 if(ppDoc)
1017 *ppDoc = &InPlaceUIWindow;
1018
1019 ok(lprcPosRect != NULL, "lprcPosRect = NULL\n");
1020 if(lprcPosRect)
1021 memcpy(lprcPosRect, &pos_rect, sizeof(RECT));
1022
1023 ok(lprcClipRect != NULL, "lprcClipRect = NULL\n");
1024 if(lprcClipRect)
1025 memcpy(lprcClipRect, &clip_rect, sizeof(RECT));
1026
1027 ok(lpFrameInfo != NULL, "lpFrameInfo = NULL\n");
1028 if(lpFrameInfo) {
1029 lpFrameInfo->cb = sizeof(*lpFrameInfo);
1030 lpFrameInfo->fMDIApp = FALSE;
1031 lpFrameInfo->hwndFrame = container_hwnd;
1032 lpFrameInfo->haccel = NULL;
1033 lpFrameInfo->cAccelEntries = 0;
1034 }
1035
1036 return S_OK;
1037 }
1038
1039 static HRESULT WINAPI InPlaceSite_Scroll(IOleInPlaceSiteEx *iface, SIZE scrollExtant)
1040 {
1041 ok(0, "unexpected call\n");
1042 return E_NOTIMPL;
1043 }
1044
1045 static HRESULT WINAPI InPlaceSite_OnUIDeactivate(IOleInPlaceSiteEx *iface, BOOL fUndoable)
1046 {
1047 ok(0, "unexpected call\n");
1048 return E_NOTIMPL;
1049 }
1050
1051 static HRESULT WINAPI InPlaceSite_OnInPlaceDeactivate(IOleInPlaceSiteEx *iface)
1052 {
1053 ok(0, "unexpected call\n");
1054 return E_NOTIMPL;
1055 }
1056
1057 static HRESULT WINAPI InPlaceSite_DiscardUndoState(IOleInPlaceSiteEx *iface)
1058 {
1059 ok(0, "unexpected call\n");
1060 return E_NOTIMPL;
1061 }
1062
1063 static HRESULT WINAPI InPlaceSite_DeactivateAndUndo(IOleInPlaceSiteEx *iface)
1064 {
1065 ok(0, "unexpected call\n");
1066 return E_NOTIMPL;
1067 }
1068
1069 static HRESULT WINAPI InPlaceSite_OnPosRectChange(IOleInPlaceSiteEx *iface, LPCRECT lprcPosRect)
1070 {
1071 ok(0, "unexpected call\n");
1072 return E_NOTIMPL;
1073 }
1074
1075 static HRESULT WINAPI InPlaceSite_OnInPlaceActivateEx(IOleInPlaceSiteEx *iface,
1076 BOOL *pNoRedraw, DWORD dwFlags)
1077 {
1078 ok(0, "unexpected call\n");
1079 return E_NOTIMPL;
1080 }
1081
1082 static HRESULT WINAPI InPlaceSite_OnInPlaceDeactivateEx(IOleInPlaceSiteEx *iface,
1083 BOOL fNoRedraw)
1084 {
1085 ok(0, "unexpected call\n");
1086 return E_NOTIMPL;
1087 }
1088
1089 static HRESULT WINAPI InPlaceSite_RequestUIActivate(IOleInPlaceSiteEx *iface)
1090 {
1091 ok(0, "unexpected call\n");
1092 return S_OK;
1093 }
1094
1095 static const IOleInPlaceSiteExVtbl InPlaceSiteExVtbl = {
1096 InPlaceSite_QueryInterface,
1097 InPlaceSite_AddRef,
1098 InPlaceSite_Release,
1099 InPlaceSite_GetWindow,
1100 InPlaceSite_ContextSensitiveHelp,
1101 InPlaceSite_CanInPlaceActivate,
1102 InPlaceSite_OnInPlaceActivate,
1103 InPlaceSite_OnUIActivate,
1104 InPlaceSite_GetWindowContext,
1105 InPlaceSite_Scroll,
1106 InPlaceSite_OnUIDeactivate,
1107 InPlaceSite_OnInPlaceDeactivate,
1108 InPlaceSite_DiscardUndoState,
1109 InPlaceSite_DeactivateAndUndo,
1110 InPlaceSite_OnPosRectChange,
1111 InPlaceSite_OnInPlaceActivateEx,
1112 InPlaceSite_OnInPlaceDeactivateEx,
1113 InPlaceSite_RequestUIActivate
1114 };
1115
1116 static IOleInPlaceSiteEx InPlaceSite = { &InPlaceSiteExVtbl };
1117
1118 static HRESULT WINAPI DocHostUIHandler_QueryInterface(IDocHostUIHandler2 *iface, REFIID riid, void **ppv)
1119 {
1120 return QueryInterface(riid, ppv);
1121 }
1122
1123 static ULONG WINAPI DocHostUIHandler_AddRef(IDocHostUIHandler2 *iface)
1124 {
1125 return 2;
1126 }
1127
1128 static ULONG WINAPI DocHostUIHandler_Release(IDocHostUIHandler2 *iface)
1129 {
1130 return 1;
1131 }
1132
1133 static HRESULT WINAPI DocHostUIHandler_ShowContextMenu(IDocHostUIHandler2 *iface, DWORD dwID, POINT *ppt,
1134 IUnknown *pcmdtReserved, IDispatch *pdicpReserved)
1135 {
1136 ok(0, "unexpected call %d %p %p %p\n", dwID, ppt, pcmdtReserved, pdicpReserved);
1137 return S_FALSE;
1138 }
1139
1140 static HRESULT WINAPI DocHostUIHandler_GetHostInfo(IDocHostUIHandler2 *iface, DOCHOSTUIINFO *pInfo)
1141 {
1142 CHECK_EXPECT2(GetHostInfo);
1143 ok(pInfo != NULL, "pInfo=NULL\n");
1144 if(pInfo) {
1145 ok(pInfo->cbSize == sizeof(DOCHOSTUIINFO) || broken(!pInfo->cbSize), "pInfo->cbSize=%u\n", pInfo->cbSize);
1146 ok(!pInfo->dwFlags, "pInfo->dwFlags=%08x, expected 0\n", pInfo->dwFlags);
1147 ok(!pInfo->dwDoubleClick, "pInfo->dwDoubleClick=%08x, expected 0\n", pInfo->dwDoubleClick);
1148 ok(!pInfo->pchHostCss, "pInfo->pchHostCss=%p, expected NULL\n", pInfo->pchHostCss);
1149 ok(!pInfo->pchHostNS, "pInfo->pchhostNS=%p, expected NULL\n", pInfo->pchHostNS);
1150 }
1151 return E_FAIL;
1152 }
1153
1154 static HRESULT WINAPI DocHostUIHandler_ShowUI(IDocHostUIHandler2 *iface, DWORD dwID,
1155 IOleInPlaceActiveObject *pActiveObject, IOleCommandTarget *pCommandTarget,
1156 IOleInPlaceFrame *pFrame, IOleInPlaceUIWindow *pDoc)
1157 {
1158 ok(0, "unexpected call\n");
1159 return E_NOTIMPL;
1160 }
1161
1162 static HRESULT WINAPI DocHostUIHandler_HideUI(IDocHostUIHandler2 *iface)
1163 {
1164 ok(0, "unexpected call\n");
1165 return E_NOTIMPL;
1166 }
1167
1168 static HRESULT WINAPI DocHostUIHandler_UpdateUI(IDocHostUIHandler2 *iface)
1169 {
1170 CHECK_EXPECT(UpdateUI);
1171 return E_NOTIMPL;
1172 }
1173
1174 static HRESULT WINAPI DocHostUIHandler_EnableModeless(IDocHostUIHandler2 *iface, BOOL fEnable)
1175 {
1176 if(fEnable)
1177 CHECK_EXPECT(DocHost_EnableModeless_TRUE);
1178 else
1179 CHECK_EXPECT(DocHost_EnableModeless_FALSE);
1180
1181 return S_OK;
1182 }
1183
1184 static HRESULT WINAPI DocHostUIHandler_OnDocWindowActivate(IDocHostUIHandler2 *iface, BOOL fActivate)
1185 {
1186 ok(0, "unexpected call\n");
1187 return E_NOTIMPL;
1188 }
1189
1190 static HRESULT WINAPI DocHostUIHandler_OnFrameWindowActivate(IDocHostUIHandler2 *iface, BOOL fActivate)
1191 {
1192 ok(0, "unexpected call\n");
1193 return E_NOTIMPL;
1194 }
1195
1196 static HRESULT WINAPI DocHostUIHandler_ResizeBorder(IDocHostUIHandler2 *iface, LPCRECT prcBorder,
1197 IOleInPlaceUIWindow *pUIWindow, BOOL fRameWindow)
1198 {
1199 ok(0, "unexpected call\n");
1200 return E_NOTIMPL;
1201 }
1202
1203 static HRESULT WINAPI DocHostUIHandler_TranslateAccelerator(IDocHostUIHandler2 *iface, LPMSG lpMsg,
1204 const GUID *pguidCmdGroup, DWORD nCmdID)
1205 {
1206 ok(0, "unexpected call\n");
1207 return E_NOTIMPL;
1208 }
1209
1210 static HRESULT WINAPI DocHostUIHandler_GetOptionKeyPath(IDocHostUIHandler2 *iface,
1211 LPOLESTR *pchKey, DWORD dw)
1212 {
1213 CHECK_EXPECT(GetOptionKeyPath);
1214 ok(pchKey != NULL, "pchKey==NULL\n");
1215 if(pchKey)
1216 ok(*pchKey == NULL, "*pchKey=%p\n", *pchKey);
1217 ok(!dw, "dw=%x\n", dw);
1218 return E_NOTIMPL;
1219 }
1220
1221 static HRESULT WINAPI DocHostUIHandler_GetDropTarget(IDocHostUIHandler2 *iface,
1222 IDropTarget *pDropTarget, IDropTarget **ppDropTarget)
1223 {
1224 CHECK_EXPECT(GetDropTarget);
1225 return E_NOTIMPL;
1226 }
1227
1228 static HRESULT WINAPI DocHostUIHandler_GetExternal(IDocHostUIHandler2 *iface, IDispatch **ppDispatch)
1229 {
1230 ok(0, "unexpected call\n");
1231 return E_NOTIMPL;
1232 }
1233
1234 static HRESULT WINAPI DocHostUIHandler_TranslateUrl(IDocHostUIHandler2 *iface, DWORD dwTranslate,
1235 OLECHAR *pchURLIn, OLECHAR **ppchURLOut)
1236 {
1237 ok(0, "unexpected call\n");
1238 return E_NOTIMPL;
1239 }
1240
1241 static HRESULT WINAPI DocHostUIHandler_FilterDataObject(IDocHostUIHandler2 *iface, IDataObject *pDO,
1242 IDataObject **ppPORet)
1243 {
1244 ok(0, "unexpected call\n");
1245 return E_NOTIMPL;
1246 }
1247
1248 static HRESULT WINAPI DocHostUIHandler_GetOverrideKeyPath(IDocHostUIHandler2 *iface,
1249 LPOLESTR *pchKey, DWORD dw)
1250 {
1251 CHECK_EXPECT(GetOverridesKeyPath);
1252 ok(pchKey != NULL, "pchKey==NULL\n");
1253 if(pchKey)
1254 ok(*pchKey == NULL, "*pchKey=%p\n", *pchKey);
1255 ok(!dw, "dw=%x\n", dw);
1256 return E_NOTIMPL;
1257 }
1258
1259 static const IDocHostUIHandler2Vtbl DocHostUIHandlerVtbl = {
1260 DocHostUIHandler_QueryInterface,
1261 DocHostUIHandler_AddRef,
1262 DocHostUIHandler_Release,
1263 DocHostUIHandler_ShowContextMenu,
1264 DocHostUIHandler_GetHostInfo,
1265 DocHostUIHandler_ShowUI,
1266 DocHostUIHandler_HideUI,
1267 DocHostUIHandler_UpdateUI,
1268 DocHostUIHandler_EnableModeless,
1269 DocHostUIHandler_OnDocWindowActivate,
1270 DocHostUIHandler_OnFrameWindowActivate,
1271 DocHostUIHandler_ResizeBorder,
1272 DocHostUIHandler_TranslateAccelerator,
1273 DocHostUIHandler_GetOptionKeyPath,
1274 DocHostUIHandler_GetDropTarget,
1275 DocHostUIHandler_GetExternal,
1276 DocHostUIHandler_TranslateUrl,
1277 DocHostUIHandler_FilterDataObject,
1278 DocHostUIHandler_GetOverrideKeyPath
1279 };
1280
1281 static IDocHostUIHandler2 DocHostUIHandler = { &DocHostUIHandlerVtbl };
1282
1283
1284 static HRESULT WINAPI ServiceProvider_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv)
1285 {
1286 return QueryInterface(riid, ppv);
1287 }
1288
1289 static ULONG WINAPI ServiceProvider_AddRef(IServiceProvider *iface)
1290 {
1291 return 2;
1292 }
1293
1294 static ULONG WINAPI ServiceProvider_Release(IServiceProvider *iface)
1295 {
1296 return 1;
1297 }
1298
1299 static HRESULT WINAPI ServiceProvider_QueryService(IServiceProvider *iface,
1300 REFGUID guidService, REFIID riid, void **ppv)
1301 {
1302 *ppv = NULL;
1303
1304 if (IsEqualGUID(&SID_STopLevelBrowser, guidService))
1305 trace("Service SID_STopLevelBrowser\n");
1306 else if (IsEqualGUID(&SID_SEditCommandTarget, guidService))
1307 trace("Service SID_SEditCommandTarget\n");
1308 else if (IsEqualGUID(&IID_ITargetFrame2, guidService))
1309 trace("Service IID_ITargetFrame2\n");
1310 else if (IsEqualGUID(&SID_SInternetSecurityManager, guidService))
1311 trace("Service SID_SInternetSecurityManager\n");
1312 else if (IsEqualGUID(&SID_SOleUndoManager, guidService))
1313 trace("Service SID_SOleUndoManager\n");
1314 else if (IsEqualGUID(&SID_IMimeInfo, guidService))
1315 trace("Service SID_IMimeInfo\n");
1316 else if (IsEqualGUID(&SID_STopWindow, guidService))
1317 trace("Service SID_STopWindow\n");
1318
1319 /* 30D02401-6A81-11D0-8274-00C04FD5AE38 Explorer Bar: Search */
1320 /* D1E7AFEC-6A2E-11D0-8C78-00C04FD918B4 no info */
1321 /* A9227C3C-7F8E-11D0-8CB0-00A0C92DBFE8 no info */
1322 /* 371EA634-DC5C-11D1-BA57-00C04FC2040E one reference to IVersionHost */
1323 /* 3050F429-98B5-11CF-BB82-00AA00BDCE0B IID_IElementBehaviorFactory */
1324 /* 6D12FE80-7911-11CF-9534-0000C05BAE0B SID_DefView */
1325 /* AD7F6C62-F6BD-11D2-959B-006097C553C8 no info */
1326 /* 53A2D5B1-D2FC-11D0-84E0-006097C9987D no info */
1327 /* 3050F312-98B5-11CF-BB82-00AA00BDCE0B HTMLFrameBaseClass */
1328 /* 639447BD-B2D3-44B9-9FB0-510F23CB45E4 no info */
1329 /* 20C46561-8491-11CF-960C-0080C7F4EE85 no info */
1330
1331 else
1332 trace("Service %s not supported\n", debugstr_guid(guidService));
1333
1334 return E_NOINTERFACE;
1335 }
1336
1337
1338 static const IServiceProviderVtbl ServiceProviderVtbl = {
1339 ServiceProvider_QueryInterface,
1340 ServiceProvider_AddRef,
1341 ServiceProvider_Release,
1342 ServiceProvider_QueryService
1343 };
1344
1345 static IServiceProvider ServiceProvider = { &ServiceProviderVtbl };
1346
1347
1348 static HRESULT QueryInterface(REFIID riid, void **ppv)
1349 {
1350 *ppv = NULL;
1351
1352 if(IsEqualGUID(&IID_IUnknown, riid)
1353 || IsEqualGUID(&IID_IOleClientSite, riid))
1354 *ppv = &ClientSite;
1355 else if(IsEqualGUID(&IID_IOleWindow, riid)
1356 || IsEqualGUID(&IID_IOleInPlaceSite, riid)
1357 || IsEqualGUID(&IID_IOleInPlaceSiteEx, riid))
1358 *ppv = &InPlaceSite;
1359 else if(IsEqualGUID(&IID_IDocHostUIHandler, riid)
1360 || IsEqualGUID(&IID_IDocHostUIHandler2, riid))
1361 *ppv = &DocHostUIHandler;
1362 else if(IsEqualGUID(&IID_IDispatch, riid))
1363 *ppv = &Dispatch;
1364 else if(IsEqualGUID(&IID_IServiceProvider, riid))
1365 *ppv = &ServiceProvider;
1366 else if(IsEqualGUID(&IID_IDocHostShowUI, riid))
1367 trace("interface IID_IDocHostShowUI\n");
1368 else if(IsEqualGUID(&IID_IOleControlSite, riid))
1369 trace("interface IID_IOleControlSite\n");
1370 else if(IsEqualGUID(&IID_IOleCommandTarget, riid))
1371 trace("interface IID_IOleCommandTarget\n");
1372
1373 /* B6EA2050-048A-11D1-82B9-00C04FB9942E IAxWinHostWindow */
1374
1375 else
1376 {
1377 /* are there more interfaces, that a host can support? */
1378 trace("%s: interface not supported\n", debugstr_guid(riid));
1379 }
1380
1381 return (*ppv) ? S_OK : E_NOINTERFACE;
1382 }
1383
1384 static LRESULT WINAPI wnd_proc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
1385 {
1386 return DefWindowProcW(hwnd, msg, wParam, lParam);
1387 }
1388
1389 static HWND create_container_window(void)
1390 {
1391 static const WCHAR wszWebBrowserContainer[] =
1392 {'W','e','b','B','r','o','w','s','e','r','C','o','n','t','a','i','n','e','r',0};
1393 static WNDCLASSEXW wndclass = {
1394 sizeof(WNDCLASSEXW),
1395 0,
1396 wnd_proc,
1397 0, 0, NULL, NULL, NULL, NULL, NULL,
1398 wszWebBrowserContainer,
1399 NULL
1400 };
1401
1402 RegisterClassExW(&wndclass);
1403 return CreateWindowW(wszWebBrowserContainer, wszWebBrowserContainer,
1404 WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, CW_USEDEFAULT,
1405 CW_USEDEFAULT, NULL, NULL, NULL, NULL);
1406 }
1407
1408 static void test_DoVerb(IUnknown *unk)
1409 {
1410 IOleObject *oleobj;
1411 RECT rect = {0,0,1000,1000};
1412 HRESULT hres;
1413
1414 hres = IUnknown_QueryInterface(unk, &IID_IOleObject, (void**)&oleobj);
1415 ok(hres == S_OK, "QueryInterface(IID_OleObject) failed: %08x\n", hres);
1416 if(FAILED(hres))
1417 return;
1418
1419 SET_EXPECT(CanInPlaceActivate);
1420 SET_EXPECT(Site_GetWindow);
1421 SET_EXPECT(OnInPlaceActivate);
1422 SET_EXPECT(GetWindowContext);
1423 SET_EXPECT(ShowObject);
1424 SET_EXPECT(GetContainer);
1425 SET_EXPECT(Frame_GetWindow);
1426 SET_EXPECT(OnUIActivate);
1427 SET_EXPECT(Frame_SetActiveObject);
1428 SET_EXPECT(UIWindow_SetActiveObject);
1429 SET_EXPECT(SetMenu);
1430
1431 hres = IOleObject_DoVerb(oleobj, OLEIVERB_SHOW, NULL, &ClientSite,
1432 0, (HWND)0xdeadbeef, &rect);
1433 ok(hres == S_OK, "DoVerb failed: %08x\n", hres);
1434
1435 CHECK_CALLED(CanInPlaceActivate);
1436 CHECK_CALLED(Site_GetWindow);
1437 CHECK_CALLED(OnInPlaceActivate);
1438 CHECK_CALLED(GetWindowContext);
1439 CHECK_CALLED(ShowObject);
1440 CHECK_CALLED(GetContainer);
1441 CHECK_CALLED(Frame_GetWindow);
1442 CHECK_CALLED(OnUIActivate);
1443 CHECK_CALLED(Frame_SetActiveObject);
1444 CHECK_CALLED(UIWindow_SetActiveObject);
1445 CHECK_CALLED(SetMenu);
1446
1447 hres = IOleObject_DoVerb(oleobj, OLEIVERB_SHOW, NULL, &ClientSite,
1448 0, (HWND)0xdeadbeef, &rect);
1449 ok(hres == S_OK, "DoVerb failed: %08x\n", hres);
1450
1451 IOleObject_Release(oleobj);
1452 }
1453
1454 static void test_GetMiscStatus(IOleObject *oleobj)
1455 {
1456 DWORD st, i;
1457 HRESULT hres;
1458
1459 for(i=0; i<10; i++) {
1460 st = 0xdeadbeef;
1461 hres = IOleObject_GetMiscStatus(oleobj, i, &st);
1462 ok(hres == S_OK, "GetMiscStatus failed: %08x\n", hres);
1463 ok(st == (OLEMISC_SETCLIENTSITEFIRST|OLEMISC_ACTIVATEWHENVISIBLE|OLEMISC_INSIDEOUT
1464 |OLEMISC_CANTLINKINSIDE|OLEMISC_RECOMPOSEONRESIZE),
1465 "st=%08x, expected OLEMISC_SETCLIENTSITEFIRST|OLEMISC_ACTIVATEWHENVISIBLE|"
1466 "OLEMISC_INSIDEOUT|OLEMISC_CANTLINKINSIDE|OLEMISC_RECOMPOSEONRESIZE)\n", st);
1467 }
1468 }
1469
1470 static void test_SetHostNames(IOleObject *oleobj)
1471 {
1472 HRESULT hres;
1473
1474 static const WCHAR test_appW[] = {'t','e','s','t',' ','a','p','p',0};
1475
1476 hres = IOleObject_SetHostNames(oleobj, test_appW, (void*)0xdeadbeef);
1477 ok(hres == S_OK, "SetHostNames failed: %08x\n", hres);
1478 }
1479
1480 static void test_ClientSite(IUnknown *unk, IOleClientSite *client)
1481 {
1482 IOleObject *oleobj;
1483 IOleInPlaceObject *inplace;
1484 HWND hwnd;
1485 HRESULT hres;
1486
1487 hres = IUnknown_QueryInterface(unk, &IID_IOleObject, (void**)&oleobj);
1488 ok(hres == S_OK, "QueryInterface(IID_OleObject) failed: %08x\n", hres);
1489 if(FAILED(hres))
1490 return;
1491
1492 test_GetMiscStatus(oleobj);
1493 test_SetHostNames(oleobj);
1494
1495 hres = IUnknown_QueryInterface(unk, &IID_IOleInPlaceObject, (void**)&inplace);
1496 ok(hres == S_OK, "QueryInterface(IID_OleInPlaceObject) failed: %08x\n", hres);
1497 if(FAILED(hres)) {
1498 IOleObject_Release(oleobj);
1499 return;
1500 }
1501
1502 hres = IOleInPlaceObject_GetWindow(inplace, &hwnd);
1503 ok(hres == S_OK, "GetWindow failed: %08x\n", hres);
1504 ok((hwnd == NULL) ^ (client == NULL), "unexpected hwnd %p\n", hwnd);
1505
1506 if(client) {
1507 SET_EXPECT(GetContainer);
1508 SET_EXPECT(Site_GetWindow);
1509 SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
1510 SET_EXPECT(Invoke_AMBIENT_SILENT);
1511 }else if(!is_downloading) {
1512 SET_EXPECT(Invoke_DOWNLOADCOMPLETE);
1513 SET_EXPECT(Exec_SETDOWNLOADSTATE_0);
1514 SET_EXPECT(Invoke_COMMANDSTATECHANGE);
1515 }
1516
1517 hres = IOleObject_SetClientSite(oleobj, client);
1518 ok(hres == S_OK, "SetClientSite failed: %08x\n", hres);
1519
1520 if(client) {
1521 CHECK_CALLED(GetContainer);
1522 CHECK_CALLED(Site_GetWindow);
1523 CHECK_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
1524 CHECK_CALLED(Invoke_AMBIENT_SILENT);
1525 }else if(!is_downloading) {
1526 todo_wine CHECK_CALLED(Invoke_DOWNLOADCOMPLETE);
1527 todo_wine CHECK_CALLED(Exec_SETDOWNLOADSTATE_0);
1528 todo_wine CHECK_CALLED(Invoke_COMMANDSTATECHANGE);
1529 }
1530
1531 hres = IOleInPlaceObject_GetWindow(inplace, &hwnd);
1532 ok(hres == S_OK, "GetWindow failed: %08x\n", hres);
1533 ok((hwnd == NULL) == (client == NULL), "unexpected hwnd %p\n", hwnd);
1534
1535 shell_embedding_hwnd = hwnd;
1536
1537 test_SetHostNames(oleobj);
1538
1539 IOleInPlaceObject_Release(inplace);
1540 IOleObject_Release(oleobj);
1541 }
1542
1543 static void test_ClassInfo(IUnknown *unk)
1544 {
1545 IProvideClassInfo2 *class_info;
1546 GUID guid;
1547 HRESULT hres;
1548
1549 hres = IUnknown_QueryInterface(unk, &IID_IProvideClassInfo2, (void**)&class_info);
1550 ok(hres == S_OK, "QueryInterface(IID_IProvideClassInfo) failed: %08x\n", hres);
1551 if(FAILED(hres))
1552 return;
1553
1554 hres = IProvideClassInfo2_GetGUID(class_info, GUIDKIND_DEFAULT_SOURCE_DISP_IID, &guid);
1555 ok(hres == S_OK, "GetGUID failed: %08x\n", hres);
1556 ok(IsEqualGUID(&DIID_DWebBrowserEvents2, &guid), "wrong guid\n");
1557
1558 hres = IProvideClassInfo2_GetGUID(class_info, 0, &guid);
1559 ok(hres == E_FAIL, "GetGUID failed: %08x, expected E_FAIL\n", hres);
1560 ok(IsEqualGUID(&IID_NULL, &guid), "wrong guid\n");
1561
1562 hres = IProvideClassInfo2_GetGUID(class_info, 2, &guid);
1563 ok(hres == E_FAIL, "GetGUID failed: %08x, expected E_FAIL\n", hres);
1564 ok(IsEqualGUID(&IID_NULL, &guid), "wrong guid\n");
1565
1566 hres = IProvideClassInfo2_GetGUID(class_info, GUIDKIND_DEFAULT_SOURCE_DISP_IID, NULL);
1567 ok(hres == E_POINTER, "GetGUID failed: %08x, expected E_POINTER\n", hres);
1568
1569 hres = IProvideClassInfo2_GetGUID(class_info, 0, NULL);
1570 ok(hres == E_POINTER, "GetGUID failed: %08x, expected E_POINTER\n", hres);
1571
1572 IProvideClassInfo2_Release(class_info);
1573 }
1574
1575 static void test_ie_funcs(IUnknown *unk)
1576 {
1577 IWebBrowser2 *wb;
1578 IDispatch *disp;
1579 VARIANT_BOOL b;
1580 int i;
1581 LONG hwnd;
1582 HRESULT hres;
1583
1584 hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
1585 ok(hres == S_OK, "Could not get IWebBrowser2 interface: %08x\n", hres);
1586 if(FAILED(hres))
1587 return;
1588
1589 /* HWND */
1590
1591 hwnd = 0xdeadbeef;
1592 hres = IWebBrowser2_get_HWND(wb, &hwnd);
1593 ok(hres == E_FAIL, "get_HWND failed: %08x, expected E_FAIL\n", hres);
1594 ok(hwnd == 0, "unexpected hwnd %x\n", hwnd);
1595
1596 /* MenuBar */
1597
1598 hres = IWebBrowser2_get_MenuBar(wb, &b);
1599 ok(hres == S_OK, "get_MenuBar failed: %08x\n", hres);
1600 ok(b == VARIANT_TRUE, "b=%x\n", b);
1601
1602 SET_EXPECT(Invoke_ONMENUBAR);
1603 hres = IWebBrowser2_put_MenuBar(wb, (exvb = VARIANT_FALSE));
1604 ok(hres == S_OK, "put_MenuBar failed: %08x\n", hres);
1605 CHECK_CALLED(Invoke_ONMENUBAR);
1606
1607 hres = IWebBrowser2_get_MenuBar(wb, &b);
1608 ok(hres == S_OK, "get_MenuBar failed: %08x\n", hres);
1609 ok(b == VARIANT_FALSE, "b=%x\n", b);
1610
1611 SET_EXPECT(Invoke_ONMENUBAR);
1612 hres = IWebBrowser2_put_MenuBar(wb, (exvb = 100));
1613 ok(hres == S_OK, "put_MenuBar failed: %08x\n", hres);
1614 CHECK_CALLED(Invoke_ONMENUBAR);
1615
1616 hres = IWebBrowser2_get_MenuBar(wb, &b);
1617 ok(hres == S_OK, "get_MenuBar failed: %08x\n", hres);
1618 ok(b == VARIANT_TRUE, "b=%x\n", b);
1619
1620 /* AddressBar */
1621
1622 hres = IWebBrowser2_get_AddressBar(wb, &b);
1623 ok(hres == S_OK, "get_AddressBar failed: %08x\n", hres);
1624 ok(b == VARIANT_TRUE, "b=%x\n", b);
1625
1626 SET_EXPECT(Invoke_ONADDRESSBAR);
1627 hres = IWebBrowser2_put_AddressBar(wb, (exvb = VARIANT_FALSE));
1628 ok(hres == S_OK, "put_AddressBar failed: %08x\n", hres);
1629 CHECK_CALLED(Invoke_ONADDRESSBAR);
1630
1631 hres = IWebBrowser2_get_AddressBar(wb, &b);
1632 ok(hres == S_OK, "get_MenuBar failed: %08x\n", hres);
1633 ok(b == VARIANT_FALSE, "b=%x\n", b);
1634
1635 SET_EXPECT(Invoke_ONADDRESSBAR);
1636 hres = IWebBrowser2_put_AddressBar(wb, (exvb = 100));
1637 ok(hres == S_OK, "put_AddressBar failed: %08x\n", hres);
1638 CHECK_CALLED(Invoke_ONADDRESSBAR);
1639
1640 hres = IWebBrowser2_get_AddressBar(wb, &b);
1641 ok(hres == S_OK, "get_AddressBar failed: %08x\n", hres);
1642 ok(b == VARIANT_TRUE, "b=%x\n", b);
1643
1644 SET_EXPECT(Invoke_ONADDRESSBAR);
1645 hres = IWebBrowser2_put_AddressBar(wb, (exvb = VARIANT_TRUE));
1646 ok(hres == S_OK, "put_MenuBar failed: %08x\n", hres);
1647 CHECK_CALLED(Invoke_ONADDRESSBAR);
1648
1649 /* StatusBar */
1650
1651 hres = IWebBrowser2_get_StatusBar(wb, &b);
1652 ok(hres == S_OK, "get_StatusBar failed: %08x\n", hres);
1653 ok(b == VARIANT_TRUE, "b=%x\n", b);
1654
1655 SET_EXPECT(Invoke_ONSTATUSBAR);
1656 hres = IWebBrowser2_put_StatusBar(wb, (exvb = VARIANT_TRUE));
1657 ok(hres == S_OK, "put_StatusBar failed: %08x\n", hres);
1658 CHECK_CALLED(Invoke_ONSTATUSBAR);
1659
1660 hres = IWebBrowser2_get_StatusBar(wb, &b);
1661 ok(hres == S_OK, "get_StatusBar failed: %08x\n", hres);
1662 ok(b == VARIANT_TRUE, "b=%x\n", b);
1663
1664 SET_EXPECT(Invoke_ONSTATUSBAR);
1665 hres = IWebBrowser2_put_StatusBar(wb, (exvb = VARIANT_FALSE));
1666 ok(hres == S_OK, "put_StatusBar failed: %08x\n", hres);
1667 CHECK_CALLED(Invoke_ONSTATUSBAR);
1668
1669 hres = IWebBrowser2_get_StatusBar(wb, &b);
1670 ok(hres == S_OK, "get_StatusBar failed: %08x\n", hres);
1671 ok(b == VARIANT_FALSE, "b=%x\n", b);
1672
1673 SET_EXPECT(Invoke_ONSTATUSBAR);
1674 hres = IWebBrowser2_put_StatusBar(wb, (exvb = 100));
1675 ok(hres == S_OK, "put_StatusBar failed: %08x\n", hres);
1676 CHECK_CALLED(Invoke_ONSTATUSBAR);
1677
1678 hres = IWebBrowser2_get_StatusBar(wb, &b);
1679 ok(hres == S_OK, "get_StatusBar failed: %08x\n", hres);
1680 ok(b == VARIANT_TRUE, "b=%x\n", b);
1681
1682 /* ToolBar */
1683
1684 hres = IWebBrowser2_get_ToolBar(wb, &i);
1685 ok(hres == S_OK, "get_ToolBar failed: %08x\n", hres);
1686 ok(i, "i=%x\n", i);
1687
1688 SET_EXPECT(Invoke_ONTOOLBAR);
1689 hres = IWebBrowser2_put_ToolBar(wb, (exvb = VARIANT_FALSE));
1690 ok(hres == S_OK, "put_ToolBar failed: %08x\n", hres);
1691 CHECK_CALLED(Invoke_ONTOOLBAR);
1692
1693 hres = IWebBrowser2_get_ToolBar(wb, &i);
1694 ok(hres == S_OK, "get_ToolBar failed: %08x\n", hres);
1695 ok(i == VARIANT_FALSE, "b=%x\n", i);
1696
1697 SET_EXPECT(Invoke_ONTOOLBAR);
1698 hres = IWebBrowser2_put_ToolBar(wb, (exvb = 100));
1699 ok(hres == S_OK, "put_ToolBar failed: %08x\n", hres);
1700 CHECK_CALLED(Invoke_ONTOOLBAR);
1701
1702 hres = IWebBrowser2_get_ToolBar(wb, &i);
1703 ok(hres == S_OK, "get_ToolBar failed: %08x\n", hres);
1704 ok(i, "i=%x\n", i);
1705
1706 SET_EXPECT(Invoke_ONTOOLBAR);
1707 hres = IWebBrowser2_put_ToolBar(wb, (exvb = VARIANT_TRUE));
1708 ok(hres == S_OK, "put_ToolBar failed: %08x\n", hres);
1709 CHECK_CALLED(Invoke_ONTOOLBAR);
1710
1711 /* FullScreen */
1712
1713 hres = IWebBrowser2_get_FullScreen(wb, &b);
1714 ok(hres == S_OK, "get_FullScreen failed: %08x\n", hres);
1715 ok(b == VARIANT_FALSE, "b=%x\n", b);
1716
1717 SET_EXPECT(Invoke_ONFULLSCREEN);
1718 hres = IWebBrowser2_put_FullScreen(wb, (exvb = VARIANT_TRUE));
1719 ok(hres == S_OK, "put_FullScreen failed: %08x\n", hres);
1720 CHECK_CALLED(Invoke_ONFULLSCREEN);
1721
1722 hres = IWebBrowser2_get_FullScreen(wb, &b);
1723 ok(hres == S_OK, "get_FullScreen failed: %08x\n", hres);
1724 ok(b == VARIANT_TRUE, "b=%x\n", b);
1725
1726 SET_EXPECT(Invoke_ONFULLSCREEN);
1727 hres = IWebBrowser2_put_FullScreen(wb, (exvb = 100));
1728 ok(hres == S_OK, "put_FullScreen failed: %08x\n", hres);
1729 CHECK_CALLED(Invoke_ONFULLSCREEN);
1730
1731 hres = IWebBrowser2_get_FullScreen(wb, &b);
1732 ok(hres == S_OK, "get_FullScreen failed: %08x\n", hres);
1733 ok(b == VARIANT_TRUE, "b=%x\n", b);
1734
1735 SET_EXPECT(Invoke_ONFULLSCREEN);
1736 hres = IWebBrowser2_put_FullScreen(wb, (exvb = VARIANT_FALSE));
1737 ok(hres == S_OK, "put_FullScreen failed: %08x\n", hres);
1738 CHECK_CALLED(Invoke_ONFULLSCREEN);
1739
1740 /* TheaterMode */
1741
1742 hres = IWebBrowser2_get_TheaterMode(wb, &b);
1743 ok(hres == S_OK, "get_TheaterMode failed: %08x\n", hres);
1744 ok(b == VARIANT_FALSE, "b=%x\n", b);
1745
1746 SET_EXPECT(Invoke_ONTHEATERMODE);
1747 hres = IWebBrowser2_put_TheaterMode(wb, (exvb = VARIANT_TRUE));
1748 ok(hres == S_OK, "put_TheaterMode failed: %08x\n", hres);
1749 CHECK_CALLED(Invoke_ONTHEATERMODE);
1750
1751 hres = IWebBrowser2_get_TheaterMode(wb, &b);
1752 ok(hres == S_OK, "get_TheaterMode failed: %08x\n", hres);
1753 ok(b == VARIANT_TRUE, "b=%x\n", b);
1754
1755 SET_EXPECT(Invoke_ONTHEATERMODE);
1756 hres = IWebBrowser2_put_TheaterMode(wb, (exvb = 100));
1757 ok(hres == S_OK, "put_TheaterMode failed: %08x\n", hres);
1758 CHECK_CALLED(Invoke_ONTHEATERMODE);
1759
1760 hres = IWebBrowser2_get_TheaterMode(wb, &b);
1761 ok(hres == S_OK, "get_TheaterMode failed: %08x\n", hres);
1762 ok(b == VARIANT_TRUE, "b=%x\n", b);
1763
1764 SET_EXPECT(Invoke_ONTHEATERMODE);
1765 hres = IWebBrowser2_put_TheaterMode(wb, (exvb = VARIANT_FALSE));
1766 ok(hres == S_OK, "put_TheaterMode failed: %08x\n", hres);
1767 CHECK_CALLED(Invoke_ONTHEATERMODE);
1768
1769 /* Resizable */
1770
1771 b = 0x100;
1772 hres = IWebBrowser2_get_Resizable(wb, &b);
1773 ok(hres == E_NOTIMPL, "get_Resizable failed: %08x\n", hres);
1774 ok(b == 0x100, "b=%x\n", b);
1775
1776 SET_EXPECT(Invoke_WINDOWSETRESIZABLE);
1777 hres = IWebBrowser2_put_Resizable(wb, (exvb = VARIANT_TRUE));
1778 ok(hres == S_OK || broken(hres == E_NOTIMPL), "put_Resizable failed: %08x\n", hres);
1779 CHECK_CALLED_BROKEN(Invoke_WINDOWSETRESIZABLE);
1780
1781 SET_EXPECT(Invoke_WINDOWSETRESIZABLE);
1782 hres = IWebBrowser2_put_Resizable(wb, (exvb = VARIANT_FALSE));
1783 ok(hres == S_OK || broken(hres == E_NOTIMPL), "put_Resizable failed: %08x\n", hres);
1784 CHECK_CALLED_BROKEN(Invoke_WINDOWSETRESIZABLE);
1785
1786 hres = IWebBrowser2_get_Resizable(wb, &b);
1787 ok(hres == E_NOTIMPL, "get_Resizable failed: %08x\n", hres);
1788 ok(b == 0x100, "b=%x\n", b);
1789
1790 /* Application */
1791
1792 disp = NULL;
1793 hres = IWebBrowser2_get_Application(wb, &disp);
1794 ok(hres == S_OK, "get_Application failed: %08x\n", hres);
1795 ok(disp == (void*)wb, "disp=%p, expected %p\n", disp, wb);
1796 if(disp)
1797 IDispatch_Release(disp);
1798
1799 hres = IWebBrowser2_get_Application(wb, NULL);
1800 ok(hres == E_POINTER, "get_Application failed: %08x, expected E_POINTER\n", hres);
1801
1802 /* Quit */
1803
1804 hres = IWebBrowser2_Quit(wb);
1805 ok(hres == E_FAIL, "Quit failed: %08x, expected E_FAIL\n", hres);
1806
1807 IWebBrowser2_Release(wb);
1808 }
1809
1810 static void test_Silent(IWebBrowser2 *wb, IOleControl *control, BOOL is_clientsite)
1811 {
1812 VARIANT_BOOL b;
1813 HRESULT hres;
1814
1815 b = 100;
1816 hres = IWebBrowser2_get_Silent(wb, &b);
1817 ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
1818 ok(b == VARIANT_FALSE, "b=%x\n", b);
1819
1820 hres = IWebBrowser2_put_Silent(wb, VARIANT_TRUE);
1821 ok(hres == S_OK, "set_Silent failed: %08x\n", hres);
1822
1823 b = 100;
1824 hres = IWebBrowser2_get_Silent(wb, &b);
1825 ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
1826 ok(b == VARIANT_TRUE, "b=%x\n", b);
1827
1828 hres = IWebBrowser2_put_Silent(wb, 100);
1829 ok(hres == S_OK, "set_Silent failed: %08x\n", hres);
1830
1831 b = 100;
1832 hres = IWebBrowser2_get_Silent(wb, &b);
1833 ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
1834 ok(b == VARIANT_TRUE, "b=%x\n", b);
1835
1836 hres = IWebBrowser2_put_Silent(wb, VARIANT_FALSE);
1837 ok(hres == S_OK, "set_Silent failed: %08x\n", hres);
1838
1839 b = 100;
1840 hres = IWebBrowser2_get_Silent(wb, &b);
1841 ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
1842 ok(b == VARIANT_FALSE, "b=%x\n", b);
1843
1844 if(is_clientsite) {
1845 hres = IWebBrowser2_put_Silent(wb, VARIANT_TRUE);
1846 ok(hres == S_OK, "set_Silent failed: %08x\n", hres);
1847
1848 SET_EXPECT(Invoke_AMBIENT_SILENT);
1849 }
1850
1851 hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_SILENT);
1852 ok(hres == S_OK, "OnAmbientPropertyChange failed %08x\n", hres);
1853
1854 if(is_clientsite)
1855 CHECK_CALLED(Invoke_AMBIENT_SILENT);
1856
1857 b = 100;
1858 hres = IWebBrowser2_get_Silent(wb, &b);
1859 ok(hres == S_OK, "get_Silent failed: %08x\n", hres);
1860 ok(b == VARIANT_FALSE, "b=%x\n", b);
1861 }
1862
1863 static void test_Offline(IWebBrowser2 *wb, IOleControl *control, BOOL is_clientsite)
1864 {
1865 VARIANT_BOOL b;
1866 HRESULT hres;
1867
1868 b = 100;
1869 hres = IWebBrowser2_get_Offline(wb, &b);
1870 ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
1871 ok(b == VARIANT_FALSE, "b=%x\n", b);
1872
1873 hres = IWebBrowser2_put_Offline(wb, VARIANT_TRUE);
1874 ok(hres == S_OK, "set_Offline failed: %08x\n", hres);
1875
1876 b = 100;
1877 hres = IWebBrowser2_get_Offline(wb, &b);
1878 ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
1879 ok(b == VARIANT_TRUE, "b=%x\n", b);
1880
1881 hres = IWebBrowser2_put_Offline(wb, 100);
1882 ok(hres == S_OK, "set_Offline failed: %08x\n", hres);
1883
1884 b = 100;
1885 hres = IWebBrowser2_get_Offline(wb, &b);
1886 ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
1887 ok(b == VARIANT_TRUE, "b=%x\n", b);
1888
1889 hres = IWebBrowser2_put_Offline(wb, VARIANT_FALSE);
1890 ok(hres == S_OK, "set_Offline failed: %08x\n", hres);
1891
1892 b = 100;
1893 hres = IWebBrowser2_get_Offline(wb, &b);
1894 ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
1895 ok(b == VARIANT_FALSE, "b=%x\n", b);
1896
1897 if(is_clientsite) {
1898 hres = IWebBrowser2_put_Offline(wb, VARIANT_TRUE);
1899 ok(hres == S_OK, "set_Offline failed: %08x\n", hres);
1900
1901 SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
1902 }
1903
1904 hres = IOleControl_OnAmbientPropertyChange(control, DISPID_AMBIENT_OFFLINEIFNOTCONNECTED);
1905 ok(hres == S_OK, "OnAmbientPropertyChange failed %08x\n", hres);
1906
1907 if(is_clientsite)
1908 CHECK_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
1909
1910 b = 100;
1911 hres = IWebBrowser2_get_Offline(wb, &b);
1912 ok(hres == S_OK, "get_Offline failed: %08x\n", hres);
1913 ok(b == VARIANT_FALSE, "b=%x\n", b);
1914 }
1915
1916 static void test_ambient_unknown(IWebBrowser2 *wb, IOleControl *control, BOOL is_clientsite)
1917 {
1918 HRESULT hres;
1919
1920 SET_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
1921 SET_EXPECT(Invoke_AMBIENT_SILENT);
1922 SET_EXPECT(Invoke_AMBIENT_USERMODE);
1923 SET_EXPECT(Invoke_AMBIENT_DLCONTROL);
1924 SET_EXPECT(Invoke_AMBIENT_USERAGENT);
1925 SET_EXPECT(Invoke_AMBIENT_PALETTE);
1926
1927 hres = IOleControl_OnAmbientPropertyChange(control, DISPID_UNKNOWN);
1928 ok(hres == S_OK, "OnAmbientPropertyChange failed %08x\n", hres);
1929
1930 CHECK_EXPECT(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
1931 CHECK_EXPECT(Invoke_AMBIENT_SILENT);
1932 CHECK_EXPECT(Invoke_AMBIENT_USERMODE);
1933 CHECK_EXPECT(Invoke_AMBIENT_DLCONTROL);
1934 CHECK_EXPECT(Invoke_AMBIENT_USERAGENT);
1935 CHECK_EXPECT(Invoke_AMBIENT_PALETTE);
1936
1937 CLEAR_CALLED(Invoke_AMBIENT_OFFLINEIFNOTCONNECTED);
1938 CLEAR_CALLED(Invoke_AMBIENT_SILENT);
1939 CLEAR_CALLED(Invoke_AMBIENT_USERMODE);
1940 CLEAR_CALLED(Invoke_AMBIENT_DLCONTROL);
1941 CLEAR_CALLED(Invoke_AMBIENT_USERAGENT);
1942 CLEAR_CALLED(Invoke_AMBIENT_PALETTE);
1943 }
1944
1945 static void test_wb_funcs(IUnknown *unk, BOOL is_clientsite)
1946 {
1947 IWebBrowser2 *wb;
1948 IOleControl *control;
1949 HRESULT hres;
1950
1951 hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
1952 ok(hres == S_OK, "Could not get IWebBrowser2 interface: %08x\n", hres);
1953
1954 hres = IUnknown_QueryInterface(unk, &IID_IOleControl, (void**)&control);
1955 ok(hres == S_OK, "Could not get IOleControl interface: %08x\n", hres);
1956
1957 test_Silent(wb, control, is_clientsite);
1958 test_Offline(wb, control, is_clientsite);
1959 test_ambient_unknown(wb, control, is_clientsite);
1960
1961 IWebBrowser_Release(wb);
1962 IOleControl_Release(control);
1963 }
1964
1965 static void test_GetControlInfo(IUnknown *unk)
1966 {
1967 IOleControl *control;
1968 CONTROLINFO info;
1969 HRESULT hres;
1970
1971 hres = IUnknown_QueryInterface(unk, &IID_IOleControl, (void**)&control);
1972 ok(hres == S_OK, "Could not get IOleControl: %08x\n", hres);
1973 if(FAILED(hres))
1974 return;
1975
1976 hres = IOleControl_GetControlInfo(control, &info);
1977 ok(hres == E_NOTIMPL, "GetControlInfo failed: %08x, exxpected E_NOTIMPL\n", hres);
1978 hres = IOleControl_GetControlInfo(control, NULL);
1979 ok(hres == E_NOTIMPL, "GetControlInfo failed: %08x, exxpected E_NOTIMPL\n", hres);
1980
1981 IOleControl_Release(control);
1982 }
1983
1984 static void test_Extent(IUnknown *unk)
1985 {
1986 IOleObject *oleobj;
1987 SIZE size, expected;
1988 HRESULT hres;
1989 DWORD dpi_x;
1990 DWORD dpi_y;
1991 HDC hdc;
1992
1993 /* default aspect ratio is 96dpi / 96dpi */
1994 hdc = GetDC(0);
1995 dpi_x = GetDeviceCaps(hdc, LOGPIXELSX);
1996 dpi_y = GetDeviceCaps(hdc, LOGPIXELSY);
1997 ReleaseDC(0, hdc);
1998 if (dpi_x != 96 || dpi_y != 96)
1999 trace("dpi: %d / %d\n", dpi_y, dpi_y);
2000
2001 hres = IUnknown_QueryInterface(unk, &IID_IOleObject, (void**)&oleobj);
2002 ok(hres == S_OK, "Could not get IOleObkect: %08x\n", hres);
2003 if(FAILED(hres))
2004 return;
2005
2006 size.cx = size.cy = 0xdeadbeef;
2007 hres = IOleObject_GetExtent(oleobj, DVASPECT_CONTENT, &size);
2008 ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2009 /* Default size is 50x20 pixels, in himetric units */
2010 expected.cx = MulDiv( 50, 2540, dpi_x );
2011 expected.cy = MulDiv( 20, 2540, dpi_y );
2012 ok(size.cx == expected.cx && size.cy == expected.cy, "size = {%d %d} (expected %d %d)\n",
2013 size.cx, size.cy, expected.cx, expected.cy );
2014
2015 size.cx = 800;
2016 size.cy = 700;
2017 hres = IOleObject_SetExtent(oleobj, DVASPECT_CONTENT, &size);
2018 ok(hres == S_OK, "SetExtent failed: %08x\n", hres);
2019
2020 size.cx = size.cy = 0xdeadbeef;
2021 hres = IOleObject_GetExtent(oleobj, DVASPECT_CONTENT, &size);
2022 ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2023 ok(size.cx == 800 && size.cy == 700, "size = {%d %d}\n", size.cx, size.cy);
2024
2025 size.cx = size.cy = 0xdeadbeef;
2026 hres = IOleObject_GetExtent(oleobj, 0, &size);
2027 ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2028 ok(size.cx == 800 && size.cy == 700, "size = {%d %d}\n", size.cx, size.cy);
2029
2030 size.cx = 900;
2031 size.cy = 800;
2032 hres = IOleObject_SetExtent(oleobj, 0, &size);
2033 ok(hres == S_OK, "SetExtent failed: %08x\n", hres);
2034
2035 size.cx = size.cy = 0xdeadbeef;
2036 hres = IOleObject_GetExtent(oleobj, 0, &size);
2037 ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2038 ok(size.cx == 900 && size.cy == 800, "size = {%d %d}\n", size.cx, size.cy);
2039
2040 size.cx = size.cy = 0xdeadbeef;
2041 hres = IOleObject_GetExtent(oleobj, 0xdeadbeef, &size);
2042 ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2043 ok(size.cx == 900 && size.cy == 800, "size = {%d %d}\n", size.cx, size.cy);
2044
2045 size.cx = 1000;
2046 size.cy = 900;
2047 hres = IOleObject_SetExtent(oleobj, 0xdeadbeef, &size);
2048 ok(hres == S_OK, "SetExtent failed: %08x\n", hres);
2049
2050 size.cx = size.cy = 0xdeadbeef;
2051 hres = IOleObject_GetExtent(oleobj, 0xdeadbeef, &size);
2052 ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2053 ok(size.cx == 1000 && size.cy == 900, "size = {%d %d}\n", size.cx, size.cy);
2054
2055 size.cx = size.cy = 0xdeadbeef;
2056 hres = IOleObject_GetExtent(oleobj, DVASPECT_CONTENT, &size);
2057 ok(hres == S_OK, "GetExtent failed: %08x\n", hres);
2058 ok(size.cx == 1000 && size.cy == 900, "size = {%d %d}\n", size.cx, size.cy);
2059
2060 IOleObject_Release(oleobj);
2061 }
2062
2063 static void test_ConnectionPoint(IUnknown *unk, BOOL init)
2064 {
2065 IConnectionPointContainer *container;
2066 IConnectionPoint *point;
2067 HRESULT hres;
2068
2069 static DWORD dw = 100;
2070
2071 hres = IUnknown_QueryInterface(unk, &IID_IConnectionPointContainer, (void**)&container);
2072 ok(hres == S_OK, "QueryInterface(IID_IConnectionPointContainer) failed: %08x\n", hres);
2073 if(FAILED(hres))
2074 return;
2075
2076 hres = IConnectionPointContainer_FindConnectionPoint(container, &DIID_DWebBrowserEvents2, &point);
2077 IConnectionPointContainer_Release(container);
2078 ok(hres == S_OK, "FindConnectionPoint failed: %08x\n", hres);
2079 if(FAILED(hres))
2080 return;
2081
2082 if(init) {
2083 hres = IConnectionPoint_Advise(point, (IUnknown*)&WebBrowserEvents2, &dw);
2084 ok(hres == S_OK, "Advise failed: %08x\n", hres);
2085 ok(dw == 1, "dw=%d, expected 1\n", dw);
2086 }else {
2087 hres = IConnectionPoint_Unadvise(point, dw);
2088 ok(hres == S_OK, "Unadvise failed: %08x\n", hres);
2089 }
2090
2091 IConnectionPoint_Release(point);
2092 }
2093
2094 static void test_Navigate2(IUnknown *unk)
2095 {
2096 IWebBrowser2 *webbrowser;
2097 VARIANT url;
2098 HRESULT hres;
2099
2100 hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&webbrowser);
2101 ok(hres == S_OK, "QueryInterface(IID_IWebBrowser) failed: %08x\n", hres);
2102 if(FAILED(hres))
2103 return;
2104
2105 test_LocationURL(unk, emptyW);
2106
2107 V_VT(&url) = VT_BSTR;
2108 V_BSTR(&url) = SysAllocString(about_blankW);
2109
2110 SET_EXPECT(Invoke_AMBIENT_USERMODE);
2111 SET_EXPECT(Invoke_PROPERTYCHANGE);
2112 SET_EXPECT(Invoke_BEFORENAVIGATE2);
2113 SET_EXPECT(Invoke_DOWNLOADBEGIN);
2114 SET_EXPECT(Exec_SETDOWNLOADSTATE_1);
2115 SET_EXPECT(EnableModeless_FALSE);
2116 SET_EXPECT(Invoke_STATUSTEXTCHANGE);
2117 SET_EXPECT(SetStatusText);
2118 SET_EXPECT(GetHostInfo);
2119 SET_EXPECT(Invoke_AMBIENT_DLCONTROL);
2120 SET_EXPECT(Invoke_AMBIENT_USERAGENT);
2121 SET_EXPECT(Invoke_AMBIENT_PALETTE);
2122 SET_EXPECT(GetOptionKeyPath);
2123 SET_EXPECT(GetOverridesKeyPath);
2124 SET_EXPECT(QueryStatus_SETPROGRESSTEXT);
2125 SET_EXPECT(Exec_SETPROGRESSMAX);
2126 SET_EXPECT(Exec_SETPROGRESSPOS);
2127 SET_EXPECT(Invoke_SETSECURELOCKICON);
2128 SET_EXPECT(Invoke_FILEDOWNLOAD);
2129 SET_EXPECT(Exec_SETDOWNLOADSTATE_0);
2130 SET_EXPECT(Invoke_COMMANDSTATECHANGE);
2131 SET_EXPECT(EnableModeless_TRUE);
2132
2133 hres = IWebBrowser2_Navigate2(webbrowser, &url, NULL, NULL, NULL, NULL);
2134 ok(hres == S_OK, "Navigate2 failed: %08x\n", hres);
2135
2136 CHECK_CALLED(Invoke_AMBIENT_USERMODE);
2137 todo_wine CHECK_CALLED(Invoke_PROPERTYCHANGE);
2138 CHECK_CALLED(Invoke_BEFORENAVIGATE2);
2139 todo_wine CHECK_CALLED(Invoke_DOWNLOADBEGIN);
2140 todo_wine CHECK_CALLED(Exec_SETDOWNLOADSTATE_1);
2141 CHECK_CALLED(EnableModeless_FALSE);
2142 CHECK_CALLED(Invoke_STATUSTEXTCHANGE);
2143 CHECK_CALLED(SetStatusText);
2144 CHECK_CALLED(GetHostInfo);
2145 CHECK_CALLED(Invoke_AMBIENT_DLCONTROL);
2146 CHECK_CALLED(Invoke_AMBIENT_USERAGENT);
2147 CHECK_CALLED(Invoke_AMBIENT_PALETTE);
2148 CHECK_CALLED(GetOptionKeyPath);
2149 CHECK_CALLED_BROKEN(GetOverridesKeyPath);
2150 todo_wine CHECK_CALLED(QueryStatus_SETPROGRESSTEXT);
2151 todo_wine CHECK_CALLED(Exec_SETPROGRESSMAX);
2152 todo_wine CHECK_CALLED(Exec_SETPROGRESSPOS);
2153 todo_wine CHECK_CALLED_BROKEN(Invoke_SETSECURELOCKICON);
2154 todo_wine CHECK_CALLED_BROKEN(Invoke_FILEDOWNLOAD);
2155 todo_wine CHECK_CALLED(Invoke_COMMANDSTATECHANGE);
2156 todo_wine CHECK_CALLED(Exec_SETDOWNLOADSTATE_0);
2157 CHECK_CALLED(EnableModeless_TRUE);
2158
2159 VariantClear(&url);
2160 IWebBrowser2_Release(webbrowser);
2161 }
2162
2163 static void test_download(void)
2164 {
2165 MSG msg;
2166
2167 is_downloading = TRUE;
2168
2169 SET_EXPECT(Exec_SETPROGRESSMAX);
2170 SET_EXPECT(Exec_SETPROGRESSPOS);
2171 SET_EXPECT(Exec_SETDOWNLOADSTATE_1);
2172 SET_EXPECT(DocHost_EnableModeless_FALSE);
2173 SET_EXPECT(DocHost_EnableModeless_TRUE);
2174 SET_EXPECT(Invoke_SETSECURELOCKICON);
2175 SET_EXPECT(Invoke_282);
2176 SET_EXPECT(EnableModeless_FALSE);
2177 SET_EXPECT(Invoke_COMMANDSTATECHANGE);
2178 SET_EXPECT(Invoke_STATUSTEXTCHANGE);
2179 SET_EXPECT(SetStatusText);
2180 SET_EXPECT(EnableModeless_TRUE);
2181 SET_EXPECT(QueryStatus_STOP);
2182 SET_EXPECT(Exec_SETDOWNLOADSTATE_0);
2183 SET_EXPECT(Invoke_TITLECHANGE);
2184 SET_EXPECT(Invoke_NAVIGATECOMPLETE2);
2185 SET_EXPECT(GetDropTarget);
2186 SET_EXPECT(Invoke_PROGRESSCHANGE);
2187 SET_EXPECT(Invoke_DOCUMENTCOMPLETE);
2188
2189 while(!called_Invoke_DOCUMENTCOMPLETE && GetMessage(&msg, NULL, 0, 0)) {
2190 TranslateMessage(&msg);
2191 DispatchMessage(&msg);
2192 }
2193
2194 todo_wine CHECK_CALLED(Exec_SETPROGRESSMAX);
2195 todo_wine CHECK_CALLED(Exec_SETPROGRESSPOS);
2196 todo_wine CHECK_CALLED(Exec_SETDOWNLOADSTATE_1);
2197 CLEAR_CALLED(DocHost_EnableModeless_FALSE); /* IE 7 */
2198 CLEAR_CALLED(DocHost_EnableModeless_TRUE); /* IE 7 */
2199 todo_wine CHECK_CALLED(Invoke_SETSECURELOCKICON);
2200 CLEAR_CALLED(Invoke_282); /* IE 7 */
2201 todo_wine CHECK_CALLED(EnableModeless_FALSE);
2202 todo_wine CHECK_CALLED(Invoke_COMMANDSTATECHANGE);
2203 todo_wine CHECK_CALLED(Invoke_STATUSTEXTCHANGE);
2204 todo_wine CHECK_CALLED(SetStatusText);
2205 todo_wine CHECK_CALLED(EnableModeless_TRUE);
2206 todo_wine CHECK_CALLED(QueryStatus_STOP);
2207 todo_wine CHECK_CALLED(Exec_SETDOWNLOADSTATE_0);
2208 todo_wine CHECK_CALLED(Invoke_TITLECHANGE);
2209 CHECK_CALLED(Invoke_NAVIGATECOMPLETE2);
2210 todo_wine CHECK_CALLED(GetDropTarget);
2211 todo_wine CHECK_CALLED(Invoke_PROGRESSCHANGE);
2212 CHECK_CALLED(Invoke_DOCUMENTCOMPLETE);
2213 }
2214
2215 static void test_olecmd(IUnknown *unk, BOOL loaded)
2216 {
2217 IOleCommandTarget *cmdtrg;
2218 OLECMD cmds[3];
2219 HRESULT hres;
2220
2221 hres = IUnknown_QueryInterface(unk, &IID_IOleCommandTarget, (void**)&cmdtrg);
2222 ok(hres == S_OK, "Could not get IOleCommandTarget iface: %08x\n", hres);
2223 if(FAILED(hres))
2224 return;
2225
2226 cmds[0].cmdID = OLECMDID_SPELL;
2227 cmds[0].cmdf = 0xdeadbeef;
2228 cmds[1].cmdID = OLECMDID_REFRESH;
2229 cmds[1].cmdf = 0xdeadbeef;
2230 hres = IOleCommandTarget_QueryStatus(cmdtrg, NULL, 2, cmds, NULL);
2231 if(loaded) {
2232 ok(hres == S_OK, "QueryStatus failed: %08x\n", hres);
2233 ok(cmds[0].cmdf == OLECMDF_SUPPORTED, "OLECMDID_SPELL cmdf = %x\n", cmds[0].cmdf);
2234 ok(cmds[1].cmdf == (OLECMDF_ENABLED|OLECMDF_SUPPORTED),
2235 "OLECMDID_REFRESH cmdf = %x\n", cmds[1].cmdf);
2236 }else {
2237 ok(hres == 0x80040104, "QueryStatus failed: %08x\n", hres);
2238 ok(cmds[0].cmdf == 0xdeadbeef, "OLECMDID_SPELL cmdf = %x\n", cmds[0].cmdf);
2239 ok(cmds[1].cmdf == 0xdeadbeef, "OLECMDID_REFRESH cmdf = %x\n", cmds[0].cmdf);
2240 }
2241
2242 IOleCommandTarget_Release(cmdtrg);
2243 }
2244
2245 static void test_IServiceProvider(IUnknown *unk)
2246 {
2247 IServiceProvider *servprov = (void*)0xdeadbeef;
2248 HRESULT hres;
2249 IUnknown *ret = NULL;
2250 static const IID IID_IBrowserService2 =
2251 {0x68BD21CC,0x438B,0x11d2,{0xA5,0x60,0x00,0xA0,0xC,0x2D,0xBF,0xE8}};
2252
2253 hres = IUnknown_QueryInterface(unk, &IID_IServiceProvider, (void**)&servprov);
2254 ok(hres == S_OK, "QueryInterface returned %08x, expected S_OK\n", hres);
2255 if(FAILED(hres))
2256 return;
2257
2258 hres = IServiceProvider_QueryService(servprov, &SID_STopLevelBrowser, &IID_IBrowserService2, (LPVOID*)&ret);
2259 ok(hres == E_FAIL, "QueryService returned %08x, expected E_FAIL\n", hres);
2260 ok(ret == NULL, "ret returned %p, expected NULL\n", ret);
2261 if(hres == S_OK)
2262 {
2263 IUnknown_Release(ret);
2264 }
2265
2266 IServiceProvider_Release(servprov);
2267 }
2268
2269 static void test_QueryInterface(IUnknown *unk)
2270 {
2271 IQuickActivate *qa = (IQuickActivate*)0xdeadbeef;
2272 IRunnableObject *runnable = (IRunnableObject*)0xdeadbeef;
2273 IPerPropertyBrowsing *propbrowse = (void*)0xdeadbeef;
2274 IOleInPlaceSite *inplace = (void*)0xdeadbeef;
2275 IOleCache *cache = (void*)0xdeadbeef;
2276 IObjectWithSite *site = (void*)0xdeadbeef;
2277 IViewObjectEx *viewex = (void*)0xdeadbeef;
2278 HRESULT hres;
2279
2280 hres = IUnknown_QueryInterface(unk, &IID_IQuickActivate, (void**)&qa);
2281 ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2282 ok(qa == NULL, "qa=%p, expected NULL\n", qa);
2283
2284 hres = IUnknown_QueryInterface(unk, &IID_IRunnableObject, (void**)&runnable);
2285 ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2286 ok(runnable == NULL, "runnable=%p, expected NULL\n", runnable);
2287
2288 hres = IUnknown_QueryInterface(unk, &IID_IPerPropertyBrowsing, (void**)&propbrowse);
2289 ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2290 ok(propbrowse == NULL, "propbrowse=%p, expected NULL\n", propbrowse);
2291
2292 hres = IUnknown_QueryInterface(unk, &IID_IOleCache, (void**)&cache);
2293 ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2294 ok(cache == NULL, "cache=%p, expected NULL\n", cache);
2295
2296 hres = IUnknown_QueryInterface(unk, &IID_IOleInPlaceSite, (void**)&inplace);
2297 ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2298 ok(inplace == NULL, "inplace=%p, expected NULL\n", inplace);
2299
2300 hres = IUnknown_QueryInterface(unk, &IID_IObjectWithSite, (void**)&site);
2301 ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2302 ok(site == NULL, "site=%p, expected NULL\n", site);
2303
2304 hres = IUnknown_QueryInterface(unk, &IID_IViewObjectEx, (void**)&viewex);
2305 ok(hres == E_NOINTERFACE, "QueryInterface returned %08x, expected E_NOINTERFACE\n", hres);
2306 ok(viewex == NULL, "viewex=%p, expected NULL\n", viewex);
2307
2308 }
2309
2310 static void test_WebBrowser(BOOL do_download)
2311 {
2312 IUnknown *unk = NULL;
2313 ULONG ref;
2314 HRESULT hres;
2315
2316 hres = CoCreateInstance(&CLSID_WebBrowser, NULL, CLSCTX_INPROC_SERVER|CLSCTX_INPROC_HANDLER,
2317 &IID_IUnknown, (void**)&unk);
2318 ok(hres == S_OK, "CoCreateInterface failed: %08x\n", hres);
2319 if(FAILED(hres))
2320 return;
2321
2322 is_downloading = FALSE;
2323
2324 hres = IUnknown_QueryInterface(unk, &IID_IWebBrowser2, (void**)&wb);
2325 ok(hres == S_OK, "Could not get IWebBrowser2 iface: %08x\n", hres);
2326
2327 test_QueryInterface(unk);
2328 test_ClassInfo(unk);
2329 test_LocationURL(unk, emptyW);
2330 test_ConnectionPoint(unk, TRUE);
2331 test_ClientSite(unk, &ClientSite);
2332 test_Extent(unk);
2333 test_wb_funcs(unk, TRUE);
2334 test_DoVerb(unk);
2335 test_olecmd(unk, FALSE);
2336 test_Navigate2(unk);
2337
2338 if(do_download) {
2339 test_download();
2340 test_olecmd(unk, TRUE);
2341 }
2342
2343 test_ClientSite(unk, NULL);
2344 test_ie_funcs(unk);
2345 test_GetControlInfo(unk);
2346 test_wb_funcs(unk, FALSE);
2347 test_ConnectionPoint(unk, FALSE);
2348 test_IServiceProvider(unk);
2349
2350 IWebBrowser2_Release(wb);
2351 ref = IUnknown_Release(unk);
2352 ok(ref == 0, "ref=%d, expected 0\n", ref);
2353 }
2354
2355 static void gecko_installer_workaround(BOOL disable)
2356 {
2357 HKEY hkey;
2358 DWORD res;
2359
2360 static BOOL has_url = FALSE;
2361 static char url[2048];
2362
2363 if(!disable && !has_url)
2364 return;
2365
2366 res = RegOpenKey(HKEY_CURRENT_USER, "Software\\Wine\\MSHTML", &hkey);
2367 if(res != ERROR_SUCCESS)
2368 return;
2369
2370 if(disable) {
2371 DWORD type, size = sizeof(url);
2372
2373 res = RegQueryValueEx(hkey, "GeckoUrl", NULL, &type, (PVOID)url, &size);
2374 if(res == ERROR_SUCCESS && type == REG_SZ)
2375 has_url = TRUE;
2376
2377 RegDeleteValue(hkey, "GeckoUrl");
2378 }else {
2379 RegSetValueEx(hkey, "GeckoUrl", 0, REG_SZ, (PVOID)url, lstrlenA(url)+1);
2380 }
2381
2382 RegCloseKey(hkey);
2383 }
2384
2385 START_TEST(webbrowser)
2386 {
2387 gecko_installer_workaround(TRUE);
2388
2389 container_hwnd = create_container_window();
2390
2391 OleInitialize(NULL);
2392
2393 trace("Testing WebBrowser (no download)...\n");
2394 test_WebBrowser(FALSE);
2395 trace("Testing WebBrowser...\n");
2396 test_WebBrowser(TRUE);
2397
2398 OleUninitialize();
2399
2400 gecko_installer_workaround(FALSE);
2401 }
useful hacks and other patches not (yet) suitable for mainline