shdocvw: Move IOleDocumentSite to DocHost object.
[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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
20  */
21
22 #include "wine/debug.h"
23 #include "shdocvw.h"
24
25 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
26
27 /**********************************************************************
28  * Implement the IWebBrowser interface
29  */
30
31 #define WEBBROWSER_THIS(iface) DEFINE_THIS(WebBrowser, WebBrowser2, iface)
32
33 static HRESULT WINAPI WebBrowser_QueryInterface(IWebBrowser2 *iface, REFIID riid, LPVOID *ppv)
34 {
35     WebBrowser *This = WEBBROWSER_THIS(iface);
36
37     if (ppv == NULL)
38         return E_POINTER;
39     *ppv = NULL;
40
41     if(IsEqualGUID(&IID_IUnknown, riid)) {
42         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
43         *ppv = WEBBROWSER(This);
44     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
45         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
46         *ppv = WEBBROWSER(This);
47     }else if(IsEqualGUID(&IID_IWebBrowser, riid)) {
48         TRACE("(%p)->(IID_IWebBrowser %p)\n", This, ppv);
49         *ppv = WEBBROWSER(This);
50     }else if(IsEqualGUID(&IID_IWebBrowserApp, riid)) {
51         TRACE("(%p)->(IID_IWebBrowserApp %p)\n", This, ppv);
52         *ppv = WEBBROWSER(This);
53     }else if(IsEqualGUID(&IID_IWebBrowser2, riid)) {
54         TRACE("(%p)->(IID_IWebBrowser2 %p)\n", This, ppv);
55         *ppv = WEBBROWSER(This);
56     }else if(IsEqualGUID(&IID_IOleObject, riid)) {
57         TRACE("(%p)->(IID_IOleObject %p)\n", This, ppv);
58         *ppv = OLEOBJ(This);
59     }else if(IsEqualGUID(&IID_IOleWindow, riid)) {
60         TRACE("(%p)->(IID_IOleWindow %p)\n", This, ppv);
61         *ppv = INPLACEOBJ(This);
62     }else if(IsEqualGUID (&IID_IOleInPlaceObject, riid)) {
63         TRACE("(%p)->(IID_IOleInPlaceObject %p)\n", This, ppv);
64         *ppv = INPLACEOBJ(This);
65     }else if(IsEqualGUID(&IID_IOleControl, riid)) {
66         TRACE("(%p)->(IID_IOleControl %p)\n", This, ppv);
67         *ppv = CONTROL(This);
68     }else if(IsEqualGUID(&IID_IPersist, riid)) {
69         TRACE("(%p)->(IID_IPersist %p)\n", This, ppv);
70         *ppv = PERSTORAGE(This);
71     }else if(IsEqualGUID(&IID_IPersistStorage, riid)) {
72         TRACE("(%p)->(IID_IPersistStorage %p)\n", This, ppv);
73         *ppv = PERSTORAGE(This);
74     }else if(IsEqualGUID (&IID_IPersistStreamInit, riid)) {
75         TRACE("(%p)->(IID_IPersistStreamInit %p)\n", This, ppv);
76         *ppv = PERSTRINIT(This);
77     }else if(IsEqualGUID(&IID_IProvideClassInfo, riid)) {
78         TRACE("(%p)->(IID_IProvideClassInfo %p)\n", This, ppv);
79         *ppv = CLASSINFO(This);
80     }else if(IsEqualGUID(&IID_IProvideClassInfo2, riid)) {
81         TRACE("(%p)->(IID_IProvideClassInfo2 %p)\n", This, ppv);
82         *ppv = CLASSINFO(This);
83     }else if(IsEqualGUID(&IID_IConnectionPointContainer, riid)) {
84         TRACE("(%p)->(IID_IConnectionPointContainer %p)\n", This, ppv);
85         *ppv = CONPTCONT(This);
86     }else if(IsEqualGUID(&IID_IViewObject, riid)) {
87         TRACE("(%p)->(IID_IViewObject %p)\n", This, ppv);
88         *ppv = VIEWOBJ(This);
89     }else if(IsEqualGUID(&IID_IViewObject2, riid)) {
90         TRACE("(%p)->(IID_IViewObject2 %p)\n", This, ppv);
91         *ppv = VIEWOBJ2(This);
92     }else if(IsEqualGUID(&IID_IOleInPlaceActiveObject, riid)) {
93         TRACE("(%p)->(IID_IOleInPlaceActiveObject %p)\n", This, ppv);
94         *ppv = ACTIVEOBJ(This);
95     }else if(IsEqualGUID(&IID_IOleCommandTarget, riid)) {
96         TRACE("(%p)->(IID_IOleCommandTarget %p)\n", This, ppv);
97         *ppv = WBOLECMD(This);
98     }else if(IsEqualGUID(&IID_IHlinkFrame, riid)) {
99         TRACE("(%p)->(IID_IHlinkFrame %p)\n", This, ppv);
100         *ppv = HLINKFRAME(This);
101     }
102
103     if(*ppv) {
104         IUnknown_AddRef((IUnknown*)*ppv);
105         return S_OK;
106     }
107
108     FIXME("(%p)->(%s %p) interface not supported\n", This, debugstr_guid(riid), ppv);
109     return E_NOINTERFACE;
110 }
111
112 static ULONG WINAPI WebBrowser_AddRef(IWebBrowser2 *iface)
113 {
114     WebBrowser *This = WEBBROWSER_THIS(iface);
115     LONG ref = InterlockedIncrement(&This->ref);
116     TRACE("(%p) ref=%ld\n", This, ref);
117     return ref;
118 }
119
120 static ULONG WINAPI WebBrowser_Release(IWebBrowser2 *iface)
121 {
122     WebBrowser *This = WEBBROWSER_THIS(iface);
123     LONG ref = InterlockedDecrement(&This->ref);
124
125     TRACE("(%p) ref=%ld\n", This, ref);
126
127     if(!ref) {
128         if(This->doc_host.document)
129             IUnknown_Release(This->doc_host.document);
130
131         WebBrowser_OleObject_Destroy(This);
132         WebBrowser_Events_Destroy(This);
133         WebBrowser_ClientSite_Destroy(This);
134
135         SysFreeString(This->url);
136         HeapFree(GetProcessHeap(), 0, This);
137         SHDOCVW_UnlockModule();
138     }
139
140     return ref;
141 }
142
143 /* IDispatch methods */
144 static HRESULT WINAPI WebBrowser_GetTypeInfoCount(IWebBrowser2 *iface, UINT *pctinfo)
145 {
146     WebBrowser *This = WEBBROWSER_THIS(iface);
147     FIXME("(%p)->(%p)\n", This, pctinfo);
148     return E_NOTIMPL;
149 }
150
151 static HRESULT WINAPI WebBrowser_GetTypeInfo(IWebBrowser2 *iface, UINT iTInfo, LCID lcid,
152                                      LPTYPEINFO *ppTInfo)
153 {
154     WebBrowser *This = WEBBROWSER_THIS(iface);
155     FIXME("(%p)->(%d %ld %p)\n", This, iTInfo, lcid, ppTInfo);
156     return E_NOTIMPL;
157 }
158
159 static HRESULT WINAPI WebBrowser_GetIDsOfNames(IWebBrowser2 *iface, REFIID riid,
160                                        LPOLESTR *rgszNames, UINT cNames,
161                                        LCID lcid, DISPID *rgDispId)
162 {
163     WebBrowser *This = WEBBROWSER_THIS(iface);
164     FIXME("(%p)->(%s %p %d %ld %p)\n", This, debugstr_guid(riid), rgszNames, cNames,
165             lcid, rgDispId);
166     return E_NOTIMPL;
167 }
168
169 static HRESULT WINAPI WebBrowser_Invoke(IWebBrowser2 *iface, DISPID dispIdMember,
170                                 REFIID riid, LCID lcid, WORD wFlags,
171                                 DISPPARAMS *pDispParams, VARIANT *pVarResult,
172                                 EXCEPINFO *pExepInfo, UINT *puArgErr)
173 {
174     WebBrowser *This = WEBBROWSER_THIS(iface);
175     FIXME("(%p)->(%ld %s %ld %08x %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
176             lcid, wFlags, pDispParams, pVarResult, pExepInfo, puArgErr);
177     return E_NOTIMPL;
178 }
179
180 /* IWebBrowser methods */
181 static HRESULT WINAPI WebBrowser_GoBack(IWebBrowser2 *iface)
182 {
183     WebBrowser *This = WEBBROWSER_THIS(iface);
184     FIXME("(%p)\n", This);
185     return E_NOTIMPL;
186 }
187
188 static HRESULT WINAPI WebBrowser_GoForward(IWebBrowser2 *iface)
189 {
190     WebBrowser *This = WEBBROWSER_THIS(iface);
191     FIXME("(%p)\n", This);
192     return E_NOTIMPL;
193 }
194
195 static HRESULT WINAPI WebBrowser_GoHome(IWebBrowser2 *iface)
196 {
197     WebBrowser *This = WEBBROWSER_THIS(iface);
198     FIXME("(%p)\n", This);
199     return E_NOTIMPL;
200 }
201
202 static HRESULT WINAPI WebBrowser_GoSearch(IWebBrowser2 *iface)
203 {
204     WebBrowser *This = WEBBROWSER_THIS(iface);
205     FIXME("(%p)\n", This);
206     return E_NOTIMPL;
207 }
208
209 static HRESULT WINAPI WebBrowser_Navigate(IWebBrowser2 *iface, BSTR szUrl,
210                                   VARIANT *Flags, VARIANT *TargetFrameName,
211                                   VARIANT *PostData, VARIANT *Headers)
212 {
213     WebBrowser *This = WEBBROWSER_THIS(iface);
214     VARIANT url;
215     HRESULT r;
216
217     FIXME("(%p)->(%s %p %p %p %p)\n", This, debugstr_w(szUrl), Flags, TargetFrameName,
218           PostData, Headers);
219
220     V_VT(&url) = VT_BSTR;
221     V_BSTR(&url) = szUrl;
222     r = IWebBrowser2_Navigate2(iface, &url, Flags,
223                                TargetFrameName, PostData, Headers);
224
225     return r;
226 }
227
228 static HRESULT WINAPI WebBrowser_Refresh(IWebBrowser2 *iface)
229 {
230     WebBrowser *This = WEBBROWSER_THIS(iface);
231     FIXME("(%p)\n", This);
232     return E_NOTIMPL;
233 }
234
235 static HRESULT WINAPI WebBrowser_Refresh2(IWebBrowser2 *iface, VARIANT *Level)
236 {
237     WebBrowser *This = WEBBROWSER_THIS(iface);
238     FIXME("(%p)->(%p)\n", This, Level);
239     return E_NOTIMPL;
240 }
241
242 static HRESULT WINAPI WebBrowser_Stop(IWebBrowser2 *iface)
243 {
244     WebBrowser *This = WEBBROWSER_THIS(iface);
245     FIXME("(%p)\n", This);
246     return E_NOTIMPL;
247 }
248
249 static HRESULT WINAPI WebBrowser_get_Application(IWebBrowser2 *iface, IDispatch **ppDisp)
250 {
251     WebBrowser *This = WEBBROWSER_THIS(iface);
252     FIXME("(%p)->(%p)\n", This, ppDisp);
253     return E_NOTIMPL;
254 }
255
256 static HRESULT WINAPI WebBrowser_get_Parent(IWebBrowser2 *iface, IDispatch **ppDisp)
257 {
258     WebBrowser *This = WEBBROWSER_THIS(iface);
259     FIXME("(%p)->(%p)\n", This, ppDisp);
260     return E_NOTIMPL;
261 }
262
263 static HRESULT WINAPI WebBrowser_get_Container(IWebBrowser2 *iface, IDispatch **ppDisp)
264 {
265     WebBrowser *This = WEBBROWSER_THIS(iface);
266     FIXME("(%p)->(%p)\n", This, ppDisp);
267     return E_NOTIMPL;
268 }
269
270 static HRESULT WINAPI WebBrowser_get_Document(IWebBrowser2 *iface, IDispatch **ppDisp)
271 {
272     WebBrowser *This = WEBBROWSER_THIS(iface);
273
274     TRACE("(%p)->(%p)\n", This, ppDisp);
275
276     *ppDisp = NULL;
277     if(This->doc_host.document)
278         IUnknown_QueryInterface(This->doc_host.document, &IID_IDispatch, (void**)ppDisp);
279
280     return S_OK;
281 }
282
283 static HRESULT WINAPI WebBrowser_get_TopLevelContainer(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
284 {
285     WebBrowser *This = WEBBROWSER_THIS(iface);
286     FIXME("(%p)->(%p)\n", This, pBool);
287     return E_NOTIMPL;
288 }
289
290 static HRESULT WINAPI WebBrowser_get_Type(IWebBrowser2 *iface, BSTR *Type)
291 {
292     WebBrowser *This = WEBBROWSER_THIS(iface);
293     FIXME("(%p)->(%p)\n", This, Type);
294     return E_NOTIMPL;
295 }
296
297 static HRESULT WINAPI WebBrowser_get_Left(IWebBrowser2 *iface, long *pl)
298 {
299     WebBrowser *This = WEBBROWSER_THIS(iface);
300
301     TRACE("(%p)->(%p)\n", This, pl);
302
303     *pl = This->pos_rect.left;
304     return S_OK;
305 }
306
307 static HRESULT WINAPI WebBrowser_put_Left(IWebBrowser2 *iface, long Left)
308 {
309     WebBrowser *This = WEBBROWSER_THIS(iface);
310     RECT rect;
311
312     TRACE("(%p)->(%ld)\n", This, Left);
313
314     if(!This->inplace)
315         return E_UNEXPECTED;
316
317     memcpy(&rect, &This->pos_rect, sizeof(RECT));
318     rect.left = Left;
319
320     return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
321 }
322
323 static HRESULT WINAPI WebBrowser_get_Top(IWebBrowser2 *iface, long *pl)
324 {
325     WebBrowser *This = WEBBROWSER_THIS(iface);
326
327     TRACE("(%p)->(%p)\n", This, pl);
328
329     *pl = This->pos_rect.top;
330     return S_OK;
331 }
332
333 static HRESULT WINAPI WebBrowser_put_Top(IWebBrowser2 *iface, long Top)
334 {
335     WebBrowser *This = WEBBROWSER_THIS(iface);
336     RECT rect;
337
338     TRACE("(%p)->(%ld)\n", This, Top);
339
340     if(!This->inplace)
341         return E_UNEXPECTED;
342
343     memcpy(&rect, &This->pos_rect, sizeof(RECT));
344     rect.top = Top;
345
346     return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
347 }
348
349 static HRESULT WINAPI WebBrowser_get_Width(IWebBrowser2 *iface, long *pl)
350 {
351     WebBrowser *This = WEBBROWSER_THIS(iface);
352
353     TRACE("(%p)->(%p)\n", This, pl);
354
355     *pl = This->pos_rect.right - This->pos_rect.left;
356     return S_OK;
357 }
358
359 static HRESULT WINAPI WebBrowser_put_Width(IWebBrowser2 *iface, long Width)
360 {
361     WebBrowser *This = WEBBROWSER_THIS(iface);
362     RECT rect;
363
364     TRACE("(%p)->(%ld)\n", This, Width);
365
366     if(!This->inplace)
367         return E_UNEXPECTED;
368
369     memcpy(&rect, &This->pos_rect, sizeof(RECT));
370     rect.right = rect.left+Width;
371
372     return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
373 }
374
375 static HRESULT WINAPI WebBrowser_get_Height(IWebBrowser2 *iface, long *pl)
376 {
377     WebBrowser *This = WEBBROWSER_THIS(iface);
378
379     TRACE("(%p)->(%p)\n", This, pl);
380
381     *pl = This->pos_rect.bottom - This->pos_rect.top;
382     return S_OK;
383 }
384
385 static HRESULT WINAPI WebBrowser_put_Height(IWebBrowser2 *iface, long Height)
386 {
387     WebBrowser *This = WEBBROWSER_THIS(iface);
388     RECT rect;
389
390     TRACE("(%p)->(%ld)\n", This, Height);
391
392     if(!This->inplace)
393         return E_UNEXPECTED;
394
395     memcpy(&rect, &This->pos_rect, sizeof(RECT));
396     rect.bottom = rect.top+Height;
397
398     return IOleInPlaceSite_OnPosRectChange(This->inplace, &rect);
399 }
400
401 static HRESULT WINAPI WebBrowser_get_LocationName(IWebBrowser2 *iface, BSTR *LocationName)
402 {
403     WebBrowser *This = WEBBROWSER_THIS(iface);
404     FIXME("(%p)->(%p)\n", This, LocationName);
405     return E_NOTIMPL;
406 }
407
408 static HRESULT WINAPI WebBrowser_get_LocationURL(IWebBrowser2 *iface, BSTR *LocationURL)
409 {
410     WebBrowser *This = WEBBROWSER_THIS(iface);
411
412     FIXME("(%p)->(%p)\n", This, LocationURL);
413
414     if(!This->url) {
415         static const WCHAR null_char = 0;
416         *LocationURL = SysAllocString(&null_char);
417         return S_FALSE;
418     }
419
420     *LocationURL = SysAllocString(This->url);
421     return S_OK;
422 }
423
424 static HRESULT WINAPI WebBrowser_get_Busy(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
425 {
426     WebBrowser *This = WEBBROWSER_THIS(iface);
427     FIXME("(%p)->(%p)\n", This, pBool);
428     return E_NOTIMPL;
429 }
430
431 static HRESULT WINAPI WebBrowser_Quit(IWebBrowser2 *iface)
432 {
433     WebBrowser *This = WEBBROWSER_THIS(iface);
434     FIXME("(%p)\n", This);
435     return E_NOTIMPL;
436 }
437
438 static HRESULT WINAPI WebBrowser_ClientToWindow(IWebBrowser2 *iface, int *pcx, int *pcy)
439 {
440     WebBrowser *This = WEBBROWSER_THIS(iface);
441     FIXME("(%p)->(%p %p)\n", This, pcx, pcy);
442     return E_NOTIMPL;
443 }
444
445 static HRESULT WINAPI WebBrowser_PutProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT vtValue)
446 {
447     WebBrowser *This = WEBBROWSER_THIS(iface);
448     FIXME("(%p)->(%s)\n", This, debugstr_w(szProperty));
449     return E_NOTIMPL;
450 }
451
452 static HRESULT WINAPI WebBrowser_GetProperty(IWebBrowser2 *iface, BSTR szProperty, VARIANT *pvtValue)
453 {
454     WebBrowser *This = WEBBROWSER_THIS(iface);
455     FIXME("(%p)->(%s %p)\n", This, debugstr_w(szProperty), pvtValue);
456     return E_NOTIMPL;
457 }
458
459 static HRESULT WINAPI WebBrowser_get_Name(IWebBrowser2 *iface, BSTR *Name)
460 {
461     WebBrowser *This = WEBBROWSER_THIS(iface);
462     FIXME("(%p)->(%p)\n", This, Name);
463     return E_NOTIMPL;
464 }
465
466 static HRESULT WINAPI WebBrowser_get_HWND(IWebBrowser2 *iface, long *pHWND)
467 {
468     WebBrowser *This = WEBBROWSER_THIS(iface);
469     FIXME("(%p)->(%p)\n", This, pHWND);
470     return E_NOTIMPL;
471 }
472
473 static HRESULT WINAPI WebBrowser_get_FullName(IWebBrowser2 *iface, BSTR *FullName)
474 {
475     WebBrowser *This = WEBBROWSER_THIS(iface);
476     FIXME("(%p)->(%p)\n", This, FullName);
477     return E_NOTIMPL;
478 }
479
480 static HRESULT WINAPI WebBrowser_get_Path(IWebBrowser2 *iface, BSTR *Path)
481 {
482     WebBrowser *This = WEBBROWSER_THIS(iface);
483     FIXME("(%p)->(%p)\n", This, Path);
484     return E_NOTIMPL;
485 }
486
487 static HRESULT WINAPI WebBrowser_get_Visible(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
488 {
489     WebBrowser *This = WEBBROWSER_THIS(iface);
490     FIXME("(%p)->(%p)\n", This, pBool);
491     return E_NOTIMPL;
492 }
493
494 static HRESULT WINAPI WebBrowser_put_Visible(IWebBrowser2 *iface, VARIANT_BOOL Value)
495 {
496     WebBrowser *This = WEBBROWSER_THIS(iface);
497     FIXME("(%p)->(%x)\n", This, Value);
498     return E_NOTIMPL;
499 }
500
501 static HRESULT WINAPI WebBrowser_get_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL *pBool)
502 {
503     WebBrowser *This = WEBBROWSER_THIS(iface);
504     FIXME("(%p)->(%p)\n", This, pBool);
505     return E_NOTIMPL;
506 }
507
508 static HRESULT WINAPI WebBrowser_put_StatusBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
509 {
510     WebBrowser *This = WEBBROWSER_THIS(iface);
511     FIXME("(%p)->(%x)\n", This, Value);
512     return E_NOTIMPL;
513 }
514
515 static HRESULT WINAPI WebBrowser_get_StatusText(IWebBrowser2 *iface, BSTR *StatusText)
516 {
517     WebBrowser *This = WEBBROWSER_THIS(iface);
518     FIXME("(%p)->(%p)\n", This, StatusText);
519     return E_NOTIMPL;
520 }
521
522 static HRESULT WINAPI WebBrowser_put_StatusText(IWebBrowser2 *iface, BSTR StatusText)
523 {
524     WebBrowser *This = WEBBROWSER_THIS(iface);
525     FIXME("(%p)->(%s)\n", This, debugstr_w(StatusText));
526     return E_NOTIMPL;
527 }
528
529 static HRESULT WINAPI WebBrowser_get_ToolBar(IWebBrowser2 *iface, int *Value)
530 {
531     WebBrowser *This = WEBBROWSER_THIS(iface);
532     FIXME("(%p)->(%p)\n", This, Value);
533     return E_NOTIMPL;
534 }
535
536 static HRESULT WINAPI WebBrowser_put_ToolBar(IWebBrowser2 *iface, int Value)
537 {
538     WebBrowser *This = WEBBROWSER_THIS(iface);
539     FIXME("(%p)->(%d)\n", This, Value);
540     return E_NOTIMPL;
541 }
542
543 static HRESULT WINAPI WebBrowser_get_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
544 {
545     WebBrowser *This = WEBBROWSER_THIS(iface);
546     FIXME("(%p)->(%p)\n", This, Value);
547     return E_NOTIMPL;
548 }
549
550 static HRESULT WINAPI WebBrowser_put_MenuBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
551 {
552     WebBrowser *This = WEBBROWSER_THIS(iface);
553     FIXME("(%p)->(%x)\n", This, Value);
554     return E_NOTIMPL;
555 }
556
557 static HRESULT WINAPI WebBrowser_get_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL *pbFullScreen)
558 {
559     WebBrowser *This = WEBBROWSER_THIS(iface);
560     FIXME("(%p)->(%p)\n", This, pbFullScreen);
561     return E_NOTIMPL;
562 }
563
564 static HRESULT WINAPI WebBrowser_put_FullScreen(IWebBrowser2 *iface, VARIANT_BOOL bFullScreen)
565 {
566     WebBrowser *This = WEBBROWSER_THIS(iface);
567     FIXME("(%p)->(%x)\n", This, bFullScreen);
568     return E_NOTIMPL;
569 }
570
571 static HRESULT WINAPI WebBrowser_Navigate2(IWebBrowser2 *iface, VARIANT *URL, VARIANT *Flags,
572         VARIANT *TargetFrameName, VARIANT *PostData, VARIANT *Headers)
573 {
574     WebBrowser *This = WEBBROWSER_THIS(iface);
575     PBYTE post_data = NULL;
576     ULONG post_data_len = 0;
577     LPWSTR headers = NULL;
578     HRESULT hres;
579
580     TRACE("(%p)->(%p %p %p %p %p)\n", This, URL, Flags, TargetFrameName, PostData, Headers);
581
582     if(!This->client)
583         return E_FAIL;
584
585     if((Flags && V_VT(Flags) != VT_EMPTY) 
586        || (TargetFrameName && V_VT(TargetFrameName) != VT_EMPTY))
587         FIXME("Unsupported arguments\n");
588
589
590     if(!URL)
591         return S_OK;
592
593     if(V_VT(URL) != VT_BSTR)
594         return E_INVALIDARG;
595
596     if(PostData && V_VT(PostData) != VT_EMPTY) {
597         if(V_VT(PostData) != (VT_ARRAY | VT_UI1)
598            || V_ARRAY(PostData)->cDims != 1) {
599             WARN("Invalid PostData\n");
600             return E_INVALIDARG;
601         }
602
603         SafeArrayAccessData(V_ARRAY(PostData), (void**)&post_data);
604         post_data_len = V_ARRAY(PostData)->rgsabound[0].cElements;
605     }
606
607     if(Headers && V_VT(Headers) != VT_EMPTY) {
608         if(V_VT(Headers) != VT_BSTR)
609             return E_INVALIDARG;
610
611         headers = V_BSTR(Headers);
612         TRACE("Headers: %s\n", debugstr_w(headers));
613     }
614
615     if(!This->doc_host.hwnd)
616         create_doc_view_hwnd(This);
617
618     hres = navigate_url(This, V_BSTR(URL), post_data, post_data_len, headers);
619
620     if(post_data)
621         SafeArrayUnaccessData(V_ARRAY(PostData));
622
623     return hres;
624 }
625
626 static HRESULT WINAPI WebBrowser_QueryStatusWB(IWebBrowser2 *iface, OLECMDID cmdID, OLECMDF *pcmdf)
627 {
628     WebBrowser *This = WEBBROWSER_THIS(iface);
629     FIXME("(%p)->(%d %p)\n", This, cmdID, pcmdf);
630     return E_NOTIMPL;
631 }
632
633 static HRESULT WINAPI WebBrowser_ExecWB(IWebBrowser2 *iface, OLECMDID cmdID,
634         OLECMDEXECOPT cmdexecopt, VARIANT *pvaIn, VARIANT *pvaOut)
635 {
636     WebBrowser *This = WEBBROWSER_THIS(iface);
637     FIXME("(%p)->(%d %d %p %p)\n", This, cmdID, cmdexecopt, pvaIn, pvaOut);
638     return E_NOTIMPL;
639 }
640
641 static HRESULT WINAPI WebBrowser_ShowBrowserBar(IWebBrowser2 *iface, VARIANT *pvaClsid,
642         VARIANT *pvarShow, VARIANT *pvarSize)
643 {
644     WebBrowser *This = WEBBROWSER_THIS(iface);
645     FIXME("(%p)->(%p %p %p)\n", This, pvaClsid, pvarShow, pvarSize);
646     return E_NOTIMPL;
647 }
648
649 static HRESULT WINAPI WebBrowser_get_ReadyState(IWebBrowser2 *iface, READYSTATE *lpReadyState)
650 {
651     WebBrowser *This = WEBBROWSER_THIS(iface);
652     FIXME("(%p)->(%p)\n", This, lpReadyState);
653     return E_NOTIMPL;
654 }
655
656 static HRESULT WINAPI WebBrowser_get_Offline(IWebBrowser2 *iface, VARIANT_BOOL *pbOffline)
657 {
658     WebBrowser *This = WEBBROWSER_THIS(iface);
659     FIXME("(%p)->(%p)\n", This, pbOffline);
660     return E_NOTIMPL;
661 }
662
663 static HRESULT WINAPI WebBrowser_put_Offline(IWebBrowser2 *iface, VARIANT_BOOL bOffline)
664 {
665     WebBrowser *This = WEBBROWSER_THIS(iface);
666     FIXME("(%p)->(%x)\n", This, bOffline);
667     return E_NOTIMPL;
668 }
669
670 static HRESULT WINAPI WebBrowser_get_Silent(IWebBrowser2 *iface, VARIANT_BOOL *pbSilent)
671 {
672     WebBrowser *This = WEBBROWSER_THIS(iface);
673     FIXME("(%p)->(%p)\n", This, pbSilent);
674     return E_NOTIMPL;
675 }
676
677 static HRESULT WINAPI WebBrowser_put_Silent(IWebBrowser2 *iface, VARIANT_BOOL bSilent)
678 {
679     WebBrowser *This = WEBBROWSER_THIS(iface);
680     FIXME("(%p)->(%x)\n", This, bSilent);
681     return E_NOTIMPL;
682 }
683
684 static HRESULT WINAPI WebBrowser_get_RegisterAsBrowser(IWebBrowser2 *iface,
685         VARIANT_BOOL *pbRegister)
686 {
687     WebBrowser *This = WEBBROWSER_THIS(iface);
688     FIXME("(%p)->(%p)\n", This, pbRegister);
689     return E_NOTIMPL;
690 }
691
692 static HRESULT WINAPI WebBrowser_put_RegisterAsBrowser(IWebBrowser2 *iface,
693         VARIANT_BOOL bRegister)
694 {
695     WebBrowser *This = WEBBROWSER_THIS(iface);
696     FIXME("(%p)->(%x)\n", This, bRegister);
697     return E_NOTIMPL;
698 }
699
700 static HRESULT WINAPI WebBrowser_get_RegisterAsDropTarget(IWebBrowser2 *iface,
701         VARIANT_BOOL *pbRegister)
702 {
703     WebBrowser *This = WEBBROWSER_THIS(iface);
704     FIXME("(%p)->(%p)\n", This, pbRegister);
705     return E_NOTIMPL;
706 }
707
708 static HRESULT WINAPI WebBrowser_put_RegisterAsDropTarget(IWebBrowser2 *iface,
709         VARIANT_BOOL bRegister)
710 {
711     WebBrowser *This = WEBBROWSER_THIS(iface);
712     FIXME("(%p)->(%x)\n", This, bRegister);
713     return E_NOTIMPL;
714 }
715
716 static HRESULT WINAPI WebBrowser_get_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL *pbRegister)
717 {
718     WebBrowser *This = WEBBROWSER_THIS(iface);
719     FIXME("(%p)->(%p)\n", This, pbRegister);
720     return E_NOTIMPL;
721 }
722
723 static HRESULT WINAPI WebBrowser_put_TheaterMode(IWebBrowser2 *iface, VARIANT_BOOL bRegister)
724 {
725     WebBrowser *This = WEBBROWSER_THIS(iface);
726     FIXME("(%p)->(%x)\n", This, bRegister);
727     return E_NOTIMPL;
728 }
729
730 static HRESULT WINAPI WebBrowser_get_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL *Value)
731 {
732     WebBrowser *This = WEBBROWSER_THIS(iface);
733     FIXME("(%p)->(%p)\n", This, Value);
734     return E_NOTIMPL;
735 }
736
737 static HRESULT WINAPI WebBrowser_put_AddressBar(IWebBrowser2 *iface, VARIANT_BOOL Value)
738 {
739     WebBrowser *This = WEBBROWSER_THIS(iface);
740     FIXME("(%p)->(%x)\n", This, Value);
741     return E_NOTIMPL;
742 }
743
744 static HRESULT WINAPI WebBrowser_get_Resizable(IWebBrowser2 *iface, VARIANT_BOOL *Value)
745 {
746     WebBrowser *This = WEBBROWSER_THIS(iface);
747     FIXME("(%p)->(%p)\n", This, Value);
748     return E_NOTIMPL;
749 }
750
751 static HRESULT WINAPI WebBrowser_put_Resizable(IWebBrowser2 *iface, VARIANT_BOOL Value)
752 {
753     WebBrowser *This = WEBBROWSER_THIS(iface);
754     FIXME("(%p)->(%x)\n", This, Value);
755     return E_NOTIMPL;
756 }
757
758 #undef WEBBROWSER_THIS
759
760 static const IWebBrowser2Vtbl WebBrowser2Vtbl =
761 {
762     WebBrowser_QueryInterface,
763     WebBrowser_AddRef,
764     WebBrowser_Release,
765     WebBrowser_GetTypeInfoCount,
766     WebBrowser_GetTypeInfo,
767     WebBrowser_GetIDsOfNames,
768     WebBrowser_Invoke,
769     WebBrowser_GoBack,
770     WebBrowser_GoForward,
771     WebBrowser_GoHome,
772     WebBrowser_GoSearch,
773     WebBrowser_Navigate,
774     WebBrowser_Refresh,
775     WebBrowser_Refresh2,
776     WebBrowser_Stop,
777     WebBrowser_get_Application,
778     WebBrowser_get_Parent,
779     WebBrowser_get_Container,
780     WebBrowser_get_Document,
781     WebBrowser_get_TopLevelContainer,
782     WebBrowser_get_Type,
783     WebBrowser_get_Left,
784     WebBrowser_put_Left,
785     WebBrowser_get_Top,
786     WebBrowser_put_Top,
787     WebBrowser_get_Width,
788     WebBrowser_put_Width,
789     WebBrowser_get_Height,
790     WebBrowser_put_Height,
791     WebBrowser_get_LocationName,
792     WebBrowser_get_LocationURL,
793     WebBrowser_get_Busy,
794     WebBrowser_Quit,
795     WebBrowser_ClientToWindow,
796     WebBrowser_PutProperty,
797     WebBrowser_GetProperty,
798     WebBrowser_get_Name,
799     WebBrowser_get_HWND,
800     WebBrowser_get_FullName,
801     WebBrowser_get_Path,
802     WebBrowser_get_Visible,
803     WebBrowser_put_Visible,
804     WebBrowser_get_StatusBar,
805     WebBrowser_put_StatusBar,
806     WebBrowser_get_StatusText,
807     WebBrowser_put_StatusText,
808     WebBrowser_get_ToolBar,
809     WebBrowser_put_ToolBar,
810     WebBrowser_get_MenuBar,
811     WebBrowser_put_MenuBar,
812     WebBrowser_get_FullScreen,
813     WebBrowser_put_FullScreen,
814     WebBrowser_Navigate2,
815     WebBrowser_QueryStatusWB,
816     WebBrowser_ExecWB,
817     WebBrowser_ShowBrowserBar,
818     WebBrowser_get_ReadyState,
819     WebBrowser_get_Offline,
820     WebBrowser_put_Offline,
821     WebBrowser_get_Silent,
822     WebBrowser_put_Silent,
823     WebBrowser_get_RegisterAsBrowser,
824     WebBrowser_put_RegisterAsBrowser,
825     WebBrowser_get_RegisterAsDropTarget,
826     WebBrowser_put_RegisterAsDropTarget,
827     WebBrowser_get_TheaterMode,
828     WebBrowser_put_TheaterMode,
829     WebBrowser_get_AddressBar,
830     WebBrowser_put_AddressBar,
831     WebBrowser_get_Resizable,
832     WebBrowser_put_Resizable
833 };
834
835 HRESULT WebBrowser_Create(IUnknown *pOuter, REFIID riid, void **ppv)
836 {
837     WebBrowser *ret;
838     HRESULT hres;
839
840     TRACE("(%p %s %p)\n", pOuter, debugstr_guid(riid), ppv);
841
842     ret = HeapAlloc(GetProcessHeap(), 0, sizeof(WebBrowser));
843
844     ret->lpWebBrowser2Vtbl = &WebBrowser2Vtbl;
845     ret->ref = 0;
846
847     ret->url = NULL;
848
849     ret->doc_host.disp = (IDispatch*)WEBBROWSER2(ret);
850
851     WebBrowser_OleObject_Init(ret);
852     WebBrowser_ViewObject_Init(ret);
853     WebBrowser_Persist_Init(ret);
854     WebBrowser_ClassInfo_Init(ret);
855     WebBrowser_Events_Init(ret);
856     WebBrowser_ClientSite_Init(ret);
857     WebBrowser_DocHost_Init(ret);
858     WebBrowser_Frame_Init(ret);
859     WebBrowser_HlinkFrame_Init(ret);
860
861     hres = IWebBrowser_QueryInterface(WEBBROWSER(ret), riid, ppv);
862     if(SUCCEEDED(hres)) {
863         SHDOCVW_LockModule();
864     }else {
865         HeapFree(GetProcessHeap(), 0, ret);
866         return hres;
867     }
868
869     return hres;
870 }