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