2 * IXMLHTTPRequest implementation
4 * Copyright 2008 Alistair Leslie-Hughes
5 * Copyright 2010-2012 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
31 static const WCHAR colspaceW
[] = {':',' ',0};
32 static const WCHAR crlfW
[] = {'\r','\n',0};
33 static const DWORD safety_supported_options
=
34 INTERFACESAFE_FOR_UNTRUSTED_CALLER
|
35 INTERFACESAFE_FOR_UNTRUSTED_DATA
|
36 INTERFACE_USES_SECURITY_MANAGER
;
38 typedef struct BindStatusCallback BindStatusCallback
;
49 IXMLHTTPRequest IXMLHTTPRequest_iface
;
50 IObjectWithSite IObjectWithSite_iface
;
51 IObjectSafety IObjectSafety_iface
;
63 struct list reqheaders
;
64 /* cached resulting custom request headers string length in WCHARs */
66 /* use UTF-8 content type */
67 BOOL use_utf8_content
;
69 /* response headers */
70 struct list respheaders
;
78 BindStatusCallback
*bsc
;
92 IServerXMLHTTPRequest IServerXMLHTTPRequest_iface
;
96 static inline httprequest
*impl_from_IXMLHTTPRequest( IXMLHTTPRequest
*iface
)
98 return CONTAINING_RECORD(iface
, httprequest
, IXMLHTTPRequest_iface
);
101 static inline httprequest
*impl_from_IObjectWithSite(IObjectWithSite
*iface
)
103 return CONTAINING_RECORD(iface
, httprequest
, IObjectWithSite_iface
);
106 static inline httprequest
*impl_from_IObjectSafety(IObjectSafety
*iface
)
108 return CONTAINING_RECORD(iface
, httprequest
, IObjectSafety_iface
);
111 static inline serverhttp
*impl_from_IServerXMLHTTPRequest(IServerXMLHTTPRequest
*iface
)
113 return CONTAINING_RECORD(iface
, serverhttp
, IServerXMLHTTPRequest_iface
);
116 static void httprequest_setreadystate(httprequest
*This
, READYSTATE state
)
118 READYSTATE last
= This
->state
;
119 static const char* readystates
[] = {
120 "READYSTATE_UNINITIALIZED",
121 "READYSTATE_LOADING",
123 "READYSTATE_INTERACTIVE",
124 "READYSTATE_COMPLETE"};
128 TRACE("state %s\n", readystates
[state
]);
130 if (This
->sink
&& last
!= state
)
134 memset(¶ms
, 0, sizeof(params
));
135 IDispatch_Invoke(This
->sink
, 0, &IID_NULL
, LOCALE_SYSTEM_DEFAULT
, DISPATCH_METHOD
, ¶ms
, 0, 0, 0);
139 static void free_response_headers(httprequest
*This
)
141 struct httpheader
*header
, *header2
;
143 LIST_FOR_EACH_ENTRY_SAFE(header
, header2
, &This
->respheaders
, struct httpheader
, entry
)
145 list_remove(&header
->entry
);
146 SysFreeString(header
->header
);
147 SysFreeString(header
->value
);
151 SysFreeString(This
->raw_respheaders
);
152 This
->raw_respheaders
= NULL
;
155 struct BindStatusCallback
157 IBindStatusCallback IBindStatusCallback_iface
;
158 IHttpNegotiate IHttpNegotiate_iface
;
159 IAuthenticate IAuthenticate_iface
;
163 httprequest
*request
;
168 /* request body data */
172 static inline BindStatusCallback
*impl_from_IBindStatusCallback( IBindStatusCallback
*iface
)
174 return CONTAINING_RECORD(iface
, BindStatusCallback
, IBindStatusCallback_iface
);
177 static inline BindStatusCallback
*impl_from_IHttpNegotiate( IHttpNegotiate
*iface
)
179 return CONTAINING_RECORD(iface
, BindStatusCallback
, IHttpNegotiate_iface
);
182 static inline BindStatusCallback
*impl_from_IAuthenticate( IAuthenticate
*iface
)
184 return CONTAINING_RECORD(iface
, BindStatusCallback
, IAuthenticate_iface
);
187 static void BindStatusCallback_Detach(BindStatusCallback
*bsc
)
191 if (bsc
->binding
) IBinding_Abort(bsc
->binding
);
192 bsc
->request
->bsc
= NULL
;
194 IBindStatusCallback_Release(&bsc
->IBindStatusCallback_iface
);
198 static HRESULT WINAPI
BindStatusCallback_QueryInterface(IBindStatusCallback
*iface
,
199 REFIID riid
, void **ppv
)
201 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
205 TRACE("(%p)->(%s, %p)\n", This
, debugstr_guid(riid
), ppv
);
207 if (IsEqualGUID(&IID_IUnknown
, riid
) ||
208 IsEqualGUID(&IID_IBindStatusCallback
, riid
))
210 *ppv
= &This
->IBindStatusCallback_iface
;
212 else if (IsEqualGUID(&IID_IHttpNegotiate
, riid
))
214 *ppv
= &This
->IHttpNegotiate_iface
;
216 else if (IsEqualGUID(&IID_IAuthenticate
, riid
))
218 *ppv
= &This
->IAuthenticate_iface
;
220 else if (IsEqualGUID(&IID_IServiceProvider
, riid
) ||
221 IsEqualGUID(&IID_IBindStatusCallbackEx
, riid
) ||
222 IsEqualGUID(&IID_IInternetProtocol
, riid
) ||
223 IsEqualGUID(&IID_IHttpNegotiate2
, riid
))
225 return E_NOINTERFACE
;
230 IBindStatusCallback_AddRef(iface
);
234 FIXME("Unsupported riid = %s\n", debugstr_guid(riid
));
236 return E_NOINTERFACE
;
239 static ULONG WINAPI
BindStatusCallback_AddRef(IBindStatusCallback
*iface
)
241 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
242 LONG ref
= InterlockedIncrement(&This
->ref
);
244 TRACE("(%p) ref = %d\n", This
, ref
);
249 static ULONG WINAPI
BindStatusCallback_Release(IBindStatusCallback
*iface
)
251 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
252 LONG ref
= InterlockedDecrement(&This
->ref
);
254 TRACE("(%p) ref = %d\n", This
, ref
);
258 if (This
->binding
) IBinding_Release(This
->binding
);
259 if (This
->stream
) IStream_Release(This
->stream
);
260 if (This
->body
) GlobalFree(This
->body
);
267 static HRESULT WINAPI
BindStatusCallback_OnStartBinding(IBindStatusCallback
*iface
,
268 DWORD reserved
, IBinding
*pbind
)
270 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
272 TRACE("(%p)->(%d %p)\n", This
, reserved
, pbind
);
274 if (!pbind
) return E_INVALIDARG
;
276 This
->binding
= pbind
;
277 IBinding_AddRef(pbind
);
279 httprequest_setreadystate(This
->request
, READYSTATE_LOADED
);
281 return CreateStreamOnHGlobal(NULL
, TRUE
, &This
->stream
);
284 static HRESULT WINAPI
BindStatusCallback_GetPriority(IBindStatusCallback
*iface
, LONG
*pPriority
)
286 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
288 TRACE("(%p)->(%p)\n", This
, pPriority
);
293 static HRESULT WINAPI
BindStatusCallback_OnLowResource(IBindStatusCallback
*iface
, DWORD reserved
)
295 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
297 TRACE("(%p)->(%d)\n", This
, reserved
);
302 static HRESULT WINAPI
BindStatusCallback_OnProgress(IBindStatusCallback
*iface
, ULONG ulProgress
,
303 ULONG ulProgressMax
, ULONG ulStatusCode
, LPCWSTR szStatusText
)
305 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
307 TRACE("(%p)->(%u %u %u %s)\n", This
, ulProgress
, ulProgressMax
, ulStatusCode
,
308 debugstr_w(szStatusText
));
313 static HRESULT WINAPI
BindStatusCallback_OnStopBinding(IBindStatusCallback
*iface
,
314 HRESULT hr
, LPCWSTR error
)
316 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
318 TRACE("(%p)->(0x%08x %s)\n", This
, hr
, debugstr_w(error
));
322 IBinding_Release(This
->binding
);
323 This
->binding
= NULL
;
328 BindStatusCallback_Detach(This
->request
->bsc
);
329 This
->request
->bsc
= This
;
330 httprequest_setreadystate(This
->request
, READYSTATE_COMPLETE
);
336 static HRESULT WINAPI
BindStatusCallback_GetBindInfo(IBindStatusCallback
*iface
,
337 DWORD
*bind_flags
, BINDINFO
*pbindinfo
)
339 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
341 TRACE("(%p)->(%p %p)\n", This
, bind_flags
, pbindinfo
);
344 if (This
->request
->async
) *bind_flags
|= BINDF_ASYNCHRONOUS
;
346 if (This
->request
->verb
!= BINDVERB_GET
&& This
->body
)
348 pbindinfo
->stgmedData
.tymed
= TYMED_HGLOBAL
;
349 pbindinfo
->stgmedData
.u
.hGlobal
= This
->body
;
350 pbindinfo
->cbstgmedData
= GlobalSize(This
->body
);
351 /* callback owns passed body pointer */
352 IBindStatusCallback_QueryInterface(iface
, &IID_IUnknown
, (void**)&pbindinfo
->stgmedData
.pUnkForRelease
);
355 pbindinfo
->dwBindVerb
= This
->request
->verb
;
356 if (This
->request
->verb
== BINDVERB_CUSTOM
)
358 pbindinfo
->szCustomVerb
= CoTaskMemAlloc(SysStringByteLen(This
->request
->custom
));
359 strcpyW(pbindinfo
->szCustomVerb
, This
->request
->custom
);
365 static HRESULT WINAPI
BindStatusCallback_OnDataAvailable(IBindStatusCallback
*iface
,
366 DWORD flags
, DWORD size
, FORMATETC
*format
, STGMEDIUM
*stgmed
)
368 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
373 TRACE("(%p)->(%08x %d %p %p)\n", This
, flags
, size
, format
, stgmed
);
377 hr
= IStream_Read(stgmed
->u
.pstm
, buf
, sizeof(buf
), &read
);
378 if (hr
!= S_OK
) break;
380 hr
= IStream_Write(This
->stream
, buf
, read
, &written
);
381 } while((hr
== S_OK
) && written
!= 0 && read
!= 0);
383 httprequest_setreadystate(This
->request
, READYSTATE_INTERACTIVE
);
388 static HRESULT WINAPI
BindStatusCallback_OnObjectAvailable(IBindStatusCallback
*iface
,
389 REFIID riid
, IUnknown
*punk
)
391 BindStatusCallback
*This
= impl_from_IBindStatusCallback(iface
);
393 FIXME("(%p)->(%s %p): stub\n", This
, debugstr_guid(riid
), punk
);
398 static const IBindStatusCallbackVtbl BindStatusCallbackVtbl
= {
399 BindStatusCallback_QueryInterface
,
400 BindStatusCallback_AddRef
,
401 BindStatusCallback_Release
,
402 BindStatusCallback_OnStartBinding
,
403 BindStatusCallback_GetPriority
,
404 BindStatusCallback_OnLowResource
,
405 BindStatusCallback_OnProgress
,
406 BindStatusCallback_OnStopBinding
,
407 BindStatusCallback_GetBindInfo
,
408 BindStatusCallback_OnDataAvailable
,
409 BindStatusCallback_OnObjectAvailable
412 static HRESULT WINAPI
BSCHttpNegotiate_QueryInterface(IHttpNegotiate
*iface
,
413 REFIID riid
, void **ppv
)
415 BindStatusCallback
*This
= impl_from_IHttpNegotiate(iface
);
416 return IBindStatusCallback_QueryInterface(&This
->IBindStatusCallback_iface
, riid
, ppv
);
419 static ULONG WINAPI
BSCHttpNegotiate_AddRef(IHttpNegotiate
*iface
)
421 BindStatusCallback
*This
= impl_from_IHttpNegotiate(iface
);
422 return IBindStatusCallback_AddRef(&This
->IBindStatusCallback_iface
);
425 static ULONG WINAPI
BSCHttpNegotiate_Release(IHttpNegotiate
*iface
)
427 BindStatusCallback
*This
= impl_from_IHttpNegotiate(iface
);
428 return IBindStatusCallback_Release(&This
->IBindStatusCallback_iface
);
431 static HRESULT WINAPI
BSCHttpNegotiate_BeginningTransaction(IHttpNegotiate
*iface
,
432 LPCWSTR url
, LPCWSTR headers
, DWORD reserved
, LPWSTR
*add_headers
)
434 static const WCHAR content_type_utf8W
[] = {'C','o','n','t','e','n','t','-','T','y','p','e',':',' ',
435 't','e','x','t','/','p','l','a','i','n',';','c','h','a','r','s','e','t','=','u','t','f','-','8','\r','\n',0};
436 static const WCHAR refererW
[] = {'R','e','f','e','r','e','r',':',' ',0};
438 BindStatusCallback
*This
= impl_from_IHttpNegotiate(iface
);
439 const struct httpheader
*entry
;
440 BSTR base_uri
= NULL
;
444 TRACE("(%p)->(%s %s %d %p)\n", This
, debugstr_w(url
), debugstr_w(headers
), reserved
, add_headers
);
448 if (This
->request
->use_utf8_content
)
449 size
= sizeof(content_type_utf8W
);
451 if (!list_empty(&This
->request
->reqheaders
))
452 size
+= This
->request
->reqheader_size
*sizeof(WCHAR
);
454 if (This
->request
->base_uri
)
456 IUri_GetRawUri(This
->request
->base_uri
, &base_uri
);
457 size
+= SysStringLen(base_uri
)*sizeof(WCHAR
) + sizeof(refererW
) + sizeof(crlfW
);
462 SysFreeString(base_uri
);
466 buff
= CoTaskMemAlloc(size
);
469 SysFreeString(base_uri
);
470 return E_OUTOFMEMORY
;
474 if (This
->request
->use_utf8_content
)
476 lstrcpyW(ptr
, content_type_utf8W
);
477 ptr
+= sizeof(content_type_utf8W
)/sizeof(WCHAR
)-1;
482 strcpyW(ptr
, refererW
);
483 strcatW(ptr
, base_uri
);
485 ptr
+= strlenW(refererW
) + SysStringLen(base_uri
) + strlenW(crlfW
);
486 SysFreeString(base_uri
);
490 LIST_FOR_EACH_ENTRY(entry
, &This
->request
->reqheaders
, struct httpheader
, entry
)
492 lstrcpyW(ptr
, entry
->header
);
493 ptr
+= SysStringLen(entry
->header
);
495 lstrcpyW(ptr
, colspaceW
);
496 ptr
+= sizeof(colspaceW
)/sizeof(WCHAR
)-1;
498 lstrcpyW(ptr
, entry
->value
);
499 ptr
+= SysStringLen(entry
->value
);
501 lstrcpyW(ptr
, crlfW
);
502 ptr
+= sizeof(crlfW
)/sizeof(WCHAR
)-1;
510 static void add_response_header(httprequest
*This
, const WCHAR
*data
, int len
)
512 struct httpheader
*entry
;
513 const WCHAR
*ptr
= data
;
520 header
= SysAllocStringLen(data
, ptr
-data
);
521 /* skip leading spaces for a value */
522 while (*++ptr
== ' ')
524 value
= SysAllocStringLen(ptr
, len
-(ptr
-data
));
533 TRACE("got header %s:%s\n", debugstr_w(header
), debugstr_w(value
));
535 entry
= heap_alloc(sizeof(*entry
));
536 entry
->header
= header
;
537 entry
->value
= value
;
538 list_add_head(&This
->respheaders
, &entry
->entry
);
541 static HRESULT WINAPI
BSCHttpNegotiate_OnResponse(IHttpNegotiate
*iface
, DWORD code
,
542 LPCWSTR resp_headers
, LPCWSTR req_headers
, LPWSTR
*add_reqheaders
)
544 BindStatusCallback
*This
= impl_from_IHttpNegotiate(iface
);
546 TRACE("(%p)->(%d %s %s %p)\n", This
, code
, debugstr_w(resp_headers
),
547 debugstr_w(req_headers
), add_reqheaders
);
549 This
->request
->status
= code
;
550 /* store headers and status text */
551 free_response_headers(This
->request
);
552 SysFreeString(This
->request
->status_text
);
553 This
->request
->status_text
= NULL
;
556 const WCHAR
*ptr
, *line
, *status_text
;
558 ptr
= line
= resp_headers
;
560 /* skip HTTP-Version */
561 ptr
= strchrW(ptr
, ' ');
564 /* skip Status-Code */
565 ptr
= strchrW(++ptr
, ' ');
569 /* now it supposed to end with CRLF */
572 if (*ptr
== '\r' && *(ptr
+1) == '\n')
575 This
->request
->status_text
= SysAllocStringLen(status_text
, ptr
-status_text
);
576 TRACE("status text %s\n", debugstr_w(This
->request
->status_text
));
584 /* store as unparsed string for now */
585 This
->request
->raw_respheaders
= SysAllocString(line
);
591 static const IHttpNegotiateVtbl BSCHttpNegotiateVtbl
= {
592 BSCHttpNegotiate_QueryInterface
,
593 BSCHttpNegotiate_AddRef
,
594 BSCHttpNegotiate_Release
,
595 BSCHttpNegotiate_BeginningTransaction
,
596 BSCHttpNegotiate_OnResponse
599 static HRESULT WINAPI
Authenticate_QueryInterface(IAuthenticate
*iface
,
600 REFIID riid
, void **ppv
)
602 BindStatusCallback
*This
= impl_from_IAuthenticate(iface
);
603 return IBindStatusCallback_QueryInterface(&This
->IBindStatusCallback_iface
, riid
, ppv
);
606 static ULONG WINAPI
Authenticate_AddRef(IAuthenticate
*iface
)
608 BindStatusCallback
*This
= impl_from_IAuthenticate(iface
);
609 return IBindStatusCallback_AddRef(&This
->IBindStatusCallback_iface
);
612 static ULONG WINAPI
Authenticate_Release(IAuthenticate
*iface
)
614 BindStatusCallback
*This
= impl_from_IAuthenticate(iface
);
615 return IBindStatusCallback_Release(&This
->IBindStatusCallback_iface
);
618 static HRESULT WINAPI
Authenticate_Authenticate(IAuthenticate
*iface
,
619 HWND
*hwnd
, LPWSTR
*username
, LPWSTR
*password
)
621 BindStatusCallback
*This
= impl_from_IAuthenticate(iface
);
622 httprequest
*request
= This
->request
;
624 TRACE("(%p)->(%p %p %p)\n", This
, hwnd
, username
, password
);
626 if (request
->user
&& *request
->user
)
628 if (hwnd
) *hwnd
= NULL
;
629 *username
= CoTaskMemAlloc(SysStringByteLen(request
->user
)+sizeof(WCHAR
));
630 *password
= CoTaskMemAlloc(SysStringByteLen(request
->password
)+sizeof(WCHAR
));
631 if (!*username
|| !*password
)
633 CoTaskMemFree(*username
);
634 CoTaskMemFree(*password
);
635 return E_OUTOFMEMORY
;
638 memcpy(*username
, request
->user
, SysStringByteLen(request
->user
)+sizeof(WCHAR
));
639 memcpy(*password
, request
->password
, SysStringByteLen(request
->password
)+sizeof(WCHAR
));
645 static const IAuthenticateVtbl AuthenticateVtbl
= {
646 Authenticate_QueryInterface
,
648 Authenticate_Release
,
649 Authenticate_Authenticate
652 static HRESULT
BindStatusCallback_create(httprequest
* This
, BindStatusCallback
**obj
, const VARIANT
*body
)
654 BindStatusCallback
*bsc
;
659 hr
= CreateBindCtx(0, &pbc
);
660 if (hr
!= S_OK
) return hr
;
662 bsc
= heap_alloc(sizeof(*bsc
));
665 IBindCtx_Release(pbc
);
666 return E_OUTOFMEMORY
;
669 bsc
->IBindStatusCallback_iface
.lpVtbl
= &BindStatusCallbackVtbl
;
670 bsc
->IHttpNegotiate_iface
.lpVtbl
= &BSCHttpNegotiateVtbl
;
671 bsc
->IAuthenticate_iface
.lpVtbl
= &AuthenticateVtbl
;
678 TRACE("(%p)->(%p)\n", This
, bsc
);
680 This
->use_utf8_content
= FALSE
;
682 if (This
->verb
!= BINDVERB_GET
)
684 void *send_data
, *ptr
;
685 SAFEARRAY
*sa
= NULL
;
687 if (V_VT(body
) == (VT_VARIANT
|VT_BYREF
))
688 body
= V_VARIANTREF(body
);
694 int len
= SysStringLen(V_BSTR(body
));
695 const WCHAR
*str
= V_BSTR(body
);
698 for (i
= 0; i
< len
; i
++)
707 size
= WideCharToMultiByte(cp
, 0, str
, len
, NULL
, 0, NULL
, NULL
);
708 if (!(ptr
= heap_alloc(size
)))
711 return E_OUTOFMEMORY
;
713 WideCharToMultiByte(cp
, 0, str
, len
, ptr
, size
, NULL
, NULL
);
714 if (cp
== CP_UTF8
) This
->use_utf8_content
= TRUE
;
717 case VT_ARRAY
|VT_UI1
:
720 if ((hr
= SafeArrayAccessData(sa
, (void **)&ptr
)) != S_OK
)
725 if ((hr
= SafeArrayGetUBound(sa
, 1, &size
)) != S_OK
)
727 SafeArrayUnaccessData(sa
);
735 FIXME("unsupported body data type %d\n", V_VT(body
));
747 bsc
->body
= GlobalAlloc(GMEM_FIXED
, size
);
750 if (V_VT(body
) == VT_BSTR
)
752 else if (V_VT(body
) == (VT_ARRAY
|VT_UI1
))
753 SafeArrayUnaccessData(sa
);
756 return E_OUTOFMEMORY
;
759 send_data
= GlobalLock(bsc
->body
);
760 memcpy(send_data
, ptr
, size
);
761 GlobalUnlock(bsc
->body
);
764 if (V_VT(body
) == VT_BSTR
)
766 else if (V_VT(body
) == (VT_ARRAY
|VT_UI1
))
767 SafeArrayUnaccessData(sa
);
770 hr
= RegisterBindStatusCallback(pbc
, &bsc
->IBindStatusCallback_iface
, NULL
, 0);
775 hr
= CreateURLMonikerEx2(NULL
, This
->uri
, &moniker
, URL_MK_UNIFORM
);
780 hr
= IMoniker_BindToStorage(moniker
, pbc
, NULL
, &IID_IStream
, (void**)&stream
);
781 IMoniker_Release(moniker
);
782 if (stream
) IStream_Release(stream
);
784 IBindCtx_Release(pbc
);
789 IBindStatusCallback_Release(&bsc
->IBindStatusCallback_iface
);
797 static HRESULT
verify_uri(httprequest
*This
, IUri
*uri
)
799 DWORD scheme
, base_scheme
;
800 BSTR host
, base_host
;
803 if(!(This
->safeopt
& INTERFACESAFE_FOR_UNTRUSTED_DATA
))
807 return E_ACCESSDENIED
;
809 hr
= IUri_GetScheme(uri
, &scheme
);
813 hr
= IUri_GetScheme(This
->base_uri
, &base_scheme
);
817 if(scheme
!= base_scheme
) {
818 WARN("Schemes don't match\n");
819 return E_ACCESSDENIED
;
822 if(scheme
== INTERNET_SCHEME_UNKNOWN
) {
823 FIXME("Unknown scheme\n");
824 return E_ACCESSDENIED
;
827 hr
= IUri_GetHost(uri
, &host
);
831 hr
= IUri_GetHost(This
->base_uri
, &base_host
);
833 if(strcmpiW(host
, base_host
)) {
834 WARN("Hosts don't match\n");
837 SysFreeString(base_host
);
844 static HRESULT
httprequest_open(httprequest
*This
, BSTR method
, BSTR url
,
845 VARIANT async
, VARIANT user
, VARIANT password
)
847 static const WCHAR MethodGetW
[] = {'G','E','T',0};
848 static const WCHAR MethodPutW
[] = {'P','U','T',0};
849 static const WCHAR MethodPostW
[] = {'P','O','S','T',0};
850 static const WCHAR MethodDeleteW
[] = {'D','E','L','E','T','E',0};
851 static const WCHAR MethodPropFindW
[] = {'P','R','O','P','F','I','N','D',0};
852 VARIANT str
, is_async
;
856 if (!method
|| !url
) return E_INVALIDARG
;
858 /* free previously set data */
860 IUri_Release(This
->uri
);
864 SysFreeString(This
->user
);
865 SysFreeString(This
->password
);
866 This
->user
= This
->password
= NULL
;
868 if (!strcmpiW(method
, MethodGetW
))
870 This
->verb
= BINDVERB_GET
;
872 else if (!strcmpiW(method
, MethodPutW
))
874 This
->verb
= BINDVERB_PUT
;
876 else if (!strcmpiW(method
, MethodPostW
))
878 This
->verb
= BINDVERB_POST
;
880 else if (!strcmpiW(method
, MethodDeleteW
) ||
881 !strcmpiW(method
, MethodPropFindW
))
883 This
->verb
= BINDVERB_CUSTOM
;
884 SysReAllocString(&This
->custom
, method
);
888 FIXME("unsupported request type %s\n", debugstr_w(method
));
894 hr
= CoInternetCombineUrlEx(This
->base_uri
, url
, 0, &uri
, 0);
896 hr
= CreateUri(url
, 0, 0, &uri
);
898 WARN("Could not create IUri object: %08x\n", hr
);
902 hr
= verify_uri(This
, uri
);
909 hr
= VariantChangeType(&str
, &user
, 0, VT_BSTR
);
911 This
->user
= V_BSTR(&str
);
914 hr
= VariantChangeType(&str
, &password
, 0, VT_BSTR
);
916 This
->password
= V_BSTR(&str
);
918 /* add authentication info */
919 if (This
->user
&& *This
->user
)
921 IUriBuilder
*builder
;
923 hr
= CreateIUriBuilder(uri
, 0, 0, &builder
);
928 IUriBuilder_SetUserName(builder
, This
->user
);
929 IUriBuilder_SetPassword(builder
, This
->password
);
930 hr
= IUriBuilder_CreateUri(builder
, -1, 0, 0, &full_uri
);
937 WARN("failed to create modified uri, 0x%08x\n", hr
);
938 IUriBuilder_Release(builder
);
941 WARN("IUriBuilder creation failed, 0x%08x\n", hr
);
946 VariantInit(&is_async
);
947 hr
= VariantChangeType(&is_async
, &async
, 0, VT_BOOL
);
948 This
->async
= hr
== S_OK
&& V_BOOL(&is_async
);
950 httprequest_setreadystate(This
, READYSTATE_LOADING
);
955 static HRESULT
httprequest_setRequestHeader(httprequest
*This
, BSTR header
, BSTR value
)
957 struct httpheader
*entry
;
959 if (!header
|| !*header
) return E_INVALIDARG
;
960 if (This
->state
!= READYSTATE_LOADING
) return E_FAIL
;
961 if (!value
) return E_INVALIDARG
;
963 /* replace existing header value if already added */
964 LIST_FOR_EACH_ENTRY(entry
, &This
->reqheaders
, struct httpheader
, entry
)
966 if (lstrcmpW(entry
->header
, header
) == 0)
968 LONG length
= SysStringLen(entry
->value
);
971 hr
= SysReAllocString(&entry
->value
, value
) ? S_OK
: E_OUTOFMEMORY
;
974 This
->reqheader_size
+= (SysStringLen(entry
->value
) - length
);
980 entry
= heap_alloc(sizeof(*entry
));
981 if (!entry
) return E_OUTOFMEMORY
;
984 entry
->header
= SysAllocString(header
);
985 entry
->value
= SysAllocString(value
);
987 /* header length including null terminator */
988 This
->reqheader_size
+= SysStringLen(entry
->header
) + sizeof(colspaceW
)/sizeof(WCHAR
) +
989 SysStringLen(entry
->value
) + sizeof(crlfW
)/sizeof(WCHAR
) - 1;
991 list_add_head(&This
->reqheaders
, &entry
->entry
);
996 static HRESULT
httprequest_getResponseHeader(httprequest
*This
, BSTR header
, BSTR
*value
)
998 struct httpheader
*entry
;
1000 if (!header
) return E_INVALIDARG
;
1001 if (!value
) return E_POINTER
;
1003 if (This
->raw_respheaders
&& list_empty(&This
->respheaders
))
1007 ptr
= line
= This
->raw_respheaders
;
1010 if (*ptr
== '\r' && *(ptr
+1) == '\n')
1012 add_response_header(This
, line
, ptr
-line
);
1013 ptr
++; line
= ++ptr
;
1020 LIST_FOR_EACH_ENTRY(entry
, &This
->respheaders
, struct httpheader
, entry
)
1022 if (!strcmpiW(entry
->header
, header
))
1024 *value
= SysAllocString(entry
->value
);
1025 TRACE("header value %s\n", debugstr_w(*value
));
1033 static HRESULT
httprequest_getAllResponseHeaders(httprequest
*This
, BSTR
*respheaders
)
1035 if (!respheaders
) return E_POINTER
;
1037 *respheaders
= SysAllocString(This
->raw_respheaders
);
1042 static HRESULT
httprequest_send(httprequest
*This
, VARIANT body
)
1044 BindStatusCallback
*bsc
= NULL
;
1047 if (This
->state
!= READYSTATE_LOADING
) return E_FAIL
;
1049 hr
= BindStatusCallback_create(This
, &bsc
, &body
);
1051 /* success path to detach it is OnStopBinding call */
1052 BindStatusCallback_Detach(bsc
);
1057 static HRESULT
httprequest_abort(httprequest
*This
)
1059 BindStatusCallback_Detach(This
->bsc
);
1061 httprequest_setreadystate(This
, READYSTATE_UNINITIALIZED
);
1066 static HRESULT
httprequest_get_status(httprequest
*This
, LONG
*status
)
1068 if (!status
) return E_POINTER
;
1070 *status
= This
->status
;
1072 return This
->state
== READYSTATE_COMPLETE
? S_OK
: E_FAIL
;
1075 static HRESULT
httprequest_get_statusText(httprequest
*This
, BSTR
*status
)
1077 if (!status
) return E_POINTER
;
1078 if (This
->state
!= READYSTATE_COMPLETE
) return E_FAIL
;
1080 *status
= SysAllocString(This
->status_text
);
1085 static HRESULT
httprequest_get_responseText(httprequest
*This
, BSTR
*body
)
1090 if (!body
) return E_POINTER
;
1091 if (This
->state
!= READYSTATE_COMPLETE
) return E_FAIL
;
1093 hr
= GetHGlobalFromStream(This
->bsc
->stream
, &hglobal
);
1096 xmlChar
*ptr
= GlobalLock(hglobal
);
1097 DWORD size
= GlobalSize(hglobal
);
1098 xmlCharEncoding encoding
= XML_CHAR_ENCODING_UTF8
;
1100 /* try to determine data encoding */
1103 encoding
= xmlDetectCharEncoding(ptr
, 4);
1104 TRACE("detected encoding: %s\n", debugstr_a(xmlGetCharEncodingName(encoding
)));
1105 if ( encoding
!= XML_CHAR_ENCODING_UTF8
&&
1106 encoding
!= XML_CHAR_ENCODING_UTF16LE
&&
1107 encoding
!= XML_CHAR_ENCODING_NONE
)
1109 FIXME("unsupported encoding: %s\n", debugstr_a(xmlGetCharEncodingName(encoding
)));
1110 GlobalUnlock(hglobal
);
1115 /* without BOM assume UTF-8 */
1116 if (encoding
== XML_CHAR_ENCODING_UTF8
||
1117 encoding
== XML_CHAR_ENCODING_NONE
)
1119 DWORD length
= MultiByteToWideChar(CP_UTF8
, 0, (LPCSTR
)ptr
, size
, NULL
, 0);
1121 *body
= SysAllocStringLen(NULL
, length
);
1123 MultiByteToWideChar( CP_UTF8
, 0, (LPCSTR
)ptr
, size
, *body
, length
);
1126 *body
= SysAllocStringByteLen((LPCSTR
)ptr
, size
);
1128 if (!*body
) hr
= E_OUTOFMEMORY
;
1129 GlobalUnlock(hglobal
);
1135 static HRESULT
httprequest_get_responseXML(httprequest
*This
, IDispatch
**body
)
1137 IXMLDOMDocument3
*doc
;
1141 if (!body
) return E_INVALIDARG
;
1142 if (This
->state
!= READYSTATE_COMPLETE
) return E_FAIL
;
1144 hr
= DOMDocument_create(MSXML_DEFAULT
, (void**)&doc
);
1145 if (hr
!= S_OK
) return hr
;
1147 hr
= httprequest_get_responseText(This
, &str
);
1152 hr
= IXMLDOMDocument3_loadXML(doc
, str
, &ok
);
1156 IXMLDOMDocument3_QueryInterface(doc
, &IID_IDispatch
, (void**)body
);
1157 IXMLDOMDocument3_Release(doc
);
1162 static HRESULT
httprequest_get_responseBody(httprequest
*This
, VARIANT
*body
)
1167 if (!body
) return E_INVALIDARG
;
1168 V_VT(body
) = VT_EMPTY
;
1170 if (This
->state
!= READYSTATE_COMPLETE
) return E_PENDING
;
1172 hr
= GetHGlobalFromStream(This
->bsc
->stream
, &hglobal
);
1175 void *ptr
= GlobalLock(hglobal
);
1176 DWORD size
= GlobalSize(hglobal
);
1178 SAFEARRAYBOUND bound
;
1182 bound
.cElements
= size
;
1183 array
= SafeArrayCreate(VT_UI1
, 1, &bound
);
1189 V_VT(body
) = VT_ARRAY
| VT_UI1
;
1190 V_ARRAY(body
) = array
;
1192 hr
= SafeArrayAccessData(array
, &dest
);
1195 memcpy(dest
, ptr
, size
);
1196 SafeArrayUnaccessData(array
);
1206 GlobalUnlock(hglobal
);
1212 static HRESULT
httprequest_get_responseStream(httprequest
*This
, VARIANT
*body
)
1218 if (!body
) return E_INVALIDARG
;
1219 V_VT(body
) = VT_EMPTY
;
1221 if (This
->state
!= READYSTATE_COMPLETE
) return E_PENDING
;
1223 hr
= IStream_Clone(This
->bsc
->stream
, &stream
);
1226 IStream_Seek(stream
, move
, STREAM_SEEK_SET
, NULL
);
1228 V_VT(body
) = VT_UNKNOWN
;
1229 V_UNKNOWN(body
) = (IUnknown
*)stream
;
1234 static HRESULT
httprequest_get_readyState(httprequest
*This
, LONG
*state
)
1236 if (!state
) return E_POINTER
;
1238 *state
= This
->state
;
1242 static HRESULT
httprequest_put_onreadystatechange(httprequest
*This
, IDispatch
*sink
)
1244 if (This
->sink
) IDispatch_Release(This
->sink
);
1245 if ((This
->sink
= sink
)) IDispatch_AddRef(This
->sink
);
1250 static void httprequest_release(httprequest
*This
)
1252 struct httpheader
*header
, *header2
;
1255 IUnknown_Release( This
->site
);
1257 IUri_Release(This
->uri
);
1259 IUri_Release(This
->base_uri
);
1261 SysFreeString(This
->custom
);
1262 SysFreeString(This
->user
);
1263 SysFreeString(This
->password
);
1265 /* request headers */
1266 LIST_FOR_EACH_ENTRY_SAFE(header
, header2
, &This
->reqheaders
, struct httpheader
, entry
)
1268 list_remove(&header
->entry
);
1269 SysFreeString(header
->header
);
1270 SysFreeString(header
->value
);
1273 /* response headers */
1274 free_response_headers(This
);
1275 SysFreeString(This
->status_text
);
1277 /* detach callback object */
1278 BindStatusCallback_Detach(This
->bsc
);
1280 if (This
->sink
) IDispatch_Release(This
->sink
);
1283 static HRESULT WINAPI
XMLHTTPRequest_QueryInterface(IXMLHTTPRequest
*iface
, REFIID riid
, void **ppvObject
)
1285 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1286 TRACE("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppvObject
);
1288 if ( IsEqualGUID( riid
, &IID_IXMLHTTPRequest
) ||
1289 IsEqualGUID( riid
, &IID_IDispatch
) ||
1290 IsEqualGUID( riid
, &IID_IUnknown
) )
1294 else if (IsEqualGUID(&IID_IObjectWithSite
, riid
))
1296 *ppvObject
= &This
->IObjectWithSite_iface
;
1298 else if (IsEqualGUID(&IID_IObjectSafety
, riid
))
1300 *ppvObject
= &This
->IObjectSafety_iface
;
1304 TRACE("Unsupported interface %s\n", debugstr_guid(riid
));
1306 return E_NOINTERFACE
;
1309 IXMLHTTPRequest_AddRef( iface
);
1314 static ULONG WINAPI
XMLHTTPRequest_AddRef(IXMLHTTPRequest
*iface
)
1316 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1317 ULONG ref
= InterlockedIncrement( &This
->ref
);
1318 TRACE("(%p)->(%u)\n", This
, ref
);
1322 static ULONG WINAPI
XMLHTTPRequest_Release(IXMLHTTPRequest
*iface
)
1324 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1325 ULONG ref
= InterlockedDecrement( &This
->ref
);
1327 TRACE("(%p)->(%u)\n", This
, ref
);
1331 httprequest_release( This
);
1338 static HRESULT WINAPI
XMLHTTPRequest_GetTypeInfoCount(IXMLHTTPRequest
*iface
, UINT
*pctinfo
)
1340 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1342 TRACE("(%p)->(%p)\n", This
, pctinfo
);
1349 static HRESULT WINAPI
XMLHTTPRequest_GetTypeInfo(IXMLHTTPRequest
*iface
, UINT iTInfo
,
1350 LCID lcid
, ITypeInfo
**ppTInfo
)
1352 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1354 TRACE("(%p)->(%u %u %p)\n", This
, iTInfo
, lcid
, ppTInfo
);
1356 return get_typeinfo(IXMLHTTPRequest_tid
, ppTInfo
);
1359 static HRESULT WINAPI
XMLHTTPRequest_GetIDsOfNames(IXMLHTTPRequest
*iface
, REFIID riid
,
1360 LPOLESTR
*rgszNames
, UINT cNames
, LCID lcid
, DISPID
*rgDispId
)
1362 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1363 ITypeInfo
*typeinfo
;
1366 TRACE("(%p)->(%s %p %u %u %p)\n", This
, debugstr_guid(riid
), rgszNames
, cNames
,
1369 if(!rgszNames
|| cNames
== 0 || !rgDispId
)
1370 return E_INVALIDARG
;
1372 hr
= get_typeinfo(IXMLHTTPRequest_tid
, &typeinfo
);
1375 hr
= ITypeInfo_GetIDsOfNames(typeinfo
, rgszNames
, cNames
, rgDispId
);
1376 ITypeInfo_Release(typeinfo
);
1382 static HRESULT WINAPI
XMLHTTPRequest_Invoke(IXMLHTTPRequest
*iface
, DISPID dispIdMember
, REFIID riid
,
1383 LCID lcid
, WORD wFlags
, DISPPARAMS
*pDispParams
, VARIANT
*pVarResult
,
1384 EXCEPINFO
*pExcepInfo
, UINT
*puArgErr
)
1386 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1387 ITypeInfo
*typeinfo
;
1390 TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This
, dispIdMember
, debugstr_guid(riid
),
1391 lcid
, wFlags
, pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
1393 hr
= get_typeinfo(IXMLHTTPRequest_tid
, &typeinfo
);
1396 hr
= ITypeInfo_Invoke(typeinfo
, &This
->IXMLHTTPRequest_iface
, dispIdMember
, wFlags
,
1397 pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
1398 ITypeInfo_Release(typeinfo
);
1404 static HRESULT WINAPI
XMLHTTPRequest_open(IXMLHTTPRequest
*iface
, BSTR method
, BSTR url
,
1405 VARIANT async
, VARIANT user
, VARIANT password
)
1407 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1408 TRACE("(%p)->(%s %s %s)\n", This
, debugstr_w(method
), debugstr_w(url
),
1409 debugstr_variant(&async
));
1410 return httprequest_open(This
, method
, url
, async
, user
, password
);
1413 static HRESULT WINAPI
XMLHTTPRequest_setRequestHeader(IXMLHTTPRequest
*iface
, BSTR header
, BSTR value
)
1415 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1416 TRACE("(%p)->(%s %s)\n", This
, debugstr_w(header
), debugstr_w(value
));
1417 return httprequest_setRequestHeader(This
, header
, value
);
1420 static HRESULT WINAPI
XMLHTTPRequest_getResponseHeader(IXMLHTTPRequest
*iface
, BSTR header
, BSTR
*value
)
1422 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1423 TRACE("(%p)->(%s %p)\n", This
, debugstr_w(header
), value
);
1424 return httprequest_getResponseHeader(This
, header
, value
);
1427 static HRESULT WINAPI
XMLHTTPRequest_getAllResponseHeaders(IXMLHTTPRequest
*iface
, BSTR
*respheaders
)
1429 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1430 TRACE("(%p)->(%p)\n", This
, respheaders
);
1431 return httprequest_getAllResponseHeaders(This
, respheaders
);
1434 static HRESULT WINAPI
XMLHTTPRequest_send(IXMLHTTPRequest
*iface
, VARIANT body
)
1436 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1437 TRACE("(%p)->(%s)\n", This
, debugstr_variant(&body
));
1438 return httprequest_send(This
, body
);
1441 static HRESULT WINAPI
XMLHTTPRequest_abort(IXMLHTTPRequest
*iface
)
1443 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1444 TRACE("(%p)\n", This
);
1445 return httprequest_abort(This
);
1448 static HRESULT WINAPI
XMLHTTPRequest_get_status(IXMLHTTPRequest
*iface
, LONG
*status
)
1450 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1451 TRACE("(%p)->(%p)\n", This
, status
);
1452 return httprequest_get_status(This
, status
);
1455 static HRESULT WINAPI
XMLHTTPRequest_get_statusText(IXMLHTTPRequest
*iface
, BSTR
*status
)
1457 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1458 TRACE("(%p)->(%p)\n", This
, status
);
1459 return httprequest_get_statusText(This
, status
);
1462 static HRESULT WINAPI
XMLHTTPRequest_get_responseXML(IXMLHTTPRequest
*iface
, IDispatch
**body
)
1464 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1465 TRACE("(%p)->(%p)\n", This
, body
);
1466 return httprequest_get_responseXML(This
, body
);
1469 static HRESULT WINAPI
XMLHTTPRequest_get_responseText(IXMLHTTPRequest
*iface
, BSTR
*body
)
1471 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1472 TRACE("(%p)->(%p)\n", This
, body
);
1473 return httprequest_get_responseText(This
, body
);
1476 static HRESULT WINAPI
XMLHTTPRequest_get_responseBody(IXMLHTTPRequest
*iface
, VARIANT
*body
)
1478 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1479 TRACE("(%p)->(%p)\n", This
, body
);
1480 return httprequest_get_responseBody(This
, body
);
1483 static HRESULT WINAPI
XMLHTTPRequest_get_responseStream(IXMLHTTPRequest
*iface
, VARIANT
*body
)
1485 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1486 TRACE("(%p)->(%p)\n", This
, body
);
1487 return httprequest_get_responseStream(This
, body
);
1490 static HRESULT WINAPI
XMLHTTPRequest_get_readyState(IXMLHTTPRequest
*iface
, LONG
*state
)
1492 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1493 TRACE("(%p)->(%p)\n", This
, state
);
1494 return httprequest_get_readyState(This
, state
);
1497 static HRESULT WINAPI
XMLHTTPRequest_put_onreadystatechange(IXMLHTTPRequest
*iface
, IDispatch
*sink
)
1499 httprequest
*This
= impl_from_IXMLHTTPRequest( iface
);
1500 TRACE("(%p)->(%p)\n", This
, sink
);
1501 return httprequest_put_onreadystatechange(This
, sink
);
1504 static const struct IXMLHTTPRequestVtbl XMLHTTPRequestVtbl
=
1506 XMLHTTPRequest_QueryInterface
,
1507 XMLHTTPRequest_AddRef
,
1508 XMLHTTPRequest_Release
,
1509 XMLHTTPRequest_GetTypeInfoCount
,
1510 XMLHTTPRequest_GetTypeInfo
,
1511 XMLHTTPRequest_GetIDsOfNames
,
1512 XMLHTTPRequest_Invoke
,
1513 XMLHTTPRequest_open
,
1514 XMLHTTPRequest_setRequestHeader
,
1515 XMLHTTPRequest_getResponseHeader
,
1516 XMLHTTPRequest_getAllResponseHeaders
,
1517 XMLHTTPRequest_send
,
1518 XMLHTTPRequest_abort
,
1519 XMLHTTPRequest_get_status
,
1520 XMLHTTPRequest_get_statusText
,
1521 XMLHTTPRequest_get_responseXML
,
1522 XMLHTTPRequest_get_responseText
,
1523 XMLHTTPRequest_get_responseBody
,
1524 XMLHTTPRequest_get_responseStream
,
1525 XMLHTTPRequest_get_readyState
,
1526 XMLHTTPRequest_put_onreadystatechange
1529 /* IObjectWithSite */
1530 static HRESULT WINAPI
1531 httprequest_ObjectWithSite_QueryInterface( IObjectWithSite
* iface
, REFIID riid
, void** ppvObject
)
1533 httprequest
*This
= impl_from_IObjectWithSite(iface
);
1534 return IXMLHTTPRequest_QueryInterface( (IXMLHTTPRequest
*)This
, riid
, ppvObject
);
1537 static ULONG WINAPI
httprequest_ObjectWithSite_AddRef( IObjectWithSite
* iface
)
1539 httprequest
*This
= impl_from_IObjectWithSite(iface
);
1540 return IXMLHTTPRequest_AddRef((IXMLHTTPRequest
*)This
);
1543 static ULONG WINAPI
httprequest_ObjectWithSite_Release( IObjectWithSite
* iface
)
1545 httprequest
*This
= impl_from_IObjectWithSite(iface
);
1546 return IXMLHTTPRequest_Release((IXMLHTTPRequest
*)This
);
1549 static HRESULT WINAPI
httprequest_ObjectWithSite_GetSite( IObjectWithSite
*iface
, REFIID iid
, void **ppvSite
)
1551 httprequest
*This
= impl_from_IObjectWithSite(iface
);
1553 TRACE("(%p)->(%s %p)\n", This
, debugstr_guid( iid
), ppvSite
);
1558 return IUnknown_QueryInterface( This
->site
, iid
, ppvSite
);
1561 static void get_base_uri(httprequest
*This
)
1563 IServiceProvider
*provider
;
1564 IHTMLDocument2
*doc
;
1569 hr
= IUnknown_QueryInterface(This
->site
, &IID_IServiceProvider
, (void**)&provider
);
1573 hr
= IServiceProvider_QueryService(provider
, &SID_SContainerDispatch
, &IID_IHTMLDocument2
, (void**)&doc
);
1575 hr
= IServiceProvider_QueryService(provider
, &SID_SInternetHostSecurityManager
, &IID_IHTMLDocument2
, (void**)&doc
);
1576 IServiceProvider_Release(provider
);
1580 hr
= IHTMLDocument2_get_URL(doc
, &url
);
1581 IHTMLDocument2_Release(doc
);
1582 if(FAILED(hr
) || !url
|| !*url
)
1585 TRACE("host url %s\n", debugstr_w(url
));
1587 hr
= CreateUri(url
, 0, 0, &uri
);
1592 This
->base_uri
= uri
;
1595 static HRESULT WINAPI
httprequest_ObjectWithSite_SetSite( IObjectWithSite
*iface
, IUnknown
*punk
)
1597 httprequest
*This
= impl_from_IObjectWithSite(iface
);
1599 TRACE("(%p)->(%p)\n", This
, punk
);
1602 IUnknown_Release( This
->site
);
1604 IUri_Release(This
->base_uri
);
1610 IUnknown_AddRef( punk
);
1617 static const IObjectWithSiteVtbl ObjectWithSiteVtbl
=
1619 httprequest_ObjectWithSite_QueryInterface
,
1620 httprequest_ObjectWithSite_AddRef
,
1621 httprequest_ObjectWithSite_Release
,
1622 httprequest_ObjectWithSite_SetSite
,
1623 httprequest_ObjectWithSite_GetSite
1627 static HRESULT WINAPI
httprequest_Safety_QueryInterface(IObjectSafety
*iface
, REFIID riid
, void **ppv
)
1629 httprequest
*This
= impl_from_IObjectSafety(iface
);
1630 return IXMLHTTPRequest_QueryInterface( (IXMLHTTPRequest
*)This
, riid
, ppv
);
1633 static ULONG WINAPI
httprequest_Safety_AddRef(IObjectSafety
*iface
)
1635 httprequest
*This
= impl_from_IObjectSafety(iface
);
1636 return IXMLHTTPRequest_AddRef((IXMLHTTPRequest
*)This
);
1639 static ULONG WINAPI
httprequest_Safety_Release(IObjectSafety
*iface
)
1641 httprequest
*This
= impl_from_IObjectSafety(iface
);
1642 return IXMLHTTPRequest_Release((IXMLHTTPRequest
*)This
);
1645 static HRESULT WINAPI
httprequest_Safety_GetInterfaceSafetyOptions(IObjectSafety
*iface
, REFIID riid
,
1646 DWORD
*supported
, DWORD
*enabled
)
1648 httprequest
*This
= impl_from_IObjectSafety(iface
);
1650 TRACE("(%p)->(%s %p %p)\n", This
, debugstr_guid(riid
), supported
, enabled
);
1652 if(!supported
|| !enabled
) return E_POINTER
;
1654 *supported
= safety_supported_options
;
1655 *enabled
= This
->safeopt
;
1660 static HRESULT WINAPI
httprequest_Safety_SetInterfaceSafetyOptions(IObjectSafety
*iface
, REFIID riid
,
1661 DWORD mask
, DWORD enabled
)
1663 httprequest
*This
= impl_from_IObjectSafety(iface
);
1664 TRACE("(%p)->(%s %x %x)\n", This
, debugstr_guid(riid
), mask
, enabled
);
1666 if ((mask
& ~safety_supported_options
))
1669 This
->safeopt
= (This
->safeopt
& ~mask
) | (mask
& enabled
);
1674 static const IObjectSafetyVtbl ObjectSafetyVtbl
= {
1675 httprequest_Safety_QueryInterface
,
1676 httprequest_Safety_AddRef
,
1677 httprequest_Safety_Release
,
1678 httprequest_Safety_GetInterfaceSafetyOptions
,
1679 httprequest_Safety_SetInterfaceSafetyOptions
1682 /* IServerXMLHTTPRequest */
1683 static HRESULT WINAPI
ServerXMLHTTPRequest_QueryInterface(IServerXMLHTTPRequest
*iface
, REFIID riid
, void **obj
)
1685 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1687 TRACE("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), obj
);
1689 if ( IsEqualGUID( riid
, &IID_IServerXMLHTTPRequest
) ||
1690 IsEqualGUID( riid
, &IID_IXMLHTTPRequest
) ||
1691 IsEqualGUID( riid
, &IID_IDispatch
) ||
1692 IsEqualGUID( riid
, &IID_IUnknown
) )
1698 TRACE("Unsupported interface %s\n", debugstr_guid(riid
));
1700 return E_NOINTERFACE
;
1703 IServerXMLHTTPRequest_AddRef( iface
);
1708 static ULONG WINAPI
ServerXMLHTTPRequest_AddRef(IServerXMLHTTPRequest
*iface
)
1710 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1711 ULONG ref
= InterlockedIncrement( &This
->ref
);
1712 TRACE("(%p)->(%u)\n", This
, ref
);
1716 static ULONG WINAPI
ServerXMLHTTPRequest_Release(IServerXMLHTTPRequest
*iface
)
1718 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1719 ULONG ref
= InterlockedDecrement( &This
->ref
);
1721 TRACE("(%p)->(%u)\n", This
, ref
);
1725 httprequest_release( &This
->req
);
1732 static HRESULT WINAPI
ServerXMLHTTPRequest_GetTypeInfoCount(IServerXMLHTTPRequest
*iface
, UINT
*pctinfo
)
1734 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1736 TRACE("(%p)->(%p)\n", This
, pctinfo
);
1742 static HRESULT WINAPI
ServerXMLHTTPRequest_GetTypeInfo(IServerXMLHTTPRequest
*iface
, UINT iTInfo
,
1743 LCID lcid
, ITypeInfo
**ppTInfo
)
1745 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1747 TRACE("(%p)->(%u %u %p)\n", This
, iTInfo
, lcid
, ppTInfo
);
1749 return get_typeinfo(IServerXMLHTTPRequest_tid
, ppTInfo
);
1752 static HRESULT WINAPI
ServerXMLHTTPRequest_GetIDsOfNames(IServerXMLHTTPRequest
*iface
, REFIID riid
,
1753 LPOLESTR
*rgszNames
, UINT cNames
, LCID lcid
, DISPID
*rgDispId
)
1755 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1756 ITypeInfo
*typeinfo
;
1759 TRACE("(%p)->(%s %p %u %u %p)\n", This
, debugstr_guid(riid
), rgszNames
, cNames
,
1762 if(!rgszNames
|| cNames
== 0 || !rgDispId
)
1763 return E_INVALIDARG
;
1765 hr
= get_typeinfo(IServerXMLHTTPRequest_tid
, &typeinfo
);
1768 hr
= ITypeInfo_GetIDsOfNames(typeinfo
, rgszNames
, cNames
, rgDispId
);
1769 ITypeInfo_Release(typeinfo
);
1775 static HRESULT WINAPI
ServerXMLHTTPRequest_Invoke(IServerXMLHTTPRequest
*iface
, DISPID dispIdMember
, REFIID riid
,
1776 LCID lcid
, WORD wFlags
, DISPPARAMS
*pDispParams
, VARIANT
*pVarResult
,
1777 EXCEPINFO
*pExcepInfo
, UINT
*puArgErr
)
1779 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1780 ITypeInfo
*typeinfo
;
1783 TRACE("(%p)->(%d %s %d %d %p %p %p %p)\n", This
, dispIdMember
, debugstr_guid(riid
),
1784 lcid
, wFlags
, pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
1786 hr
= get_typeinfo(IServerXMLHTTPRequest_tid
, &typeinfo
);
1789 hr
= ITypeInfo_Invoke(typeinfo
, &This
->IServerXMLHTTPRequest_iface
, dispIdMember
, wFlags
,
1790 pDispParams
, pVarResult
, pExcepInfo
, puArgErr
);
1791 ITypeInfo_Release(typeinfo
);
1797 static HRESULT WINAPI
ServerXMLHTTPRequest_open(IServerXMLHTTPRequest
*iface
, BSTR method
, BSTR url
,
1798 VARIANT async
, VARIANT user
, VARIANT password
)
1800 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1801 TRACE("(%p)->(%s %s %s)\n", This
, debugstr_w(method
), debugstr_w(url
),
1802 debugstr_variant(&async
));
1803 return httprequest_open(&This
->req
, method
, url
, async
, user
, password
);
1806 static HRESULT WINAPI
ServerXMLHTTPRequest_setRequestHeader(IServerXMLHTTPRequest
*iface
, BSTR header
, BSTR value
)
1808 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1809 TRACE("(%p)->(%s %s)\n", This
, debugstr_w(header
), debugstr_w(value
));
1810 return httprequest_setRequestHeader(&This
->req
, header
, value
);
1813 static HRESULT WINAPI
ServerXMLHTTPRequest_getResponseHeader(IServerXMLHTTPRequest
*iface
, BSTR header
, BSTR
*value
)
1815 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1816 TRACE("(%p)->(%s %p)\n", This
, debugstr_w(header
), value
);
1817 return httprequest_getResponseHeader(&This
->req
, header
, value
);
1820 static HRESULT WINAPI
ServerXMLHTTPRequest_getAllResponseHeaders(IServerXMLHTTPRequest
*iface
, BSTR
*respheaders
)
1822 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1823 TRACE("(%p)->(%p)\n", This
, respheaders
);
1824 return httprequest_getAllResponseHeaders(&This
->req
, respheaders
);
1827 static HRESULT WINAPI
ServerXMLHTTPRequest_send(IServerXMLHTTPRequest
*iface
, VARIANT body
)
1829 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1830 TRACE("(%p)->(%s)\n", This
, debugstr_variant(&body
));
1831 return httprequest_send(&This
->req
, body
);
1834 static HRESULT WINAPI
ServerXMLHTTPRequest_abort(IServerXMLHTTPRequest
*iface
)
1836 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1837 TRACE("(%p)\n", This
);
1838 return httprequest_abort(&This
->req
);
1841 static HRESULT WINAPI
ServerXMLHTTPRequest_get_status(IServerXMLHTTPRequest
*iface
, LONG
*status
)
1843 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1844 TRACE("(%p)->(%p)\n", This
, status
);
1845 return httprequest_get_status(&This
->req
, status
);
1848 static HRESULT WINAPI
ServerXMLHTTPRequest_get_statusText(IServerXMLHTTPRequest
*iface
, BSTR
*status
)
1850 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1851 TRACE("(%p)->(%p)\n", This
, status
);
1852 return httprequest_get_statusText(&This
->req
, status
);
1855 static HRESULT WINAPI
ServerXMLHTTPRequest_get_responseXML(IServerXMLHTTPRequest
*iface
, IDispatch
**body
)
1857 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1858 TRACE("(%p)->(%p)\n", This
, body
);
1859 return httprequest_get_responseXML(&This
->req
, body
);
1862 static HRESULT WINAPI
ServerXMLHTTPRequest_get_responseText(IServerXMLHTTPRequest
*iface
, BSTR
*body
)
1864 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1865 TRACE("(%p)->(%p)\n", This
, body
);
1866 return httprequest_get_responseText(&This
->req
, body
);
1869 static HRESULT WINAPI
ServerXMLHTTPRequest_get_responseBody(IServerXMLHTTPRequest
*iface
, VARIANT
*body
)
1871 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1872 TRACE("(%p)->(%p)\n", This
, body
);
1873 return httprequest_get_responseBody(&This
->req
, body
);
1876 static HRESULT WINAPI
ServerXMLHTTPRequest_get_responseStream(IServerXMLHTTPRequest
*iface
, VARIANT
*body
)
1878 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1879 TRACE("(%p)->(%p)\n", This
, body
);
1880 return httprequest_get_responseStream(&This
->req
, body
);
1883 static HRESULT WINAPI
ServerXMLHTTPRequest_get_readyState(IServerXMLHTTPRequest
*iface
, LONG
*state
)
1885 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1886 TRACE("(%p)->(%p)\n", This
, state
);
1887 return httprequest_get_readyState(&This
->req
, state
);
1890 static HRESULT WINAPI
ServerXMLHTTPRequest_put_onreadystatechange(IServerXMLHTTPRequest
*iface
, IDispatch
*sink
)
1892 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1893 TRACE("(%p)->(%p)\n", This
, sink
);
1894 return httprequest_put_onreadystatechange(&This
->req
, sink
);
1897 static HRESULT WINAPI
ServerXMLHTTPRequest_setTimeouts(IServerXMLHTTPRequest
*iface
, LONG resolveTimeout
, LONG connectTimeout
,
1898 LONG sendTimeout
, LONG receiveTimeout
)
1900 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1901 FIXME("(%p)->(%d %d %d %d): stub\n", This
, resolveTimeout
, connectTimeout
, sendTimeout
, receiveTimeout
);
1905 static HRESULT WINAPI
ServerXMLHTTPRequest_waitForResponse(IServerXMLHTTPRequest
*iface
, VARIANT timeout
, VARIANT_BOOL
*isSuccessful
)
1907 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1908 FIXME("(%p)->(%s %p): stub\n", This
, debugstr_variant(&timeout
), isSuccessful
);
1912 static HRESULT WINAPI
ServerXMLHTTPRequest_getOption(IServerXMLHTTPRequest
*iface
, SERVERXMLHTTP_OPTION option
, VARIANT
*value
)
1914 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1915 FIXME("(%p)->(%d %p): stub\n", This
, option
, value
);
1919 static HRESULT WINAPI
ServerXMLHTTPRequest_setOption(IServerXMLHTTPRequest
*iface
, SERVERXMLHTTP_OPTION option
, VARIANT value
)
1921 serverhttp
*This
= impl_from_IServerXMLHTTPRequest( iface
);
1922 FIXME("(%p)->(%d %s): stub\n", This
, option
, debugstr_variant(&value
));
1926 static const struct IServerXMLHTTPRequestVtbl ServerXMLHTTPRequestVtbl
=
1928 ServerXMLHTTPRequest_QueryInterface
,
1929 ServerXMLHTTPRequest_AddRef
,
1930 ServerXMLHTTPRequest_Release
,
1931 ServerXMLHTTPRequest_GetTypeInfoCount
,
1932 ServerXMLHTTPRequest_GetTypeInfo
,
1933 ServerXMLHTTPRequest_GetIDsOfNames
,
1934 ServerXMLHTTPRequest_Invoke
,
1935 ServerXMLHTTPRequest_open
,
1936 ServerXMLHTTPRequest_setRequestHeader
,
1937 ServerXMLHTTPRequest_getResponseHeader
,
1938 ServerXMLHTTPRequest_getAllResponseHeaders
,
1939 ServerXMLHTTPRequest_send
,
1940 ServerXMLHTTPRequest_abort
,
1941 ServerXMLHTTPRequest_get_status
,
1942 ServerXMLHTTPRequest_get_statusText
,
1943 ServerXMLHTTPRequest_get_responseXML
,
1944 ServerXMLHTTPRequest_get_responseText
,
1945 ServerXMLHTTPRequest_get_responseBody
,
1946 ServerXMLHTTPRequest_get_responseStream
,
1947 ServerXMLHTTPRequest_get_readyState
,
1948 ServerXMLHTTPRequest_put_onreadystatechange
,
1949 ServerXMLHTTPRequest_setTimeouts
,
1950 ServerXMLHTTPRequest_waitForResponse
,
1951 ServerXMLHTTPRequest_getOption
,
1952 ServerXMLHTTPRequest_setOption
1955 static void init_httprequest(httprequest
*req
)
1957 req
->IXMLHTTPRequest_iface
.lpVtbl
= &XMLHTTPRequestVtbl
;
1958 req
->IObjectWithSite_iface
.lpVtbl
= &ObjectWithSiteVtbl
;
1959 req
->IObjectSafety_iface
.lpVtbl
= &ObjectSafetyVtbl
;
1965 req
->uri
= req
->base_uri
= NULL
;
1966 req
->user
= req
->password
= NULL
;
1968 req
->state
= READYSTATE_UNINITIALIZED
;
1973 req
->status_text
= NULL
;
1974 req
->reqheader_size
= 0;
1975 req
->raw_respheaders
= NULL
;
1976 req
->use_utf8_content
= FALSE
;
1978 list_init(&req
->reqheaders
);
1979 list_init(&req
->respheaders
);
1985 HRESULT
XMLHTTPRequest_create(void **obj
)
1989 TRACE("(%p)\n", obj
);
1991 req
= heap_alloc( sizeof (*req
) );
1993 return E_OUTOFMEMORY
;
1995 init_httprequest(req
);
1996 *obj
= &req
->IXMLHTTPRequest_iface
;
1998 TRACE("returning iface %p\n", *obj
);
2003 HRESULT
ServerXMLHTTP_create(void **obj
)
2007 TRACE("(%p)\n", obj
);
2009 req
= heap_alloc( sizeof (*req
) );
2011 return E_OUTOFMEMORY
;
2013 init_httprequest(&req
->req
);
2014 req
->IServerXMLHTTPRequest_iface
.lpVtbl
= &ServerXMLHTTPRequestVtbl
;
2017 *obj
= &req
->IServerXMLHTTPRequest_iface
;
2019 TRACE("returning iface %p\n", *obj
);
2026 HRESULT
XMLHTTPRequest_create(void **ppObj
)
2028 MESSAGE("This program tried to use a XMLHTTPRequest object, but\n"
2029 "libxml2 support was not present at compile time.\n");
2033 HRESULT
ServerXMLHTTP_create(void **obj
)
2035 MESSAGE("This program tried to use a ServerXMLHTTP object, but\n"
2036 "libxml2 support was not present at compile time.\n");