msi/tests: Prevent a popup on Windows NT.
[wine] / dlls / mshtml / htmlform.c
1 /*
2  * Copyright 2009 Andrew Eikum 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 struct HTMLFormElement {
35     HTMLElement element;
36
37     const IHTMLFormElementVtbl *lpHTMLFormElementVtbl;
38
39     nsIDOMHTMLFormElement *nsform;
40 };
41
42 #define HTMLFORM(x)  (&(x)->lpHTMLFormElementVtbl)
43
44 static HRESULT htmlform_item(HTMLFormElement *This, int i, IDispatch **ret)
45 {
46     nsIDOMHTMLCollection *elements;
47     nsIDOMNode *item;
48     HTMLDOMNode *node;
49     nsresult nsres;
50
51     nsres = nsIDOMHTMLFormElement_GetElements(This->nsform, &elements);
52     if(NS_FAILED(nsres)) {
53         FIXME("GetElements failed: 0x%08x\n", nsres);
54         return E_FAIL;
55     }
56
57     nsres = nsIDOMHTMLCollection_Item(elements, i, &item);
58     nsIDOMHTMLCollection_Release(elements);
59     if(NS_FAILED(nsres)) {
60         FIXME("Item failed: 0x%08x\n", nsres);
61         return E_FAIL;
62     }
63
64     if(item) {
65         node = get_node(This->element.node.doc, item, TRUE);
66         if(!node)
67             return E_OUTOFMEMORY;
68
69         IHTMLDOMNode_AddRef(HTMLDOMNODE(node));
70         nsIDOMNode_Release(item);
71         *ret = (IDispatch*)HTMLDOMNODE(node);
72     }else {
73         *ret = NULL;
74     }
75
76     return S_OK;
77 }
78
79 #define HTMLFORM_THIS(iface) DEFINE_THIS(HTMLFormElement, HTMLFormElement, iface)
80
81 static HRESULT WINAPI HTMLFormElement_QueryInterface(IHTMLFormElement *iface,
82         REFIID riid, void **ppv)
83 {
84     HTMLFormElement *This = HTMLFORM_THIS(iface);
85
86     return IHTMLDOMNode_QueryInterface(HTMLDOMNODE(&This->element.node), riid, ppv);
87 }
88
89 static ULONG WINAPI HTMLFormElement_AddRef(IHTMLFormElement *iface)
90 {
91     HTMLFormElement *This = HTMLFORM_THIS(iface);
92
93     return IHTMLDOMNode_AddRef(HTMLDOMNODE(&This->element.node));
94 }
95
96 static ULONG WINAPI HTMLFormElement_Release(IHTMLFormElement *iface)
97 {
98     HTMLFormElement *This = HTMLFORM_THIS(iface);
99
100     return IHTMLDOMNode_Release(HTMLDOMNODE(&This->element.node));
101 }
102
103 static HRESULT WINAPI HTMLFormElement_GetTypeInfoCount(IHTMLFormElement *iface, UINT *pctinfo)
104 {
105     HTMLFormElement *This = HTMLFORM_THIS(iface);
106     return IDispatchEx_GetTypeInfoCount(DISPATCHEX(&This->element.node.dispex), pctinfo);
107 }
108
109 static HRESULT WINAPI HTMLFormElement_GetTypeInfo(IHTMLFormElement *iface, UINT iTInfo,
110                                               LCID lcid, ITypeInfo **ppTInfo)
111 {
112     HTMLFormElement *This = HTMLFORM_THIS(iface);
113     return IDispatchEx_GetTypeInfo(DISPATCHEX(&This->element.node.dispex), iTInfo, lcid, ppTInfo);
114 }
115
116 static HRESULT WINAPI HTMLFormElement_GetIDsOfNames(IHTMLFormElement *iface, REFIID riid,
117                                                 LPOLESTR *rgszNames, UINT cNames,
118                                                 LCID lcid, DISPID *rgDispId)
119 {
120     HTMLFormElement *This = HTMLFORM_THIS(iface);
121     return IDispatchEx_GetIDsOfNames(DISPATCHEX(&This->element.node.dispex), riid, rgszNames, cNames, lcid, rgDispId);
122 }
123
124 static HRESULT WINAPI HTMLFormElement_Invoke(IHTMLFormElement *iface, DISPID dispIdMember,
125                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
126                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
127 {
128     HTMLFormElement *This = HTMLFORM_THIS(iface);
129     return IDispatchEx_Invoke(DISPATCHEX(&This->element.node.dispex), dispIdMember, riid, lcid, wFlags, pDispParams,
130             pVarResult, pExcepInfo, puArgErr);
131 }
132
133 static HRESULT WINAPI HTMLFormElement_put_action(IHTMLFormElement *iface, BSTR v)
134 {
135     HTMLFormElement *This = HTMLFORM_THIS(iface);
136     nsAString action_str;
137     nsresult nsres;
138
139     TRACE("(%p)->(%s)\n", This, wine_dbgstr_w(v));
140
141     nsAString_InitDepend(&action_str, v);
142     nsres = nsIDOMHTMLFormElement_SetAction(This->nsform, &action_str);
143     nsAString_Finish(&action_str);
144     if(NS_FAILED(nsres)) {
145         ERR("SetAction failed: %08x\n", nsres);
146         return E_FAIL;
147     }
148
149     return S_OK;
150 }
151
152 static HRESULT WINAPI HTMLFormElement_get_action(IHTMLFormElement *iface, BSTR *p)
153 {
154     HTMLFormElement *This = HTMLFORM_THIS(iface);
155     nsAString action_str;
156     nsresult nsres;
157     HRESULT hres;
158
159     TRACE("(%p)->(%p)\n", This, p);
160
161     nsAString_Init(&action_str, NULL);
162     nsres = nsIDOMHTMLFormElement_GetAction(This->nsform, &action_str);
163     if(NS_SUCCEEDED(nsres)) {
164         const PRUnichar *action;
165         nsAString_GetData(&action_str, &action);
166         hres = nsuri_to_url(action, FALSE, p);
167     }else {
168         ERR("GetAction failed: %08x\n", nsres);
169         hres = E_FAIL;
170     }
171
172     return hres;
173 }
174
175 static HRESULT WINAPI HTMLFormElement_put_dir(IHTMLFormElement *iface, BSTR v)
176 {
177     HTMLFormElement *This = HTMLFORM_THIS(iface);
178     FIXME("(%p)->(%s)\n", This, wine_dbgstr_w(v));
179     return E_NOTIMPL;
180 }
181
182 static HRESULT WINAPI HTMLFormElement_get_dir(IHTMLFormElement *iface, BSTR *p)
183 {
184     HTMLFormElement *This = HTMLFORM_THIS(iface);
185     FIXME("(%p)->(%p)\n", This, p);
186     return E_NOTIMPL;
187 }
188
189 static HRESULT WINAPI HTMLFormElement_put_encoding(IHTMLFormElement *iface, BSTR v)
190 {
191     HTMLFormElement *This = HTMLFORM_THIS(iface);
192     FIXME("(%p)->(%s)\n", This, wine_dbgstr_w(v));
193     return E_NOTIMPL;
194 }
195
196 static HRESULT WINAPI HTMLFormElement_get_encoding(IHTMLFormElement *iface, BSTR *p)
197 {
198     HTMLFormElement *This = HTMLFORM_THIS(iface);
199     FIXME("(%p)->(%p)\n", This, p);
200     return E_NOTIMPL;
201 }
202
203 static HRESULT WINAPI HTMLFormElement_put_method(IHTMLFormElement *iface, BSTR v)
204 {
205     HTMLFormElement *This = HTMLFORM_THIS(iface);
206     FIXME("(%p)->(%s)\n", This, wine_dbgstr_w(v));
207     return E_NOTIMPL;
208 }
209
210 static HRESULT WINAPI HTMLFormElement_get_method(IHTMLFormElement *iface, BSTR *p)
211 {
212     HTMLFormElement *This = HTMLFORM_THIS(iface);
213     FIXME("(%p)->(%p)\n", This, p);
214     return E_NOTIMPL;
215 }
216
217 static HRESULT WINAPI HTMLFormElement_get_elements(IHTMLFormElement *iface, IDispatch **p)
218 {
219     HTMLFormElement *This = HTMLFORM_THIS(iface);
220     FIXME("(%p)->(%p)\n", This, p);
221     return E_NOTIMPL;
222 }
223
224 static HRESULT WINAPI HTMLFormElement_put_target(IHTMLFormElement *iface, BSTR v)
225 {
226     HTMLFormElement *This = HTMLFORM_THIS(iface);
227     FIXME("(%p)->(%s)\n", This, wine_dbgstr_w(v));
228     return E_NOTIMPL;
229 }
230
231 static HRESULT WINAPI HTMLFormElement_get_target(IHTMLFormElement *iface, BSTR *p)
232 {
233     HTMLFormElement *This = HTMLFORM_THIS(iface);
234     FIXME("(%p)->(%p)\n", This, p);
235     return E_NOTIMPL;
236 }
237
238 static HRESULT WINAPI HTMLFormElement_put_name(IHTMLFormElement *iface, BSTR v)
239 {
240     HTMLFormElement *This = HTMLFORM_THIS(iface);
241     FIXME("(%p)->(%s)\n", This, wine_dbgstr_w(v));
242     return E_NOTIMPL;
243 }
244
245 static HRESULT WINAPI HTMLFormElement_get_name(IHTMLFormElement *iface, BSTR *p)
246 {
247     HTMLFormElement *This = HTMLFORM_THIS(iface);
248     FIXME("(%p)->(%p)\n", This, p);
249     return E_NOTIMPL;
250 }
251
252 static HRESULT WINAPI HTMLFormElement_put_onsubmit(IHTMLFormElement *iface, VARIANT v)
253 {
254     HTMLFormElement *This = HTMLFORM_THIS(iface);
255     FIXME("(%p)->(v)\n", This);
256     return E_NOTIMPL;
257 }
258
259 static HRESULT WINAPI HTMLFormElement_get_onsubmit(IHTMLFormElement *iface, VARIANT *p)
260 {
261     HTMLFormElement *This = HTMLFORM_THIS(iface);
262     FIXME("(%p)->(%p)\n", This, p);
263     return E_NOTIMPL;
264 }
265
266 static HRESULT WINAPI HTMLFormElement_put_onreset(IHTMLFormElement *iface, VARIANT v)
267 {
268     HTMLFormElement *This = HTMLFORM_THIS(iface);
269     FIXME("(%p)->(v)\n", This);
270     return E_NOTIMPL;
271 }
272
273 static HRESULT WINAPI HTMLFormElement_get_onreset(IHTMLFormElement *iface, VARIANT *p)
274 {
275     HTMLFormElement *This = HTMLFORM_THIS(iface);
276     FIXME("(%p)->(%p)\n", This, p);
277     return E_NOTIMPL;
278 }
279
280 static HRESULT WINAPI HTMLFormElement_submit(IHTMLFormElement *iface)
281 {
282     HTMLFormElement *This = HTMLFORM_THIS(iface);
283     FIXME("(%p)->()\n", This);
284     return E_NOTIMPL;
285 }
286
287 static HRESULT WINAPI HTMLFormElement_reset(IHTMLFormElement *iface)
288 {
289     HTMLFormElement *This = HTMLFORM_THIS(iface);
290     FIXME("(%p)->()\n", This);
291     return E_NOTIMPL;
292 }
293
294 static HRESULT WINAPI HTMLFormElement_put_length(IHTMLFormElement *iface, LONG v)
295 {
296     HTMLFormElement *This = HTMLFORM_THIS(iface);
297     FIXME("(%p)->(%d)\n", This, v);
298     return E_NOTIMPL;
299 }
300
301 static HRESULT WINAPI HTMLFormElement_get_length(IHTMLFormElement *iface, LONG *p)
302 {
303     HTMLFormElement *This = HTMLFORM_THIS(iface);
304     PRInt32 length;
305     nsresult nsres;
306
307     TRACE("(%p)->(%p)\n", This, p);
308
309     nsres = nsIDOMHTMLFormElement_GetLength(This->nsform, &length);
310     if(NS_FAILED(nsres)) {
311         ERR("GetLength failed: %08x\n", nsres);
312         return E_FAIL;
313     }
314
315     *p = length;
316     return S_OK;
317 }
318
319 static HRESULT WINAPI HTMLFormElement__newEnum(IHTMLFormElement *iface, IUnknown **p)
320 {
321     HTMLFormElement *This = HTMLFORM_THIS(iface);
322     FIXME("(%p)->(%p)\n", This, p);
323     return E_NOTIMPL;
324 }
325
326 static HRESULT WINAPI HTMLFormElement_item(IHTMLFormElement *iface, VARIANT name,
327         VARIANT index, IDispatch **pdisp)
328 {
329     HTMLFormElement *This = HTMLFORM_THIS(iface);
330
331     TRACE("(%p)->(%s %s %p)\n", This, debugstr_variant(&name), debugstr_variant(&index), pdisp);
332
333     if(!pdisp)
334         return E_INVALIDARG;
335     *pdisp = NULL;
336
337     if(V_VT(&name) == VT_I4) {
338         if(V_I4(&name) < 0)
339             return E_INVALIDARG;
340         return htmlform_item(This, V_I4(&name), pdisp);
341     }
342
343     FIXME("Unsupported args\n");
344     return E_NOTIMPL;
345 }
346
347 static HRESULT WINAPI HTMLFormElement_tags(IHTMLFormElement *iface, VARIANT tagName,
348         IDispatch **pdisp)
349 {
350     HTMLFormElement *This = HTMLFORM_THIS(iface);
351     FIXME("(%p)->(v %p)\n", This, pdisp);
352     return E_NOTIMPL;
353 }
354
355 #undef HTMLFORM_THIS
356
357 static const IHTMLFormElementVtbl HTMLFormElementVtbl = {
358     HTMLFormElement_QueryInterface,
359     HTMLFormElement_AddRef,
360     HTMLFormElement_Release,
361     HTMLFormElement_GetTypeInfoCount,
362     HTMLFormElement_GetTypeInfo,
363     HTMLFormElement_GetIDsOfNames,
364     HTMLFormElement_Invoke,
365     HTMLFormElement_put_action,
366     HTMLFormElement_get_action,
367     HTMLFormElement_put_dir,
368     HTMLFormElement_get_dir,
369     HTMLFormElement_put_encoding,
370     HTMLFormElement_get_encoding,
371     HTMLFormElement_put_method,
372     HTMLFormElement_get_method,
373     HTMLFormElement_get_elements,
374     HTMLFormElement_put_target,
375     HTMLFormElement_get_target,
376     HTMLFormElement_put_name,
377     HTMLFormElement_get_name,
378     HTMLFormElement_put_onsubmit,
379     HTMLFormElement_get_onsubmit,
380     HTMLFormElement_put_onreset,
381     HTMLFormElement_get_onreset,
382     HTMLFormElement_submit,
383     HTMLFormElement_reset,
384     HTMLFormElement_put_length,
385     HTMLFormElement_get_length,
386     HTMLFormElement__newEnum,
387     HTMLFormElement_item,
388     HTMLFormElement_tags
389 };
390
391 #define HTMLFORM_NODE_THIS(iface) DEFINE_THIS2(HTMLFormElement, element.node, iface)
392
393 static HRESULT HTMLFormElement_QI(HTMLDOMNode *iface, REFIID riid, void **ppv)
394 {
395     HTMLFormElement *This = HTMLFORM_NODE_THIS(iface);
396
397     *ppv = NULL;
398
399     if(IsEqualGUID(&IID_IUnknown, riid)) {
400         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
401         *ppv = HTMLFORM(This);
402     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
403         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
404         *ppv = HTMLFORM(This);
405     }else if(IsEqualGUID(&IID_IHTMLFormElement, riid)) {
406         TRACE("(%p)->(IID_IHTMLFormElement %p)\n", This, ppv);
407         *ppv = HTMLFORM(This);
408     }
409
410     if(*ppv) {
411         IUnknown_AddRef((IUnknown*)*ppv);
412         return S_OK;
413     }
414
415     return HTMLElement_QI(&This->element.node, riid, ppv);
416 }
417
418 static void HTMLFormElement_destructor(HTMLDOMNode *iface)
419 {
420     HTMLFormElement *This = HTMLFORM_NODE_THIS(iface);
421
422     if(This->nsform)
423         nsIDOMHTMLFormElement_Release(This->nsform);
424
425     HTMLElement_destructor(&This->element.node);
426 }
427
428 static HRESULT HTMLFormElement_get_dispid(HTMLDOMNode *iface,
429         BSTR name, DWORD grfdex, DISPID *pid)
430 {
431     HTMLFormElement *This = HTMLFORM_NODE_THIS(iface);
432     nsIDOMHTMLCollection *elements;
433     nsAString nsname, nsstr;
434     PRUint32 len, i;
435     nsresult nsres;
436     HRESULT hres = DISP_E_UNKNOWNNAME;
437
438     static const PRUnichar nameW[] = {'n','a','m','e',0};
439
440     TRACE("(%p)->(%s %x %p)\n", This, wine_dbgstr_w(name), grfdex, pid);
441
442     nsres = nsIDOMHTMLFormElement_GetElements(This->nsform, &elements);
443     if(NS_FAILED(nsres)) {
444         FIXME("GetElements failed: 0x%08x\n", nsres);
445         return E_FAIL;
446     }
447
448     nsres = nsIDOMHTMLCollection_GetLength(elements, &len);
449     if(NS_FAILED(nsres)) {
450         FIXME("GetLength failed: 0x%08x\n", nsres);
451         nsIDOMHTMLCollection_Release(elements);
452         return E_FAIL;
453     }
454
455     nsAString_InitDepend(&nsname, nameW);
456     nsAString_Init(&nsstr, NULL);
457     for(i = 0; i < len; ++i) {
458         nsIDOMNode *nsitem;
459         nsIDOMHTMLElement *nshtml_elem;
460         const PRUnichar *str;
461
462         nsres = nsIDOMHTMLCollection_Item(elements, i, &nsitem);
463         if(NS_FAILED(nsres)) {
464             FIXME("Item failed: 0x%08x\n", nsres);
465             hres = E_FAIL;
466             break;
467         }
468
469         nsres = nsIDOMNode_QueryInterface(nsitem, &IID_nsIDOMHTMLElement, (void**)&nshtml_elem);
470         nsIDOMNode_Release(nsitem);
471         if(NS_FAILED(nsres)) {
472             FIXME("Failed to get nsIDOMHTMLNode interface: 0x%08x\n", nsres);
473             hres = E_FAIL;
474             break;
475         }
476
477         /* compare by id attr */
478         nsres = nsIDOMHTMLElement_GetId(nshtml_elem, &nsstr);
479         if(NS_FAILED(nsres)) {
480             FIXME("GetId failed: 0x%08x\n", nsres);
481             nsIDOMHTMLElement_Release(nshtml_elem);
482             hres = E_FAIL;
483             break;
484         }
485         nsAString_GetData(&nsstr, &str);
486         if(!strcmpiW(str, name)) {
487             nsIDOMHTMLElement_Release(nshtml_elem);
488             /* FIXME: using index for dispid */
489             *pid = MSHTML_DISPID_CUSTOM_MIN + i;
490             hres = S_OK;
491             break;
492         }
493
494         /* compare by name attr */
495         nsres = nsIDOMHTMLElement_GetAttribute(nshtml_elem, &nsname, &nsstr);
496         nsIDOMHTMLElement_Release(nshtml_elem);
497         nsAString_GetData(&nsstr, &str);
498         if(!strcmpiW(str, name)) {
499             /* FIXME: using index for dispid */
500             *pid = MSHTML_DISPID_CUSTOM_MIN + i;
501             hres = S_OK;
502             break;
503         }
504     }
505     nsAString_Finish(&nsname);
506     nsAString_Finish(&nsstr);
507
508     nsIDOMHTMLCollection_Release(elements);
509
510     return hres;
511 }
512
513 static HRESULT HTMLFormElement_invoke(HTMLDOMNode *iface,
514         DISPID id, LCID lcid, WORD flags, DISPPARAMS *params, VARIANT *res,
515         EXCEPINFO *ei, IServiceProvider *caller)
516 {
517     HTMLFormElement *This = HTMLFORM_NODE_THIS(iface);
518     IDispatch *ret;
519     HRESULT hres;
520
521     TRACE("(%p)->(%x %x %x %p %p %p %p)\n", This, id, lcid, flags, params, res, ei, caller);
522
523     hres = htmlform_item(This, id - MSHTML_DISPID_CUSTOM_MIN, &ret);
524     if(FAILED(hres))
525         return hres;
526
527     if(ret) {
528         V_VT(res) = VT_DISPATCH;
529         V_DISPATCH(res) = ret;
530     }else {
531         V_VT(res) = VT_NULL;
532     }
533     return S_OK;
534 }
535
536 #undef HTMLFORM_NODE_THIS
537
538 static const NodeImplVtbl HTMLFormElementImplVtbl = {
539     HTMLFormElement_QI,
540     HTMLFormElement_destructor,
541     NULL,
542     NULL,
543     NULL,
544     NULL,
545     NULL,
546     NULL,
547     HTMLFormElement_get_dispid,
548     HTMLFormElement_invoke
549 };
550
551 static const tid_t HTMLFormElement_iface_tids[] = {
552     HTMLELEMENT_TIDS,
553     IHTMLFormElement_tid,
554     0
555 };
556
557 static dispex_static_data_t HTMLFormElement_dispex = {
558     NULL,
559     DispHTMLFormElement_tid,
560     NULL,
561     HTMLFormElement_iface_tids
562 };
563
564 HTMLElement *HTMLFormElement_Create(HTMLDocumentNode *doc, nsIDOMHTMLElement *nselem)
565 {
566     HTMLFormElement *ret = heap_alloc_zero(sizeof(HTMLFormElement));
567     nsresult nsres;
568
569     ret->lpHTMLFormElementVtbl = &HTMLFormElementVtbl;
570     ret->element.node.vtbl = &HTMLFormElementImplVtbl;
571
572     HTMLElement_Init(&ret->element, doc, nselem, &HTMLFormElement_dispex);
573
574     nsres = nsIDOMHTMLElement_QueryInterface(nselem, &IID_nsIDOMHTMLFormElement, (void**)&ret->nsform);
575     if(NS_FAILED(nsres))
576         ERR("Could not get nsIDOMHTMLFormElement interface: %08x\n", nsres);
577
578     return &ret->element;
579 }