huwcampbell.com
Reactos
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
21static 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
31static 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
48static 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
77typedef struct XMLHttpReqEventListener XMLHttpReqEventListener;
78
79typedef struct {
80 EventTarget event_target;
81 IHTMLXMLHttpRequest IHTMLXMLHttpRequest_iface;
82 LONG ref;
83 nsIXMLHttpRequest *nsxhr;
84 XMLHttpReqEventListener *event_listener;
85} HTMLXMLHttpRequest;
86
87struct XMLHttpReqEventListener {
88 nsIDOMEventListener nsIDOMEventListener_iface;
89 LONG ref;
90 HTMLXMLHttpRequest *xhr;
91};
92
93static 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
116static inline XMLHttpReqEventListener *impl_from_nsIDOMEventListener(nsIDOMEventListener *iface)
117{
118 return CONTAINING_RECORD(iface, XMLHttpReqEventListener, nsIDOMEventListener_iface);
119}
120
121static 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
142static 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
152static 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
167static 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
181static const nsIDOMEventListenerVtbl XMLHttpReqEventListenerVtbl = {
182 XMLHttpReqEventListener_QueryInterface,
183 XMLHttpReqEventListener_AddRef,
184 XMLHttpReqEventListener_Release,
185 XMLHttpReqEventListener_HandleEvent
186};
187
188static inline HTMLXMLHttpRequest *impl_from_IHTMLXMLHttpRequest(IHTMLXMLHttpRequest *iface)
189{
190 return CONTAINING_RECORD(iface, HTMLXMLHttpRequest, IHTMLXMLHttpRequest_iface);
191}
192
193static 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
217static 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
227static 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
245static 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
251static 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
259static 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
268static 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
277static 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
296static 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
303static 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
319static 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
326static 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
348static 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
375static 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
384static 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
393static 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
409static 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
472static 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
499static 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
526static 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
561static 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
568static 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
592static inline HTMLXMLHttpRequest *impl_from_DispatchEx(DispatchEx *iface)
593{
594 return CONTAINING_RECORD(iface, HTMLXMLHttpRequest, event_target.dispex);
595}
596
597static 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
632static dispex_static_data_vtbl_t HTMLXMLHttpRequest_dispex_vtbl = {
633 NULL,
634 NULL,
635 NULL,
636 NULL,
637 NULL,
638 HTMLXMLHttpRequest_bind_event
639};
640
641static const tid_t HTMLXMLHttpRequest_iface_tids[] = {
642 IHTMLXMLHttpRequest_tid,
643 0
644};
645static dispex_static_data_t HTMLXMLHttpRequest_dispex = {
646 &HTMLXMLHttpRequest_dispex_vtbl,
647 DispHTMLXMLHttpRequest_tid,
648 NULL,
649 HTMLXMLHttpRequest_iface_tids
650};
651
652
653/* IHTMLXMLHttpRequestFactory */
654static inline HTMLXMLHttpRequestFactory *impl_from_IHTMLXMLHttpRequestFactory(IHTMLXMLHttpRequestFactory *iface)
655{
656 return CONTAINING_RECORD(iface, HTMLXMLHttpRequestFactory, IHTMLXMLHttpRequestFactory_iface);
657}
658
659static 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
683static 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
693static 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
708static 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
714static 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
722static 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
731static 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
740static 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
768static 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
779static const tid_t HTMLXMLHttpRequestFactory_iface_tids[] = {
780 IHTMLXMLHttpRequestFactory_tid,
781 0
782};
783static dispex_static_data_t HTMLXMLHttpRequestFactory_dispex = {
784 NULL,
785 IHTMLXMLHttpRequestFactory_tid,
786 NULL,
787 HTMLXMLHttpRequestFactory_iface_tids
788};
789
790HRESULT 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}