1 /*
2 * Implementation of IWebBrowser interface for WebBrowser control
3 *
4 * Copyright 2001 John R. Sheets (for CodeWeavers)
5 * Copyright 2005 Jacek Caban
6 *
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
11 *
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
16 *
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20 */
21
22 #include "wine/debug.h"
23 #include "shdocvw.h"
24 #include "exdispid.h"
25
26 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
27
28 /**********************************************************************
29 * Implement the IWebBrowser interface
30 */
31
32 #define WEBBROWSER_THIS(iface) DEFINE_THIS(WebBrowser, WebBrowser2, iface)
33
34 static HRESULT WINAPI WebBrowser_QueryInterface(IWebBrowser2 *iface, REFIID riid, LPVOID *ppv)
35 {
36 WebBrowser *This = WEBBROWSER_THIS(iface);
37
38 if (ppv == NULL)
39 return E_POINTER;
40 *ppv = NULL;
41
42 if(IsEqualGUID(&IID_IUnknown, riid)) {
43 TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
44 *ppv = WEBBROWSER(This);
45 }else if(IsEqualGUID(&IID_IDispatch, riid)) {
46 TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
47 *ppv = WEBBROWSER(This);
48 }else if(IsEqualGUID(&IID_IWebBrowser, riid)) {
49 TRACE("(%p)->(IID_IWebBrowser %p)\n", This, ppv);
50 *ppv = WEBBROWSER(This);
51 }else if(IsEqualGUID(&IID_IWebBrowserApp, riid)) {
52 TRACE("(%p)->(IID_IWebBrowserApp %p)\n", This, ppv);
53 *ppv = WEBBROWSER(This);
54 }else if(IsEqualGUID(&IID_IWebBrowser2, riid)) {
55 TRACE("(%p)->(IID_IWebBrowser2 %p)\n", This, ppv);
56 *ppv = WEBBROWSER(This);
57 }else if(IsEqualGUID(&IID_IOleObject, riid)) {
58 TRACE("(%p)->(IID_IOleObject %p)\n", This, ppv);
59 *ppv = OLEOBJ(This);
60 }else if(IsEqualGUID(&IID_IOleWindow, riid)) {
61 TRACE("(%p)->(IID_IOleWindow %p)\n", This, ppv);
62 *ppv = INPLACEOBJ(This);
63 }else if(IsEqualGUID (&IID_IOleInPlaceObject, riid)) {
64 TRACE("(%p)->(IID_IOleInPlaceObject %p)\n", This, ppv);
65 *ppv = INPLACEOBJ(This);
66 }else if(IsEqualGUID(&IID_IOleControl, riid)) {
67 TRACE("(%p)->(IID_IOleControl %p)\n", This, ppv);
68 *ppv = CONTROL(This);
69 }else if(IsEqualGUID(&IID_IPersist, riid)) {
70 TRACE("(%p)->(IID_IPersist %p)\n", This, ppv);
71 *ppv = PERSTORAGE(This);
72 }else if(IsEqualGUID(&IID_IPersistStorage, riid)) {
73 TRACE("(%p)->(IID_IPersistStorage %p)\n", This, ppv);
74 *ppv = PERSTORAGE(This);
75 }else if(IsEqualGUID(&IID_IPersistMemory, riid)) {
76 TRACE("(%p)->(IID_IPersistStorage %p)\n", This, ppv);
77 *ppv = PERMEMORY(This);
78 }else if(IsEqualGUID (&IID_IPersistStreamInit, riid)) {
79 TRACE("(%p)->(IID_IPersistStreamInit %p)\n", This, ppv);
80 *ppv = PERSTRINIT(This);
81 }else if(IsEqualGUID(&IID_IProvideClassInfo, riid)) {
82 TRACE("(%p)->(IID_IProvideClassInfo %p)\n", This, ppv);
83 *ppv = CLASSINFO(This);
84 }else if(IsEqualGUID(&IID_IProvideClassInfo2, riid)) {
85 TRACE("(%p)->(IID_IProvideClassInfo2 %p)\n", This, ppv);
86 *ppv = CLASSINFO(This);
87 }else if(IsEqualGUID(&IID_IConnectionPointContainer, riid)) {
88 TRACE("(%p)->(IID_IConnectionPointContainer %p)\n", This, ppv);
89 *ppv = CONPTCONT(&This->doc_host.cps);
90 }else if(IsEqualGUID(&IID_IViewObject, riid)) {
91 TRACE("(%p)->(IID_IViewObject %p)\n", This, ppv);
92 *ppv = VIEWOBJ(This);
93 }else if(IsEqualGUID(&IID_IViewObject2, riid)) {
94 TRACE("(%p)->(IID_IViewObject2 %p)\n", This, ppv);
95 *ppv = VIEWOBJ2(This);
96 }else if(IsEqualGUID(&IID_IOleInPlaceActiveObject, riid)) {
97 TRACE("(%p)->(IID_IOleInPlaceActiveObject %p)\n", This, ppv);
98 *ppv = ACTIVEOBJ(This);
99 }else if(IsEqualGUID(&IID_IOleCommandTarget, riid)) {
100 TRACE("(%p)->(IID_IOleCommandTarget %p)\n", This, ppv);
101 *ppv = OLECMD(This);
102 }else if(IsEqualGUID(&IID_IHlinkFrame, riid)) {
103 TRACE("(%p)->(IID_IHlinkFrame %p)\n", This, ppv);
104 *ppv = HLINKFRAME(This);
105 }else if(IsEqualGUID(&IID_IQuickActivate, riid)) {
106 TRACE("(%p)->(IID_IQuickActivate %p) returning NULL\n", This, ppv);
107 return E_NOINTERFACE;
108 }else if(IsEqualGUID(&IID_IRunnableObject, riid)) {
109 TRACE("(%p)->(IID_IRunnableObject %p) returning NULL\n", This, ppv);
110 return E_NOINTERFACE;
111 }else if(IsEqualGUID(&IID_IPerPropertyBrowsing, riid)) {
112 TRACE("(%p)->(IID_IPerPropertyBrowsing %p) returning NULL\n", This, ppv);
113 return E_NOINTERFACE;
114 }else if(IsEqualGUID(&IID_IOleCache, riid)) {
115 TRACE("(%p)->(IID_IOleCache %p) returning NULL\n", This, ppv);
116 return E_NOINTERFACE;
117 }else if(IsEqualGUID(&IID_IOleInPlaceSite, riid)) {
118 TRACE("(%p)->(IID_IOleInPlaceSite %p) returning NULL\n", This, ppv);
119 return E_NOINTERFACE;
120 }else if(IsEqualGUID(&IID_IObjectWithSite, riid)) {
121 TRACE("(%p)->(IID_IObjectWithSite %p) returning NULL\n", This, ppv);
122 return E_NOINTERFACE;
123 }
124
125 if(*ppv) {
126 IUnknown_AddRef((IUnknown*)*ppv);
127 return S_OK;
128 }
129
130 FIXME("(%p)->(%s %p) interface not supported\n", This, debugstr_guid(riid), ppv);
131 return E_NOINTERFACE;
132 }
133
134 static ULONG WINAPI WebBrowser_AddRef(IWebBrowser2 *iface)
135 {
136 WebBrowser *This = WEBBROWSER_THIS(iface);
137 LONG ref = InterlockedIncrement(&This->ref);
138 TRACE("(%p) ref=%d\n", This, ref);
139 return ref;
140 }
141
142 static ULONG WINAPI WebBrowser_Release(IWebBrowser2 *iface)
143 {
144 WebBrowser *This = WEBBROWSER_THIS(iface);
145 LONG ref = InterlockedDecrement(&This->ref);
146
147 TRACE("(%p) ref=%d\n", This, ref);
148
149 if(!ref) {
150 if(This->doc_host.document)
151 IUnknown_Release(This->doc_host.document);
152
153 DocHost_Release(&This->doc_host);
154
155 WebBrowser_OleObject_Destroy(This);
156
157 heap_free(This);
158 SHDOCVW_UnlockModule();
159 }
160
161 return ref;
162 }
163
164 /* IDispatch methods */
165 static HRESULT WINAPI WebBrowser_GetTypeInfoCount(IWebBrowser2 *iface, UINT *pctinfo)
166 {
167 WebBrowser *This = WEBBROWSER_THIS(iface);
168
169 TRACE("(%p)->(%p)\n", This, pctinfo);
170
171 *pctinfo = 1;
172 return S_OK;
173 }
174
175 static HRESULT WINAPI WebBrowser_GetTypeInfo(IWebBrowser2 *iface, UINT iTInfo, LCID lcid,
176 LPTYPEINFO *ppTInfo)
177 {
178 WebBrowser *This = WEBBROWSER_THIS(iface);
179 ITypeInfo *typeinfo;
180 HRESULT hres;
181
182 TRACE("(%p)->(%d %d %p)\n", This, iTInfo, lcid, ppTInfo);
183
184 hres = get_typeinfo(&typeinfo);
185 if(FAILED(hres))
186 return hres;
187
188 ITypeInfo_AddRef(typeinfo);
189 *ppTInfo = typeinfo;
190 return S_OK;
191 }
192
193 static HRESULT WINAPI WebBrowser_GetIDsOfNames(IWebBrowser2 *iface, REFIID riid,
194 LPOLESTR *rgszNames, UINT cNames,
195 LCID lcid, DISPID *rgDispId)
196 {
197 WebBrowser *This = WEBBROWSER_THIS(iface);
198 ITypeInfo *typeinfo;
199 HRESULT hres;
200
201 TRACE("(%p)->(%s %p %d %d %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
202 lcid, rgDispId);
203
204 hres = get_typeinfo(&typeinfo);
205 if(FAILED(hres))
206 return hres;
207
208 return ITypeInfo_GetIDsOfNames(typeinfo, rgszNames, cNames, rgDispId);
209 }
210
211 static HRESULT WINAPI WebBrowser_Invoke(IWebBrowser2 *iface, DISPID dispIdMember,
212 REFIID riid, LCID lcid, WORD wFlags,
213 DISPPARAMS *pDispParams, VARIANT *pVarResult,
214 EXCEPINFO *pExepInfo, UINT *puArgErr)
215 {
216 WebBrowser *This = WEBBROWSER_THIS(iface);
217 ITypeInfo *typeinfo;
218 HRESULT hres;
219
220 TRACE("(%p)->(%d %s %d %08x %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
221 lcid, wFlags, pDispParams, pVarResult, pExepInfo, puArgErr);
222
223 hres = get_typeinfo(&typeinfo);
224 if(FAILED(hres))
225 return hres;
226
227 return ITypeInfo_Invoke(typeinfo, WEBBROWSER2(This), dispIdMember, wFlags, pDispParams,
228 pVarResult, pExepInfo, puArgErr);
229 }
230
231 /* IWebBrowser methods */
232 static HRESULT WINAPI WebBrowser_GoBack(IWebBrowser2 *iface)
233 {
234 WebBrowser *This = WEBBROWSER_THIS(iface);
235 FIXME("(%p)\n", This);
236 return E_NOTIMPL;
237 }
238
239 static HRESULT WINAPI WebBrowser_GoForward(IWebBrowser2 *iface)
240 {
241 WebBrowser *This = WEBBROWSER_THIS(iface);
242 FIXME("(%p)\n", This);
243 return E_NOTIMPL;
244 }
245
246 static HRESULT WINAPI WebBrowser_GoHome(IWebBrowser2 *iface)
247 {
248 WebBrowser *This = WEBBROWSER_THIS(iface);
249 TRACE("(%p)\n", This);
250 return go_home(&This->doc_host);
251 }
252
253 static HRESULT WINAPI WebBrowser_GoSearch(IWebBrowser2 *iface)
254 {
255 WebBrowser *This = WEBBROWSER_THIS(iface);
256 FIXME("(%p)\n", This);
257 return E_NOTIMPL;
258 }
259
260 static HRESULT WINAPI WebBrowser_Navigate(IWebBrowser2 *iface, BSTR szUrl,
261 VARIANT *Flags, VARIANT *TargetFrameName,
262 VARIANT *PostData, VARIANT *Headers)
263 {
264 WebBrowser *This = WEBBROWSER_THIS(iface);
265
266 TRACE("(%p)->(%s %p %p %p %p)\n", This, debugstr_w(szUrl), Flags, TargetFrameName,
267 PostData, Headers);
268
269 return navigate_url(&This->doc_host, szUrl, Flags, TargetFrameName, PostData, Headers);
270 }
271
272 static HRESULT WINAPI WebBrowser_Refresh(IWebBrowser2 *iface)
273 {
274 WebBrowser *This = WEBBROWSER_THIS(iface);
275 FIXME("(%p)\n", This);
276 return E_NOTIMPL;
277 }
278
279 static HRESULT WINAPI WebBrowser_Refresh2(IWebBrowser2 *iface, VARIANT *Level)
280 {
281 WebBrowser *This = WEBBROWSER_THIS(iface);
282 FIXME("(%p)->(%p)\n", This, Level);
283 return E_NOTIMPL;
284 }
285
286 static HRESULT WINAPI WebBrowser_Stop(IWebBrowser2 *iface)
287 {
288 WebBrowser *This = WEBBROWSER_THIS(iface);
289 FIXME("(%p)\n", This);
290 return E_NOTIMPL;
291 }
292
293 static HRESULT WINAPI WebBrowser_get_Application(IWebBrowser2 *iface, IDispatch **ppDisp)
294 {
295 WebBrowser *This = WEBBROWSER_THIS(iface);
296
297 TRACE("(%p)->(%p)\n", This, ppDisp);
298
299 if(!ppDisp)
300 return E_POINTER;
301
302 *ppDisp = (IDispatch*)WEBBROWSER2(This);
303 IDispatch_AddRef(*ppDisp);
304 return S_OK;
305 }
306
307 static HRESULT WINAPI WebBrowser_get_Parent(IWebBrowser2 *iface, IDispatch **ppDisp)
308 {
309 WebBrowser *This = WEBBROWSER_THIS(iface);
310 FIXME("(%p)->(%p)\n", This, ppDisp);
311 return E_NOTIMPL;
312 }
313
314 static HRESULT WINAPI WebBrowser_get_Container(IWebBrowser2 *iface, IDispatch **ppDisp)
315 {
316 WebBrowser *This = WEBBROWSER_THIS(iface);
317 FIXME("(%p)->(%p)\n", This, ppDisp);
318 return E_NOTIMPL;
319 }
320
321 static HRESULT WINAPI WebBrowser_get_Document(IWebBrowser2 *iface, IDispatch **ppDisp)
322 {
323 WebBrowser *This = WEBBROWSER_THIS(iface);
324
325 TRACE("(%p)->(%p)\n", This, ppDisp);
326
327 *ppDisp = NULL;
328 if(This->doc_host.document)
329 IUnknown_QueryInterface(This->doc_host.document, &IID_IDispatch, (void**)ppDisp);
330
331 return S_OK;
332 }
333
334 static HRESULT WINAPI WebBrowser_get_TopLevelContainer(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
335 {
336 WebBrowser *This = WEBBROWSER_THIS(iface);
337 FIXME("(%p)->(%p)\n", This, pBool);
338 return E_NOTIMPL;
339 }
340
341 static HRESULT WINAPI WebBrowser_get_Type(IWebBrowser2 *iface, BSTR *Type)
342 {
343 WebBrowser *This = WEBBROWSER_THIS(iface);
344 FIXME("(%p)->(%p)\n", This, Type);
345 return E_NOTIMPL;
346 }
347
348 static HRESULT WINAPI WebBrowser_get_Left(IWebBrowser2 *iface, long *pl)
349 {
350 WebBrowser *This = WEBBROWSER_THIS(iface);
351
352 TRACE("(%p)->(%p)\n", This, pl);
353
354 *pl = This->pos_rect.left;
355 return S_OK;
356 }
357
358 static HRESULT WINAPI WebBrowser_put_Left(IWebBrowser2 *iface, long Left)
359 {
360 WebBrowser *This = WEBBROWSER_THIS(iface);
361 RECT rect;
362
363 TRACE("(%p)->(%ld)\n", This, Left);
364
365 if(!This->inplace)
366 return E_UNEXPECTED;
367
368 rect = This->pos_rect;
369 rect.left = Left;
370
371 /* We don't really change the window position here.
372 * We just notify the embedder that he should do so. */
373 return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
374 }
375
376 static HRESULT WINAPI WebBrowser_get_Top(IWebBrowser2 *iface, long *pl)
377 {
378 WebBrowser *This = WEBBROWSER_THIS(iface);
379
380 TRACE("(%p)->(%p)\n", This, pl);
381
382 *pl = This->pos_rect.top;
383 return S_OK;
384 }
385
386 static HRESULT WINAPI WebBrowser_put_Top(IWebBrowser2 *iface, long Top)
387 {
388 WebBrowser *This = WEBBROWSER_THIS(iface);
389 RECT rect;
390
391 TRACE("(%p)->(%ld)\n", This, Top);
392
393 if(!This->inplace)
394 return E_UNEXPECTED;
395
396 rect = This->pos_rect;
397 rect.top = Top;
398
399 /* We don't really change the window position here.
400 * We just notify the embedder that he should do so. */
401 return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
402 }
403
404 static HRESULT WINAPI WebBrowser_get_Width(IWebBrowser2 *iface, long *pl)
405 {
406 WebBrowser *This = WEBBROWSER_THIS(iface);
407
408 TRACE("(%p)->(%p)\n", This, pl);
409
410 *pl = This->pos_rect.right - This->pos_rect.left;
411 return S_OK;
412 }
413
414 static HRESULT WINAPI WebBrowser_put_Width(IWebBrowser2 *iface, long Width)
415 {
416 WebBrowser *This = WEBBROWSER_THIS(iface);
417 RECT rect;
418
419 TRACE("(%p)->(%ld)\n", This, Width);
420
421 if(!This->inplace)
422 return E_UNEXPECTED;
423
424 rect = This->pos_rect;
425 rect.right = rect.left+Width;
426
427 /* We don't really change the window size here.
428 * We just notify the embedder that he should do so. */
429 return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
430 }
431
432 static HRESULT WINAPI WebBrowser_get_Height(IWebBrowser2 *iface, long *pl)
433 {
434 WebBrowser *This = WEBBROWSER_THIS(iface);
435
436 TRACE("(%p)->(%p)\n", This, pl);
437
438 *pl = This->pos_rect.bottom - This->pos_rect.top;
439 return S_OK;
440 }
441
442 static HRESULT WINAPI WebBrowser_put_Height(IWebBrowser2 *iface, long Height)
443 {
444 WebBrowser *This = WEBBROWSER_THIS(iface);
445 RECT rect;
446
447 TRACE("(%p)->(%ld)\n", This, Height);
448
449 if(!This->inplace)
450 return E_UNEXPECTED;
451
452 rect = This->pos_rect;
453 rect.bottom = rect.top+Height;
454
455 /* We don't really change the window size here.
456 * We just notify the embedder that he should do so. */
457 return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
458 }
459
460 static HRESULT WINAPI WebBrowser_get_LocationName(IWebBrowser2 *iface, BSTR *LocationName)
461 {
462 WebBrowser *This = WEBBROWSER_THIS(iface);
463 FIXME("(%p)->(%p)\n", This, LocationName);
464 return E_NOTIMPL;
465 }
466
467 static HRESULT WINAPI WebBrowser_get_LocationURL(IWebBrowser2 *iface, BSTR *LocationURL)
468 {
469 WebBrowser *This = WEBBROWSER_THIS(iface);
470
471 FIXME("(%p)->(%p)\n", This, LocationURL);
472
473 if(!This->doc_host.url) {
474 static const WCHAR null_char = 0;
475 *LocationURL = SysAllocString(&null_char);
476 return S_FALSE;
477 }
478
479 *LocationURL = SysAllocString(This->doc_host.url);
480 return S_OK;
481 }
482
483 static HRESULT WINAPI WebBrowser_get_Busy(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
484 {
485 WebBrowser *This = WEBBROWSER_THIS(iface);
486
487 TRACE("(%p)->(%p)\n", This, pBool);
488
489 *pBool = This->doc_host.busy;
490 return S_OK;
491 }
492
493 static HRESULT WINAPI WebBrowser_Quit(IWebBrowser2 *iface)
494 {
495 WebBrowser *This = WEBBROWSER_THIS(iface);
496
497 TRACE("(%p)\n", This);
498
499 /* It's a InternetExplorer specific method, we have nothing to do here. */
500 return E_FAIL;
501 }
502
503 static HRESULT WINAPI WebBrowser_ClientToWindow(IWebBrowser2 *iface, int *pcx, int *pcy)
504 {
505 WebBrowser *This = WEBBROWSER_THIS(iface);
506 FIXME("(%p)->(%p %p)\n", This, pcx, pcy);
507 return E_NOTIMPL;
508 }
509
510 static HRESULT WINAPI WebBrowser_PutProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT vtValue)
511 {
512 WebBrowser *This = WEBBROWSER_THIS(iface);
513 FIXME("(%p)->(%s)\n", This, debugstr_w(szProperty));
514 return E_NOTIMPL;
515 }
516
517 static HRESULT WINAPI WebBrowser_GetProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT *pvtValue)
518 {
519 WebBrowser *This = WEBBROWSER_THIS(iface);
520 FIXME("(%p)->(%s %p)\n", This, debugstr_w(szProperty), pvtValue);
521 return E_NOTIMPL;
522 }
523
524 static HRESULT WINAPI WebBrowser_get_Name(IWebBrowser2 *iface, BSTR *Name)
525 {
526 WebBrowser *This = WEBBROWSER_THIS(iface);
527 FIXME("(%p)->(%p)\n", This, Name);
528 return E_NOTIMPL;
529 }
530
531 static HRESULT WINAPI WebBrowser_get_HWND(IWebBrowser2 *iface, long *pHWND)
532 {
533 WebBrowser *This = WEBBROWSER_THIS(iface);
534
535 TRACE("(%p)->(%p)\n", This, pHWND);
536
537 /* WebBrowser control never has a frame window (in opposition to InternetExplorer) */
538 *pHWND = 0;
539 return E_FAIL;
540 }
541
542 static HRESULT WINAPI WebBrowser_get_FullName(IWebBrowser2 *iface, BSTR *FullName)
543 {
544 WebBrowser *This = WEBBROWSER_THIS(iface);
545 FIXME("(%p)->(%p)\n", This, FullName);
546 return E_NOTIMPL;
547 }
548
549 static HRESULT WINAPI WebBrowser_get_Path(IWebBrowser2 *iface, BSTR *Path)
550 {
551 WebBrowser *This = WEBBROWSER_THIS(iface);
552 FIXME("(%p)->(%p)\n", This, Path);
553 return E_NOTIMPL;
554 }
555
556 static HRESULT WINAPI WebBrowser_get_Visible(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
557 {
558 WebBrowser *This = WEBBROWSER_THIS(iface);
559
560 TRACE("(%p)->(%p)\n", This, pBool);
561
562 *pBool = This->visible;
563 return S_OK;
564 }
565
566 static HRESULT WINAPI WebBrowser_put_Visible(IWebBrowser2 *iface, VARIANT_BOOL Value)
567 {
568 WebBrowser *This = WEBBROWSER_THIS(iface);
569 VARIANTARG arg;
570 DISPPARAMS dispparams = {&arg, NULL, 1, 0};
571
572 TRACE("(%p)->(%x)\n", This, Value);
573
574 This->visible = Value;
575
576 V_VT(&arg) = VT_BOOL;
577 V_BOOL(&arg) = Value;
578 call_sink(This->doc_host.cps.wbe2, DISPID_ONVISIBLE, &dispparams);
579
580 return S_OK;
581 }
582
583 static HRESULT WINAPI WebBrowser_get_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
584 {
585 WebBrowser *This = WEBBROWSER_THIS(iface);
586
587 TRACE("(%p)->(%p)\n", This, pBool);
588
589 *pBool = This->status_bar;
590 return S_OK;
591 }
592
593 static HRESULT WINAPI WebBrowser_put_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
594 {
595 WebBrowser *This = WEBBROWSER_THIS(iface);
596 VARIANTARG arg;
597 DISPPARAMS dispparams = {&arg, NULL, 1, 0};
598
599 TRACE("(%p)->(%x)\n", This, Value);
600
601 This->status_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
602
603 /* In opposition to InternetExplorer, all we should do here is
604 * inform the embedder about the status bar change. */
605
606 V_VT(&arg) = VT_BOOL;
607 V_BOOL(&arg) = Value;
608 call_sink(This->doc_host.cps.wbe2, DISPID_ONSTATUSBAR, &dispparams);
609
610 return S_OK;
611 }
612
613 static HRESULT WINAPI WebBrowser_get_StatusText(IWebBrowser2 *iface, BSTR *StatusText)
614 {
615 WebBrowser *This = WEBBROWSER_THIS(iface);
616 FIXME("(%p)->(%p)\n", This, StatusText);
617 return E_NOTIMPL;
618 }
619
620 static HRESULT WINAPI WebBrowser_put_StatusText(IWebBrowser2 *iface, BSTR StatusText)
621 {
622 WebBrowser *This = WEBBROWSER_THIS(iface);
623 FIXME("(%p)->(%s)\n", This, debugstr_w(StatusText));
624 return E_NOTIMPL;
625 }
626
627 static HRESULT WINAPI WebBrowser_get_ToolBar(IWebBrowser2 *iface, int *Value)
628 {
629 WebBrowser *This = WEBBROWSER_THIS(iface);
630
631 TRACE("(%p)->(%p)\n", This, Value);
632
633 *Value = This->tool_bar;
634 return S_OK;
635 }
636
637 static HRESULT WINAPI WebBrowser_put_ToolBar(IWebBrowser2 *iface, int Value)
638 {
639 WebBrowser *This = WEBBROWSER_THIS(iface);
640 VARIANTARG arg;
641 DISPPARAMS dispparams = {&arg, NULL, 1, 0};
642
643 TRACE("(%p)->(%x)\n", This, Value);
644
645 This->tool_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
646
647 /* In opposition to InternetExplorer, all we should do here is
648 * inform the embedder about the tool bar change. */
649
650 V_VT(&arg) = VT_BOOL;
651 V_BOOL(&arg) = This->tool_bar;
652 call_sink(This->doc_host.cps.wbe2, DISPID_ONTOOLBAR, &dispparams);
653
654 return S_OK;
655 }
656
657 static HRESULT WINAPI WebBrowser_get_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
658 {
659 WebBrowser *This = WEBBROWSER_THIS(iface);
660
661 TRACE("(%p)->(%p)\n", This, Value);
662
663 *Value = This->menu_bar;
664 return S_OK;
665 }
666
667 static HRESULT WINAPI WebBrowser_put_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
668 {
669 WebBrowser *This = WEBBROWSER_THIS(iface);
670 VARIANTARG arg;
671 DISPPARAMS dispparams = {&arg, NULL, 1, 0};
672
673 TRACE("(%p)->(%x)\n", This, Value);
674
675 This->menu_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
676
677 /* In opposition to InternetExplorer, all we should do here is
678 * inform the embedder about the menu bar change. */
679
680 V_VT(&arg) = VT_BOOL;
681 V_BOOL(&arg) = Value;
682 call_sink(This->doc_host.cps.wbe2, DISPID_ONMENUBAR, &dispparams);
683
684 return S_OK;
685 }
686
687 static HRESULT WINAPI WebBrowser_get_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL *pbFullScreen)
688 {
689 WebBrowser *This = WEBBROWSER_THIS(iface);
690
691 TRACE("(%p)->(%p)\n", This, pbFullScreen);
692
693 *pbFullScreen = This->full_screen;
694 return S_OK;
695 }
696
697 static HRESULT WINAPI WebBrowser_put_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL bFullScreen)
698 {
699 WebBrowser *This = WEBBROWSER_THIS(iface);
700 VARIANTARG arg;
701 DISPPARAMS dispparams = {&arg, NULL, 1, 0};
702
703 /* In opposition to InternetExplorer, all we should do here is
704 * inform the embedder about the fullscreen change. */
705
706 TRACE("(%p)->(%x)\n", This, bFullScreen);
707
708 This->full_screen = bFullScreen ? VARIANT_TRUE : VARIANT_FALSE;
709
710 V_VT(&arg) = VT_BOOL;
711 V_BOOL(&arg) = bFullScreen;
712 call_sink(This->doc_host.cps.wbe2, DISPID_ONFULLSCREEN, &dispparams);
713
714 return S_OK;
715 }
716
717 static HRESULT WINAPI WebBrowser_Navigate2(IWebBrowser2 *iface, VARIANT *URL, VARIANT *Flags,
718 VARIANT *TargetFrameName, VARIANT *PostData, VARIANT *Headers)
719 {
720 WebBrowser *This = WEBBROWSER_THIS(iface);
721
722 TRACE("(%p)->(%p %p %p %p %p)\n", This, URL, Flags, TargetFrameName, PostData, Headers);
723
724 if(!This->client)
725 return E_FAIL;
726
727 if(!URL)
728 return S_OK;
729
730 if(V_VT(URL) != VT_BSTR) {
731 FIXME("Unsupported V_VT(URL) %d\n", V_VT(URL));
732 return E_INVALIDARG;
733 }
734
735 return navigate_url(&This->doc_host, V_BSTR(URL), Flags, TargetFrameName, PostData, Headers);
736 }
737
738 static HRESULT WINAPI WebBrowser_QueryStatusWB(IWebBrowser2 *iface, OLECMDID cmdID, OLECMDF *pcmdf)
739 {
740 WebBrowser *This = WEBBROWSER_THIS(iface);
741 FIXME("(%p)->(%d %p)\n", This, cmdID, pcmdf);
742 return E_NOTIMPL;
743 }
744
745 static HRESULT WINAPI WebBrowser_ExecWB(IWebBrowser2 *iface, OLECMDID cmdID,
746 OLECMDEXECOPT cmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
747 {
748 WebBrowser *This = WEBBROWSER_THIS(iface);
749 FIXME("(%p)->(%d %d %p %p)\n", This, cmdID, cmdexecopt, pvaIn, pvaOut);
750 return E_NOTIMPL;
751 }
752
753 static HRESULT WINAPI WebBrowser_ShowBrowserBar(IWebBrowser2 *iface, VARIANT *pvaClsid,
754 VARIANT *pvarShow, VARIANT *pvarSize)
755 {
756 WebBrowser *This = WEBBROWSER_THIS(iface);
757 FIXME("(%p)->(%p %p %p)\n", This, pvaClsid, pvarShow, pvarSize);
758 return E_NOTIMPL;
759 }
760
761 static HRESULT WINAPI WebBrowser_get_ReadyState(IWebBrowser2 *iface, READYSTATE *lpReadyState)
762 {
763 WebBrowser *This = WEBBROWSER_THIS(iface);
764 FIXME("(%p)->(%p)\n", This, lpReadyState);
765
766 *lpReadyState = READYSTATE_COMPLETE;
767 return S_OK;
768 }
769
770 static HRESULT WINAPI WebBrowser_get_Offline(IWebBrowser2 *iface, VARIANT_BOOL *pbOffline)
771 {
772 WebBrowser *This = WEBBROWSER_THIS(iface);
773
774 TRACE("(%p)->(%p)\n", This, pbOffline);
775
776 *pbOffline = This->doc_host.offline;
777 return S_OK;
778 }
779
780 static HRESULT WINAPI WebBrowser_put_Offline(IWebBrowser2 *iface, VARIANT_BOOL bOffline)
781 {
782 WebBrowser *This = WEBBROWSER_THIS(iface);
783
784 TRACE("(%p)->(%x)\n", This, bOffline);
785
786 This->doc_host.offline = bOffline ? VARIANT_TRUE : VARIANT_FALSE;
787 return S_OK;
788 }
789
790 static HRESULT WINAPI WebBrowser_get_Silent(IWebBrowser2 *iface, VARIANT_BOOL *pbSilent)
791 {
792 WebBrowser *This = WEBBROWSER_THIS(iface);
793
794 TRACE("(%p)->(%p)\n", This, pbSilent);
795
796 *pbSilent = This->doc_host.silent;
797 return S_OK;
798 }
799
800 static HRESULT WINAPI WebBrowser_put_Silent(IWebBrowser2 *iface, VARIANT_BOOL bSilent)
801 {
802 WebBrowser *This = WEBBROWSER_THIS(iface);
803
804 TRACE("(%p)->(%x)\n", This, bSilent);
805
806 This->doc_host.silent = bSilent ? VARIANT_TRUE : VARIANT_FALSE;
807 return S_OK;
808 }
809
810 static HRESULT WINAPI WebBrowser_get_RegisterAsBrowser(IWebBrowser2 *iface,
811 VARIANT_BOOL *pbRegister)
812 {
813 WebBrowser *This = WEBBROWSER_THIS(iface);
814
815 FIXME("(%p)->(%p)\n", This, pbRegister);
816
817 *pbRegister = This->register_browser;
818 return S_OK;
819 }
820
821 static HRESULT WINAPI WebBrowser_put_RegisterAsBrowser(IWebBrowser2 *iface,
822 VARIANT_BOOL bRegister)
823 {
824 WebBrowser *This = WEBBROWSER_THIS(iface);
825
826 FIXME("(%p)->(%x)\n", This, bRegister);
827
828 This->register_browser = bRegister ? VARIANT_TRUE : VARIANT_FALSE;
829 return S_OK;
830 }
831
832 static HRESULT WINAPI WebBrowser_get_RegisterAsDropTarget(IWebBrowser2 *iface,
833 VARIANT_BOOL *pbRegister)
834 {
835 WebBrowser *This = WEBBROWSER_THIS(iface);
836 FIXME("(%p)->(%p)\n", This, pbRegister);
837 *pbRegister=0;
838 return S_OK;
839 }
840
841 static HRESULT WINAPI WebBrowser_put_RegisterAsDropTarget(IWebBrowser2 *iface,
842 VARIANT_BOOL bRegister)
843 {
844 WebBrowser *This = WEBBROWSER_THIS(iface);
845 FIXME("(%p)->(%x)\n", This, bRegister);
846 return S_OK;
847 }
848
849 static HRESULT WINAPI WebBrowser_get_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL *pbRegister)
850 {
851 WebBrowser *This = WEBBROWSER_THIS(iface);
852
853 TRACE("(%p)->(%p)\n", This, pbRegister);
854
855 *pbRegister = This->theater_mode;
856 return S_OK;
857 }
858
859 static HRESULT WINAPI WebBrowser_put_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL bRegister)
860 {
861 WebBrowser *This = WEBBROWSER_THIS(iface);
862 VARIANTARG arg;
863 DISPPARAMS dispparams = {&arg, NULL, 1, 0};
864
865 TRACE("(%p)->(%x)\n", This, bRegister);
866
867 This->theater_mode = bRegister ? VARIANT_TRUE : VARIANT_FALSE;
868
869 /* In opposition to InternetExplorer, all we should do here is
870 * inform the embedder about the theater mode change. */
871
872 V_VT(&arg) = VT_BOOL;
873 V_BOOL(&arg) = bRegister;
874 call_sink(This->doc_host.cps.wbe2, DISPID_ONTHEATERMODE, &dispparams);
875
876 return S_OK;
877 }
878
879 static HRESULT WINAPI WebBrowser_get_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
880 {
881 WebBrowser *This = WEBBROWSER_THIS(iface);
882
883 TRACE("(%p)->(%p)\n", This, Value);
884
885 *Value = This->address_bar;
886 return S_OK;
887 }
888
889 static HRESULT WINAPI WebBrowser_put_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
890 {
891 WebBrowser *This = WEBBROWSER_THIS(iface);
892 VARIANTARG arg;
893 DISPPARAMS dispparams = {&arg, NULL, 1, 0};
894
895 TRACE("(%p)->(%x)\n", This, Value);
896
897 This->address_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
898
899 /* In opposition to InternetExplorer, all we should do here is
900 * inform the embedder about the address bar change. */
901
902 V_VT(&arg) = VT_BOOL;
903 V_BOOL(&arg) = Value;
904 call_sink(This->doc_host.cps.wbe2, DISPID_ONADDRESSBAR, &dispparams);
905
906 return S_OK;
907 }
908
909 static HRESULT WINAPI WebBrowser_get_Resizable(IWebBrowser2 *iface, VARIANT_BOOL *Value)
910 {
911 WebBrowser *This = WEBBROWSER_THIS(iface);
912
913 TRACE("(%p)->(%p)\n", This, Value);
914
915 /* It's InternetExplorer object's method. We have nothing to do here. */
916 return E_NOTIMPL;
917 }
918
919 static HRESULT WINAPI WebBrowser_put_Resizable(IWebBrowser2 *iface, VARIANT_BOOL Value)
920 {
921 WebBrowser *This = WEBBROWSER_THIS(iface);
922 VARIANTARG arg;
923 DISPPARAMS dispparams = {&arg, NULL, 1, 0};
924
925 TRACE("(%p)->(%x)\n", This, Value);
926
927 /* In opposition to InternetExplorer, all we should do here is
928 * inform the embedder about the resizable change. */
929
930 V_VT(&arg) = VT_BOOL;
931 V_BOOL(&arg) = Value;
932 call_sink(This->doc_host.cps.wbe2, DISPID_WINDOWSETRESIZABLE, &dispparams);
933
934 return S_OK;
935 }
936
937 #undef WEBBROWSER_THIS
938
939 static const IWebBrowser2Vtbl WebBrowser2Vtbl =
940 {
941 WebBrowser_QueryInterface,
942 WebBrowser_AddRef,
943 WebBrowser_Release,
944 WebBrowser_GetTypeInfoCount,
945 WebBrowser_GetTypeInfo,
946 WebBrowser_GetIDsOfNames,
947 WebBrowser_Invoke,
948 WebBrowser_GoBack,
949 WebBrowser_GoForward,
950 WebBrowser_GoHome,
951 WebBrowser_GoSearch,
952 WebBrowser_Navigate,
953 WebBrowser_Refresh,
954 WebBrowser_Refresh2,
955 WebBrowser_Stop,
956 WebBrowser_get_Application,
957 WebBrowser_get_Parent,
958 WebBrowser_get_Container,
959 WebBrowser_get_Document,
960 WebBrowser_get_TopLevelContainer,
961 WebBrowser_get_Type,
962 WebBrowser_get_Left,
963 WebBrowser_put_Left,
964 WebBrowser_get_Top,
965 WebBrowser_put_Top,
966 WebBrowser_get_Width,
967 WebBrowser_put_Width,
968 WebBrowser_get_Height,
969 WebBrowser_put_Height,
970 WebBrowser_get_LocationName,
971 WebBrowser_get_LocationURL,
972 WebBrowser_get_Busy,
973 WebBrowser_Quit,
974 WebBrowser_ClientToWindow,
975 WebBrowser_PutProperty,
976 WebBrowser_GetProperty,
977 WebBrowser_get_Name,
978 WebBrowser_get_HWND,
979 WebBrowser_get_FullName,
980 WebBrowser_get_Path,
981 WebBrowser_get_Visible,
982 WebBrowser_put_Visible,
983 WebBrowser_get_StatusBar,
984 WebBrowser_put_StatusBar,
985 WebBrowser_get_StatusText,
986 WebBrowser_put_StatusText,
987 WebBrowser_get_ToolBar,
988 WebBrowser_put_ToolBar,
989 WebBrowser_get_MenuBar,
990 WebBrowser_put_MenuBar,
991 WebBrowser_get_FullScreen,
992 WebBrowser_put_FullScreen,
993 WebBrowser_Navigate2,
994 WebBrowser_QueryStatusWB,
995 WebBrowser_ExecWB,
996 WebBrowser_ShowBrowserBar,
997 WebBrowser_get_ReadyState,
998 WebBrowser_get_Offline,
999 WebBrowser_put_Offline,
1000 WebBrowser_get_Silent,
1001 WebBrowser_put_Silent,
1002 WebBrowser_get_RegisterAsBrowser,
1003 WebBrowser_put_RegisterAsBrowser,
1004 WebBrowser_get_RegisterAsDropTarget,
1005 WebBrowser_put_RegisterAsDropTarget,
1006 WebBrowser_get_TheaterMode,
1007 WebBrowser_put_TheaterMode,
1008 WebBrowser_get_AddressBar,
1009 WebBrowser_put_AddressBar,
1010 WebBrowser_get_Resizable,
1011 WebBrowser_put_Resizable
1012 };
1013
1014 static HRESULT WebBrowser_Create(INT version, IUnknown *pOuter, REFIID riid, void **ppv)
1015 {
1016 WebBrowser *ret;
1017 HRESULT hres;
1018
1019 TRACE("(%p %s %p) version=%d\n", pOuter, debugstr_guid(riid), ppv, version);
1020
1021 ret = heap_alloc(sizeof(WebBrowser));
1022
1023 ret->lpWebBrowser2Vtbl = &WebBrowser2Vtbl;
1024 ret->ref = 0;
1025 ret->version = version;
1026
1027 DocHost_Init(&ret->doc_host, (IDispatch*)WEBBROWSER2(ret));
1028
1029 ret->register_browser = VARIANT_FALSE;
1030 ret->visible = VARIANT_TRUE;
1031 ret->menu_bar = VARIANT_TRUE;
1032 ret->address_bar = VARIANT_TRUE;
1033 ret->status_bar = VARIANT_TRUE;
1034 ret->tool_bar = VARIANT_TRUE;
1035 ret->full_screen = VARIANT_FALSE;
1036 ret->theater_mode = VARIANT_FALSE;
1037
1038 WebBrowser_OleObject_Init(ret);
1039 WebBrowser_ViewObject_Init(ret);
1040 WebBrowser_Persist_Init(ret);
1041 WebBrowser_ClassInfo_Init(ret);
1042 WebBrowser_HlinkFrame_Init(ret);
1043
1044 hres = IWebBrowser_QueryInterface(WEBBROWSER(ret), riid, ppv);
1045 if(SUCCEEDED(hres)) {
1046 SHDOCVW_LockModule();
1047 }else {
1048 heap_free(ret);
1049 return hres;
1050 }
1051
1052 return hres;
1053 }
1054
1055 HRESULT WebBrowserV1_Create(IUnknown *pOuter, REFIID riid, void **ppv)
1056 {
1057 return WebBrowser_Create(1, pOuter, riid, ppv);
1058 }
1059
1060 HRESULT WebBrowserV2_Create(IUnknown *pOuter, REFIID riid, void **ppv)
1061 {
1062 return WebBrowser_Create(2, pOuter, riid, ppv);
1063 }
1064
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.