mshtml: Create script element in IHTMLDocument::createStyleSheet.
[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 #include <assert.h>
21
22 #define COBJMACROS
23
24 #include "windef.h"
25 #include "winbase.h"
26 #include "winuser.h"
27 #include "ole2.h"
28
29 #include "wine/debug.h"
30
31 #include "mshtml_private.h"
32 #include "htmlevent.h"
33
34 WINE_DEFAULT_DEBUG_CHANNEL(mshtml);
35
36 struct HTMLFormElement {
37     HTMLElement element;
38
39     IHTMLFormElement IHTMLFormElement_iface;
40
41     nsIDOMHTMLFormElement *nsform;
42 };
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     HRESULT hres;
51
52     nsres = nsIDOMHTMLFormElement_GetElements(This->nsform, &elements);
53     if(NS_FAILED(nsres)) {
54         FIXME("GetElements failed: 0x%08x\n", nsres);
55         return E_FAIL;
56     }
57
58     nsres = nsIDOMHTMLCollection_Item(elements, i, &item);
59     nsIDOMHTMLCollection_Release(elements);
60     if(NS_FAILED(nsres)) {
61         FIXME("Item failed: 0x%08x\n", nsres);
62         return E_FAIL;
63     }
64
65     if(item) {
66         hres = get_node(This->element.node.doc, item, TRUE, &node);
67         if(FAILED(hres))
68             return hres;
69
70         nsIDOMNode_Release(item);
71         *ret = (IDispatch*)&node->IHTMLDOMNode_iface;
72     }else {
73         *ret = NULL;
74     }
75
76     return S_OK;
77 }
78
79 static inline HTMLFormElement *impl_from_IHTMLFormElement(IHTMLFormElement *iface)
80 {
81     return CONTAINING_RECORD(iface, HTMLFormElement, IHTMLFormElement_iface);
82 }
83
84 static HRESULT WINAPI HTMLFormElement_QueryInterface(IHTMLFormElement *iface,
85         REFIID riid, void **ppv)
86 {
87     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
88
89     return IHTMLDOMNode_QueryInterface(&This->element.node.IHTMLDOMNode_iface, riid, ppv);
90 }
91
92 static ULONG WINAPI HTMLFormElement_AddRef(IHTMLFormElement *iface)
93 {
94     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
95
96     return IHTMLDOMNode_AddRef(&This->element.node.IHTMLDOMNode_iface);
97 }
98
99 static ULONG WINAPI HTMLFormElement_Release(IHTMLFormElement *iface)
100 {
101     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
102
103     return IHTMLDOMNode_Release(&This->element.node.IHTMLDOMNode_iface);
104 }
105
106 static HRESULT WINAPI HTMLFormElement_GetTypeInfoCount(IHTMLFormElement *iface, UINT *pctinfo)
107 {
108     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
109     return IDispatchEx_GetTypeInfoCount(&This->element.node.dispex.IDispatchEx_iface, pctinfo);
110 }
111
112 static HRESULT WINAPI HTMLFormElement_GetTypeInfo(IHTMLFormElement *iface, UINT iTInfo,
113                                               LCID lcid, ITypeInfo **ppTInfo)
114 {
115     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
116     return IDispatchEx_GetTypeInfo(&This->element.node.dispex.IDispatchEx_iface, iTInfo, lcid,
117             ppTInfo);
118 }
119
120 static HRESULT WINAPI HTMLFormElement_GetIDsOfNames(IHTMLFormElement *iface, REFIID riid,
121                                                 LPOLESTR *rgszNames, UINT cNames,
122                                                 LCID lcid, DISPID *rgDispId)
123 {
124     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
125     return IDispatchEx_GetIDsOfNames(&This->element.node.dispex.IDispatchEx_iface, riid, rgszNames,
126             cNames, lcid, rgDispId);
127 }
128
129 static HRESULT WINAPI HTMLFormElement_Invoke(IHTMLFormElement *iface, DISPID dispIdMember,
130                             REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
131                             VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
132 {
133     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
134     return IDispatchEx_Invoke(&This->element.node.dispex.IDispatchEx_iface, dispIdMember, riid,
135             lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
136 }
137
138 static HRESULT WINAPI HTMLFormElement_put_action(IHTMLFormElement *iface, BSTR v)
139 {
140     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
141     nsAString action_str;
142     nsresult nsres;
143
144     TRACE("(%p)->(%s)\n", This, wine_dbgstr_w(v));
145
146     nsAString_InitDepend(&action_str, v);
147     nsres = nsIDOMHTMLFormElement_SetAction(This->nsform, &action_str);
148     nsAString_Finish(&action_str);
149     if(NS_FAILED(nsres)) {
150         ERR("SetAction failed: %08x\n", nsres);
151         return E_FAIL;
152     }
153
154     return S_OK;
155 }
156
157 static HRESULT WINAPI HTMLFormElement_get_action(IHTMLFormElement *iface, BSTR *p)
158 {
159     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
160     nsAString action_str;
161     nsresult nsres;
162     HRESULT hres;
163
164     TRACE("(%p)->(%p)\n", This, p);
165
166     nsAString_Init(&action_str, NULL);
167     nsres = nsIDOMHTMLFormElement_GetAction(This->nsform, &action_str);
168     if(NS_SUCCEEDED(nsres)) {
169         const PRUnichar *action;
170         nsAString_GetData(&action_str, &action);
171         hres = nsuri_to_url(action, FALSE, p);
172     }else {
173         ERR("GetAction failed: %08x\n", nsres);
174         hres = E_FAIL;
175     }
176
177     nsAString_Finish(&action_str);
178     return hres;
179 }
180
181 static HRESULT WINAPI HTMLFormElement_put_dir(IHTMLFormElement *iface, BSTR v)
182 {
183     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
184     FIXME("(%p)->(%s)\n", This, wine_dbgstr_w(v));
185     return E_NOTIMPL;
186 }
187
188 static HRESULT WINAPI HTMLFormElement_get_dir(IHTMLFormElement *iface, BSTR *p)
189 {
190     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
191     FIXME("(%p)->(%p)\n", This, p);
192     return E_NOTIMPL;
193 }
194
195 static HRESULT WINAPI HTMLFormElement_put_encoding(IHTMLFormElement *iface, BSTR v)
196 {
197     static const WCHAR urlencodedW[] = {'a','p','p','l','i','c','a','t','i','o','n','/',
198         'x','-','w','w','w','-','f','o','r','m','-','u','r','l','e','n','c','o','d','e','d',0};
199     static const WCHAR dataW[] = {'m','u','l','t','i','p','a','r','t','/',
200         'f','o','r','m','-','d','a','t','a',0};
201     static const WCHAR plainW[] = {'t','e','x','t','/','p','l','a','i','n',0};
202
203     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
204     nsAString encoding_str;
205     nsresult nsres;
206
207     TRACE("(%p)->(%s)\n", This, wine_dbgstr_w(v));
208
209     if(lstrcmpiW(v, urlencodedW) && lstrcmpiW(v, dataW) && lstrcmpiW(v, plainW)) {
210         WARN("incorrect enctype\n");
211         return E_INVALIDARG;
212     }
213
214     nsAString_InitDepend(&encoding_str, v);
215     nsres = nsIDOMHTMLFormElement_SetEnctype(This->nsform, &encoding_str);
216     nsAString_Finish(&encoding_str);
217     if(NS_FAILED(nsres))
218         return E_FAIL;
219
220     return S_OK;
221 }
222
223 static HRESULT WINAPI HTMLFormElement_get_encoding(IHTMLFormElement *iface, BSTR *p)
224 {
225     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
226     nsAString encoding_str;
227     nsresult nsres;
228
229     TRACE("(%p)->(%p)\n", This, p);
230
231     nsAString_Init(&encoding_str, NULL);
232     nsres = nsIDOMHTMLFormElement_GetEnctype(This->nsform, &encoding_str);
233     return return_nsstr(nsres, &encoding_str, p);
234 }
235
236 static HRESULT WINAPI HTMLFormElement_put_method(IHTMLFormElement *iface, BSTR v)
237 {
238     static const WCHAR postW[] = {'P','O','S','T',0};
239     static const WCHAR getW[] = {'G','E','T',0};
240
241     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
242     nsAString method_str;
243     nsresult nsres;
244
245     TRACE("(%p)->(%s)\n", This, wine_dbgstr_w(v));
246
247     if(lstrcmpiW(v, postW) && lstrcmpiW(v, getW)) {
248         WARN("unrecognized method\n");
249         return E_INVALIDARG;
250     }
251
252     nsAString_InitDepend(&method_str, v);
253     nsres = nsIDOMHTMLFormElement_SetMethod(This->nsform, &method_str);
254     nsAString_Finish(&method_str);
255     if(NS_FAILED(nsres))
256         return E_FAIL;
257
258     return S_OK;
259 }
260
261 static HRESULT WINAPI HTMLFormElement_get_method(IHTMLFormElement *iface, BSTR *p)
262 {
263     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
264     nsAString method_str;
265     nsresult nsres;
266
267     TRACE("(%p)->(%p)\n", This, p);
268
269     nsAString_Init(&method_str, NULL);
270     nsres = nsIDOMHTMLFormElement_GetMethod(This->nsform, &method_str);
271     return return_nsstr(nsres, &method_str, p);
272 }
273
274 static HRESULT WINAPI HTMLFormElement_get_elements(IHTMLFormElement *iface, IDispatch **p)
275 {
276     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
277
278     TRACE("(%p)->(%p)\n", This, p);
279
280     *p = (IDispatch*)&This->IHTMLFormElement_iface;
281     IDispatch_AddRef(*p);
282     return S_OK;
283 }
284
285 static HRESULT WINAPI HTMLFormElement_put_target(IHTMLFormElement *iface, BSTR v)
286 {
287     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
288     FIXME("(%p)->(%s)\n", This, wine_dbgstr_w(v));
289     return E_NOTIMPL;
290 }
291
292 static HRESULT WINAPI HTMLFormElement_get_target(IHTMLFormElement *iface, BSTR *p)
293 {
294     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
295     FIXME("(%p)->(%p)\n", This, p);
296     return E_NOTIMPL;
297 }
298
299 static HRESULT WINAPI HTMLFormElement_put_name(IHTMLFormElement *iface, BSTR v)
300 {
301     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
302     nsAString name_str;
303     nsresult nsres;
304
305     TRACE("(%p)->(%s)\n", This, wine_dbgstr_w(v));
306
307     nsAString_InitDepend(&name_str, v);
308     nsres = nsIDOMHTMLFormElement_SetName(This->nsform, &name_str);
309     nsAString_Finish(&name_str);
310     if(NS_FAILED(nsres))
311         return E_FAIL;
312
313     return S_OK;
314 }
315
316 static HRESULT WINAPI HTMLFormElement_get_name(IHTMLFormElement *iface, BSTR *p)
317 {
318     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
319     nsAString name_str;
320     nsresult nsres;
321
322     TRACE("(%p)->(%p)\n", This, p);
323
324     nsAString_Init(&name_str, NULL);
325     nsres = nsIDOMHTMLFormElement_GetName(This->nsform, &name_str);
326     return return_nsstr(nsres, &name_str, p);
327 }
328
329 static HRESULT WINAPI HTMLFormElement_put_onsubmit(IHTMLFormElement *iface, VARIANT v)
330 {
331     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
332
333     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
334
335     return set_node_event(&This->element.node, EVENTID_SUBMIT, &v);
336 }
337
338 static HRESULT WINAPI HTMLFormElement_get_onsubmit(IHTMLFormElement *iface, VARIANT *p)
339 {
340     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
341
342     TRACE("(%p)->(%p)\n", This, p);
343
344     return get_node_event(&This->element.node, EVENTID_SUBMIT, p);
345 }
346
347 static HRESULT WINAPI HTMLFormElement_put_onreset(IHTMLFormElement *iface, VARIANT v)
348 {
349     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
350     FIXME("(%p)->(%s)\n", This, debugstr_variant(&v));
351     return E_NOTIMPL;
352 }
353
354 static HRESULT WINAPI HTMLFormElement_get_onreset(IHTMLFormElement *iface, VARIANT *p)
355 {
356     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
357     FIXME("(%p)->(%p)\n", This, p);
358     return E_NOTIMPL;
359 }
360
361 static HRESULT WINAPI HTMLFormElement_submit(IHTMLFormElement *iface)
362 {
363     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
364     nsresult nsres;
365
366     TRACE("(%p)->()\n", This);
367
368     nsres = nsIDOMHTMLFormElement_Submit(This->nsform);
369     if(NS_FAILED(nsres)) {
370         ERR("Submit failed: %08x\n", nsres);
371         return E_FAIL;
372     }
373
374     return S_OK;
375 }
376
377 static HRESULT WINAPI HTMLFormElement_reset(IHTMLFormElement *iface)
378 {
379     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
380     FIXME("(%p)->()\n", This);
381     return E_NOTIMPL;
382 }
383
384 static HRESULT WINAPI HTMLFormElement_put_length(IHTMLFormElement *iface, LONG v)
385 {
386     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
387     FIXME("(%p)->(%d)\n", This, v);
388     return E_NOTIMPL;
389 }
390
391 static HRESULT WINAPI HTMLFormElement_get_length(IHTMLFormElement *iface, LONG *p)
392 {
393     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
394     PRInt32 length;
395     nsresult nsres;
396
397     TRACE("(%p)->(%p)\n", This, p);
398
399     nsres = nsIDOMHTMLFormElement_GetLength(This->nsform, &length);
400     if(NS_FAILED(nsres)) {
401         ERR("GetLength failed: %08x\n", nsres);
402         return E_FAIL;
403     }
404
405     *p = length;
406     return S_OK;
407 }
408
409 static HRESULT WINAPI HTMLFormElement__newEnum(IHTMLFormElement *iface, IUnknown **p)
410 {
411     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
412     FIXME("(%p)->(%p)\n", This, p);
413     return E_NOTIMPL;
414 }
415
416 static HRESULT WINAPI HTMLFormElement_item(IHTMLFormElement *iface, VARIANT name,
417         VARIANT index, IDispatch **pdisp)
418 {
419     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
420
421     TRACE("(%p)->(%s %s %p)\n", This, debugstr_variant(&name), debugstr_variant(&index), pdisp);
422
423     if(!pdisp)
424         return E_INVALIDARG;
425     *pdisp = NULL;
426
427     if(V_VT(&name) == VT_I4) {
428         if(V_I4(&name) < 0)
429             return E_INVALIDARG;
430         return htmlform_item(This, V_I4(&name), pdisp);
431     }
432
433     FIXME("Unsupported args\n");
434     return E_NOTIMPL;
435 }
436
437 static HRESULT WINAPI HTMLFormElement_tags(IHTMLFormElement *iface, VARIANT tagName,
438         IDispatch **pdisp)
439 {
440     HTMLFormElement *This = impl_from_IHTMLFormElement(iface);
441     FIXME("(%p)->(v %p)\n", This, pdisp);
442     return E_NOTIMPL;
443 }
444
445 static const IHTMLFormElementVtbl HTMLFormElementVtbl = {
446     HTMLFormElement_QueryInterface,
447     HTMLFormElement_AddRef,
448     HTMLFormElement_Release,
449     HTMLFormElement_GetTypeInfoCount,
450     HTMLFormElement_GetTypeInfo,
451     HTMLFormElement_GetIDsOfNames,
452     HTMLFormElement_Invoke,
453     HTMLFormElement_put_action,
454     HTMLFormElement_get_action,
455     HTMLFormElement_put_dir,
456     HTMLFormElement_get_dir,
457     HTMLFormElement_put_encoding,
458     HTMLFormElement_get_encoding,
459     HTMLFormElement_put_method,
460     HTMLFormElement_get_method,
461     HTMLFormElement_get_elements,
462     HTMLFormElement_put_target,
463     HTMLFormElement_get_target,
464     HTMLFormElement_put_name,
465     HTMLFormElement_get_name,
466     HTMLFormElement_put_onsubmit,
467     HTMLFormElement_get_onsubmit,
468     HTMLFormElement_put_onreset,
469     HTMLFormElement_get_onreset,
470     HTMLFormElement_submit,
471     HTMLFormElement_reset,
472     HTMLFormElement_put_length,
473     HTMLFormElement_get_length,
474     HTMLFormElement__newEnum,
475     HTMLFormElement_item,
476     HTMLFormElement_tags
477 };
478
479 static inline HTMLFormElement *impl_from_HTMLDOMNode(HTMLDOMNode *iface)
480 {
481     return CONTAINING_RECORD(iface, HTMLFormElement, element.node);
482 }
483
484 static HRESULT HTMLFormElement_QI(HTMLDOMNode *iface, REFIID riid, void **ppv)
485 {
486     HTMLFormElement *This = impl_from_HTMLDOMNode(iface);
487
488     *ppv = NULL;
489
490     if(IsEqualGUID(&IID_IUnknown, riid)) {
491         TRACE("(%p)->(IID_IUnknown %p)\n", This, ppv);
492         *ppv = &This->IHTMLFormElement_iface;
493     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
494         TRACE("(%p)->(IID_IDispatch %p)\n", This, ppv);
495         *ppv = &This->IHTMLFormElement_iface;
496     }else if(IsEqualGUID(&IID_IHTMLFormElement, riid)) {
497         TRACE("(%p)->(IID_IHTMLFormElement %p)\n", This, ppv);
498         *ppv = &This->IHTMLFormElement_iface;
499     }
500
501     if(*ppv) {
502         IUnknown_AddRef((IUnknown*)*ppv);
503         return S_OK;
504     }
505
506     return HTMLElement_QI(&This->element.node, riid, ppv);
507 }
508
509 static HRESULT HTMLFormElement_get_dispid(HTMLDOMNode *iface,
510         BSTR name, DWORD grfdex, DISPID *pid)
511 {
512     HTMLFormElement *This = impl_from_HTMLDOMNode(iface);
513     nsIDOMHTMLCollection *elements;
514     nsAString nsname, nsstr;
515     PRUint32 len, i;
516     nsresult nsres;
517     HRESULT hres = DISP_E_UNKNOWNNAME;
518
519     static const PRUnichar nameW[] = {'n','a','m','e',0};
520
521     TRACE("(%p)->(%s %x %p)\n", This, wine_dbgstr_w(name), grfdex, pid);
522
523     nsres = nsIDOMHTMLFormElement_GetElements(This->nsform, &elements);
524     if(NS_FAILED(nsres)) {
525         FIXME("GetElements failed: 0x%08x\n", nsres);
526         return E_FAIL;
527     }
528
529     nsres = nsIDOMHTMLCollection_GetLength(elements, &len);
530     if(NS_FAILED(nsres)) {
531         FIXME("GetLength failed: 0x%08x\n", nsres);
532         nsIDOMHTMLCollection_Release(elements);
533         return E_FAIL;
534     }
535
536     if(len > MSHTML_CUSTOM_DISPID_CNT)
537         len = MSHTML_CUSTOM_DISPID_CNT;
538
539     /* FIXME: Implement in more generic way */
540     if('0' <= *name && *name <= '9') {
541         WCHAR *end_ptr;
542
543         i = strtoulW(name, &end_ptr, 10);
544         if(!*end_ptr && i < len) {
545             *pid = MSHTML_DISPID_CUSTOM_MIN + i;
546             return S_OK;
547         }
548     }
549
550     nsAString_InitDepend(&nsname, nameW);
551     nsAString_Init(&nsstr, NULL);
552     for(i = 0; i < len; ++i) {
553         nsIDOMNode *nsitem;
554         nsIDOMHTMLElement *nshtml_elem;
555         const PRUnichar *str;
556
557         nsres = nsIDOMHTMLCollection_Item(elements, i, &nsitem);
558         if(NS_FAILED(nsres)) {
559             FIXME("Item failed: 0x%08x\n", nsres);
560             hres = E_FAIL;
561             break;
562         }
563
564         nsres = nsIDOMNode_QueryInterface(nsitem, &IID_nsIDOMHTMLElement, (void**)&nshtml_elem);
565         nsIDOMNode_Release(nsitem);
566         if(NS_FAILED(nsres)) {
567             FIXME("Failed to get nsIDOMHTMLNode interface: 0x%08x\n", nsres);
568             hres = E_FAIL;
569             break;
570         }
571
572         /* compare by id attr */
573         nsres = nsIDOMHTMLElement_GetId(nshtml_elem, &nsstr);
574         if(NS_FAILED(nsres)) {
575             FIXME("GetId failed: 0x%08x\n", nsres);
576             nsIDOMHTMLElement_Release(nshtml_elem);
577             hres = E_FAIL;
578             break;
579         }
580         nsAString_GetData(&nsstr, &str);
581         if(!strcmpiW(str, name)) {
582             nsIDOMHTMLElement_Release(nshtml_elem);
583             /* FIXME: using index for dispid */
584             *pid = MSHTML_DISPID_CUSTOM_MIN + i;
585             hres = S_OK;
586             break;
587         }
588
589         /* compare by name attr */
590         nsres = nsIDOMHTMLElement_GetAttribute(nshtml_elem, &nsname, &nsstr);
591         nsIDOMHTMLElement_Release(nshtml_elem);
592         nsAString_GetData(&nsstr, &str);
593         if(!strcmpiW(str, name)) {
594             /* FIXME: using index for dispid */
595             *pid = MSHTML_DISPID_CUSTOM_MIN + i;
596             hres = S_OK;
597             break;
598         }
599     }
600     nsAString_Finish(&nsname);
601     nsAString_Finish(&nsstr);
602
603     nsIDOMHTMLCollection_Release(elements);
604
605     return hres;
606 }
607
608 static HRESULT HTMLFormElement_invoke(HTMLDOMNode *iface,
609         DISPID id, LCID lcid, WORD flags, DISPPARAMS *params, VARIANT *res,
610         EXCEPINFO *ei, IServiceProvider *caller)
611 {
612     HTMLFormElement *This = impl_from_HTMLDOMNode(iface);
613     IDispatch *ret;
614     HRESULT hres;
615
616     TRACE("(%p)->(%x %x %x %p %p %p %p)\n", This, id, lcid, flags, params, res, ei, caller);
617
618     hres = htmlform_item(This, id - MSHTML_DISPID_CUSTOM_MIN, &ret);
619     if(FAILED(hres))
620         return hres;
621
622     if(ret) {
623         V_VT(res) = VT_DISPATCH;
624         V_DISPATCH(res) = ret;
625     }else {
626         V_VT(res) = VT_NULL;
627     }
628     return S_OK;
629 }
630
631 static const NodeImplVtbl HTMLFormElementImplVtbl = {
632     HTMLFormElement_QI,
633     HTMLElement_destructor,
634     HTMLElement_clone,
635     HTMLElement_handle_event,
636     HTMLElement_get_attr_col,
637     NULL,
638     NULL,
639     NULL,
640     NULL,
641     NULL,
642     NULL,
643     HTMLFormElement_get_dispid,
644     HTMLFormElement_invoke
645 };
646
647 static const tid_t HTMLFormElement_iface_tids[] = {
648     HTMLELEMENT_TIDS,
649     IHTMLFormElement_tid,
650     0
651 };
652
653 static dispex_static_data_t HTMLFormElement_dispex = {
654     NULL,
655     DispHTMLFormElement_tid,
656     NULL,
657     HTMLFormElement_iface_tids
658 };
659
660 HRESULT HTMLFormElement_Create(HTMLDocumentNode *doc, nsIDOMHTMLElement *nselem, HTMLElement **elem)
661 {
662     HTMLFormElement *ret;
663     nsresult nsres;
664
665     ret = heap_alloc_zero(sizeof(HTMLFormElement));
666     if(!ret)
667         return E_OUTOFMEMORY;
668
669     ret->IHTMLFormElement_iface.lpVtbl = &HTMLFormElementVtbl;
670     ret->element.node.vtbl = &HTMLFormElementImplVtbl;
671
672     HTMLElement_Init(&ret->element, doc, nselem, &HTMLFormElement_dispex);
673
674     nsres = nsIDOMHTMLElement_QueryInterface(nselem, &IID_nsIDOMHTMLFormElement, (void**)&ret->nsform);
675
676     /* Share the reference with nsnode */
677     assert(nsres == NS_OK && (nsIDOMNode*)ret->nsform == ret->element.node.nsnode);
678     nsIDOMNode_Release(ret->element.node.nsnode);
679
680     *elem = &ret->element;
681     return S_OK;
682 }