wininet/tests: Don't crash on W2K and below.
[wine] / dlls / mshtml / htmlselect.c
1 /*
2  * Copyright 2006 Jacek Caban for CodeWeavers
3  *
4  * This library is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU Lesser General Public
6  * License as published by the Free Software Foundation; either
7  * version 2.1 of the License, or (at your option) any later version.
8  *
9  * This library is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12  * Lesser General Public License for more details.
13  *
14  * You should have received a copy of the GNU Lesser General Public
15  * License along with this library; if not, write to the Free Software
16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
17  */
18
19 #include <stdarg.h>
20
21 #define COBJMACROS
22
23 #include "windef.h"
24 #include "winbase.h"
25 #include "winuser.h"
26 #include "ole2.h"
27
28 #include "wine/debug.h"
29
30 #include "mshtml_private.h"
31
32 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
33
34 typedef struct {
35     HTMLElement element;
36
37     const IHTMLSelectElementVtbl *lpHTMLSelectElementVtbl;
38
39     nsIDOMHTMLSelectElement *nsselect;
40 } HTMLSelectElement;
41
42 #define HTMLSELECT(x)      ((IHTMLSelectElement*)         &(x)->lpHTMLSelectElementVtbl)
43
44 #define HTMLSELECT_THIS(iface) DEFINE_THIS(HTMLSelectElement, HTMLSelectElement, iface)
45
46 static HRESULT WINAPI HTMLSelectElement_QueryInterface(IHTMLSelectElement *iface,
47                                                          REFIID riid, void **ppv)
48 {
49     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
50
51     return IHTMLDOMNode_QueryInterface(HTMLDOMNODE(&This->element.node), riid, ppv);
52 }
53
54 static ULONG WINAPI HTMLSelectElement_AddRef(IHTMLSelectElement *iface)
55 {
56     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
57
58     return IHTMLDOMNode_AddRef(HTMLDOMNODE(&This->element.node));
59 }
60
61 static ULONG WINAPI HTMLSelectElement_Release(IHTMLSelectElement *iface)
62 {
63     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
64
65     return IHTMLDOMNode_Release(HTMLDOMNODE(&This->element.node));
66 }
67
68 static HRESULT WINAPI HTMLSelectElement_GetTypeInfoCount(IHTMLSelectElement *iface, UINT *pctinfo)
69 {
70     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
71
72     return IDispatchEx_GetTypeInfoCount(DISPATCHEX(&This->element.node.dispex), pctinfo);
73 }
74
75 static HRESULT WINAPI HTMLSelectElement_GetTypeInfo(IHTMLSelectElement *iface, UINT iTInfo,
76                                               LCID lcid, ITypeInfo **ppTInfo)
77 {
78     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
79
80     return IDispatchEx_GetTypeInfo(DISPATCHEX(&This->element.node.dispex), iTInfo, lcid, ppTInfo);
81 }
82
83 static HRESULT WINAPI HTMLSelectElement_GetIDsOfNames(IHTMLSelectElement *iface, REFIID riid,
84                                                 LPOLESTR *rgszNames, UINT cNames,
85                                                 LCID lcid, DISPID *rgDispId)
86 {
87     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
88
89     return IDispatchEx_GetIDsOfNames(DISPATCHEX(&This->element.node.dispex), riid, rgszNames, cNames, lcid, rgDispId);
90 }
91
92 static HRESULT WINAPI HTMLSelectElement_Invoke(IHTMLSelectElement *iface, DISPID dispIdMember,
93                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
94                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
95 {
96     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
97
98     return IDispatchEx_Invoke(DISPATCHEX(&This->element.node.dispex), dispIdMember, riid, lcid,
99             wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
100 }
101
102 static HRESULT WINAPI HTMLSelectElement_put_size(IHTMLSelectElement *iface, long v)
103 {
104     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
105     FIXME("(%p)->(%ld)\n", This, v);
106     return E_NOTIMPL;
107 }
108
109 static HRESULT WINAPI HTMLSelectElement_get_size(IHTMLSelectElement *iface, long *p)
110 {
111     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
112     FIXME("(%p)->(%p)\n", This, p);
113     return E_NOTIMPL;
114 }
115
116 static HRESULT WINAPI HTMLSelectElement_put_multiple(IHTMLSelectElement *iface, VARIANT_BOOL v)
117 {
118     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
119     FIXME("(%p)->(%x)\n", This, v);
120     return E_NOTIMPL;
121 }
122
123 static HRESULT WINAPI HTMLSelectElement_get_multiple(IHTMLSelectElement *iface, VARIANT_BOOL *p)
124 {
125     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
126     FIXME("(%p)->(%p)\n", This, p);
127     return E_NOTIMPL;
128 }
129
130 static HRESULT WINAPI HTMLSelectElement_put_name(IHTMLSelectElement *iface, BSTR v)
131 {
132     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
133     FIXME("(%p)->(%s)\n", This, debugstr_w(v));
134     return E_NOTIMPL;
135 }
136
137 static HRESULT WINAPI HTMLSelectElement_get_name(IHTMLSelectElement *iface, BSTR *p)
138 {
139     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
140     nsAString name_str;
141     const PRUnichar *name = NULL;
142     nsresult nsres;
143
144     TRACE("(%p)->(%p)\n", This, p);
145
146     nsAString_Init(&name_str, NULL);
147
148     nsres = nsIDOMHTMLSelectElement_GetName(This->nsselect, &name_str);
149     if(NS_SUCCEEDED(nsres)) {
150         static const WCHAR wszGarbage[] = {'g','a','r','b','a','g','e',0};
151
152         nsAString_GetData(&name_str, &name);
153
154         /*
155          * Native never returns empty string here. If an element has no name,
156          * name of previous element or ramdom data is returned.
157          */
158         *p = SysAllocString(*name ? name : wszGarbage);
159     }else {
160         ERR("GetName failed: %08x\n", nsres);
161     }
162
163     nsAString_Finish(&name_str);
164
165     TRACE("name=%s\n", debugstr_w(*p));
166     return S_OK;
167 }
168
169 static HRESULT WINAPI HTMLSelectElement_get_options(IHTMLSelectElement *iface, IDispatch **p)
170 {
171     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
172     FIXME("(%p)->(%p)\n", This, p);
173     return E_NOTIMPL;
174 }
175
176 static HRESULT WINAPI HTMLSelectElement_put_onchange(IHTMLSelectElement *iface, VARIANT v)
177 {
178     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
179
180     TRACE("(%p)->()\n", This);
181
182     return set_node_event(&This->element.node, EVENTID_CHANGE, &v);
183 }
184
185 static HRESULT WINAPI HTMLSelectElement_get_onchange(IHTMLSelectElement *iface, VARIANT *p)
186 {
187     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
188     FIXME("(%p)->(%p)\n", This, p);
189     return E_NOTIMPL;
190 }
191
192 static HRESULT WINAPI HTMLSelectElement_put_selectedIndex(IHTMLSelectElement *iface, long v)
193 {
194     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
195     nsresult nsres;
196
197     TRACE("(%p)->(%ld)\n", This, v);
198
199     nsres = nsIDOMHTMLSelectElement_SetSelectedIndex(This->nsselect, v);
200     if(NS_FAILED(nsres))
201         ERR("SetSelectedIndex failed: %08x\n", nsres);
202
203     return S_OK;
204 }
205
206 static HRESULT WINAPI HTMLSelectElement_get_selectedIndex(IHTMLSelectElement *iface, long *p)
207 {
208     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
209     PRInt32 idx = 0;
210     nsresult nsres;
211
212     TRACE("(%p)->(%p)\n", This, p);
213
214     nsres = nsIDOMHTMLSelectElement_GetSelectedIndex(This->nsselect, &idx);
215     if(NS_FAILED(nsres))
216         ERR("GetSelectedIndex failed: %08x\n", nsres);
217
218     *p = idx;
219     return S_OK;
220 }
221
222 static HRESULT WINAPI HTMLSelectElement_get_type(IHTMLSelectElement *iface, BSTR *p)
223 {
224     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
225     const PRUnichar *type;
226     nsAString type_str;
227     nsresult nsres;
228     HRESULT hres = S_OK;
229
230     TRACE("(%p)->(%p)\n", This, p);
231
232     nsAString_Init(&type_str, NULL);
233     nsres = nsIDOMHTMLSelectElement_GetType(This->nsselect, &type_str);
234     if(NS_SUCCEEDED(nsres)) {
235         nsAString_GetData(&type_str, &type);
236         *p = *type ? SysAllocString(type) : NULL;
237     }else {
238         ERR("GetType failed: %08x\n", nsres);
239         hres = E_FAIL;
240     }
241
242     nsAString_Finish(&type_str);
243
244     return hres;
245 }
246
247 static HRESULT WINAPI HTMLSelectElement_put_value(IHTMLSelectElement *iface, BSTR v)
248 {
249     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
250     nsAString value_str;
251     nsresult nsres;
252
253     TRACE("(%p)->(%s)\n", This, debugstr_w(v));
254
255     nsAString_Init(&value_str, v);
256     nsres = nsIDOMHTMLSelectElement_SetValue(This->nsselect, &value_str);
257     nsAString_Finish(&value_str);
258     if(NS_FAILED(nsres))
259         ERR("SetValue failed: %08x\n", nsres);
260
261     return S_OK;
262 }
263
264 static HRESULT WINAPI HTMLSelectElement_get_value(IHTMLSelectElement *iface, BSTR *p)
265 {
266     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
267     nsAString value_str;
268     const PRUnichar *value = NULL;
269     nsresult nsres;
270
271     TRACE("(%p)->(%p)\n", This, p);
272
273     nsAString_Init(&value_str, NULL);
274
275     nsres = nsIDOMHTMLSelectElement_GetValue(This->nsselect, &value_str);
276     if(NS_SUCCEEDED(nsres)) {
277         nsAString_GetData(&value_str, &value);
278         *p = *value ? SysAllocString(value) : NULL;
279     }else {
280         ERR("GetValue failed: %08x\n", nsres);
281     }
282
283     nsAString_Finish(&value_str);
284
285     TRACE("value=%s\n", debugstr_w(*p));
286     return S_OK;
287 }
288
289 static HRESULT WINAPI HTMLSelectElement_put_disabled(IHTMLSelectElement *iface, VARIANT_BOOL v)
290 {
291     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
292     FIXME("(%p)->(%x)\n", This, v);
293     return E_NOTIMPL;
294 }
295
296 static HRESULT WINAPI HTMLSelectElement_get_disabled(IHTMLSelectElement *iface, VARIANT_BOOL *p)
297 {
298     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
299     FIXME("(%p)->(%p)\n", This, p);
300     return E_NOTIMPL;
301 }
302
303 static HRESULT WINAPI HTMLSelectElement_get_form(IHTMLSelectElement *iface, IHTMLFormElement **p)
304 {
305     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
306     FIXME("(%p)->(%p)\n", This, p);
307     return E_NOTIMPL;
308 }
309
310 static HRESULT WINAPI HTMLSelectElement_add(IHTMLSelectElement *iface, IHTMLElement *element,
311                                             VARIANT before)
312 {
313     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
314     FIXME("(%p)->(%p v)\n", This, element);
315     return E_NOTIMPL;
316 }
317
318 static HRESULT WINAPI HTMLSelectElement_remove(IHTMLSelectElement *iface, long index)
319 {
320     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
321     FIXME("(%p)->(%ld)\n", This, index);
322     return E_NOTIMPL;
323 }
324
325 static HRESULT WINAPI HTMLSelectElement_put_length(IHTMLSelectElement *iface, long v)
326 {
327     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
328     FIXME("(%p)->(%ld)\n", This, v);
329     return E_NOTIMPL;
330 }
331
332 static HRESULT WINAPI HTMLSelectElement_get_length(IHTMLSelectElement *iface, long *p)
333 {
334     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
335     PRUint32 length = 0;
336     nsresult nsres;
337
338     TRACE("(%p)->(%p)\n", This, p);
339
340     nsres = nsIDOMHTMLSelectElement_GetLength(This->nsselect, &length);
341     if(NS_FAILED(nsres))
342         ERR("GetLength failed: %08x\n", nsres);
343
344     *p = length;
345
346     TRACE("ret %ld\n", *p);
347     return S_OK;
348 }
349
350 static HRESULT WINAPI HTMLSelectElement_get__newEnum(IHTMLSelectElement *iface, IUnknown **p)
351 {
352     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
353     FIXME("(%p)->(%p)\n", This, p);
354     return E_NOTIMPL;
355 }
356
357 static HRESULT WINAPI HTMLSelectElement_item(IHTMLSelectElement *iface, VARIANT name,
358                                              VARIANT index, IDispatch **pdisp)
359 {
360     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
361     FIXME("(%p)->(v v %p)\n", This, pdisp);
362     return E_NOTIMPL;
363 }
364
365 static HRESULT WINAPI HTMLSelectElement_tags(IHTMLSelectElement *iface, VARIANT tagName,
366                                              IDispatch **pdisp)
367 {
368     HTMLSelectElement *This = HTMLSELECT_THIS(iface);
369     FIXME("(%p)->(v %p)\n", This, pdisp);
370     return E_NOTIMPL;
371 }
372
373 #undef HTMLSELECT_THIS
374
375 static const IHTMLSelectElementVtbl HTMLSelectElementVtbl = {
376     HTMLSelectElement_QueryInterface,
377     HTMLSelectElement_AddRef,
378     HTMLSelectElement_Release,
379     HTMLSelectElement_GetTypeInfoCount,
380     HTMLSelectElement_GetTypeInfo,
381     HTMLSelectElement_GetIDsOfNames,
382     HTMLSelectElement_Invoke,
383     HTMLSelectElement_put_size,
384     HTMLSelectElement_get_size,
385     HTMLSelectElement_put_multiple,
386     HTMLSelectElement_get_multiple,
387     HTMLSelectElement_put_name,
388     HTMLSelectElement_get_name,
389     HTMLSelectElement_get_options,
390     HTMLSelectElement_put_onchange,
391     HTMLSelectElement_get_onchange,
392     HTMLSelectElement_put_selectedIndex,
393     HTMLSelectElement_get_selectedIndex,
394     HTMLSelectElement_get_type,
395     HTMLSelectElement_put_value,
396     HTMLSelectElement_get_value,
397     HTMLSelectElement_put_disabled,
398     HTMLSelectElement_get_disabled,
399     HTMLSelectElement_get_form,
400     HTMLSelectElement_add,
401     HTMLSelectElement_remove,
402     HTMLSelectElement_put_length,
403     HTMLSelectElement_get_length,
404     HTMLSelectElement_get__newEnum,
405     HTMLSelectElement_item,
406     HTMLSelectElement_tags
407 };
408
409 #define HTMLSELECT_NODE_THIS(iface) DEFINE_THIS2(HTMLSelectElement, element.node, iface)
410
411 static HRESULT HTMLSelectElement_QI(HTMLDOMNode *iface, REFIID riid, void **ppv)
412 {
413     HTMLSelectElement *This = HTMLSELECT_NODE_THIS(iface);
414
415     *ppv = NULL;
416
417     if(IsEqualGUID(&IID_IUnknown, riid)) {
418         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
419         *ppv = HTMLSELECT(This);
420     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
421         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
422         *ppv = HTMLSELECT(This);
423     }else if(IsEqualGUID(&IID_IHTMLSelectElement, riid)) {
424         TRACE("(%p)->(IID_IHTMLSelectElement %p)\n", This, ppv);
425         *ppv = HTMLSELECT(This);
426     }
427
428     if(*ppv) {
429         IUnknown_AddRef((IUnknown*)*ppv);
430         return S_OK;
431     }
432
433     return HTMLElement_QI(&This->element.node, riid, ppv);
434 }
435
436 static void HTMLSelectElement_destructor(HTMLDOMNode *iface)
437 {
438     HTMLSelectElement *This = HTMLSELECT_NODE_THIS(iface);
439
440     nsIDOMHTMLSelectElement_Release(This->nsselect);
441
442     HTMLElement_destructor(&This->element.node);
443 }
444
445 #undef HTMLSELECT_NODE_THIS
446
447 static const NodeImplVtbl HTMLSelectElementImplVtbl = {
448     HTMLSelectElement_QI,
449     HTMLSelectElement_destructor
450 };
451
452 static const tid_t HTMLSelectElement_tids[] = {
453     IHTMLDOMNode_tid,
454     IHTMLDOMNode2_tid,
455     IHTMLElement_tid,
456     IHTMLElement2_tid,
457     IHTMLSelectElement_tid,
458     0
459 };
460
461 static dispex_static_data_t HTMLSelectElement_dispex = {
462     NULL,
463     DispHTMLSelectElement_tid,
464     NULL,
465     HTMLSelectElement_tids
466 };
467
468 HTMLElement *HTMLSelectElement_Create(nsIDOMHTMLElement *nselem)
469 {
470     HTMLSelectElement *ret = heap_alloc_zero(sizeof(HTMLSelectElement));
471     nsresult nsres;
472
473     ret->lpHTMLSelectElementVtbl = &HTMLSelectElementVtbl;
474     ret->element.node.vtbl = &HTMLSelectElementImplVtbl;
475
476     init_dispex(&ret->element.node.dispex, (IUnknown*)HTMLSELECT(ret), &HTMLSelectElement_dispex);
477     HTMLElement_Init(&ret->element);
478
479     nsres = nsIDOMHTMLElement_QueryInterface(nselem, &IID_nsIDOMHTMLSelectElement,
480                                              (void**)&ret->nsselect);
481     if(NS_FAILED(nsres))
482         ERR("Could not get nsIDOMHTMLSelectElement interfce: %08x\n", nsres);
483
484     return &ret->element;
485 }