xref: /reactos/dll/win32/mshtml/xmlhttprequest.c (revision b09b5584) 
1 /*
2  * Copyright 2015 Zhenbo Li
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 "mshtml_private.h"
20 
21 static HRESULT bstr_to_nsacstr(BSTR bstr, nsACString *str)
22 {
23     char *cstr = heap_strdupWtoU(bstr);
24     if(!cstr)
25         return E_OUTOFMEMORY;
26     nsACString_Init(str, cstr);
27     heap_free(cstr);
28     return S_OK;
29 }
30 
31 static HRESULT variant_to_nsastr(VARIANT var, nsAString *ret)
32 {
33     switch(V_VT(&var)) {
34         case VT_NULL:
35         case VT_ERROR:
36         case VT_EMPTY:
37             nsAString_Init(ret, NULL);
38             return S_OK;
39         case VT_BSTR:
40             nsAString_InitDepend(ret, V_BSTR(&var));
41             return S_OK;
42         default:
43             FIXME("Unsupported VARIANT: %s\n", debugstr_variant(&var));
44             return E_INVALIDARG;
45     }
46 }
47 
48 static HRESULT return_nscstr(nsresult nsres, nsACString *nscstr, BSTR *p)
49 {
50     const char *str;
51     int len;
52 
53     if(NS_FAILED(nsres)) {
54         ERR("failed: %08x\n", nsres);
55         nsACString_Finish(nscstr);
56         return E_FAIL;
57     }
58 
59     nsACString_GetData(nscstr, &str);
60 
61     if(*str) {
62         len = MultiByteToWideChar(CP_UTF8, 0, str, -1, NULL, 0);
63         *p = SysAllocStringLen(NULL, len);
64         if(!*p) {
65             nsACString_Finish(nscstr);
66             return E_OUTOFMEMORY;
67         }
68         MultiByteToWideChar(CP_UTF8, 0, str, -1, *p, len);
69     }else {
70         *p = NULL;
71     }
72 
73     nsACString_Finish(nscstr);
74     return S_OK;
75 }
76 
77 typedef struct XMLHttpReqEventListener XMLHttpReqEventListener;
78 
79 typedef struct {
80     EventTarget event_target;
81     IHTMLXMLHttpRequest IHTMLXMLHttpRequest_iface;
82     LONG ref;
83     nsIXMLHttpRequest *nsxhr;
84     XMLHttpReqEventListener *event_listener;
85 } HTMLXMLHttpRequest;
86 
87 struct XMLHttpReqEventListener {
88     nsIDOMEventListener nsIDOMEventListener_iface;
89     LONG ref;
90     HTMLXMLHttpRequest *xhr;
91 };
92 
93 static void detach_xhr_event_listener(XMLHttpReqEventListener *event_listener)
94 {
95     nsIDOMEventTarget *event_target;
96     nsAString str;
97     nsresult nsres;
98 
99     static const WCHAR readystatechangeW[] =
100         {'o','n','r','e','a','d','y','s','t','a','t','e','c','h','a','n','g','e',0};
101 
102     nsres = nsIXMLHttpRequest_QueryInterface(event_listener->xhr->nsxhr, &IID_nsIDOMEventTarget, (void**)&event_target);
103     assert(nsres == NS_OK);
104 
105     nsAString_InitDepend(&str, readystatechangeW);
106     nsres = nsIDOMEventTarget_RemoveEventListener(event_target, &str, &event_listener->nsIDOMEventListener_iface, FALSE);
107     nsAString_Finish(&str);
108     nsIDOMEventTarget_Release(event_target);
109 
110     event_listener->xhr->event_listener = NULL;
111     event_listener->xhr = NULL;
112     nsIDOMEventListener_Release(&event_listener->nsIDOMEventListener_iface);
113 }
114 
115 
116 static inline XMLHttpReqEventListener *impl_from_nsIDOMEventListener(nsIDOMEventListener *iface)
117 {
118     return CONTAINING_RECORD(iface, XMLHttpReqEventListener, nsIDOMEventListener_iface);
119 }
120 
121 static nsresult NSAPI XMLHttpReqEventListener_QueryInterface(nsIDOMEventListener *iface,
122         nsIIDRef riid, void **result)
123 {
124     XMLHttpReqEventListener *This = impl_from_nsIDOMEventListener(iface);
125 
126     if(IsEqualGUID(&IID_nsISupports, riid)) {
127         TRACE("(%p)->(IID_nsISupports, %p)\n", This, result);
128         *result = &This->nsIDOMEventListener_iface;
129     }else if(IsEqualGUID(&IID_nsIDOMEventListener, riid)) {
130         TRACE("(%p)->(IID_nsIDOMEventListener %p)\n", This, result);
131         *result = &This->nsIDOMEventListener_iface;
132     }else {
133         *result = NULL;
134         TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), result);
135         return NS_NOINTERFACE;
136     }
137 
138     nsIDOMEventListener_AddRef(&This->nsIDOMEventListener_iface);
139     return NS_OK;
140 }
141 
142 static nsrefcnt NSAPI XMLHttpReqEventListener_AddRef(nsIDOMEventListener *iface)
143 {
144     XMLHttpReqEventListener *This = impl_from_nsIDOMEventListener(iface);
145     LONG ref = InterlockedIncrement(&This->ref);
146 
147     TRACE("(%p) ref=%d\n", This, ref);
148 
149     return ref;
150 }
151 
152 static nsrefcnt NSAPI XMLHttpReqEventListener_Release(nsIDOMEventListener *iface)
153 {
154     XMLHttpReqEventListener *This = impl_from_nsIDOMEventListener(iface);
155     LONG ref = InterlockedDecrement(&This->ref);
156 
157     TRACE("(%p) ref=%d\n", This, ref);
158 
159     if(!ref) {
160         assert(!This->xhr);
161         heap_free(This);
162     }
163 
164     return ref;
165 }
166 
167 static nsresult NSAPI XMLHttpReqEventListener_HandleEvent(nsIDOMEventListener *iface, nsIDOMEvent *event)
168 {
169     XMLHttpReqEventListener *This = impl_from_nsIDOMEventListener(iface);
170 
171     TRACE("(%p)\n", This);
172 
173     if(!This->xhr)
174         return NS_OK;
175 
176     call_event_handlers(NULL, NULL, &This->xhr->event_target, NULL, EVENTID_READYSTATECHANGE,
177             (IDispatch*)&This->xhr->IHTMLXMLHttpRequest_iface);
178     return NS_OK;
179 }
180 
181 static const nsIDOMEventListenerVtbl XMLHttpReqEventListenerVtbl = {
182     XMLHttpReqEventListener_QueryInterface,
183     XMLHttpReqEventListener_AddRef,
184     XMLHttpReqEventListener_Release,
185     XMLHttpReqEventListener_HandleEvent
186 };
187 
188 static inline HTMLXMLHttpRequest *impl_from_IHTMLXMLHttpRequest(IHTMLXMLHttpRequest *iface)
189 {
190     return CONTAINING_RECORD(iface, HTMLXMLHttpRequest, IHTMLXMLHttpRequest_iface);
191 }
192 
193 static HRESULT WINAPI HTMLXMLHttpRequest_QueryInterface(IHTMLXMLHttpRequest *iface, REFIID riid, void **ppv)
194 {
195     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
196 
197     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
198 
199     if(IsEqualGUID(&IID_IUnknown, riid)) {
200         *ppv = &This->IHTMLXMLHttpRequest_iface;
201     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
202         *ppv = &This->IHTMLXMLHttpRequest_iface;
203     }else if(IsEqualGUID(&IID_IHTMLXMLHttpRequest, riid)) {
204         *ppv = &This->IHTMLXMLHttpRequest_iface;
205     }else if(dispex_query_interface(&This->event_target.dispex, riid, ppv)) {
206         return *ppv ? S_OK : E_NOINTERFACE;
207     }else {
208         *ppv = NULL;
209         WARN("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
210         return E_NOINTERFACE;
211     }
212 
213     IUnknown_AddRef((IUnknown*)*ppv);
214     return S_OK;
215 }
216 
217 static ULONG WINAPI HTMLXMLHttpRequest_AddRef(IHTMLXMLHttpRequest *iface)
218 {
219     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
220     LONG ref = InterlockedIncrement(&This->ref);
221 
222     TRACE("(%p) ref=%d\n", This, ref);
223 
224     return ref;
225 }
226 
227 static ULONG WINAPI HTMLXMLHttpRequest_Release(IHTMLXMLHttpRequest *iface)
228 {
229     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
230     LONG ref = InterlockedDecrement(&This->ref);
231 
232     TRACE("(%p) ref=%d\n", This, ref);
233 
234     if(!ref) {
235         if(This->event_listener)
236             detach_xhr_event_listener(This->event_listener);
237         release_dispex(&This->event_target.dispex);
238         nsIXMLHttpRequest_Release(This->nsxhr);
239         heap_free(This);
240     }
241 
242     return ref;
243 }
244 
245 static HRESULT WINAPI HTMLXMLHttpRequest_GetTypeInfoCount(IHTMLXMLHttpRequest *iface, UINT *pctinfo)
246 {
247     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
248     return IDispatchEx_GetTypeInfoCount(&This->event_target.dispex.IDispatchEx_iface, pctinfo);
249 }
250 
251 static HRESULT WINAPI HTMLXMLHttpRequest_GetTypeInfo(IHTMLXMLHttpRequest *iface, UINT iTInfo,
252         LCID lcid, ITypeInfo **ppTInfo)
253 {
254     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
255 
256     return IDispatchEx_GetTypeInfo(&This->event_target.dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
257 }
258 
259 static HRESULT WINAPI HTMLXMLHttpRequest_GetIDsOfNames(IHTMLXMLHttpRequest *iface, REFIID riid, LPOLESTR *rgszNames, UINT cNames,
260         LCID lcid, DISPID *rgDispId)
261 {
262     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
263 
264     return IDispatchEx_GetIDsOfNames(&This->event_target.dispex.IDispatchEx_iface, riid, rgszNames, cNames,
265             lcid, rgDispId);
266 }
267 
268 static HRESULT WINAPI HTMLXMLHttpRequest_Invoke(IHTMLXMLHttpRequest *iface, DISPID dispIdMember, REFIID riid, LCID lcid,
269         WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
270 {
271     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
272 
273     return IDispatchEx_Invoke(&This->event_target.dispex.IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
274             pDispParams, pVarResult, pExcepInfo, puArgErr);
275 }
276 
277 static HRESULT WINAPI HTMLXMLHttpRequest_get_readyState(IHTMLXMLHttpRequest *iface, LONG *p)
278 {
279     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
280     UINT16 val;
281     nsresult nsres;
282 
283     TRACE("(%p)->(%p)\n", This, p);
284 
285     if(!p)
286         return E_POINTER;
287     nsres = nsIXMLHttpRequest_GetReadyState(This->nsxhr, &val);
288     if(NS_FAILED(nsres)) {
289         ERR("nsIXMLHttpRequest_GetReadyState failed: %08x\n", nsres);
290         return E_FAIL;
291     }
292     *p = val;
293     return S_OK;
294 }
295 
296 static HRESULT WINAPI HTMLXMLHttpRequest_get_responseBody(IHTMLXMLHttpRequest *iface, VARIANT *p)
297 {
298     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
299     FIXME("(%p)->(%p)\n", This, p);
300     return E_NOTIMPL;
301 }
302 
303 static HRESULT WINAPI HTMLXMLHttpRequest_get_responseText(IHTMLXMLHttpRequest *iface, BSTR *p)
304 {
305     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
306     nsAString nsstr;
307     nsresult nsres;
308 
309     TRACE("(%p)->(%p)\n", This, p);
310 
311     if(!p)
312         return E_POINTER;
313 
314     nsAString_Init(&nsstr, NULL);
315     nsres = nsIXMLHttpRequest_GetResponseText(This->nsxhr, &nsstr);
316     return return_nsstr(nsres, &nsstr, p);
317 }
318 
319 static HRESULT WINAPI HTMLXMLHttpRequest_get_responseXML(IHTMLXMLHttpRequest *iface, IDispatch **p)
320 {
321     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
322     FIXME("(%p)->(%p)\n", This, p);
323     return E_NOTIMPL;
324 }
325 
326 static HRESULT WINAPI HTMLXMLHttpRequest_get_status(IHTMLXMLHttpRequest *iface, LONG *p)
327 {
328     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
329     DWORD val;
330     nsresult nsres;
331     TRACE("(%p)->(%p)\n", This, p);
332 
333     if(!p)
334         return E_POINTER;
335 
336     nsres = nsIXMLHttpRequest_GetStatus(This->nsxhr, &val);
337     if(NS_FAILED(nsres)) {
338         ERR("nsIXMLHttpRequest_GetStatus failed: %08x\n", nsres);
339         return E_FAIL;
340     }
341     *p = val;
342     if(val == 0)
343         return E_FAIL; /* WinAPI thinks this is an error */
344 
345     return S_OK;
346 }
347 
348 static HRESULT WINAPI HTMLXMLHttpRequest_get_statusText(IHTMLXMLHttpRequest *iface, BSTR *p)
349 {
350     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
351     nsACString nscstr;
352     nsresult nsres;
353     HRESULT hres;
354     LONG state;
355 
356     TRACE("(%p)->(%p)\n", This, p);
357 
358     if(!p)
359         return E_POINTER;
360 
361     hres = IHTMLXMLHttpRequest_get_readyState(iface, &state);
362     if(FAILED(hres))
363         return hres;
364 
365     if(state < 2) {
366         *p = NULL;
367         return E_FAIL;
368     }
369 
370     nsACString_Init(&nscstr, NULL);
371     nsres = nsIXMLHttpRequest_GetStatusText(This->nsxhr, &nscstr);
372     return return_nscstr(nsres, &nscstr, p);
373 }
374 
375 static HRESULT WINAPI HTMLXMLHttpRequest_put_onreadystatechange(IHTMLXMLHttpRequest *iface, VARIANT v)
376 {
377     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
378 
379     TRACE("(%p)->(%s)\n", This, debugstr_variant(&v));
380 
381     return set_event_handler(&This->event_target, EVENTID_READYSTATECHANGE, &v);
382 }
383 
384 static HRESULT WINAPI HTMLXMLHttpRequest_get_onreadystatechange(IHTMLXMLHttpRequest *iface, VARIANT *p)
385 {
386     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
387 
388     TRACE("(%p)->(%p)\n", This, p);
389 
390     return get_event_handler(&This->event_target, EVENTID_READYSTATECHANGE, p);
391 }
392 
393 static HRESULT WINAPI HTMLXMLHttpRequest_abort(IHTMLXMLHttpRequest *iface)
394 {
395     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
396     nsresult nsres;
397 
398     TRACE("(%p)->()\n", This);
399 
400     nsres = nsIXMLHttpRequest_SlowAbort(This->nsxhr);
401     if(NS_FAILED(nsres)) {
402         ERR("nsIXMLHttpRequest_SlowAbort failed: %08x\n", nsres);
403         return E_FAIL;
404     }
405 
406     return S_OK;
407 }
408 
409 static HRESULT WINAPI HTMLXMLHttpRequest_open(IHTMLXMLHttpRequest *iface, BSTR bstrMethod, BSTR bstrUrl, VARIANT varAsync, VARIANT varUser, VARIANT varPassword)
410 {
411     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
412     nsACString method, url;
413     nsAString user, password;
414     nsresult nsres;
415     HRESULT hres;
416 
417     TRACE("(%p)->(%s %s %s %s %s)\n", This, debugstr_w(bstrMethod), debugstr_w(bstrUrl), debugstr_variant(&varAsync), debugstr_variant(&varUser), debugstr_variant(&varPassword));
418 
419     if(V_VT(&varAsync) != VT_BOOL) {
420         FIXME("varAsync not supported: %s\n", debugstr_variant(&varAsync));
421         return E_FAIL;
422     }
423 
424     /* Note: Starting with Gecko 30.0 (Firefox 30.0 / Thunderbird 30.0 / SeaMonkey 2.27),
425      * synchronous requests on the main thread have been deprecated due to the negative
426      * effects to the user experience.
427      */
428     if(!V_BOOL(&varAsync)) {
429         FIXME("Synchronous request is not supported yet\n");
430         return E_FAIL;
431     }
432 
433     hres = variant_to_nsastr(varUser, &user);
434     if(FAILED(hres))
435         return hres;
436     hres = variant_to_nsastr(varPassword, &password);
437     if(FAILED(hres)) {
438         nsAString_Finish(&user);
439         return hres;
440     }
441 
442     hres = bstr_to_nsacstr(bstrMethod, &method);
443     if(FAILED(hres)) {
444         nsAString_Finish(&user);
445         nsAString_Finish(&password);
446         return hres;
447     }
448     hres = bstr_to_nsacstr(bstrUrl, &url);
449     if(FAILED(hres)) {
450         nsAString_Finish(&user);
451         nsAString_Finish(&password);
452         nsACString_Finish(&method);
453         return hres;
454     }
455 
456     nsres = nsIXMLHttpRequest_Open(This->nsxhr, &method, &url, TRUE,
457             &user, &password, 0);
458 
459     nsACString_Finish(&method);
460     nsACString_Finish(&url);
461     nsAString_Finish(&user);
462     nsAString_Finish(&password);
463 
464     if(NS_FAILED(nsres)) {
465         ERR("nsIXMLHttpRequest_Open failed: %08x\n", nsres);
466         return E_FAIL;
467     }
468 
469     return S_OK;
470 }
471 
472 static HRESULT WINAPI HTMLXMLHttpRequest_send(IHTMLXMLHttpRequest *iface, VARIANT varBody)
473 {
474     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
475     nsresult nsres;
476 
477     TRACE("(%p)->(%s)\n", This, debugstr_variant(&varBody));
478 
479     switch(V_VT(&varBody)) {
480         case VT_NULL:
481         case VT_EMPTY:
482         case VT_ERROR:
483             break;
484         default:
485             FIXME("varBody(%s) unsupported\n", debugstr_variant(&varBody));
486             return E_FAIL;
487     }
488 
489     nsres = nsIXMLHttpRequest_Send(This->nsxhr, NULL);
490 
491     if(NS_FAILED(nsres)) {
492         ERR("nsIXMLHttpRequest_Send failed: %08x\n", nsres);
493         return E_FAIL;
494     }
495 
496     return S_OK;
497 }
498 
499 static HRESULT WINAPI HTMLXMLHttpRequest_getAllResponseHeaders(IHTMLXMLHttpRequest *iface, BSTR *p)
500 {
501     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
502     nsACString nscstr;
503     nsresult nsres;
504     HRESULT hres;
505     LONG state;
506 
507     TRACE("(%p)->(%p)\n", This, p);
508 
509     if(!p)
510         return E_POINTER;
511 
512     hres = IHTMLXMLHttpRequest_get_readyState(iface, &state);
513     if(FAILED(hres))
514         return hres;
515 
516     if(state < 2) {
517         *p = NULL;
518         return E_FAIL;
519     }
520 
521     nsACString_Init(&nscstr, NULL);
522     nsres = nsIXMLHttpRequest_GetAllResponseHeaders(This->nsxhr, &nscstr);
523     return return_nscstr(nsres, &nscstr, p);
524 }
525 
526 static HRESULT WINAPI HTMLXMLHttpRequest_getResponseHeader(IHTMLXMLHttpRequest *iface, BSTR bstrHeader, BSTR *p)
527 {
528     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
529     nsACString header, ret;
530     char *cstr;
531     nsresult nsres;
532     HRESULT hres;
533     LONG state;
534     TRACE("(%p)->(%s %p)\n", This, debugstr_w(bstrHeader), p);
535 
536     if(!p)
537         return E_POINTER;
538     if(!bstrHeader)
539         return E_INVALIDARG;
540 
541     hres = IHTMLXMLHttpRequest_get_readyState(iface, &state);
542     if(FAILED(hres))
543         return hres;
544 
545     if(state < 2) {
546         *p = NULL;
547         return E_FAIL;
548     }
549 
550     cstr = heap_strdupWtoU(bstrHeader);
551     nsACString_InitDepend(&header, cstr);
552     nsACString_Init(&ret, NULL);
553 
554     nsres = nsIXMLHttpRequest_GetResponseHeader(This->nsxhr, &header, &ret);
555 
556     nsACString_Finish(&header);
557     heap_free(cstr);
558     return return_nscstr(nsres, &ret, p);
559 }
560 
561 static HRESULT WINAPI HTMLXMLHttpRequest_setRequestHeader(IHTMLXMLHttpRequest *iface, BSTR bstrHeader, BSTR bstrValue)
562 {
563     HTMLXMLHttpRequest *This = impl_from_IHTMLXMLHttpRequest(iface);
564     FIXME("(%p)->(%s %s)\n", This, debugstr_w(bstrHeader), debugstr_w(bstrValue));
565     return E_NOTIMPL;
566 }
567 
568 static const IHTMLXMLHttpRequestVtbl HTMLXMLHttpRequestVtbl = {
569     HTMLXMLHttpRequest_QueryInterface,
570     HTMLXMLHttpRequest_AddRef,
571     HTMLXMLHttpRequest_Release,
572     HTMLXMLHttpRequest_GetTypeInfoCount,
573     HTMLXMLHttpRequest_GetTypeInfo,
574     HTMLXMLHttpRequest_GetIDsOfNames,
575     HTMLXMLHttpRequest_Invoke,
576     HTMLXMLHttpRequest_get_readyState,
577     HTMLXMLHttpRequest_get_responseBody,
578     HTMLXMLHttpRequest_get_responseText,
579     HTMLXMLHttpRequest_get_responseXML,
580     HTMLXMLHttpRequest_get_status,
581     HTMLXMLHttpRequest_get_statusText,
582     HTMLXMLHttpRequest_put_onreadystatechange,
583     HTMLXMLHttpRequest_get_onreadystatechange,
584     HTMLXMLHttpRequest_abort,
585     HTMLXMLHttpRequest_open,
586     HTMLXMLHttpRequest_send,
587     HTMLXMLHttpRequest_getAllResponseHeaders,
588     HTMLXMLHttpRequest_getResponseHeader,
589     HTMLXMLHttpRequest_setRequestHeader
590 };
591 
592 static inline HTMLXMLHttpRequest *impl_from_DispatchEx(DispatchEx *iface)
593 {
594     return CONTAINING_RECORD(iface, HTMLXMLHttpRequest, event_target.dispex);
595 }
596 
597 static void HTMLXMLHttpRequest_bind_event(DispatchEx *dispex, int eid)
598 {
599     HTMLXMLHttpRequest *This = impl_from_DispatchEx(dispex);
600     nsIDOMEventTarget *nstarget;
601     nsAString type_str;
602     nsresult nsres;
603 
604     static const WCHAR readystatechangeW[] = {'r','e','a','d','y','s','t','a','t','e','c','h','a','n','g','e',0};
605 
606     TRACE("(%p)\n", This);
607 
608     assert(eid == EVENTID_READYSTATECHANGE);
609 
610     if(This->event_listener)
611         return;
612 
613     This->event_listener = heap_alloc(sizeof(*This->event_listener));
614     if(!This->event_listener)
615         return;
616 
617     This->event_listener->nsIDOMEventListener_iface.lpVtbl = &XMLHttpReqEventListenerVtbl;
618     This->event_listener->ref = 1;
619     This->event_listener->xhr = This;
620 
621     nsres = nsIXMLHttpRequest_QueryInterface(This->nsxhr, &IID_nsIDOMEventTarget, (void**)&nstarget);
622     assert(nsres == NS_OK);
623 
624     nsAString_InitDepend(&type_str, readystatechangeW);
625     nsres = nsIDOMEventTarget_AddEventListener(nstarget, &type_str, &This->event_listener->nsIDOMEventListener_iface, FALSE, TRUE, 2);
626     nsAString_Finish(&type_str);
627     nsIDOMEventTarget_Release(nstarget);
628     if(NS_FAILED(nsres))
629         ERR("AddEventListener failed: %08x\n", nsres);
630 }
631 
632 static dispex_static_data_vtbl_t HTMLXMLHttpRequest_dispex_vtbl = {
633     NULL,
634     NULL,
635     NULL,
636     NULL,
637     NULL,
638     HTMLXMLHttpRequest_bind_event
639 };
640 
641 static const tid_t HTMLXMLHttpRequest_iface_tids[] = {
642     IHTMLXMLHttpRequest_tid,
643     0
644 };
645 static dispex_static_data_t HTMLXMLHttpRequest_dispex = {
646     &HTMLXMLHttpRequest_dispex_vtbl,
647     DispHTMLXMLHttpRequest_tid,
648     NULL,
649     HTMLXMLHttpRequest_iface_tids
650 };
651 
652 
653 /* IHTMLXMLHttpRequestFactory */
654 static inline HTMLXMLHttpRequestFactory *impl_from_IHTMLXMLHttpRequestFactory(IHTMLXMLHttpRequestFactory *iface)
655 {
656     return CONTAINING_RECORD(iface, HTMLXMLHttpRequestFactory, IHTMLXMLHttpRequestFactory_iface);
657 }
658 
659 static HRESULT WINAPI HTMLXMLHttpRequestFactory_QueryInterface(IHTMLXMLHttpRequestFactory *iface, REFIID riid, void **ppv)
660 {
661     HTMLXMLHttpRequestFactory *This = impl_from_IHTMLXMLHttpRequestFactory(iface);
662 
663     TRACE("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
664 
665     if(IsEqualGUID(&IID_IUnknown, riid)) {
666         *ppv = &This->IHTMLXMLHttpRequestFactory_iface;
667     }else if(IsEqualGUID(&IID_IDispatch, riid)) {
668         *ppv = &This->IHTMLXMLHttpRequestFactory_iface;
669     }else if(IsEqualGUID(&IID_IHTMLXMLHttpRequestFactory, riid)) {
670         *ppv = &This->IHTMLXMLHttpRequestFactory_iface;
671     }else if(dispex_query_interface(&This->dispex, riid, ppv)) {
672         return *ppv ? S_OK : E_NOINTERFACE;
673     }else {
674         *ppv = NULL;
675         WARN("(%p)->(%s %p)\n", This, debugstr_mshtml_guid(riid), ppv);
676         return E_NOINTERFACE;
677     }
678 
679     IUnknown_AddRef((IUnknown*)*ppv);
680     return S_OK;
681 }
682 
683 static ULONG WINAPI HTMLXMLHttpRequestFactory_AddRef(IHTMLXMLHttpRequestFactory *iface)
684 {
685     HTMLXMLHttpRequestFactory *This = impl_from_IHTMLXMLHttpRequestFactory(iface);
686     LONG ref = InterlockedIncrement(&This->ref);
687 
688     TRACE("(%p) ref=%d\n", This, ref);
689 
690     return ref;
691 }
692 
693 static ULONG WINAPI HTMLXMLHttpRequestFactory_Release(IHTMLXMLHttpRequestFactory *iface)
694 {
695     HTMLXMLHttpRequestFactory *This = impl_from_IHTMLXMLHttpRequestFactory(iface);
696     LONG ref = InterlockedDecrement(&This->ref);
697 
698     TRACE("(%p) ref=%d\n", This, ref);
699 
700     if(!ref) {
701         release_dispex(&This->dispex);
702         heap_free(This);
703     }
704 
705     return ref;
706 }
707 
708 static HRESULT WINAPI HTMLXMLHttpRequestFactory_GetTypeInfoCount(IHTMLXMLHttpRequestFactory *iface, UINT *pctinfo)
709 {
710     HTMLXMLHttpRequestFactory *This = impl_from_IHTMLXMLHttpRequestFactory(iface);
711     return IDispatchEx_GetTypeInfoCount(&This->dispex.IDispatchEx_iface, pctinfo);
712 }
713 
714 static HRESULT WINAPI HTMLXMLHttpRequestFactory_GetTypeInfo(IHTMLXMLHttpRequestFactory *iface, UINT iTInfo,
715         LCID lcid, ITypeInfo **ppTInfo)
716 {
717     HTMLXMLHttpRequestFactory *This = impl_from_IHTMLXMLHttpRequestFactory(iface);
718 
719     return IDispatchEx_GetTypeInfo(&This->dispex.IDispatchEx_iface, iTInfo, lcid, ppTInfo);
720 }
721 
722 static HRESULT WINAPI HTMLXMLHttpRequestFactory_GetIDsOfNames(IHTMLXMLHttpRequestFactory *iface, REFIID riid, LPOLESTR *rgszNames, UINT cNames,
723         LCID lcid, DISPID *rgDispId)
724 {
725     HTMLXMLHttpRequestFactory *This = impl_from_IHTMLXMLHttpRequestFactory(iface);
726 
727     return IDispatchEx_GetIDsOfNames(&This->dispex.IDispatchEx_iface, riid, rgszNames, cNames,
728             lcid, rgDispId);
729 }
730 
731 static HRESULT WINAPI HTMLXMLHttpRequestFactory_Invoke(IHTMLXMLHttpRequestFactory *iface, DISPID dispIdMember, REFIID riid, LCID lcid,
732         WORD wFlags, DISPPARAMS *pDispParams, VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
733 {
734     HTMLXMLHttpRequestFactory *This = impl_from_IHTMLXMLHttpRequestFactory(iface);
735 
736     return IDispatchEx_Invoke(&This->dispex.IDispatchEx_iface, dispIdMember, riid, lcid, wFlags,
737             pDispParams, pVarResult, pExcepInfo, puArgErr);
738 }
739 
740 static HRESULT WINAPI HTMLXMLHttpRequestFactory_create(IHTMLXMLHttpRequestFactory *iface, IHTMLXMLHttpRequest **p)
741 {
742     HTMLXMLHttpRequestFactory *This = impl_from_IHTMLXMLHttpRequestFactory(iface);
743     HTMLXMLHttpRequest        *ret;
744     nsIXMLHttpRequest         *nsxhr;
745 
746     TRACE("(%p)->(%p)\n", This, p);
747 
748     nsxhr = create_nsxhr(This->window->base.outer_window->nswindow);
749     if(!nsxhr)
750         return E_FAIL;
751 
752     ret = heap_alloc_zero(sizeof(*ret));
753     if(!ret) {
754         nsIXMLHttpRequest_Release(nsxhr);
755         return E_OUTOFMEMORY;
756     }
757     ret->nsxhr = nsxhr;
758 
759     ret->IHTMLXMLHttpRequest_iface.lpVtbl = &HTMLXMLHttpRequestVtbl;
760     init_dispex(&ret->event_target.dispex, (IUnknown*)&ret->IHTMLXMLHttpRequest_iface,
761             &HTMLXMLHttpRequest_dispex);
762     ret->ref = 1;
763 
764     *p = &ret->IHTMLXMLHttpRequest_iface;
765     return S_OK;
766 }
767 
768 static const IHTMLXMLHttpRequestFactoryVtbl HTMLXMLHttpRequestFactoryVtbl = {
769     HTMLXMLHttpRequestFactory_QueryInterface,
770     HTMLXMLHttpRequestFactory_AddRef,
771     HTMLXMLHttpRequestFactory_Release,
772     HTMLXMLHttpRequestFactory_GetTypeInfoCount,
773     HTMLXMLHttpRequestFactory_GetTypeInfo,
774     HTMLXMLHttpRequestFactory_GetIDsOfNames,
775     HTMLXMLHttpRequestFactory_Invoke,
776     HTMLXMLHttpRequestFactory_create
777 };
778 
779 static const tid_t HTMLXMLHttpRequestFactory_iface_tids[] = {
780     IHTMLXMLHttpRequestFactory_tid,
781     0
782 };
783 static dispex_static_data_t HTMLXMLHttpRequestFactory_dispex = {
784     NULL,
785     IHTMLXMLHttpRequestFactory_tid,
786     NULL,
787     HTMLXMLHttpRequestFactory_iface_tids
788 };
789 
790 HRESULT HTMLXMLHttpRequestFactory_Create(HTMLInnerWindow* window, HTMLXMLHttpRequestFactory **ret_ptr)
791 {
792     HTMLXMLHttpRequestFactory *ret;
793 
794     ret = heap_alloc(sizeof(*ret));
795     if(!ret)
796         return E_OUTOFMEMORY;
797 
798     ret->IHTMLXMLHttpRequestFactory_iface.lpVtbl = &HTMLXMLHttpRequestFactoryVtbl;
799     ret->ref = 1;
800     ret->window = window;
801 
802     init_dispex(&ret->dispex, (IUnknown*)&ret->IHTMLXMLHttpRequestFactory_iface,
803             &HTMLXMLHttpRequestFactory_dispex);
804 
805     *ret_ptr = ret;
806     return S_OK;
807 }
808