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