2 * IXMLHTTPRequest implementation
4 * Copyright 2008 Alistair Leslie-Hughes
5 * Copyright 2010 Nikolay Sivov for CodeWeavers
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
23 #define NONAMELESSUNION
29 # include <libxml/parser.h>
30 # include <libxml/xmlerror.h>
31 # include <libxml/encoding.h>
41 #include "msxml_private.h"
43 #include "wine/debug.h"
44 #include "wine/list.h"
46 WINE_DEFAULT_DEBUG_CHANNEL(msxml
);
50 static const WCHAR colspaceW
[] = {':',' ',0};
51 static const WCHAR crlfW
[] = {'\r','\n',0};
53 typedef struct BindStatusCallback BindStatusCallback
;
64 IXMLHTTPRequest IXMLHTTPRequest_iface
;
65 IObjectWithSite IObjectWithSite_iface
;
66 IObjectSafety IObjectSafety_iface
;
77 struct list reqheaders
;
78 /* cached resulting custom request headers string length in WCHARs */
80 /* use UTF-8 content type */
81 BOOL use_utf8_content
;
83 /* response headers */
84 struct list respheaders
;
92 BindStatusCallback
*bsc
;
102 static inline httprequest
*impl_from_IXMLHTTPRequest( IXMLHTTPRequest
*iface
)
104 return CONTAINING_RECORD(iface
, httprequest
, IXMLHTTPRequest_iface
);
107 static inline httprequest
*impl_from_IObjectWithSite(IObjectWithSite
*iface
)
109 return CONTAINING_RECORD(iface
, httprequest
, IObjectWithSite_iface
);
112 static inline httprequest
*impl_from_IObjectSafety(IObjectSafety
*iface
)
114 return CONTAINING_RECORD(iface
, httprequest
, IObjectSafety_iface
);
117 static void httprequest_setreadystate(httprequest
*This
, READYSTATE state
)
119 READYSTATE last
= This
->state
;
123 if (This
->sink
&& last
!= state
)
127 memset(¶ms
, 0, sizeof(params
));
128 IDispatch_Invoke(This
->sink
, 0, &IID_NULL
, LOCALE_SYSTEM_DEFAULT
, DISPATCH_METHOD
, ¶ms
, 0, 0, 0);
132 static void free_response_headers(httprequest
*This
)
134 struct httpheader
*header
, *header2
;
136 LIST_FOR_EACH_ENTRY_SAFE(header
, header2
, &This
->respheaders
, struct httpheader
, entry
)
138 list_remove(&header
->entry
);
139 SysFreeString(header
->header
);
140 SysFreeString(header
->value
);
144 SysFreeString(This
->raw_respheaders
);
145 This
->raw_respheaders
= NULL
;
148 struct BindStatusCallback
150 IBindStatusCallback IBindStatusCallback_iface
;
151 IHttpNegotiate IHttpNegotiate_iface
;
155 httprequest
*request
;
160 /* request body data */
164 static inline BindStatusCallback
*impl_from_IBindStatusCallback( IBindStatusCallback
*iface
)
166 return CONTAINING_RECORD(iface
, BindStatusCallback
, IBindStatusCallback_iface
);
169 static inline BindStatusCallback
*impl_from_IHttpNegotiate( IHttpNegotiate
*iface
)
171 return CONTAINING_RECORD(iface
, BindStatusCallback
, IHttpNegotiate_iface
);
174 static void BindStatusCallback_Detach(BindStatusCallback
*bsc
)
178 if (bsc
->binding
) IBinding_Abort(bsc
->binding
);
180 IBindStatusCallback_Release(&bsc
->IBindStatusCallback_iface
);
184 static HRESULT WINAPI
BindStatusCallback_QueryInterface(IBindStatusCallback
*iface
,
185 REFIID riid
, void **ppv
)
187 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
191 TRACE("(%p)->(%s, %p)\n", This
, debugstr_guid(riid
), ppv
);
193 if (IsEqualGUID(&IID_IUnknown
, riid
) ||
194 IsEqualGUID(&IID_IBindStatusCallback
, riid
))
196 *ppv
= &This
->IBindStatusCallback_iface
;
198 else if (IsEqualGUID(&IID_IHttpNegotiate
, riid
))
200 *ppv
= &This
->IHttpNegotiate_iface
;
202 else if (IsEqualGUID(&IID_IServiceProvider
, riid
) ||
203 IsEqualGUID(&IID_IBindStatusCallbackEx
, riid
) ||
204 IsEqualGUID(&IID_IInternetProtocol
, riid
) ||
205 IsEqualGUID(&IID_IHttpNegotiate2
, riid
))
207 return E_NOINTERFACE
;
212 IBindStatusCallback_AddRef(iface
);
216 FIXME("Unsupported riid = %s\n", debugstr_guid(riid
));
218 return E_NOINTERFACE
;
221 static ULONG WINAPI
BindStatusCallback_AddRef(IBindStatusCallback
*iface
)
223 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
224 LONG ref
= InterlockedIncrement(&This
->ref
);
226 TRACE("(%p) ref = %d\n", This
, ref
);
231 static ULONG WINAPI
BindStatusCallback_Release(IBindStatusCallback
*iface
)
233 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
234 LONG ref
= InterlockedDecrement(&This
->ref
);
236 TRACE("(%p) ref = %d\n", This
, ref
);
240 if (This
->binding
) IBinding_Release(This
->binding
);
241 if (This
->stream
) IStream_Release(This
->stream
);
242 if (This
->body
) GlobalFree(This
->body
);
249 static HRESULT WINAPI
BindStatusCallback_OnStartBinding(IBindStatusCallback
*iface
,
250 DWORD reserved
, IBinding
*pbind
)
252 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
254 TRACE("(%p)->(%d %p)\n", This
, reserved
, pbind
);
256 if (!pbind
) return E_INVALIDARG
;
258 This
->binding
= pbind
;
259 IBinding_AddRef(pbind
);
261 httprequest_setreadystate(This
->request
, READYSTATE_LOADED
);
263 return CreateStreamOnHGlobal(NULL
, TRUE
, &This
->stream
);
266 static HRESULT WINAPI
BindStatusCallback_GetPriority(IBindStatusCallback
*iface
, LONG
*pPriority
)
268 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
270 TRACE("(%p)->(%p)\n", This
, pPriority
);
275 static HRESULT WINAPI
BindStatusCallback_OnLowResource(IBindStatusCallback
*iface
, DWORD reserved
)
277 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
279 TRACE("(%p)->(%d)\n", This
, reserved
);
284 static HRESULT WINAPI
BindStatusCallback_OnProgress(IBindStatusCallback
*iface
, ULONG ulProgress
,
285 ULONG ulProgressMax
, ULONG ulStatusCode
, LPCWSTR szStatusText
)
287 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
289 TRACE("(%p)->(%u %u %u %s)\n", This
, ulProgress
, ulProgressMax
, ulStatusCode
,
290 debugstr_w(szStatusText
));
295 static HRESULT WINAPI
BindStatusCallback_OnStopBinding(IBindStatusCallback
*iface
,
296 HRESULT hr
, LPCWSTR error
)
298 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
300 TRACE("(%p)->(0x%08x %s)\n", This
, hr
, debugstr_w(error
));
304 IBinding_Release(This
->binding
);
305 This
->binding
= NULL
;
309 httprequest_setreadystate(This
->request
, READYSTATE_COMPLETE
);
314 static HRESULT WINAPI
BindStatusCallback_GetBindInfo(IBindStatusCallback
*iface
,
315 DWORD
*bind_flags
, BINDINFO
*pbindinfo
)
317 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
319 TRACE("(%p)->(%p %p)\n", This
, bind_flags
, pbindinfo
);
322 if (This
->request
->async
) *bind_flags
|= BINDF_ASYNCHRONOUS
;
324 if (This
->request
->verb
!= BINDVERB_GET
&& This
->body
)
326 pbindinfo
->stgmedData
.tymed
= TYMED_HGLOBAL
;
327 pbindinfo
->stgmedData
.u
.hGlobal
= This
->body
;
328 pbindinfo
->cbstgmedData
= GlobalSize(This
->body
);
329 /* callback owns passed body pointer */
330 IBindStatusCallback_QueryInterface(iface
, &IID_IUnknown
, (void**)&pbindinfo
->stgmedData
.pUnkForRelease
);
333 pbindinfo
->dwBindVerb
= This
->request
->verb
;
334 if (This
->request
->verb
== BINDVERB_CUSTOM
)
336 pbindinfo
->szCustomVerb
= CoTaskMemAlloc(SysStringByteLen(This
->request
->custom
));
337 strcpyW(pbindinfo
->szCustomVerb
, This
->request
->custom
);
343 static HRESULT WINAPI
BindStatusCallback_OnDataAvailable(IBindStatusCallback
*iface
,
344 DWORD flags
, DWORD size
, FORMATETC
*format
, STGMEDIUM
*stgmed
)
346 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
351 TRACE("(%p)->(%08x %d %p %p)\n", This
, flags
, size
, format
, stgmed
);
355 hr
= IStream_Read(stgmed
->u
.pstm
, buf
, sizeof(buf
), &read
);
356 if (hr
!= S_OK
) break;
358 hr
= IStream_Write(This
->stream
, buf
, read
, &written
);
359 } while((hr
== S_OK
) && written
!= 0 && read
!= 0);
361 httprequest_setreadystate(This
->request
, READYSTATE_INTERACTIVE
);
366 static HRESULT WINAPI
BindStatusCallback_OnObjectAvailable(IBindStatusCallback
*iface
,
367 REFIID riid
, IUnknown
*punk
)
369 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
371 FIXME("(%p)->(%s %p): stub\n", This
, debugstr_guid(riid
), punk
);
376 static const IBindStatusCallbackVtbl BindStatusCallbackVtbl
= {
377 BindStatusCallback_QueryInterface
,
378 BindStatusCallback_AddRef
,
379 BindStatusCallback_Release
,
380 BindStatusCallback_OnStartBinding
,
381 BindStatusCallback_GetPriority
,
382 BindStatusCallback_OnLowResource
,
383 BindStatusCallback_OnProgress
,
384 BindStatusCallback_OnStopBinding
,
385 BindStatusCallback_GetBindInfo
,
386 BindStatusCallback_OnDataAvailable
,
387 BindStatusCallback_OnObjectAvailable
390 static HRESULT WINAPI
BSCHttpNegotiate_QueryInterface(IHttpNegotiate
*iface
,
391 REFIID riid
, void **ppv
)
393 BindStatusCallback
*This
= impl_from_IHttpNegotiate(iface
);
394 return IBindStatusCallback_QueryInterface(&This
->IBindStatusCallback_iface
, riid
, ppv
);
397 static ULONG WINAPI
BSCHttpNegotiate_AddRef(IHttpNegotiate
*iface
)
399 BindStatusCallback
*This
= impl_from_IHttpNegotiate(iface
);
400 return IBindStatusCallback_AddRef(&This
->IBindStatusCallback_iface
);
403 static ULONG WINAPI
BSCHttpNegotiate_Release(IHttpNegotiate
*iface
)
405 BindStatusCallback
*This
= impl_from_IHttpNegotiate(iface
);
406 return IBindStatusCallback_Release(&This
->IBindStatusCallback_iface
);
409 static HRESULT WINAPI
BSCHttpNegotiate_BeginningTransaction(IHttpNegotiate
*iface
,
410 LPCWSTR url
, LPCWSTR headers
, DWORD reserved
, LPWSTR
*add_headers
)
412 static const WCHAR content_type_utf8W
[] = {'C','o','n','t','e','n','t','-','T','y','p','e',':',' ',
413 't','e','x','t','/','p','l','a','i','n',';','c','h','a','r','s','e','t','=','u','t','f','-','8','\r','\n',0};
415 BindStatusCallback
*This
= impl_from_IHttpNegotiate(iface
);
416 const struct httpheader
*entry
;
420 TRACE("(%p)->(%s %s %d %p)\n", This
, debugstr_w(url
), debugstr_w(headers
), reserved
, add_headers
);
424 if (This
->request
->use_utf8_content
)
425 size
= sizeof(content_type_utf8W
);
427 if (!list_empty(&This
->request
->reqheaders
))
428 size
+= This
->request
->reqheader_size
*sizeof(WCHAR
);
430 if (!size
) return S_OK
;
432 buff
= CoTaskMemAlloc(size
);
433 if (!buff
) return E_OUTOFMEMORY
;
436 if (This
->request
->use_utf8_content
)
438 lstrcpyW(ptr
, content_type_utf8W
);
439 ptr
+= sizeof(content_type_utf8W
)/sizeof(WCHAR
)-1;
443 LIST_FOR_EACH_ENTRY(entry
, &This
->request
->reqheaders
, struct httpheader
, entry
)
445 lstrcpyW(ptr
, entry
->header
);
446 ptr
+= SysStringLen(entry
->header
);
448 lstrcpyW(ptr
, colspaceW
);
449 ptr
+= sizeof(colspaceW
)/sizeof(WCHAR
)-1;
451 lstrcpyW(ptr
, entry
->value
);
452 ptr
+= SysStringLen(entry
->value
);
454 lstrcpyW(ptr
, crlfW
);
455 ptr
+= sizeof(crlfW
)/sizeof(WCHAR
)-1;
463 static void add_response_header(httprequest
*This
, const WCHAR
*data
, int len
)
465 struct httpheader
*entry
;
466 const WCHAR
*ptr
= data
;
473 header
= SysAllocStringLen(data
, ptr
-data
);
474 /* skip leading spaces for a value */
475 while (*++ptr
== ' ')
477 value
= SysAllocStringLen(ptr
, len
-(ptr
-data
));
486 TRACE("got header %s:%s\n", debugstr_w(header
), debugstr_w(value
));
488 entry
= heap_alloc(sizeof(*header
));
489 entry
->header
= header
;
490 entry
->value
= value
;
491 list_add_head(&This
->respheaders
, &entry
->entry
);
494 static HRESULT WINAPI
BSCHttpNegotiate_OnResponse(IHttpNegotiate
*iface
, DWORD code
,
495 LPCWSTR resp_headers
, LPCWSTR req_headers
, LPWSTR
*add_reqheaders
)
497 BindStatusCallback
*This
= impl_from_IHttpNegotiate(iface
);
499 TRACE("(%p)->(%d %s %s %p)\n", This
, code
, debugstr_w(resp_headers
),
500 debugstr_w(req_headers
), add_reqheaders
);
502 This
->request
->status
= code
;
504 free_response_headers(This
->request
);
507 const WCHAR
*ptr
, *line
;
509 ptr
= line
= resp_headers
;
511 /* skip status line */
514 if (*ptr
== '\r' && *(ptr
+1) == '\n')
522 /* store as unparsed string for now */
523 This
->request
->raw_respheaders
= SysAllocString(line
);
529 static const IHttpNegotiateVtbl BSCHttpNegotiateVtbl
= {
530 BSCHttpNegotiate_QueryInterface
,
531 BSCHttpNegotiate_AddRef
,
532 BSCHttpNegotiate_Release
,
533 BSCHttpNegotiate_BeginningTransaction
,
534 BSCHttpNegotiate_OnResponse
537 static HRESULT
BindStatusCallback_create(httprequest
* This
, BindStatusCallback
**obj
, const VARIANT
*body
)
539 BindStatusCallback
*bsc
;
544 hr
= CreateBindCtx(0, &pbc
);
545 if (hr
!= S_OK
) return hr
;
547 bsc
= heap_alloc(sizeof(*bsc
));
550 IBindCtx_Release(pbc
);
551 return E_OUTOFMEMORY
;
554 bsc
->IBindStatusCallback_iface
.lpVtbl
= &BindStatusCallbackVtbl
;
555 bsc
->IHttpNegotiate_iface
.lpVtbl
= &BSCHttpNegotiateVtbl
;
562 TRACE("(%p)->(%p)\n", This
, bsc
);
564 This
->use_utf8_content
= FALSE
;
566 if (This
->verb
!= BINDVERB_GET
)
568 void *send_data
, *ptr
;
569 SAFEARRAY
*sa
= NULL
;
571 if (V_VT(body
) == (VT_VARIANT
|VT_BYREF
))
572 body
= V_VARIANTREF(body
);
578 int len
= SysStringLen(V_BSTR(body
));
579 const WCHAR
*str
= V_BSTR(body
);
582 for (i
= 0; i
< len
; i
++)
591 size
= WideCharToMultiByte(cp
, 0, str
, len
, NULL
, 0, NULL
, NULL
);
592 if (!(ptr
= heap_alloc(size
)))
595 return E_OUTOFMEMORY
;
597 WideCharToMultiByte(cp
, 0, str
, len
, ptr
, size
, NULL
, NULL
);
598 if (cp
== CP_UTF8
) This
->use_utf8_content
= TRUE
;
601 case VT_ARRAY
|VT_UI1
:
604 if ((hr
= SafeArrayAccessData(sa
, (void **)&ptr
)) != S_OK
) return hr
;
605 if ((hr
= SafeArrayGetUBound(sa
, 1, &size
) != S_OK
))
607 SafeArrayUnaccessData(sa
);
618 FIXME("unsupported body data type %d\n", V_VT(body
));
622 bsc
->body
= GlobalAlloc(GMEM_FIXED
, size
);
625 if (V_VT(body
) == VT_BSTR
)
627 else if (V_VT(body
) == (VT_ARRAY
|VT_UI1
))
628 SafeArrayUnaccessData(sa
);
631 return E_OUTOFMEMORY
;
634 send_data
= GlobalLock(bsc
->body
);
635 memcpy(send_data
, ptr
, size
);
636 GlobalUnlock(bsc
->body
);
638 if (V_VT(body
) == VT_BSTR
)
640 else if (V_VT(body
) == (VT_ARRAY
|VT_UI1
))
641 SafeArrayUnaccessData(sa
);
644 hr
= RegisterBindStatusCallback(pbc
, &bsc
->IBindStatusCallback_iface
, NULL
, 0);
649 hr
= CreateURLMoniker(NULL
, This
->url
, &moniker
);
654 hr
= IMoniker_BindToStorage(moniker
, pbc
, NULL
, &IID_IStream
, (void**)&stream
);
655 IMoniker_Release(moniker
);
656 if (stream
) IStream_Release(stream
);
658 IBindCtx_Release(pbc
);
663 IBindStatusCallback_Release(&bsc
->IBindStatusCallback_iface
);
671 static HRESULT WINAPI
httprequest_QueryInterface(IXMLHTTPRequest
*iface
, REFIID riid
, void **ppvObject
)
673 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
674 TRACE("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppvObject
);
676 if ( IsEqualGUID( riid
, &IID_IXMLHTTPRequest
) ||
677 IsEqualGUID( riid
, &IID_IDispatch
) ||
678 IsEqualGUID( riid
, &IID_IUnknown
) )
682 else if (IsEqualGUID(&IID_IObjectWithSite
, riid
))
684 *ppvObject
= &This
->IObjectWithSite_iface
;
686 else if (IsEqualGUID(&IID_IObjectSafety
, riid
))
688 *ppvObject
= &This
->IObjectSafety_iface
;
692 TRACE("Unsupported interface %s\n", debugstr_guid(riid
));
694 return E_NOINTERFACE
;
697 IXMLHTTPRequest_AddRef( iface
);
702 static ULONG WINAPI
httprequest_AddRef(IXMLHTTPRequest
*iface
)
704 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
705 ULONG ref
= InterlockedIncrement( &This
->ref
);
706 TRACE("(%p)->(%u)\n", This
, ref
);
710 static ULONG WINAPI
httprequest_Release(IXMLHTTPRequest
*iface
)
712 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
713 ULONG ref
= InterlockedDecrement( &This
->ref
);
715 TRACE("(%p)->(%u)\n", This
, ref
);
719 struct httpheader
*header
, *header2
;
722 IUnknown_Release( This
->site
);
724 SysFreeString(This
->custom
);
725 SysFreeString(This
->url
);
726 SysFreeString(This
->user
);
727 SysFreeString(This
->password
);
729 /* request headers */
730 LIST_FOR_EACH_ENTRY_SAFE(header
, header2
, &This
->reqheaders
, struct httpheader
, entry
)
732 list_remove(&header
->entry
);
733 SysFreeString(header
->header
);
734 SysFreeString(header
->value
);
737 /* response headers */
738 free_response_headers(This
);
740 /* detach callback object */
741 BindStatusCallback_Detach(This
->bsc
);
743 if (This
->sink
) IDispatch_Release(This
->sink
);
751 static HRESULT WINAPI
httprequest_GetTypeInfoCount(IXMLHTTPRequest
*iface
, UINT
*pctinfo
)
753 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
755 TRACE("(%p)->(%p)\n", This
, pctinfo
);
762 static HRESULT WINAPI
httprequest_GetTypeInfo(IXMLHTTPRequest
*iface
, UINT iTInfo
,
763 LCID lcid
, ITypeInfo
**ppTInfo
)
765 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
767 TRACE("(%p)->(%u %u %p)\n", This
, iTInfo
, lcid
, ppTInfo
);
769 return get_typeinfo(IXMLHTTPRequest_tid
, ppTInfo
);
772 static HRESULT WINAPI
httprequest_GetIDsOfNames(IXMLHTTPRequest
*iface
, REFIID riid
,
773 LPOLESTR
*rgszNames
, UINT cNames
, LCID lcid
, DISPID
*rgDispId
)
775 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
779 TRACE("(%p)->(%s %p %u %u %p)\n", This
, debugstr_guid(riid
), rgszNames
, cNames
,
782 if(!rgszNames
|| cNames
== 0 || !rgDispId
)
785 hr
= get_typeinfo(IXMLHTTPRequest_tid
, &typeinfo
);
788 hr
= ITypeInfo_GetIDsOfNames(typeinfo
, rgszNames
, cNames
, rgDispId
);
789 ITypeInfo_Release(typeinfo
);
795 static HRESULT WINAPI
httprequest_Invoke(IXMLHTTPRequest
*iface
, DISPID dispIdMember
, REFIID riid
,
796 LCID lcid
, WORD wFlags
, DISPPARAMS
*pDispParams
, VARIANT
*pVarResult
,
797 EXCEPINFO
*pExcepInfo
, UINT
*puArgErr
)
799 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
803 TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This
, dispIdMember
, debugstr_guid(riid
),
804 lcid
, wFlags
, pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
806 hr
= get_typeinfo(IXMLHTTPRequest_tid
, &typeinfo
);
809 hr
= ITypeInfo_Invoke(typeinfo
, &This
->IXMLHTTPRequest_iface
, dispIdMember
, wFlags
,
810 pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
811 ITypeInfo_Release(typeinfo
);
817 static HRESULT WINAPI
httprequest_open(IXMLHTTPRequest
*iface
, BSTR method
, BSTR url
,
818 VARIANT async
, VARIANT user
, VARIANT password
)
820 static const WCHAR MethodGetW
[] = {'G','E','T',0};
821 static const WCHAR MethodPutW
[] = {'P','U','T',0};
822 static const WCHAR MethodPostW
[] = {'P','O','S','T',0};
823 static const WCHAR MethodDeleteW
[] = {'D','E','L','E','T','E',0};
825 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
826 VARIANT str
, is_async
;
829 TRACE("(%p)->(%s %s %s)\n", This
, debugstr_w(method
), debugstr_w(url
),
830 debugstr_variant(&async
));
832 if (!method
|| !url
) return E_INVALIDARG
;
834 /* free previously set data */
835 SysFreeString(This
->url
);
836 SysFreeString(This
->user
);
837 SysFreeString(This
->password
);
838 This
->url
= This
->user
= This
->password
= NULL
;
840 if (!strcmpiW(method
, MethodGetW
))
842 This
->verb
= BINDVERB_GET
;
844 else if (!strcmpiW(method
, MethodPutW
))
846 This
->verb
= BINDVERB_PUT
;
848 else if (!strcmpiW(method
, MethodPostW
))
850 This
->verb
= BINDVERB_POST
;
852 else if (!strcmpiW(method
, MethodDeleteW
))
854 This
->verb
= BINDVERB_CUSTOM
;
855 SysReAllocString(&This
->custom
, method
);
859 FIXME("unsupported request type %s\n", debugstr_w(method
));
864 This
->url
= SysAllocString(url
);
866 VariantInit(&is_async
);
867 hr
= VariantChangeType(&is_async
, &async
, 0, VT_BOOL
);
868 This
->async
= hr
== S_OK
&& V_BOOL(&is_async
) == VARIANT_TRUE
;
871 hr
= VariantChangeType(&str
, &user
, 0, VT_BSTR
);
873 This
->user
= V_BSTR(&str
);
876 hr
= VariantChangeType(&str
, &password
, 0, VT_BSTR
);
878 This
->password
= V_BSTR(&str
);
880 httprequest_setreadystate(This
, READYSTATE_LOADING
);
885 static HRESULT WINAPI
httprequest_setRequestHeader(IXMLHTTPRequest
*iface
, BSTR header
, BSTR value
)
887 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
888 struct httpheader
*entry
;
890 TRACE("(%p)->(%s %s)\n", This
, debugstr_w(header
), debugstr_w(value
));
892 if (!header
|| !*header
) return E_INVALIDARG
;
893 if (This
->state
!= READYSTATE_LOADING
) return E_FAIL
;
894 if (!value
) return E_INVALIDARG
;
896 /* replace existing header value if already added */
897 LIST_FOR_EACH_ENTRY(entry
, &This
->reqheaders
, struct httpheader
, entry
)
899 if (lstrcmpW(entry
->header
, header
) == 0)
901 LONG length
= SysStringLen(entry
->value
);
904 hr
= SysReAllocString(&entry
->value
, value
) ? S_OK
: E_OUTOFMEMORY
;
907 This
->reqheader_size
+= (SysStringLen(entry
->value
) - length
);
913 entry
= heap_alloc(sizeof(*entry
));
914 if (!entry
) return E_OUTOFMEMORY
;
917 entry
->header
= SysAllocString(header
);
918 entry
->value
= SysAllocString(value
);
920 /* header length including null terminator */
921 This
->reqheader_size
+= SysStringLen(entry
->header
) + sizeof(colspaceW
)/sizeof(WCHAR
) +
922 SysStringLen(entry
->value
) + sizeof(crlfW
)/sizeof(WCHAR
) - 1;
924 list_add_head(&This
->reqheaders
, &entry
->entry
);
929 static HRESULT WINAPI
httprequest_getResponseHeader(IXMLHTTPRequest
*iface
, BSTR header
, BSTR
*value
)
931 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
932 struct httpheader
*entry
;
934 TRACE("(%p)->(%s %p)\n", This
, debugstr_w(header
), value
);
936 if (!header
|| !value
) return E_INVALIDARG
;
938 if (This
->raw_respheaders
&& list_empty(&This
->respheaders
))
942 ptr
= line
= This
->raw_respheaders
;
945 if (*ptr
== '\r' && *(ptr
+1) == '\n')
947 add_response_header(This
, line
, ptr
-line
);
955 LIST_FOR_EACH_ENTRY(entry
, &This
->respheaders
, struct httpheader
, entry
)
957 if (!strcmpiW(entry
->header
, header
))
959 *value
= SysAllocString(entry
->value
);
960 TRACE("header value %s\n", debugstr_w(*value
));
968 static HRESULT WINAPI
httprequest_getAllResponseHeaders(IXMLHTTPRequest
*iface
, BSTR
*respheaders
)
970 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
972 TRACE("(%p)->(%p)\n", This
, respheaders
);
974 if (!respheaders
) return E_INVALIDARG
;
976 *respheaders
= SysAllocString(This
->raw_respheaders
);
981 static HRESULT WINAPI
httprequest_send(IXMLHTTPRequest
*iface
, VARIANT body
)
983 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
984 BindStatusCallback
*bsc
= NULL
;
987 TRACE("(%p)->(%s)\n", This
, debugstr_variant(&body
));
989 if (This
->state
!= READYSTATE_LOADING
) return E_FAIL
;
991 hr
= BindStatusCallback_create(This
, &bsc
, &body
);
992 if (FAILED(hr
)) return hr
;
994 BindStatusCallback_Detach(This
->bsc
);
1000 static HRESULT WINAPI
httprequest_abort(IXMLHTTPRequest
*iface
)
1002 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1004 TRACE("(%p)\n", This
);
1006 BindStatusCallback_Detach(This
->bsc
);
1009 httprequest_setreadystate(This
, READYSTATE_UNINITIALIZED
);
1014 static HRESULT WINAPI
httprequest_get_status(IXMLHTTPRequest
*iface
, LONG
*status
)
1016 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1018 TRACE("(%p)->(%p)\n", This
, status
);
1020 if (!status
) return E_INVALIDARG
;
1021 if (This
->state
!= READYSTATE_COMPLETE
) return E_FAIL
;
1023 *status
= This
->status
;
1028 static HRESULT WINAPI
httprequest_get_statusText(IXMLHTTPRequest
*iface
, BSTR
*pbstrStatus
)
1030 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1032 FIXME("stub %p %p\n", This
, pbstrStatus
);
1037 static HRESULT WINAPI
httprequest_get_responseXML(IXMLHTTPRequest
*iface
, IDispatch
**body
)
1039 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1040 IXMLDOMDocument3
*doc
;
1044 TRACE("(%p)->(%p)\n", This
, body
);
1046 if (!body
) return E_INVALIDARG
;
1047 if (This
->state
!= READYSTATE_COMPLETE
) return E_FAIL
;
1049 hr
= DOMDocument_create(MSXML_DEFAULT
, NULL
, (void**)&doc
);
1050 if (hr
!= S_OK
) return hr
;
1052 hr
= IXMLHTTPRequest_get_responseText(iface
, &str
);
1057 hr
= IXMLDOMDocument3_loadXML(doc
, str
, &ok
);
1061 IXMLDOMDocument3_QueryInterface(doc
, &IID_IDispatch
, (void**)body
);
1062 IXMLDOMDocument3_Release(doc
);
1067 static HRESULT WINAPI
httprequest_get_responseText(IXMLHTTPRequest
*iface
, BSTR
*body
)
1069 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1073 TRACE("(%p)->(%p)\n", This
, body
);
1075 if (!body
) return E_INVALIDARG
;
1076 if (This
->state
!= READYSTATE_COMPLETE
) return E_FAIL
;
1078 hr
= GetHGlobalFromStream(This
->bsc
->stream
, &hglobal
);
1081 xmlChar
*ptr
= GlobalLock(hglobal
);
1082 DWORD size
= GlobalSize(hglobal
);
1083 xmlCharEncoding encoding
= XML_CHAR_ENCODING_UTF8
;
1085 /* try to determine data encoding */
1088 encoding
= xmlDetectCharEncoding(ptr
, 4);
1089 TRACE("detected encoding: %s\n", debugstr_a(xmlGetCharEncodingName(encoding
)));
1090 if ( encoding
!= XML_CHAR_ENCODING_UTF8
&&
1091 encoding
!= XML_CHAR_ENCODING_UTF16LE
&&
1092 encoding
!= XML_CHAR_ENCODING_NONE
)
1094 FIXME("unsupported encoding: %s\n", debugstr_a(xmlGetCharEncodingName(encoding
)));
1095 GlobalUnlock(hglobal
);
1100 /* without BOM assume UTF-8 */
1101 if (encoding
== XML_CHAR_ENCODING_UTF8
||
1102 encoding
== XML_CHAR_ENCODING_NONE
)
1104 DWORD length
= MultiByteToWideChar(CP_UTF8
, 0, (LPCSTR
)ptr
, size
, NULL
, 0);
1106 *body
= SysAllocStringLen(NULL
, length
);
1108 MultiByteToWideChar( CP_UTF8
, 0, (LPCSTR
)ptr
, size
, *body
, length
);
1111 *body
= SysAllocStringByteLen((LPCSTR
)ptr
, size
);
1113 if (!*body
) hr
= E_OUTOFMEMORY
;
1114 GlobalUnlock(hglobal
);
1120 static HRESULT WINAPI
httprequest_get_responseBody(IXMLHTTPRequest
*iface
, VARIANT
*body
)
1122 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1126 TRACE("(%p)->(%p)\n", This
, body
);
1128 if (!body
) return E_INVALIDARG
;
1129 V_VT(body
) = VT_EMPTY
;
1131 if (This
->state
!= READYSTATE_COMPLETE
) return E_PENDING
;
1133 hr
= GetHGlobalFromStream(This
->bsc
->stream
, &hglobal
);
1136 void *ptr
= GlobalLock(hglobal
);
1137 DWORD size
= GlobalSize(hglobal
);
1139 SAFEARRAYBOUND bound
;
1143 bound
.cElements
= size
;
1144 array
= SafeArrayCreate(VT_UI1
, 1, &bound
);
1150 V_VT(body
) = VT_ARRAY
| VT_UI1
;
1151 V_ARRAY(body
) = array
;
1153 hr
= SafeArrayAccessData(array
, &dest
);
1156 memcpy(dest
, ptr
, size
);
1157 SafeArrayUnaccessData(array
);
1167 GlobalUnlock(hglobal
);
1173 static HRESULT WINAPI
httprequest_get_responseStream(IXMLHTTPRequest
*iface
, VARIANT
*body
)
1175 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1180 TRACE("(%p)->(%p)\n", This
, body
);
1182 if (!body
) return E_INVALIDARG
;
1183 V_VT(body
) = VT_EMPTY
;
1185 if (This
->state
!= READYSTATE_COMPLETE
) return E_PENDING
;
1187 hr
= IStream_Clone(This
->bsc
->stream
, &stream
);
1190 IStream_Seek(stream
, move
, STREAM_SEEK_SET
, NULL
);
1192 V_VT(body
) = VT_UNKNOWN
;
1193 V_UNKNOWN(body
) = (IUnknown
*)stream
;
1198 static HRESULT WINAPI
httprequest_get_readyState(IXMLHTTPRequest
*iface
, LONG
*state
)
1200 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1202 TRACE("(%p)->(%p)\n", This
, state
);
1204 if (!state
) return E_INVALIDARG
;
1206 *state
= This
->state
;
1210 static HRESULT WINAPI
httprequest_put_onreadystatechange(IXMLHTTPRequest
*iface
, IDispatch
*sink
)
1212 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1214 TRACE("(%p)->(%p)\n", This
, sink
);
1216 if (This
->sink
) IDispatch_Release(This
->sink
);
1217 if ((This
->sink
= sink
)) IDispatch_AddRef(This
->sink
);
1222 static const struct IXMLHTTPRequestVtbl XMLHTTPRequestVtbl
=
1224 httprequest_QueryInterface
,
1226 httprequest_Release
,
1227 httprequest_GetTypeInfoCount
,
1228 httprequest_GetTypeInfo
,
1229 httprequest_GetIDsOfNames
,
1232 httprequest_setRequestHeader
,
1233 httprequest_getResponseHeader
,
1234 httprequest_getAllResponseHeaders
,
1237 httprequest_get_status
,
1238 httprequest_get_statusText
,
1239 httprequest_get_responseXML
,
1240 httprequest_get_responseText
,
1241 httprequest_get_responseBody
,
1242 httprequest_get_responseStream
,
1243 httprequest_get_readyState
,
1244 httprequest_put_onreadystatechange
1247 /* IObjectWithSite */
1248 static HRESULT WINAPI
1249 httprequest_ObjectWithSite_QueryInterface( IObjectWithSite
* iface
, REFIID riid
, void** ppvObject
)
1251 httprequest
*This
= impl_from_IObjectWithSite(iface
);
1252 return IXMLHTTPRequest_QueryInterface( (IXMLHTTPRequest
*)This
, riid
, ppvObject
);
1255 static ULONG WINAPI
httprequest_ObjectWithSite_AddRef( IObjectWithSite
* iface
)
1257 httprequest
*This
= impl_from_IObjectWithSite(iface
);
1258 return IXMLHTTPRequest_AddRef((IXMLHTTPRequest
*)This
);
1261 static ULONG WINAPI
httprequest_ObjectWithSite_Release( IObjectWithSite
* iface
)
1263 httprequest
*This
= impl_from_IObjectWithSite(iface
);
1264 return IXMLHTTPRequest_Release((IXMLHTTPRequest
*)This
);
1267 static HRESULT WINAPI
httprequest_ObjectWithSite_GetSite( IObjectWithSite
*iface
, REFIID iid
, void **ppvSite
)
1269 httprequest
*This
= impl_from_IObjectWithSite(iface
);
1271 TRACE("(%p)->(%s %p)\n", This
, debugstr_guid( iid
), ppvSite
);
1276 return IUnknown_QueryInterface( This
->site
, iid
, ppvSite
);
1279 static HRESULT WINAPI
httprequest_ObjectWithSite_SetSite( IObjectWithSite
*iface
, IUnknown
*punk
)
1281 httprequest
*This
= impl_from_IObjectWithSite(iface
);
1283 TRACE("(%p)->(%p)\n", iface
, punk
);
1286 IUnknown_AddRef( punk
);
1289 IUnknown_Release( This
->site
);
1296 static const IObjectWithSiteVtbl ObjectWithSiteVtbl
=
1298 httprequest_ObjectWithSite_QueryInterface
,
1299 httprequest_ObjectWithSite_AddRef
,
1300 httprequest_ObjectWithSite_Release
,
1301 httprequest_ObjectWithSite_SetSite
,
1302 httprequest_ObjectWithSite_GetSite
1306 static HRESULT WINAPI
httprequest_Safety_QueryInterface(IObjectSafety
*iface
, REFIID riid
, void **ppv
)
1308 httprequest
*This
= impl_from_IObjectSafety(iface
);
1309 return IXMLHTTPRequest_QueryInterface( (IXMLHTTPRequest
*)This
, riid
, ppv
);
1312 static ULONG WINAPI
httprequest_Safety_AddRef(IObjectSafety
*iface
)
1314 httprequest
*This
= impl_from_IObjectSafety(iface
);
1315 return IXMLHTTPRequest_AddRef((IXMLHTTPRequest
*)This
);
1318 static ULONG WINAPI
httprequest_Safety_Release(IObjectSafety
*iface
)
1320 httprequest
*This
= impl_from_IObjectSafety(iface
);
1321 return IXMLHTTPRequest_Release((IXMLHTTPRequest
*)This
);
1324 #define SAFETY_SUPPORTED_OPTIONS (INTERFACESAFE_FOR_UNTRUSTED_CALLER|INTERFACESAFE_FOR_UNTRUSTED_DATA|INTERFACE_USES_SECURITY_MANAGER)
1326 static HRESULT WINAPI
httprequest_Safety_GetInterfaceSafetyOptions(IObjectSafety
*iface
, REFIID riid
,
1327 DWORD
*supported
, DWORD
*enabled
)
1329 httprequest
*This
= impl_from_IObjectSafety(iface
);
1331 TRACE("(%p)->(%s %p %p)\n", This
, debugstr_guid(riid
), supported
, enabled
);
1333 if(!supported
|| !enabled
) return E_POINTER
;
1335 *supported
= SAFETY_SUPPORTED_OPTIONS
;
1336 *enabled
= This
->safeopt
;
1341 static HRESULT WINAPI
httprequest_Safety_SetInterfaceSafetyOptions(IObjectSafety
*iface
, REFIID riid
,
1342 DWORD mask
, DWORD enabled
)
1344 httprequest
*This
= impl_from_IObjectSafety(iface
);
1345 TRACE("(%p)->(%s %x %x)\n", This
, debugstr_guid(riid
), mask
, enabled
);
1347 if ((mask
& ~SAFETY_SUPPORTED_OPTIONS
) != 0)
1350 This
->safeopt
= (This
->safeopt
& ~mask
) | (mask
& enabled
);
1355 #undef SAFETY_SUPPORTED_OPTIONS
1357 static const IObjectSafetyVtbl ObjectSafetyVtbl
= {
1358 httprequest_Safety_QueryInterface
,
1359 httprequest_Safety_AddRef
,
1360 httprequest_Safety_Release
,
1361 httprequest_Safety_GetInterfaceSafetyOptions
,
1362 httprequest_Safety_SetInterfaceSafetyOptions
1365 HRESULT
XMLHTTPRequest_create(IUnknown
*pUnkOuter
, void **ppObj
)
1370 TRACE("(%p,%p)\n", pUnkOuter
, ppObj
);
1372 req
= heap_alloc( sizeof (*req
) );
1374 return E_OUTOFMEMORY
;
1376 req
->IXMLHTTPRequest_iface
.lpVtbl
= &XMLHTTPRequestVtbl
;
1377 req
->IObjectWithSite_iface
.lpVtbl
= &ObjectWithSiteVtbl
;
1378 req
->IObjectSafety_iface
.lpVtbl
= &ObjectSafetyVtbl
;
1384 req
->url
= req
->user
= req
->password
= NULL
;
1386 req
->state
= READYSTATE_UNINITIALIZED
;
1391 req
->reqheader_size
= 0;
1392 req
->raw_respheaders
= NULL
;
1393 req
->use_utf8_content
= FALSE
;
1395 list_init(&req
->reqheaders
);
1396 list_init(&req
->respheaders
);
1401 *ppObj
= &req
->IXMLHTTPRequest_iface
;
1403 TRACE("returning iface %p\n", *ppObj
);
1410 HRESULT
XMLHTTPRequest_create(IUnknown
*pUnkOuter
, void **ppObj
)
1412 MESSAGE("This program tried to use a XMLHTTPRequest object, but\n"
1413 "libxml2 support was not present at compile time.\n");