2 * Implementation of IWebBrowser interface for WebBrowser control
4 * Copyright 2001 John R. Sheets (for CodeWeavers)
5 * Copyright 2005 Jacek Caban
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.
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.
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
22 #include "wine/debug.h"
27 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw
);
29 static inline WebBrowser
*impl_from_IWebBrowser2(IWebBrowser2
*iface
)
31 return (WebBrowser
*)((char*)iface
- FIELD_OFFSET(WebBrowser
, IWebBrowser2_iface
));
34 static HRESULT WINAPI
WebBrowser_QueryInterface(IWebBrowser2
*iface
, REFIID riid
, LPVOID
*ppv
)
36 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
42 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
43 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
44 *ppv
= &This
->IWebBrowser2_iface
;
45 }else if(IsEqualGUID(&IID_IDispatch
, riid
)) {
46 TRACE("(%p)->(IID_IDispatch %p)\n", This
, ppv
);
47 *ppv
= &This
->IWebBrowser2_iface
;
48 }else if(IsEqualGUID(&IID_IWebBrowser
, riid
)) {
49 TRACE("(%p)->(IID_IWebBrowser %p)\n", This
, ppv
);
50 *ppv
= &This
->IWebBrowser2_iface
;
51 }else if(IsEqualGUID(&IID_IWebBrowserApp
, riid
)) {
52 TRACE("(%p)->(IID_IWebBrowserApp %p)\n", This
, ppv
);
53 *ppv
= &This
->IWebBrowser2_iface
;
54 }else if(IsEqualGUID(&IID_IWebBrowser2
, riid
)) {
55 TRACE("(%p)->(IID_IWebBrowser2 %p)\n", This
, ppv
);
56 *ppv
= &This
->IWebBrowser2_iface
;
57 }else if(IsEqualGUID(&IID_IOleObject
, riid
)) {
58 TRACE("(%p)->(IID_IOleObject %p)\n", This
, ppv
);
59 *ppv
= &This
->IOleObject_iface
;
60 }else if(IsEqualGUID(&IID_IOleWindow
, riid
)) {
61 TRACE("(%p)->(IID_IOleWindow %p)\n", This
, ppv
);
62 *ppv
= &This
->IOleInPlaceObject_iface
;
63 }else if(IsEqualGUID (&IID_IOleInPlaceObject
, riid
)) {
64 TRACE("(%p)->(IID_IOleInPlaceObject %p)\n", This
, ppv
);
65 *ppv
= &This
->IOleInPlaceObject_iface
;
66 }else if(IsEqualGUID(&IID_IOleControl
, riid
)) {
67 TRACE("(%p)->(IID_IOleControl %p)\n", This
, ppv
);
68 *ppv
= &This
->IOleControl_iface
;
69 }else if(IsEqualGUID(&IID_IPersist
, riid
)) {
70 TRACE("(%p)->(IID_IPersist %p)\n", This
, ppv
);
71 *ppv
= &This
->IPersistStorage_iface
;
72 }else if(IsEqualGUID(&IID_IPersistStorage
, riid
)) {
73 TRACE("(%p)->(IID_IPersistStorage %p)\n", This
, ppv
);
74 *ppv
= &This
->IPersistStorage_iface
;
75 }else if(IsEqualGUID(&IID_IPersistMemory
, riid
)) {
76 TRACE("(%p)->(IID_IPersistStorage %p)\n", This
, ppv
);
77 *ppv
= &This
->IPersistMemory_iface
;
78 }else if(IsEqualGUID (&IID_IPersistStreamInit
, riid
)) {
79 TRACE("(%p)->(IID_IPersistStreamInit %p)\n", This
, ppv
);
80 *ppv
= &This
->IPersistStreamInit_iface
;
81 }else if(IsEqualGUID(&IID_IProvideClassInfo
, riid
)) {
82 TRACE("(%p)->(IID_IProvideClassInfo %p)\n", This
, ppv
);
83 *ppv
= &This
->IProvideClassInfo2_iface
;
84 }else if(IsEqualGUID(&IID_IProvideClassInfo2
, riid
)) {
85 TRACE("(%p)->(IID_IProvideClassInfo2 %p)\n", This
, ppv
);
86 *ppv
= &This
->IProvideClassInfo2_iface
;
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
= &This
->IViewObject2_iface
;
93 }else if(IsEqualGUID(&IID_IViewObject2
, riid
)) {
94 TRACE("(%p)->(IID_IViewObject2 %p)\n", This
, ppv
);
95 *ppv
= &This
->IViewObject2_iface
;
96 }else if(IsEqualGUID(&IID_IOleInPlaceActiveObject
, riid
)) {
97 TRACE("(%p)->(IID_IOleInPlaceActiveObject %p)\n", This
, ppv
);
98 *ppv
= &This
->IOleInPlaceActiveObject_iface
;
99 }else if(IsEqualGUID(&IID_IOleCommandTarget
, riid
)) {
100 TRACE("(%p)->(IID_IOleCommandTarget %p)\n", This
, ppv
);
101 *ppv
= &This
->IOleCommandTarget_iface
;
102 }else if(IsEqualGUID(&IID_IServiceProvider
, riid
)) {
103 *ppv
= &This
->IServiceProvider_iface
;
104 TRACE("(%p)->(IID_IServiceProvider %p)\n", This
, ppv
);
105 }else if(IsEqualGUID(&IID_IDataObject
, riid
)) {
106 *ppv
= &This
->IDataObject_iface
;
107 TRACE("(%p)->(IID_IDataObject %p)\n", This
, ppv
);
108 }else if(IsEqualGUID(&IID_IQuickActivate
, riid
)) {
109 TRACE("(%p)->(IID_IQuickActivate %p) returning NULL\n", This
, ppv
);
110 return E_NOINTERFACE
;
111 }else if(IsEqualGUID(&IID_IRunnableObject
, riid
)) {
112 TRACE("(%p)->(IID_IRunnableObject %p) returning NULL\n", This
, ppv
);
113 return E_NOINTERFACE
;
114 }else if(IsEqualGUID(&IID_IPerPropertyBrowsing
, riid
)) {
115 TRACE("(%p)->(IID_IPerPropertyBrowsing %p) returning NULL\n", This
, ppv
);
116 return E_NOINTERFACE
;
117 }else if(IsEqualGUID(&IID_IOleCache
, riid
)) {
118 TRACE("(%p)->(IID_IOleCache %p) returning NULL\n", This
, ppv
);
119 return E_NOINTERFACE
;
120 }else if(IsEqualGUID(&IID_IOleInPlaceSite
, riid
)) {
121 TRACE("(%p)->(IID_IOleInPlaceSite %p) returning NULL\n", This
, ppv
);
122 return E_NOINTERFACE
;
123 }else if(IsEqualGUID(&IID_IObjectWithSite
, riid
)) {
124 TRACE("(%p)->(IID_IObjectWithSite %p) returning NULL\n", This
, ppv
);
125 return E_NOINTERFACE
;
126 }else if(IsEqualGUID(&IID_IViewObjectEx
, riid
)) {
127 TRACE("(%p)->(IID_IViewObjectEx %p) returning NULL\n", This
, ppv
);
128 return E_NOINTERFACE
;
129 }else if(IsEqualGUID(&IID_IOleLink
, riid
)) {
130 TRACE("(%p)->(IID_IOleLink %p) returning NULL\n", This
, ppv
);
131 return E_NOINTERFACE
;
132 }else if(IsEqualGUID(&IID_IMarshal
, riid
)) {
133 TRACE("(%p)->(IID_IMarshal %p) returning NULL\n", This
, ppv
);
134 return E_NOINTERFACE
;
135 }else if(IsEqualGUID(&IID_IStdMarshalInfo
, riid
)) {
136 TRACE("(%p)->(IID_IStdMarshalInfo %p) returning NULL\n", This
, ppv
);
137 return E_NOINTERFACE
;
138 }else if(HlinkFrame_QI(&This
->hlink_frame
, riid
, ppv
)) {
143 IUnknown_AddRef((IUnknown
*)*ppv
);
147 FIXME("(%p)->(%s %p) interface not supported\n", This
, debugstr_guid(riid
), ppv
);
148 return E_NOINTERFACE
;
151 static ULONG WINAPI
WebBrowser_AddRef(IWebBrowser2
*iface
)
153 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
154 LONG ref
= InterlockedIncrement(&This
->ref
);
155 TRACE("(%p) ref=%d\n", This
, ref
);
159 static ULONG WINAPI
WebBrowser_Release(IWebBrowser2
*iface
)
161 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
162 LONG ref
= InterlockedDecrement(&This
->ref
);
164 TRACE("(%p) ref=%d\n", This
, ref
);
167 if(This
->doc_host
.document
)
168 IUnknown_Release(This
->doc_host
.document
);
170 DocHost_Release(&This
->doc_host
);
172 WebBrowser_OleObject_Destroy(This
);
175 SHDOCVW_UnlockModule();
181 /* IDispatch methods */
182 static HRESULT WINAPI
WebBrowser_GetTypeInfoCount(IWebBrowser2
*iface
, UINT
*pctinfo
)
184 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
186 TRACE("(%p)->(%p)\n", This
, pctinfo
);
192 static HRESULT WINAPI
WebBrowser_GetTypeInfo(IWebBrowser2
*iface
, UINT iTInfo
, LCID lcid
,
195 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
199 TRACE("(%p)->(%d %d %p)\n", This
, iTInfo
, lcid
, ppTInfo
);
201 hres
= get_typeinfo(&typeinfo
);
205 ITypeInfo_AddRef(typeinfo
);
210 static HRESULT WINAPI
WebBrowser_GetIDsOfNames(IWebBrowser2
*iface
, REFIID riid
,
211 LPOLESTR
*rgszNames
, UINT cNames
,
212 LCID lcid
, DISPID
*rgDispId
)
214 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
218 TRACE("(%p)->(%s %p %d %d %p)\n", This
, debugstr_guid(riid
), rgszNames
, cNames
,
221 hres
= get_typeinfo(&typeinfo
);
225 return ITypeInfo_GetIDsOfNames(typeinfo
, rgszNames
, cNames
, rgDispId
);
228 static HRESULT WINAPI
WebBrowser_Invoke(IWebBrowser2
*iface
, DISPID dispIdMember
,
229 REFIID riid
, LCID lcid
, WORD wFlags
,
230 DISPPARAMS
*pDispParams
, VARIANT
*pVarResult
,
231 EXCEPINFO
*pExepInfo
, UINT
*puArgErr
)
233 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
237 TRACE("(%p)->(%d %s %d %08x %p %p %p %p)\n", This
, dispIdMember
, debugstr_guid(riid
),
238 lcid
, wFlags
, pDispParams
, pVarResult
, pExepInfo
, puArgErr
);
240 hres
= get_typeinfo(&typeinfo
);
244 return ITypeInfo_Invoke(typeinfo
, &This
->IWebBrowser2_iface
, dispIdMember
, wFlags
, pDispParams
,
245 pVarResult
, pExepInfo
, puArgErr
);
248 /* IWebBrowser methods */
249 static HRESULT WINAPI
WebBrowser_GoBack(IWebBrowser2
*iface
)
251 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
252 FIXME("(%p)\n", This
);
256 static HRESULT WINAPI
WebBrowser_GoForward(IWebBrowser2
*iface
)
258 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
259 FIXME("(%p)\n", This
);
263 static HRESULT WINAPI
WebBrowser_GoHome(IWebBrowser2
*iface
)
265 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
266 TRACE("(%p)\n", This
);
267 return go_home(&This
->doc_host
);
270 static HRESULT WINAPI
WebBrowser_GoSearch(IWebBrowser2
*iface
)
272 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
273 FIXME("(%p)\n", This
);
277 static HRESULT WINAPI
WebBrowser_Navigate(IWebBrowser2
*iface
, BSTR szUrl
,
278 VARIANT
*Flags
, VARIANT
*TargetFrameName
,
279 VARIANT
*PostData
, VARIANT
*Headers
)
281 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
283 TRACE("(%p)->(%s %s %s %s %s)\n", This
, debugstr_w(szUrl
), debugstr_variant(Flags
),
284 debugstr_variant(TargetFrameName
), debugstr_variant(PostData
),
285 debugstr_variant(Headers
));
287 return navigate_url(&This
->doc_host
, szUrl
, Flags
, TargetFrameName
, PostData
, Headers
);
290 static HRESULT WINAPI
WebBrowser_Refresh(IWebBrowser2
*iface
)
292 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
293 FIXME("(%p)\n", This
);
297 static HRESULT WINAPI
WebBrowser_Refresh2(IWebBrowser2
*iface
, VARIANT
*Level
)
299 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
300 FIXME("(%p)->(%s)\n", This
, debugstr_variant(Level
));
304 static HRESULT WINAPI
WebBrowser_Stop(IWebBrowser2
*iface
)
306 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
307 FIXME("(%p)\n", This
);
311 static HRESULT WINAPI
WebBrowser_get_Application(IWebBrowser2
*iface
, IDispatch
**ppDisp
)
313 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
315 TRACE("(%p)->(%p)\n", This
, ppDisp
);
320 *ppDisp
= (IDispatch
*)&This
->IWebBrowser2_iface
;
321 IDispatch_AddRef(*ppDisp
);
325 static HRESULT WINAPI
WebBrowser_get_Parent(IWebBrowser2
*iface
, IDispatch
**ppDisp
)
327 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
328 FIXME("(%p)->(%p)\n", This
, ppDisp
);
332 static HRESULT WINAPI
WebBrowser_get_Container(IWebBrowser2
*iface
, IDispatch
**ppDisp
)
334 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
335 FIXME("(%p)->(%p)\n", This
, ppDisp
);
339 static HRESULT WINAPI
WebBrowser_get_Document(IWebBrowser2
*iface
, IDispatch
**ppDisp
)
341 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
342 IDispatch
*disp
= NULL
;
344 TRACE("(%p)->(%p)\n", This
, ppDisp
);
346 if(This
->doc_host
.document
) {
349 hres
= IUnknown_QueryInterface(This
->doc_host
.document
, &IID_IDispatch
, (void**)&disp
);
350 if(SUCCEEDED(hres
)) {
353 /* Some broken apps cast returned IDispatch to IHTMLDocument2
354 * without QueryInterface call */
355 hres
= IDispatch_QueryInterface(disp
, &IID_IHTMLDocument2
, (void**)&html_doc
);
356 if(SUCCEEDED(hres
)) {
357 IDispatch_Release(disp
);
367 static HRESULT WINAPI
WebBrowser_get_TopLevelContainer(IWebBrowser2
*iface
, VARIANT_BOOL
*pBool
)
369 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
370 FIXME("(%p)->(%p)\n", This
, pBool
);
374 static HRESULT WINAPI
WebBrowser_get_Type(IWebBrowser2
*iface
, BSTR
*Type
)
376 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
377 FIXME("(%p)->(%p)\n", This
, Type
);
381 static HRESULT WINAPI
WebBrowser_get_Left(IWebBrowser2
*iface
, LONG
*pl
)
383 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
385 TRACE("(%p)->(%p)\n", This
, pl
);
387 *pl
= This
->pos_rect
.left
;
391 static HRESULT WINAPI
WebBrowser_put_Left(IWebBrowser2
*iface
, LONG Left
)
393 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
396 TRACE("(%p)->(%d)\n", This
, Left
);
401 rect
= This
->pos_rect
;
404 /* We don't really change the window position here.
405 * We just notify the embedder that he should do so. */
406 return IOleInPlaceSite_OnPosRectChange(This
->inplace
, &rect
);
409 static HRESULT WINAPI
WebBrowser_get_Top(IWebBrowser2
*iface
, LONG
*pl
)
411 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
413 TRACE("(%p)->(%p)\n", This
, pl
);
415 *pl
= This
->pos_rect
.top
;
419 static HRESULT WINAPI
WebBrowser_put_Top(IWebBrowser2
*iface
, LONG Top
)
421 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
424 TRACE("(%p)->(%d)\n", This
, Top
);
429 rect
= This
->pos_rect
;
432 /* We don't really change the window position here.
433 * We just notify the embedder that he should do so. */
434 return IOleInPlaceSite_OnPosRectChange(This
->inplace
, &rect
);
437 static HRESULT WINAPI
WebBrowser_get_Width(IWebBrowser2
*iface
, LONG
*pl
)
439 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
441 TRACE("(%p)->(%p)\n", This
, pl
);
443 *pl
= This
->pos_rect
.right
- This
->pos_rect
.left
;
447 static HRESULT WINAPI
WebBrowser_put_Width(IWebBrowser2
*iface
, LONG Width
)
449 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
452 TRACE("(%p)->(%d)\n", This
, Width
);
457 rect
= This
->pos_rect
;
458 rect
.right
= rect
.left
+Width
;
460 /* We don't really change the window size here.
461 * We just notify the embedder that he should do so. */
462 return IOleInPlaceSite_OnPosRectChange(This
->inplace
, &rect
);
465 static HRESULT WINAPI
WebBrowser_get_Height(IWebBrowser2
*iface
, LONG
*pl
)
467 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
469 TRACE("(%p)->(%p)\n", This
, pl
);
471 *pl
= This
->pos_rect
.bottom
- This
->pos_rect
.top
;
475 static HRESULT WINAPI
WebBrowser_put_Height(IWebBrowser2
*iface
, LONG Height
)
477 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
480 TRACE("(%p)->(%d)\n", This
, Height
);
485 rect
= This
->pos_rect
;
486 rect
.bottom
= rect
.top
+Height
;
488 /* We don't really change the window size here.
489 * We just notify the embedder that he should do so. */
490 return IOleInPlaceSite_OnPosRectChange(This
->inplace
, &rect
);
493 static HRESULT WINAPI
WebBrowser_get_LocationName(IWebBrowser2
*iface
, BSTR
*LocationName
)
495 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
496 FIXME("(%p)->(%p)\n", This
, LocationName
);
500 static HRESULT WINAPI
WebBrowser_get_LocationURL(IWebBrowser2
*iface
, BSTR
*LocationURL
)
502 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
504 FIXME("(%p)->(%p)\n", This
, LocationURL
);
506 if(!This
->doc_host
.url
) {
507 static const WCHAR null_char
= 0;
508 *LocationURL
= SysAllocString(&null_char
);
512 *LocationURL
= SysAllocString(This
->doc_host
.url
);
516 static HRESULT WINAPI
WebBrowser_get_Busy(IWebBrowser2
*iface
, VARIANT_BOOL
*pBool
)
518 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
520 TRACE("(%p)->(%p)\n", This
, pBool
);
522 *pBool
= This
->doc_host
.busy
;
526 static HRESULT WINAPI
WebBrowser_Quit(IWebBrowser2
*iface
)
528 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
530 TRACE("(%p)\n", This
);
532 /* It's a InternetExplorer specific method, we have nothing to do here. */
536 static HRESULT WINAPI
WebBrowser_ClientToWindow(IWebBrowser2
*iface
, int *pcx
, int *pcy
)
538 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
539 FIXME("(%p)->(%p %p)\n", This
, pcx
, pcy
);
543 static HRESULT WINAPI
WebBrowser_PutProperty(IWebBrowser2
*iface
, BSTR szProperty
, VARIANT vtValue
)
545 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
546 FIXME("(%p)->(%s %s)\n", This
, debugstr_w(szProperty
), debugstr_variant(&vtValue
));
550 static HRESULT WINAPI
WebBrowser_GetProperty(IWebBrowser2
*iface
, BSTR szProperty
, VARIANT
*pvtValue
)
552 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
553 FIXME("(%p)->(%s %s)\n", This
, debugstr_w(szProperty
), debugstr_variant(pvtValue
));
557 static HRESULT WINAPI
WebBrowser_get_Name(IWebBrowser2
*iface
, BSTR
*Name
)
559 static const WCHAR sName
[] = {'M','i','c','r','o','s','o','f','t',' ','W','e','b',
560 ' ','B','r','o','w','s','e','r',' ','C','o','n','t','r','o','l',0};
561 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
563 TRACE("(%p)->(%p)\n", This
, Name
);
565 *Name
= SysAllocString(sName
);
570 static HRESULT WINAPI
WebBrowser_get_HWND(IWebBrowser2
*iface
, LONG
*pHWND
)
572 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
574 TRACE("(%p)->(%p)\n", This
, pHWND
);
576 /* WebBrowser control never has a frame window (in opposition to InternetExplorer) */
581 static HRESULT WINAPI
WebBrowser_get_FullName(IWebBrowser2
*iface
, BSTR
*FullName
)
583 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
584 FIXME("(%p)->(%p)\n", This
, FullName
);
588 static HRESULT WINAPI
WebBrowser_get_Path(IWebBrowser2
*iface
, BSTR
*Path
)
590 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
591 FIXME("(%p)->(%p)\n", This
, Path
);
595 static HRESULT WINAPI
WebBrowser_get_Visible(IWebBrowser2
*iface
, VARIANT_BOOL
*pBool
)
597 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
599 TRACE("(%p)->(%p)\n", This
, pBool
);
601 *pBool
= This
->visible
;
605 static HRESULT WINAPI
WebBrowser_put_Visible(IWebBrowser2
*iface
, VARIANT_BOOL Value
)
607 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
609 DISPPARAMS dispparams
= {&arg
, NULL
, 1, 0};
611 TRACE("(%p)->(%x)\n", This
, Value
);
613 This
->visible
= Value
;
615 V_VT(&arg
) = VT_BOOL
;
616 V_BOOL(&arg
) = Value
;
617 call_sink(This
->doc_host
.cps
.wbe2
, DISPID_ONVISIBLE
, &dispparams
);
622 static HRESULT WINAPI
WebBrowser_get_StatusBar(IWebBrowser2
*iface
, VARIANT_BOOL
*pBool
)
624 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
626 TRACE("(%p)->(%p)\n", This
, pBool
);
628 *pBool
= This
->status_bar
;
632 static HRESULT WINAPI
WebBrowser_put_StatusBar(IWebBrowser2
*iface
, VARIANT_BOOL Value
)
634 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
636 DISPPARAMS dispparams
= {&arg
, NULL
, 1, 0};
638 TRACE("(%p)->(%x)\n", This
, Value
);
640 This
->status_bar
= Value
? VARIANT_TRUE
: VARIANT_FALSE
;
642 /* In opposition to InternetExplorer, all we should do here is
643 * inform the embedder about the status bar change. */
645 V_VT(&arg
) = VT_BOOL
;
646 V_BOOL(&arg
) = Value
;
647 call_sink(This
->doc_host
.cps
.wbe2
, DISPID_ONSTATUSBAR
, &dispparams
);
652 static HRESULT WINAPI
WebBrowser_get_StatusText(IWebBrowser2
*iface
, BSTR
*StatusText
)
654 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
655 FIXME("(%p)->(%p)\n", This
, StatusText
);
659 static HRESULT WINAPI
WebBrowser_put_StatusText(IWebBrowser2
*iface
, BSTR StatusText
)
661 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
662 FIXME("(%p)->(%s)\n", This
, debugstr_w(StatusText
));
666 static HRESULT WINAPI
WebBrowser_get_ToolBar(IWebBrowser2
*iface
, int *Value
)
668 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
670 TRACE("(%p)->(%p)\n", This
, Value
);
672 *Value
= This
->tool_bar
;
676 static HRESULT WINAPI
WebBrowser_put_ToolBar(IWebBrowser2
*iface
, int Value
)
678 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
680 DISPPARAMS dispparams
= {&arg
, NULL
, 1, 0};
682 TRACE("(%p)->(%x)\n", This
, Value
);
684 This
->tool_bar
= Value
? VARIANT_TRUE
: VARIANT_FALSE
;
686 /* In opposition to InternetExplorer, all we should do here is
687 * inform the embedder about the tool bar change. */
689 V_VT(&arg
) = VT_BOOL
;
690 V_BOOL(&arg
) = This
->tool_bar
;
691 call_sink(This
->doc_host
.cps
.wbe2
, DISPID_ONTOOLBAR
, &dispparams
);
696 static HRESULT WINAPI
WebBrowser_get_MenuBar(IWebBrowser2
*iface
, VARIANT_BOOL
*Value
)
698 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
700 TRACE("(%p)->(%p)\n", This
, Value
);
702 *Value
= This
->menu_bar
;
706 static HRESULT WINAPI
WebBrowser_put_MenuBar(IWebBrowser2
*iface
, VARIANT_BOOL Value
)
708 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
710 DISPPARAMS dispparams
= {&arg
, NULL
, 1, 0};
712 TRACE("(%p)->(%x)\n", This
, Value
);
714 This
->menu_bar
= Value
? VARIANT_TRUE
: VARIANT_FALSE
;
716 /* In opposition to InternetExplorer, all we should do here is
717 * inform the embedder about the menu bar change. */
719 V_VT(&arg
) = VT_BOOL
;
720 V_BOOL(&arg
) = Value
;
721 call_sink(This
->doc_host
.cps
.wbe2
, DISPID_ONMENUBAR
, &dispparams
);
726 static HRESULT WINAPI
WebBrowser_get_FullScreen(IWebBrowser2
*iface
, VARIANT_BOOL
*pbFullScreen
)
728 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
730 TRACE("(%p)->(%p)\n", This
, pbFullScreen
);
732 *pbFullScreen
= This
->full_screen
;
736 static HRESULT WINAPI
WebBrowser_put_FullScreen(IWebBrowser2
*iface
, VARIANT_BOOL bFullScreen
)
738 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
740 DISPPARAMS dispparams
= {&arg
, NULL
, 1, 0};
742 /* In opposition to InternetExplorer, all we should do here is
743 * inform the embedder about the fullscreen change. */
745 TRACE("(%p)->(%x)\n", This
, bFullScreen
);
747 This
->full_screen
= bFullScreen
? VARIANT_TRUE
: VARIANT_FALSE
;
749 V_VT(&arg
) = VT_BOOL
;
750 V_BOOL(&arg
) = bFullScreen
;
751 call_sink(This
->doc_host
.cps
.wbe2
, DISPID_ONFULLSCREEN
, &dispparams
);
756 static HRESULT WINAPI
WebBrowser_Navigate2(IWebBrowser2
*iface
, VARIANT
*URL
, VARIANT
*Flags
,
757 VARIANT
*TargetFrameName
, VARIANT
*PostData
, VARIANT
*Headers
)
759 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
762 TRACE("(%p)->(%s %s %s %s %s)\n", This
, debugstr_variant(URL
), debugstr_variant(Flags
),
763 debugstr_variant(TargetFrameName
), debugstr_variant(PostData
), debugstr_variant(Headers
));
776 case VT_BSTR
|VT_BYREF
:
777 url
= *V_BSTRREF(URL
);
780 FIXME("Unsupported V_VT(URL) %d\n", V_VT(URL
));
784 return navigate_url(&This
->doc_host
, url
, Flags
, TargetFrameName
, PostData
, Headers
);
787 static HRESULT WINAPI
WebBrowser_QueryStatusWB(IWebBrowser2
*iface
, OLECMDID cmdID
, OLECMDF
*pcmdf
)
789 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
790 FIXME("(%p)->(%d %p)\n", This
, cmdID
, pcmdf
);
794 static HRESULT WINAPI
WebBrowser_ExecWB(IWebBrowser2
*iface
, OLECMDID cmdID
,
795 OLECMDEXECOPT cmdexecopt
, VARIANT
*pvaIn
, VARIANT
*pvaOut
)
797 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
798 FIXME("(%p)->(%d %d %s %p)\n", This
, cmdID
, cmdexecopt
, debugstr_variant(pvaIn
), pvaOut
);
802 static HRESULT WINAPI
WebBrowser_ShowBrowserBar(IWebBrowser2
*iface
, VARIANT
*pvaClsid
,
803 VARIANT
*pvarShow
, VARIANT
*pvarSize
)
805 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
806 FIXME("(%p)->(%s %s %s)\n", This
, debugstr_variant(pvaClsid
), debugstr_variant(pvarShow
),
807 debugstr_variant(pvarSize
));
811 static HRESULT WINAPI
WebBrowser_get_ReadyState(IWebBrowser2
*iface
, READYSTATE
*lpReadyState
)
813 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
815 TRACE("(%p)->(%p)\n", This
, lpReadyState
);
817 *lpReadyState
= This
->doc_host
.ready_state
;
821 static HRESULT WINAPI
WebBrowser_get_Offline(IWebBrowser2
*iface
, VARIANT_BOOL
*pbOffline
)
823 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
825 TRACE("(%p)->(%p)\n", This
, pbOffline
);
827 *pbOffline
= This
->doc_host
.offline
;
831 static HRESULT WINAPI
WebBrowser_put_Offline(IWebBrowser2
*iface
, VARIANT_BOOL bOffline
)
833 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
835 TRACE("(%p)->(%x)\n", This
, bOffline
);
837 This
->doc_host
.offline
= bOffline
? VARIANT_TRUE
: VARIANT_FALSE
;
841 static HRESULT WINAPI
WebBrowser_get_Silent(IWebBrowser2
*iface
, VARIANT_BOOL
*pbSilent
)
843 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
845 TRACE("(%p)->(%p)\n", This
, pbSilent
);
847 *pbSilent
= This
->doc_host
.silent
;
851 static HRESULT WINAPI
WebBrowser_put_Silent(IWebBrowser2
*iface
, VARIANT_BOOL bSilent
)
853 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
855 TRACE("(%p)->(%x)\n", This
, bSilent
);
857 This
->doc_host
.silent
= bSilent
? VARIANT_TRUE
: VARIANT_FALSE
;
861 static HRESULT WINAPI
WebBrowser_get_RegisterAsBrowser(IWebBrowser2
*iface
,
862 VARIANT_BOOL
*pbRegister
)
864 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
866 FIXME("(%p)->(%p)\n", This
, pbRegister
);
868 *pbRegister
= This
->register_browser
;
872 static HRESULT WINAPI
WebBrowser_put_RegisterAsBrowser(IWebBrowser2
*iface
,
873 VARIANT_BOOL bRegister
)
875 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
877 FIXME("(%p)->(%x)\n", This
, bRegister
);
879 This
->register_browser
= bRegister
? VARIANT_TRUE
: VARIANT_FALSE
;
883 static HRESULT WINAPI
WebBrowser_get_RegisterAsDropTarget(IWebBrowser2
*iface
,
884 VARIANT_BOOL
*pbRegister
)
886 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
887 FIXME("(%p)->(%p)\n", This
, pbRegister
);
892 static HRESULT WINAPI
WebBrowser_put_RegisterAsDropTarget(IWebBrowser2
*iface
,
893 VARIANT_BOOL bRegister
)
895 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
896 FIXME("(%p)->(%x)\n", This
, bRegister
);
900 static HRESULT WINAPI
WebBrowser_get_TheaterMode(IWebBrowser2
*iface
, VARIANT_BOOL
*pbRegister
)
902 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
904 TRACE("(%p)->(%p)\n", This
, pbRegister
);
906 *pbRegister
= This
->theater_mode
;
910 static HRESULT WINAPI
WebBrowser_put_TheaterMode(IWebBrowser2
*iface
, VARIANT_BOOL bRegister
)
912 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
914 DISPPARAMS dispparams
= {&arg
, NULL
, 1, 0};
916 TRACE("(%p)->(%x)\n", This
, bRegister
);
918 This
->theater_mode
= bRegister
? VARIANT_TRUE
: VARIANT_FALSE
;
920 /* In opposition to InternetExplorer, all we should do here is
921 * inform the embedder about the theater mode change. */
923 V_VT(&arg
) = VT_BOOL
;
924 V_BOOL(&arg
) = bRegister
;
925 call_sink(This
->doc_host
.cps
.wbe2
, DISPID_ONTHEATERMODE
, &dispparams
);
930 static HRESULT WINAPI
WebBrowser_get_AddressBar(IWebBrowser2
*iface
, VARIANT_BOOL
*Value
)
932 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
934 TRACE("(%p)->(%p)\n", This
, Value
);
936 *Value
= This
->address_bar
;
940 static HRESULT WINAPI
WebBrowser_put_AddressBar(IWebBrowser2
*iface
, VARIANT_BOOL Value
)
942 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
944 DISPPARAMS dispparams
= {&arg
, NULL
, 1, 0};
946 TRACE("(%p)->(%x)\n", This
, Value
);
948 This
->address_bar
= Value
? VARIANT_TRUE
: VARIANT_FALSE
;
950 /* In opposition to InternetExplorer, all we should do here is
951 * inform the embedder about the address bar change. */
953 V_VT(&arg
) = VT_BOOL
;
954 V_BOOL(&arg
) = Value
;
955 call_sink(This
->doc_host
.cps
.wbe2
, DISPID_ONADDRESSBAR
, &dispparams
);
960 static HRESULT WINAPI
WebBrowser_get_Resizable(IWebBrowser2
*iface
, VARIANT_BOOL
*Value
)
962 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
964 TRACE("(%p)->(%p)\n", This
, Value
);
966 /* It's InternetExplorer object's method. We have nothing to do here. */
970 static HRESULT WINAPI
WebBrowser_put_Resizable(IWebBrowser2
*iface
, VARIANT_BOOL Value
)
972 WebBrowser
*This
= impl_from_IWebBrowser2(iface
);
974 DISPPARAMS dispparams
= {&arg
, NULL
, 1, 0};
976 TRACE("(%p)->(%x)\n", This
, Value
);
978 /* In opposition to InternetExplorer, all we should do here is
979 * inform the embedder about the resizable change. */
981 V_VT(&arg
) = VT_BOOL
;
982 V_BOOL(&arg
) = Value
;
983 call_sink(This
->doc_host
.cps
.wbe2
, DISPID_WINDOWSETRESIZABLE
, &dispparams
);
988 static const IWebBrowser2Vtbl WebBrowser2Vtbl
=
990 WebBrowser_QueryInterface
,
993 WebBrowser_GetTypeInfoCount
,
994 WebBrowser_GetTypeInfo
,
995 WebBrowser_GetIDsOfNames
,
998 WebBrowser_GoForward
,
1000 WebBrowser_GoSearch
,
1001 WebBrowser_Navigate
,
1003 WebBrowser_Refresh2
,
1005 WebBrowser_get_Application
,
1006 WebBrowser_get_Parent
,
1007 WebBrowser_get_Container
,
1008 WebBrowser_get_Document
,
1009 WebBrowser_get_TopLevelContainer
,
1010 WebBrowser_get_Type
,
1011 WebBrowser_get_Left
,
1012 WebBrowser_put_Left
,
1015 WebBrowser_get_Width
,
1016 WebBrowser_put_Width
,
1017 WebBrowser_get_Height
,
1018 WebBrowser_put_Height
,
1019 WebBrowser_get_LocationName
,
1020 WebBrowser_get_LocationURL
,
1021 WebBrowser_get_Busy
,
1023 WebBrowser_ClientToWindow
,
1024 WebBrowser_PutProperty
,
1025 WebBrowser_GetProperty
,
1026 WebBrowser_get_Name
,
1027 WebBrowser_get_HWND
,
1028 WebBrowser_get_FullName
,
1029 WebBrowser_get_Path
,
1030 WebBrowser_get_Visible
,
1031 WebBrowser_put_Visible
,
1032 WebBrowser_get_StatusBar
,
1033 WebBrowser_put_StatusBar
,
1034 WebBrowser_get_StatusText
,
1035 WebBrowser_put_StatusText
,
1036 WebBrowser_get_ToolBar
,
1037 WebBrowser_put_ToolBar
,
1038 WebBrowser_get_MenuBar
,
1039 WebBrowser_put_MenuBar
,
1040 WebBrowser_get_FullScreen
,
1041 WebBrowser_put_FullScreen
,
1042 WebBrowser_Navigate2
,
1043 WebBrowser_QueryStatusWB
,
1045 WebBrowser_ShowBrowserBar
,
1046 WebBrowser_get_ReadyState
,
1047 WebBrowser_get_Offline
,
1048 WebBrowser_put_Offline
,
1049 WebBrowser_get_Silent
,
1050 WebBrowser_put_Silent
,
1051 WebBrowser_get_RegisterAsBrowser
,
1052 WebBrowser_put_RegisterAsBrowser
,
1053 WebBrowser_get_RegisterAsDropTarget
,
1054 WebBrowser_put_RegisterAsDropTarget
,
1055 WebBrowser_get_TheaterMode
,
1056 WebBrowser_put_TheaterMode
,
1057 WebBrowser_get_AddressBar
,
1058 WebBrowser_put_AddressBar
,
1059 WebBrowser_get_Resizable
,
1060 WebBrowser_put_Resizable
1063 static inline WebBrowser
*impl_from_IServiceProvider(IServiceProvider
*iface
)
1065 return (WebBrowser
*)((char*)iface
- FIELD_OFFSET(WebBrowser
, IServiceProvider_iface
));
1068 static HRESULT WINAPI
WBServiceProvider_QueryInterface(IServiceProvider
*iface
,
1069 REFIID riid
, LPVOID
*ppv
)
1071 WebBrowser
*This
= impl_from_IServiceProvider(iface
);
1072 return IWebBrowser_QueryInterface(&This
->IWebBrowser2_iface
, riid
, ppv
);
1075 static ULONG WINAPI
WBServiceProvider_AddRef(IServiceProvider
*iface
)
1077 WebBrowser
*This
= impl_from_IServiceProvider(iface
);
1078 return IWebBrowser_AddRef(&This
->IWebBrowser2_iface
);
1081 static ULONG WINAPI
WBServiceProvider_Release(IServiceProvider
*iface
)
1083 WebBrowser
*This
= impl_from_IServiceProvider(iface
);
1084 return IWebBrowser_Release(&This
->IWebBrowser2_iface
);
1087 static HRESULT STDMETHODCALLTYPE
WBServiceProvider_QueryService(IServiceProvider
*iface
,
1088 REFGUID guidService
, REFIID riid
, void **ppv
)
1090 WebBrowser
*This
= impl_from_IServiceProvider(iface
);
1091 static const IID IID_IBrowserService2
=
1092 {0x68BD21CC,0x438B,0x11d2,{0xA5,0x60,0x00,0xA0,0xC,0x2D,0xBF,0xE8}};
1097 if(IsEqualGUID(&IID_IBrowserService2
, riid
)) {
1098 TRACE("(%p)->(IID_IBrowserService2 return E_FAIL)\n", This
);
1102 FIXME("(%p)->(%s, %s %p)\n", This
, debugstr_guid(guidService
), debugstr_guid(riid
), ppv
);
1104 return E_NOINTERFACE
;
1107 #undef impl_from_IServiceProvider
1109 static const IServiceProviderVtbl ServiceProviderVtbl
=
1111 WBServiceProvider_QueryInterface
,
1112 WBServiceProvider_AddRef
,
1113 WBServiceProvider_Release
,
1114 WBServiceProvider_QueryService
1117 #define DOCHOST_THIS(iface) DEFINE_THIS2(WebBrowser,doc_host,iface)
1119 static void WINAPI
DocHostContainer_GetDocObjRect(DocHost
* This
, RECT
* rc
)
1121 GetClientRect(This
->frame_hwnd
, rc
);
1124 static HRESULT WINAPI
DocHostContainer_SetStatusText(DocHost
* This
, LPCWSTR text
)
1129 static void WINAPI
DocHostContainer_SetURL(DocHost
* This
, LPCWSTR url
)
1134 static HRESULT
DocHostContainer_exec(DocHost
*doc_host
, const GUID
*cmd_group
, DWORD cmdid
, DWORD execopt
, VARIANT
*in
,
1137 WebBrowser
*This
= DOCHOST_THIS(doc_host
);
1138 IOleCommandTarget
*cmdtrg
= NULL
;
1142 hres
= IOleClientSite_QueryInterface(This
->client
, &IID_IOleCommandTarget
, (void**)&cmdtrg
);
1147 if(!cmdtrg
&& This
->container
) {
1148 hres
= IOleContainer_QueryInterface(This
->container
, &IID_IOleCommandTarget
, (void**)&cmdtrg
);
1156 hres
= IOleCommandTarget_Exec(cmdtrg
, cmd_group
, cmdid
, execopt
, in
, out
);
1157 IOleCommandTarget_Release(cmdtrg
);
1159 FIXME("Exec failed\n");
1166 static const IDocHostContainerVtbl DocHostContainerVtbl
= {
1167 DocHostContainer_GetDocObjRect
,
1168 DocHostContainer_SetStatusText
,
1169 DocHostContainer_SetURL
,
1170 DocHostContainer_exec
1173 static HRESULT
WebBrowser_Create(INT version
, IUnknown
*pOuter
, REFIID riid
, void **ppv
)
1178 TRACE("(%p %s %p) version=%d\n", pOuter
, debugstr_guid(riid
), ppv
, version
);
1180 ret
= heap_alloc_zero(sizeof(WebBrowser
));
1182 ret
->IWebBrowser2_iface
.lpVtbl
= &WebBrowser2Vtbl
;
1183 ret
->IServiceProvider_iface
.lpVtbl
= &ServiceProviderVtbl
;
1185 ret
->version
= version
;
1187 DocHost_Init(&ret
->doc_host
, (IDispatch
*)&ret
->IWebBrowser2_iface
, &DocHostContainerVtbl
);
1189 ret
->visible
= VARIANT_TRUE
;
1190 ret
->menu_bar
= VARIANT_TRUE
;
1191 ret
->address_bar
= VARIANT_TRUE
;
1192 ret
->status_bar
= VARIANT_TRUE
;
1193 ret
->tool_bar
= VARIANT_TRUE
;
1195 WebBrowser_OleObject_Init(ret
);
1196 WebBrowser_ViewObject_Init(ret
);
1197 WebBrowser_Persist_Init(ret
);
1198 WebBrowser_ClassInfo_Init(ret
);
1200 HlinkFrame_Init(&ret
->hlink_frame
, (IUnknown
*)&ret
->IWebBrowser2_iface
, &ret
->doc_host
);
1202 SHDOCVW_LockModule();
1204 hres
= IWebBrowser_QueryInterface(&ret
->IWebBrowser2_iface
, riid
, ppv
);
1206 IWebBrowser2_Release(&ret
->IWebBrowser2_iface
);
1210 HRESULT
WebBrowserV1_Create(IUnknown
*pOuter
, REFIID riid
, void **ppv
)
1212 return WebBrowser_Create(1, pOuter
, riid
, ppv
);
1215 HRESULT
WebBrowserV2_Create(IUnknown
*pOuter
, REFIID riid
, void **ppv
)
1217 return WebBrowser_Create(2, pOuter
, riid
, ppv
);