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 FIXME("(%p)->(%p)\n", This, pctinfo);
169 return E_NOTIMPL;
170 }
171
172 static HRESULT WINAPI WebBrowser_GetTypeInfo(IWebBrowser2 *iface, UINT iTInfo, LCID lcid,
173 LPTYPEINFO *ppTInfo)
174 {
175 WebBrowser *This = WEBBROWSER_THIS(iface);
176 FIXME("(%p)->(%d %d %p)\n", This, iTInfo, lcid, ppTInfo);
177 return E_NOTIMPL;
178 }
179
180 static HRESULT WINAPI WebBrowser_GetIDsOfNames(IWebBrowser2 *iface, REFIID riid,
181 LPOLESTR *rgszNames, UINT cNames,
182 LCID lcid, DISPID *rgDispId)
183 {
184 WebBrowser *This = WEBBROWSER_THIS(iface);
185 FIXME("(%p)->(%s %p %d %d %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
186 lcid, rgDispId);
187 return E_NOTIMPL;
188 }
189
190 static HRESULT WINAPI WebBrowser_Invoke(IWebBrowser2 *iface, DISPID dispIdMember,
191 REFIID riid, LCID lcid, WORD wFlags,
192 DISPPARAMS *pDispParams, VARIANT *pVarResult,
193 EXCEPINFO *pExepInfo, UINT *puArgErr)
194 {
195 WebBrowser *This = WEBBROWSER_THIS(iface);
196 ITypeInfo *typeinfo;
197 HRESULT hres;
198
199 TRACE("(%p)->(%d %s %d %08x %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
200 lcid, wFlags, pDispParams, pVarResult, pExepInfo, puArgErr);
201
202 hres = get_typeinfo(&typeinfo);
203 if(FAILED(hres))
204 return hres;
205
206 return ITypeInfo_Invoke(typeinfo, WEBBROWSER2(This), dispIdMember, wFlags, pDispParams,
207 pVarResult, pExepInfo, puArgErr);
208 }
209
210 /* IWebBrowser methods */
211 static HRESULT WINAPI WebBrowser_GoBack(IWebBrowser2 *iface)
212 {
213 WebBrowser *This = WEBBROWSER_THIS(iface);
214 FIXME("(%p)\n", This);
215 return E_NOTIMPL;
216 }
217
218 static HRESULT WINAPI WebBrowser_GoForward(IWebBrowser2 *iface)
219 {
220 WebBrowser *This = WEBBROWSER_THIS(iface);
221 FIXME("(%p)\n", This);
222 return E_NOTIMPL;
223 }
224
225 static HRESULT WINAPI WebBrowser_GoHome(IWebBrowser2 *iface)
226 {
227 WebBrowser *This = WEBBROWSER_THIS(iface);
228 TRACE("(%p)\n", This);
229 return go_home(&This->doc_host);
230 }
231
232 static HRESULT WINAPI WebBrowser_GoSearch(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_Navigate(IWebBrowser2 *iface, BSTR szUrl,
240 VARIANT *Flags, VARIANT *TargetFrameName,
241 VARIANT *PostData, VARIANT *Headers)
242 {
243 WebBrowser *This = WEBBROWSER_THIS(iface);
244
245 TRACE("(%p)->(%s %p %p %p %p)\n", This, debugstr_w(szUrl), Flags, TargetFrameName,
246 PostData, Headers);
247
248 return navigate_url(&This->doc_host, szUrl, Flags, TargetFrameName, PostData, Headers);
249 }
250
251 static HRESULT WINAPI WebBrowser_Refresh(IWebBrowser2 *iface)
252 {
253 WebBrowser *This = WEBBROWSER_THIS(iface);
254 FIXME("(%p)\n", This);
255 return E_NOTIMPL;
256 }
257
258 static HRESULT WINAPI WebBrowser_Refresh2(IWebBrowser2 *iface, VARIANT *Level)
259 {
260 WebBrowser *This = WEBBROWSER_THIS(iface);
261 FIXME("(%p)->(%p)\n", This, Level);
262 return E_NOTIMPL;
263 }
264
265 static HRESULT WINAPI WebBrowser_Stop(IWebBrowser2 *iface)
266 {
267 WebBrowser *This = WEBBROWSER_THIS(iface);
268 FIXME("(%p)\n", This);
269 return E_NOTIMPL;
270 }
271
272 static HRESULT WINAPI WebBrowser_get_Application(IWebBrowser2 *iface, IDispatch **ppDisp)
273 {
274 WebBrowser *This = WEBBROWSER_THIS(iface);
275
276 TRACE("(%p)->(%p)\n", This, ppDisp);
277
278 if(!ppDisp)
279 return E_POINTER;
280
281 *ppDisp = (IDispatch*)WEBBROWSER2(This);
282 IDispatch_AddRef(*ppDisp);
283 return S_OK;
284 }
285
286 static HRESULT WINAPI WebBrowser_get_Parent(IWebBrowser2 *iface, IDispatch **ppDisp)
287 {
288 WebBrowser *This = WEBBROWSER_THIS(iface);
289 FIXME("(%p)->(%p)\n", This, ppDisp);
290 return E_NOTIMPL;
291 }
292
293 static HRESULT WINAPI WebBrowser_get_Container(IWebBrowser2 *iface, IDispatch **ppDisp)
294 {
295 WebBrowser *This = WEBBROWSER_THIS(iface);
296 FIXME("(%p)->(%p)\n", This, ppDisp);
297 return E_NOTIMPL;
298 }
299
300 static HRESULT WINAPI WebBrowser_get_Document(IWebBrowser2 *iface, IDispatch **ppDisp)
301 {
302 WebBrowser *This = WEBBROWSER_THIS(iface);
303
304 TRACE("(%p)->(%p)\n", This, ppDisp);
305
306 *ppDisp = NULL;
307 if(This->doc_host.document)
308 IUnknown_QueryInterface(This->doc_host.document, &IID_IDispatch, (void**)ppDisp);
309
310 return S_OK;
311 }
312
313 static HRESULT WINAPI WebBrowser_get_TopLevelContainer(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
314 {
315 WebBrowser *This = WEBBROWSER_THIS(iface);
316 FIXME("(%p)->(%p)\n", This, pBool);
317 return E_NOTIMPL;
318 }
319
320 static HRESULT WINAPI WebBrowser_get_Type(IWebBrowser2 *iface, BSTR *Type)
321 {
322 WebBrowser *This = WEBBROWSER_THIS(iface);
323 FIXME("(%p)->(%p)\n", This, Type);
324 return E_NOTIMPL;
325 }
326
327 static HRESULT WINAPI WebBrowser_get_Left(IWebBrowser2 *iface, long *pl)
328 {
329 WebBrowser *This = WEBBROWSER_THIS(iface);
330
331 TRACE("(%p)->(%p)\n", This, pl);
332
333 *pl = This->pos_rect.left;
334 return S_OK;
335 }
336
337 static HRESULT WINAPI WebBrowser_put_Left(IWebBrowser2 *iface, long Left)
338 {
339 WebBrowser *This = WEBBROWSER_THIS(iface);
340 RECT rect;
341
342 TRACE("(%p)->(%ld)\n", This, Left);
343
344 if(!This->inplace)
345 return E_UNEXPECTED;
346
347 rect = This->pos_rect;
348 rect.left = Left;
349
350 /* We don't really change the window position here.
351 * We just notify the embedder that he should do so. */
352 return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
353 }
354
355 static HRESULT WINAPI WebBrowser_get_Top(IWebBrowser2 *iface, long *pl)
356 {
357 WebBrowser *This = WEBBROWSER_THIS(iface);
358
359 TRACE("(%p)->(%p)\n", This, pl);
360
361 *pl = This->pos_rect.top;
362 return S_OK;
363 }
364
365 static HRESULT WINAPI WebBrowser_put_Top(IWebBrowser2 *iface, long Top)
366 {
367 WebBrowser *This = WEBBROWSER_THIS(iface);
368 RECT rect;
369
370 TRACE("(%p)->(%ld)\n", This, Top);
371
372 if(!This->inplace)
373 return E_UNEXPECTED;
374
375 rect = This->pos_rect;
376 rect.top = Top;
377
378 /* We don't really change the window position here.
379 * We just notify the embedder that he should do so. */
380 return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
381 }
382
383 static HRESULT WINAPI WebBrowser_get_Width(IWebBrowser2 *iface, long *pl)
384 {
385 WebBrowser *This = WEBBROWSER_THIS(iface);
386
387 TRACE("(%p)->(%p)\n", This, pl);
388
389 *pl = This->pos_rect.right - This->pos_rect.left;
390 return S_OK;
391 }
392
393 static HRESULT WINAPI WebBrowser_put_Width(IWebBrowser2 *iface, long Width)
394 {
395 WebBrowser *This = WEBBROWSER_THIS(iface);
396 RECT rect;
397
398 TRACE("(%p)->(%ld)\n", This, Width);
399
400 if(!This->inplace)
401 return E_UNEXPECTED;
402
403 rect = This->pos_rect;
404 rect.right = rect.left+Width;
405
406 /* We don't really change the window size here.
407 * We just notify the embedder that he should do so. */
408 return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
409 }
410
411 static HRESULT WINAPI WebBrowser_get_Height(IWebBrowser2 *iface, long *pl)
412 {
413 WebBrowser *This = WEBBROWSER_THIS(iface);
414
415 TRACE("(%p)->(%p)\n", This, pl);
416
417 *pl = This->pos_rect.bottom - This->pos_rect.top;
418 return S_OK;
419 }
420
421 static HRESULT WINAPI WebBrowser_put_Height(IWebBrowser2 *iface, long Height)
422 {
423 WebBrowser *This = WEBBROWSER_THIS(iface);
424 RECT rect;
425
426 TRACE("(%p)->(%ld)\n", This, Height);
427
428 if(!This->inplace)
429 return E_UNEXPECTED;
430
431 rect = This->pos_rect;
432 rect.bottom = rect.top+Height;
433
434 /* We don't really change the window size here.
435 * We just notify the embedder that he should do so. */
436 return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
437 }
438
439 static HRESULT WINAPI WebBrowser_get_LocationName(IWebBrowser2 *iface, BSTR *LocationName)
440 {
441 WebBrowser *This = WEBBROWSER_THIS(iface);
442 FIXME("(%p)->(%p)\n", This, LocationName);
443 return E_NOTIMPL;
444 }
445
446 static HRESULT WINAPI WebBrowser_get_LocationURL(IWebBrowser2 *iface, BSTR *LocationURL)
447 {
448 WebBrowser *This = WEBBROWSER_THIS(iface);
449
450 FIXME("(%p)->(%p)\n", This, LocationURL);
451
452 if(!This->doc_host.url) {
453 static const WCHAR null_char = 0;
454 *LocationURL = SysAllocString(&null_char);
455 return S_FALSE;
456 }
457
458 *LocationURL = SysAllocString(This->doc_host.url);
459 return S_OK;
460 }
461
462 static HRESULT WINAPI WebBrowser_get_Busy(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
463 {
464 WebBrowser *This = WEBBROWSER_THIS(iface);
465
466 TRACE("(%p)->(%p)\n", This, pBool);
467
468 *pBool = This->doc_host.busy;
469 return S_OK;
470 }
471
472 static HRESULT WINAPI WebBrowser_Quit(IWebBrowser2 *iface)
473 {
474 WebBrowser *This = WEBBROWSER_THIS(iface);
475
476 TRACE("(%p)\n", This);
477
478 /* It's a InternetExplorer specific method, we have nothing to do here. */
479 return E_FAIL;
480 }
481
482 static HRESULT WINAPI WebBrowser_ClientToWindow(IWebBrowser2 *iface, int *pcx, int *pcy)
483 {
484 WebBrowser *This = WEBBROWSER_THIS(iface);
485 FIXME("(%p)->(%p %p)\n", This, pcx, pcy);
486 return E_NOTIMPL;
487 }
488
489 static HRESULT WINAPI WebBrowser_PutProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT vtValue)
490 {
491 WebBrowser *This = WEBBROWSER_THIS(iface);
492 FIXME("(%p)->(%s)\n", This, debugstr_w(szProperty));
493 return E_NOTIMPL;
494 }
495
496 static HRESULT WINAPI WebBrowser_GetProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT *pvtValue)
497 {
498 WebBrowser *This = WEBBROWSER_THIS(iface);
499 FIXME("(%p)->(%s %p)\n", This, debugstr_w(szProperty), pvtValue);
500 return E_NOTIMPL;
501 }
502
503 static HRESULT WINAPI WebBrowser_get_Name(IWebBrowser2 *iface, BSTR *Name)
504 {
505 WebBrowser *This = WEBBROWSER_THIS(iface);
506 FIXME("(%p)->(%p)\n", This, Name);
507 return E_NOTIMPL;
508 }
509
510 static HRESULT WINAPI WebBrowser_get_HWND(IWebBrowser2 *iface, long *pHWND)
511 {
512 WebBrowser *This = WEBBROWSER_THIS(iface);
513
514 TRACE("(%p)->(%p)\n", This, pHWND);
515
516 /* WebBrowser control never has a frame window (in opposition to InternetExplorer) */
517 *pHWND = 0;
518 return E_FAIL;
519 }
520
521 static HRESULT WINAPI WebBrowser_get_FullName(IWebBrowser2 *iface, BSTR *FullName)
522 {
523 WebBrowser *This = WEBBROWSER_THIS(iface);
524 FIXME("(%p)->(%p)\n", This, FullName);
525 return E_NOTIMPL;
526 }
527
528 static HRESULT WINAPI WebBrowser_get_Path(IWebBrowser2 *iface, BSTR *Path)
529 {
530 WebBrowser *This = WEBBROWSER_THIS(iface);
531 FIXME("(%p)->(%p)\n", This, Path);
532 return E_NOTIMPL;
533 }
534
535 static HRESULT WINAPI WebBrowser_get_Visible(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
536 {
537 WebBrowser *This = WEBBROWSER_THIS(iface);
538
539 TRACE("(%p)->(%p)\n", This, pBool);
540
541 *pBool = This->visible;
542 return S_OK;
543 }
544
545 static HRESULT WINAPI WebBrowser_put_Visible(IWebBrowser2 *iface, VARIANT_BOOL Value)
546 {
547 WebBrowser *This = WEBBROWSER_THIS(iface);
548 VARIANTARG arg;
549 DISPPARAMS dispparams = {&arg, NULL, 1, 0};
550
551 TRACE("(%p)->(%x)\n", This, Value);
552
553 This->visible = Value;
554
555 V_VT(&arg) = VT_BOOL;
556 V_BOOL(&arg) = Value;
557 call_sink(This->doc_host.cps.wbe2, DISPID_ONVISIBLE, &dispparams);
558
559 return S_OK;
560 }
561
562 static HRESULT WINAPI WebBrowser_get_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
563 {
564 WebBrowser *This = WEBBROWSER_THIS(iface);
565
566 TRACE("(%p)->(%p)\n", This, pBool);
567
568 *pBool = This->status_bar;
569 return S_OK;
570 }
571
572 static HRESULT WINAPI WebBrowser_put_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
573 {
574 WebBrowser *This = WEBBROWSER_THIS(iface);
575 VARIANTARG arg;
576 DISPPARAMS dispparams = {&arg, NULL, 1, 0};
577
578 TRACE("(%p)->(%x)\n", This, Value);
579
580 This->status_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
581
582 /* In opposition to InternetExplorer, all we should do here is
583 * inform the embedder about the status bar change. */
584
585 V_VT(&arg) = VT_BOOL;
586 V_BOOL(&arg) = Value;
587 call_sink(This->doc_host.cps.wbe2, DISPID_ONSTATUSBAR, &dispparams);
588
589 return S_OK;
590 }
591
592 static HRESULT WINAPI WebBrowser_get_StatusText(IWebBrowser2 *iface, BSTR *StatusText)
593 {
594 WebBrowser *This = WEBBROWSER_THIS(iface);
595 FIXME("(%p)->(%p)\n", This, StatusText);
596 return E_NOTIMPL;
597 }
598
599 static HRESULT WINAPI WebBrowser_put_StatusText(IWebBrowser2 *iface, BSTR StatusText)
600 {
601 WebBrowser *This = WEBBROWSER_THIS(iface);
602 FIXME("(%p)->(%s)\n", This, debugstr_w(StatusText));
603 return E_NOTIMPL;
604 }
605
606 static HRESULT WINAPI WebBrowser_get_ToolBar(IWebBrowser2 *iface, int *Value)
607 {
608 WebBrowser *This = WEBBROWSER_THIS(iface);
609
610 TRACE("(%p)->(%p)\n", This, Value);
611
612 *Value = This->tool_bar;
613 return S_OK;
614 }
615
616 static HRESULT WINAPI WebBrowser_put_ToolBar(IWebBrowser2 *iface, int Value)
617 {
618 WebBrowser *This = WEBBROWSER_THIS(iface);
619 VARIANTARG arg;
620 DISPPARAMS dispparams = {&arg, NULL, 1, 0};
621
622 TRACE("(%p)->(%x)\n", This, Value);
623
624 This->tool_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
625
626 /* In opposition to InternetExplorer, all we should do here is
627 * inform the embedder about the tool bar change. */
628
629 V_VT(&arg) = VT_BOOL;
630 V_BOOL(&arg) = This->tool_bar;
631 call_sink(This->doc_host.cps.wbe2, DISPID_ONTOOLBAR, &dispparams);
632
633 return S_OK;
634 }
635
636 static HRESULT WINAPI WebBrowser_get_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
637 {
638 WebBrowser *This = WEBBROWSER_THIS(iface);
639
640 TRACE("(%p)->(%p)\n", This, Value);
641
642 *Value = This->menu_bar;
643 return S_OK;
644 }
645
646 static HRESULT WINAPI WebBrowser_put_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
647 {
648 WebBrowser *This = WEBBROWSER_THIS(iface);
649 VARIANTARG arg;
650 DISPPARAMS dispparams = {&arg, NULL, 1, 0};
651
652 TRACE("(%p)->(%x)\n", This, Value);
653
654 This->menu_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
655
656 /* In opposition to InternetExplorer, all we should do here is
657 * inform the embedder about the menu bar change. */
658
659 V_VT(&arg) = VT_BOOL;
660 V_BOOL(&arg) = Value;
661 call_sink(This->doc_host.cps.wbe2, DISPID_ONMENUBAR, &dispparams);
662
663 return S_OK;
664 }
665
666 static HRESULT WINAPI WebBrowser_get_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL *pbFullScreen)
667 {
668 WebBrowser *This = WEBBROWSER_THIS(iface);
669
670 TRACE("(%p)->(%p)\n", This, pbFullScreen);
671
672 *pbFullScreen = This->full_screen;
673 return S_OK;
674 }
675
676 static HRESULT WINAPI WebBrowser_put_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL bFullScreen)
677 {
678 WebBrowser *This = WEBBROWSER_THIS(iface);
679 VARIANTARG arg;
680 DISPPARAMS dispparams = {&arg, NULL, 1, 0};
681
682 /* In opposition to InternetExplorer, all we should do here is
683 * inform the embedder about the fullscreen change. */
684
685 TRACE("(%p)->(%x)\n", This, bFullScreen);
686
687 This->full_screen = bFullScreen ? VARIANT_TRUE : VARIANT_FALSE;
688
689 V_VT(&arg) = VT_BOOL;
690 V_BOOL(&arg) = bFullScreen;
691 call_sink(This->doc_host.cps.wbe2, DISPID_ONFULLSCREEN, &dispparams);
692
693 return S_OK;
694 }
695
696 static HRESULT WINAPI WebBrowser_Navigate2(IWebBrowser2 *iface, VARIANT *URL, VARIANT *Flags,
697 VARIANT *TargetFrameName, VARIANT *PostData, VARIANT *Headers)
698 {
699 WebBrowser *This = WEBBROWSER_THIS(iface);
700
701 TRACE("(%p)->(%p %p %p %p %p)\n", This, URL, Flags, TargetFrameName, PostData, Headers);
702
703 if(!This->client)
704 return E_FAIL;
705
706 if(!URL)
707 return S_OK;
708
709 if(V_VT(URL) != VT_BSTR) {
710 FIXME("Unsupported V_VT(URL) %d\n", V_VT(URL));
711 return E_INVALIDARG;
712 }
713
714 return navigate_url(&This->doc_host, V_BSTR(URL), Flags, TargetFrameName, PostData, Headers);
715 }
716
717 static HRESULT WINAPI WebBrowser_QueryStatusWB(IWebBrowser2 *iface, OLECMDID cmdID, OLECMDF *pcmdf)
718 {
719 WebBrowser *This = WEBBROWSER_THIS(iface);
720 FIXME("(%p)->(%d %p)\n", This, cmdID, pcmdf);
721 return E_NOTIMPL;
722 }
723
724 static HRESULT WINAPI WebBrowser_ExecWB(IWebBrowser2 *iface, OLECMDID cmdID,
725 OLECMDEXECOPT cmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
726 {
727 WebBrowser *This = WEBBROWSER_THIS(iface);
728 FIXME("(%p)->(%d %d %p %p)\n", This, cmdID, cmdexecopt, pvaIn, pvaOut);
729 return E_NOTIMPL;
730 }
731
732 static HRESULT WINAPI WebBrowser_ShowBrowserBar(IWebBrowser2 *iface, VARIANT *pvaClsid,
733 VARIANT *pvarShow, VARIANT *pvarSize)
734 {
735 WebBrowser *This = WEBBROWSER_THIS(iface);
736 FIXME("(%p)->(%p %p %p)\n", This, pvaClsid, pvarShow, pvarSize);
737 return E_NOTIMPL;
738 }
739
740 static HRESULT WINAPI WebBrowser_get_ReadyState(IWebBrowser2 *iface, READYSTATE *lpReadyState)
741 {
742 WebBrowser *This = WEBBROWSER_THIS(iface);
743 FIXME("(%p)->(%p)\n", This, lpReadyState);
744
745 *lpReadyState = READYSTATE_COMPLETE;
746 return S_OK;
747 }
748
749 static HRESULT WINAPI WebBrowser_get_Offline(IWebBrowser2 *iface, VARIANT_BOOL *pbOffline)
750 {
751 WebBrowser *This = WEBBROWSER_THIS(iface);
752
753 TRACE("(%p)->(%p)\n", This, pbOffline);
754
755 *pbOffline = This->doc_host.offline;
756 return S_OK;
757 }
758
759 static HRESULT WINAPI WebBrowser_put_Offline(IWebBrowser2 *iface, VARIANT_BOOL bOffline)
760 {
761 WebBrowser *This = WEBBROWSER_THIS(iface);
762
763 TRACE("(%p)->(%x)\n", This, bOffline);
764
765 This->doc_host.offline = bOffline ? VARIANT_TRUE : VARIANT_FALSE;
766 return S_OK;
767 }
768
769 static HRESULT WINAPI WebBrowser_get_Silent(IWebBrowser2 *iface, VARIANT_BOOL *pbSilent)
770 {
771 WebBrowser *This = WEBBROWSER_THIS(iface);
772
773 TRACE("(%p)->(%p)\n", This, pbSilent);
774
775 *pbSilent = This->doc_host.silent;
776 return S_OK;
777 }
778
779 static HRESULT WINAPI WebBrowser_put_Silent(IWebBrowser2 *iface, VARIANT_BOOL bSilent)
780 {
781 WebBrowser *This = WEBBROWSER_THIS(iface);
782
783 TRACE("(%p)->(%x)\n", This, bSilent);
784
785 This->doc_host.silent = bSilent ? VARIANT_TRUE : VARIANT_FALSE;
786 return S_OK;
787 }
788
789 static HRESULT WINAPI WebBrowser_get_RegisterAsBrowser(IWebBrowser2 *iface,
790 VARIANT_BOOL *pbRegister)
791 {
792 WebBrowser *This = WEBBROWSER_THIS(iface);
793
794 FIXME("(%p)->(%p)\n", This, pbRegister);
795
796 *pbRegister = This->register_browser;
797 return S_OK;
798 }
799
800 static HRESULT WINAPI WebBrowser_put_RegisterAsBrowser(IWebBrowser2 *iface,
801 VARIANT_BOOL bRegister)
802 {
803 WebBrowser *This = WEBBROWSER_THIS(iface);
804
805 FIXME("(%p)->(%x)\n", This, bRegister);
806
807 This->register_browser = bRegister ? VARIANT_TRUE : VARIANT_FALSE;
808 return S_OK;
809 }
810
811 static HRESULT WINAPI WebBrowser_get_RegisterAsDropTarget(IWebBrowser2 *iface,
812 VARIANT_BOOL *pbRegister)
813 {
814 WebBrowser *This = WEBBROWSER_THIS(iface);
815 FIXME("(%p)->(%p)\n", This, pbRegister);
816 *pbRegister=0;
817 return S_OK;
818 }
819
820 static HRESULT WINAPI WebBrowser_put_RegisterAsDropTarget(IWebBrowser2 *iface,
821 VARIANT_BOOL bRegister)
822 {
823 WebBrowser *This = WEBBROWSER_THIS(iface);
824 FIXME("(%p)->(%x)\n", This, bRegister);
825 return S_OK;
826 }
827
828 static HRESULT WINAPI WebBrowser_get_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL *pbRegister)
829 {
830 WebBrowser *This = WEBBROWSER_THIS(iface);
831
832 TRACE("(%p)->(%p)\n", This, pbRegister);
833
834 *pbRegister = This->theater_mode;
835 return S_OK;
836 }
837
838 static HRESULT WINAPI WebBrowser_put_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL bRegister)
839 {
840 WebBrowser *This = WEBBROWSER_THIS(iface);
841 VARIANTARG arg;
842 DISPPARAMS dispparams = {&arg, NULL, 1, 0};
843
844 TRACE("(%p)->(%x)\n", This, bRegister);
845
846 This->theater_mode = bRegister ? VARIANT_TRUE : VARIANT_FALSE;
847
848 /* In opposition to InternetExplorer, all we should do here is
849 * inform the embedder about the theater mode change. */
850
851 V_VT(&arg) = VT_BOOL;
852 V_BOOL(&arg) = bRegister;
853 call_sink(This->doc_host.cps.wbe2, DISPID_ONTHEATERMODE, &dispparams);
854
855 return S_OK;
856 }
857
858 static HRESULT WINAPI WebBrowser_get_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
859 {
860 WebBrowser *This = WEBBROWSER_THIS(iface);
861
862 TRACE("(%p)->(%p)\n", This, Value);
863
864 *Value = This->address_bar;
865 return S_OK;
866 }
867
868 static HRESULT WINAPI WebBrowser_put_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
869 {
870 WebBrowser *This = WEBBROWSER_THIS(iface);
871 VARIANTARG arg;
872 DISPPARAMS dispparams = {&arg, NULL, 1, 0};
873
874 TRACE("(%p)->(%x)\n", This, Value);
875
876 This->address_bar = Value ? VARIANT_TRUE : VARIANT_FALSE;
877
878 /* In opposition to InternetExplorer, all we should do here is
879 * inform the embedder about the address bar change. */
880
881 V_VT(&arg) = VT_BOOL;
882 V_BOOL(&arg) = Value;
883 call_sink(This->doc_host.cps.wbe2, DISPID_ONADDRESSBAR, &dispparams);
884
885 return S_OK;
886 }
887
888 static HRESULT WINAPI WebBrowser_get_Resizable(IWebBrowser2 *iface, VARIANT_BOOL *Value)
889 {
890 WebBrowser *This = WEBBROWSER_THIS(iface);
891
892 TRACE("(%p)->(%p)\n", This, Value);
893
894 /* It's InternetExplorer object's method. We have nothing to do here. */
895 return E_NOTIMPL;
896 }
897
898 static HRESULT WINAPI WebBrowser_put_Resizable(IWebBrowser2 *iface, VARIANT_BOOL Value)
899 {
900 WebBrowser *This = WEBBROWSER_THIS(iface);
901 VARIANTARG arg;
902 DISPPARAMS dispparams = {&arg, NULL, 1, 0};
903
904 TRACE("(%p)->(%x)\n", This, Value);
905
906 /* In opposition to InternetExplorer, all we should do here is
907 * inform the embedder about the resizable change. */
908
909 V_VT(&arg) = VT_BOOL;
910 V_BOOL(&arg) = Value;
911 call_sink(This->doc_host.cps.wbe2, DISPID_WINDOWSETRESIZABLE, &dispparams);
912
913 return S_OK;
914 }
915
916 #undef WEBBROWSER_THIS
917
918 static const IWebBrowser2Vtbl WebBrowser2Vtbl =
919 {
920 WebBrowser_QueryInterface,
921 WebBrowser_AddRef,
922 WebBrowser_Release,
923 WebBrowser_GetTypeInfoCount,
924 WebBrowser_GetTypeInfo,
925 WebBrowser_GetIDsOfNames,
926 WebBrowser_Invoke,
927 WebBrowser_GoBack,
928 WebBrowser_GoForward,
929 WebBrowser_GoHome,
930 WebBrowser_GoSearch,
931 WebBrowser_Navigate,
932 WebBrowser_Refresh,
933 WebBrowser_Refresh2,
934 WebBrowser_Stop,
935 WebBrowser_get_Application,
936 WebBrowser_get_Parent,
937 WebBrowser_get_Container,
938 WebBrowser_get_Document,
939 WebBrowser_get_TopLevelContainer,
940 WebBrowser_get_Type,
941 WebBrowser_get_Left,
942 WebBrowser_put_Left,
943 WebBrowser_get_Top,
944 WebBrowser_put_Top,
945 WebBrowser_get_Width,
946 WebBrowser_put_Width,
947 WebBrowser_get_Height,
948 WebBrowser_put_Height,
949 WebBrowser_get_LocationName,
950 WebBrowser_get_LocationURL,
951 WebBrowser_get_Busy,
952 WebBrowser_Quit,
953 WebBrowser_ClientToWindow,
954 WebBrowser_PutProperty,
955 WebBrowser_GetProperty,
956 WebBrowser_get_Name,
957 WebBrowser_get_HWND,
958 WebBrowser_get_FullName,
959 WebBrowser_get_Path,
960 WebBrowser_get_Visible,
961 WebBrowser_put_Visible,
962 WebBrowser_get_StatusBar,
963 WebBrowser_put_StatusBar,
964 WebBrowser_get_StatusText,
965 WebBrowser_put_StatusText,
966 WebBrowser_get_ToolBar,
967 WebBrowser_put_ToolBar,
968 WebBrowser_get_MenuBar,
969 WebBrowser_put_MenuBar,
970 WebBrowser_get_FullScreen,
971 WebBrowser_put_FullScreen,
972 WebBrowser_Navigate2,
973 WebBrowser_QueryStatusWB,
974 WebBrowser_ExecWB,
975 WebBrowser_ShowBrowserBar,
976 WebBrowser_get_ReadyState,
977 WebBrowser_get_Offline,
978 WebBrowser_put_Offline,
979 WebBrowser_get_Silent,
980 WebBrowser_put_Silent,
981 WebBrowser_get_RegisterAsBrowser,
982 WebBrowser_put_RegisterAsBrowser,
983 WebBrowser_get_RegisterAsDropTarget,
984 WebBrowser_put_RegisterAsDropTarget,
985 WebBrowser_get_TheaterMode,
986 WebBrowser_put_TheaterMode,
987 WebBrowser_get_AddressBar,
988 WebBrowser_put_AddressBar,
989 WebBrowser_get_Resizable,
990 WebBrowser_put_Resizable
991 };
992
993 static HRESULT WebBrowser_Create(INT version, IUnknown *pOuter, REFIID riid, void **ppv)
994 {
995 WebBrowser *ret;
996 HRESULT hres;
997
998 TRACE("(%p %s %p) version=%d\n", pOuter, debugstr_guid(riid), ppv, version);
999
1000 ret = heap_alloc(sizeof(WebBrowser));
1001
1002 ret->lpWebBrowser2Vtbl = &WebBrowser2Vtbl;
1003 ret->ref = 0;
1004 ret->version = version;
1005
1006 DocHost_Init(&ret->doc_host, (IDispatch*)WEBBROWSER2(ret));
1007
1008 ret->register_browser = VARIANT_FALSE;
1009 ret->visible = VARIANT_TRUE;
1010 ret->menu_bar = VARIANT_TRUE;
1011 ret->address_bar = VARIANT_TRUE;
1012 ret->status_bar = VARIANT_TRUE;
1013 ret->tool_bar = VARIANT_TRUE;
1014 ret->full_screen = VARIANT_FALSE;
1015 ret->theater_mode = VARIANT_FALSE;
1016
1017 WebBrowser_OleObject_Init(ret);
1018 WebBrowser_ViewObject_Init(ret);
1019 WebBrowser_Persist_Init(ret);
1020 WebBrowser_ClassInfo_Init(ret);
1021 WebBrowser_HlinkFrame_Init(ret);
1022
1023 hres = IWebBrowser_QueryInterface(WEBBROWSER(ret), riid, ppv);
1024 if(SUCCEEDED(hres)) {
1025 SHDOCVW_LockModule();
1026 }else {
1027 heap_free(ret);
1028 return hres;
1029 }
1030
1031 return hres;
1032 }
1033
1034 HRESULT WebBrowserV1_Create(IUnknown *pOuter, REFIID riid, void **ppv)
1035 {
1036 return WebBrowser_Create(1, pOuter, riid, ppv);
1037 }
1038
1039 HRESULT WebBrowserV2_Create(IUnknown *pOuter, REFIID riid, void **ppv)
1040 {
1041 return WebBrowser_Create(2, pOuter, riid, ppv);
1042 }
1043
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.