2 * Copyright 2006-2007 Jacek Caban for CodeWeavers
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.
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.
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
24 #define NONAMELESSUNION
25 #define NONAMELESSSTRUCT
37 #include "wine/debug.h"
38 #include "wine/unicode.h"
40 #include "mshtml_private.h"
42 WINE_DEFAULT_DEBUG_CHANNEL(mshtml
);
44 #define CONTENT_LENGTH "Content-Length"
45 #define UTF16_STR "utf-16"
48 const nsIInputStreamVtbl
*lpInputStreamVtbl
;
56 #define NSINSTREAM(x) ((nsIInputStream*) &(x)->lpInputStreamVtbl)
59 void (*destroy
)(BSCallback
*);
60 HRESULT (*init_bindinfo
)(BSCallback
*);
61 HRESULT (*start_binding
)(BSCallback
*);
62 HRESULT (*stop_binding
)(BSCallback
*,HRESULT
);
63 HRESULT (*read_data
)(BSCallback
*,IStream
*);
64 HRESULT (*on_progress
)(BSCallback
*,ULONG
,LPCWSTR
);
65 HRESULT (*on_response
)(BSCallback
*,DWORD
);
69 const IBindStatusCallbackVtbl
*lpBindStatusCallbackVtbl
;
70 const IServiceProviderVtbl
*lpServiceProviderVtbl
;
71 const IHttpNegotiate2Vtbl
*lpHttpNegotiate2Vtbl
;
72 const IInternetBindInfoVtbl
*lpInternetBindInfoVtbl
;
74 const BSCallbackVtbl
*vtbl
;
88 HTMLDocumentNode
*doc
;
93 #define NSINSTREAM_THIS(iface) DEFINE_THIS(nsProtocolStream, InputStream, iface)
95 static nsresult NSAPI
nsInputStream_QueryInterface(nsIInputStream
*iface
, nsIIDRef riid
,
98 nsProtocolStream
*This
= NSINSTREAM_THIS(iface
);
102 if(IsEqualGUID(&IID_nsISupports
, riid
)) {
103 TRACE("(%p)->(IID_nsISupports %p)\n", This
, result
);
104 *result
= NSINSTREAM(This
);
105 }else if(IsEqualGUID(&IID_nsIInputStream
, riid
)) {
106 TRACE("(%p)->(IID_nsIInputStream %p)\n", This
, result
);
107 *result
= NSINSTREAM(This
);
111 nsIInputStream_AddRef(NSINSTREAM(This
));
115 WARN("unsupported interface %s\n", debugstr_guid(riid
));
116 return NS_NOINTERFACE
;
119 static nsrefcnt NSAPI
nsInputStream_AddRef(nsIInputStream
*iface
)
121 nsProtocolStream
*This
= NSINSTREAM_THIS(iface
);
122 LONG ref
= InterlockedIncrement(&This
->ref
);
124 TRACE("(%p) ref=%d\n", This
, ref
);
130 static nsrefcnt NSAPI
nsInputStream_Release(nsIInputStream
*iface
)
132 nsProtocolStream
*This
= NSINSTREAM_THIS(iface
);
133 LONG ref
= InterlockedDecrement(&This
->ref
);
135 TRACE("(%p) ref=%d\n", This
, ref
);
143 static nsresult NSAPI
nsInputStream_Close(nsIInputStream
*iface
)
145 nsProtocolStream
*This
= NSINSTREAM_THIS(iface
);
146 FIXME("(%p)\n", This
);
147 return NS_ERROR_NOT_IMPLEMENTED
;
150 static nsresult NSAPI
nsInputStream_Available(nsIInputStream
*iface
, PRUint32
*_retval
)
152 nsProtocolStream
*This
= NSINSTREAM_THIS(iface
);
153 FIXME("(%p)->(%p)\n", This
, _retval
);
154 return NS_ERROR_NOT_IMPLEMENTED
;
157 static nsresult NSAPI
nsInputStream_Read(nsIInputStream
*iface
, char *aBuf
, PRUint32 aCount
,
160 nsProtocolStream
*This
= NSINSTREAM_THIS(iface
);
163 TRACE("(%p)->(%p %d %p)\n", This
, aBuf
, aCount
, _retval
);
165 if(read
> This
->buf_size
)
166 read
= This
->buf_size
;
169 memcpy(aBuf
, This
->buf
, read
);
170 if(read
< This
->buf_size
)
171 memmove(This
->buf
, This
->buf
+read
, This
->buf_size
-read
);
172 This
->buf_size
-= read
;
179 static nsresult NSAPI
nsInputStream_ReadSegments(nsIInputStream
*iface
,
180 nsresult (WINAPI
*aWriter
)(nsIInputStream
*,void*,const char*,PRUint32
,PRUint32
,PRUint32
*),
181 void *aClousure
, PRUint32 aCount
, PRUint32
*_retval
)
183 nsProtocolStream
*This
= NSINSTREAM_THIS(iface
);
184 PRUint32 written
= 0;
187 TRACE("(%p)->(%p %p %d %p)\n", This
, aWriter
, aClousure
, aCount
, _retval
);
192 if(aCount
> This
->buf_size
)
193 aCount
= This
->buf_size
;
195 nsres
= aWriter(NSINSTREAM(This
), aClousure
, This
->buf
, 0, aCount
, &written
);
197 TRACE("aWritter failed: %08x\n", nsres
);
198 else if(written
!= This
->buf_size
)
199 FIXME("written %d != buf_size %d\n", written
, This
->buf_size
);
201 This
->buf_size
-= written
;
207 static nsresult NSAPI
nsInputStream_IsNonBlocking(nsIInputStream
*iface
, PRBool
*_retval
)
209 nsProtocolStream
*This
= NSINSTREAM_THIS(iface
);
210 FIXME("(%p)->(%p)\n", This
, _retval
);
211 return NS_ERROR_NOT_IMPLEMENTED
;
214 #undef NSINSTREAM_THIS
216 static const nsIInputStreamVtbl nsInputStreamVtbl
= {
217 nsInputStream_QueryInterface
,
218 nsInputStream_AddRef
,
219 nsInputStream_Release
,
221 nsInputStream_Available
,
223 nsInputStream_ReadSegments
,
224 nsInputStream_IsNonBlocking
227 static nsProtocolStream
*create_nsprotocol_stream(void)
229 nsProtocolStream
*ret
= heap_alloc(sizeof(nsProtocolStream
));
231 ret
->lpInputStreamVtbl
= &nsInputStreamVtbl
;
238 #define STATUSCLB_THIS(iface) DEFINE_THIS(BSCallback, BindStatusCallback, iface)
240 static HRESULT WINAPI
BindStatusCallback_QueryInterface(IBindStatusCallback
*iface
,
241 REFIID riid
, void **ppv
)
243 BSCallback
*This
= STATUSCLB_THIS(iface
);
246 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
247 TRACE("(%p)->(IID_IUnknown, %p)\n", This
, ppv
);
248 *ppv
= STATUSCLB(This
);
249 }else if(IsEqualGUID(&IID_IBindStatusCallback
, riid
)) {
250 TRACE("(%p)->(IID_IBindStatusCallback, %p)\n", This
, ppv
);
251 *ppv
= STATUSCLB(This
);
252 }else if(IsEqualGUID(&IID_IServiceProvider
, riid
)) {
253 TRACE("(%p)->(IID_IServiceProvider %p)\n", This
, ppv
);
254 *ppv
= SERVPROV(This
);
255 }else if(IsEqualGUID(&IID_IHttpNegotiate
, riid
)) {
256 TRACE("(%p)->(IID_IHttpNegotiate %p)\n", This
, ppv
);
257 *ppv
= HTTPNEG(This
);
258 }else if(IsEqualGUID(&IID_IHttpNegotiate2
, riid
)) {
259 TRACE("(%p)->(IID_IHttpNegotiate2 %p)\n", This
, ppv
);
260 *ppv
= HTTPNEG(This
);
261 }else if(IsEqualGUID(&IID_IInternetBindInfo
, riid
)) {
262 TRACE("(%p)->(IID_IInternetBindInfo %p)\n", This
, ppv
);
263 *ppv
= BINDINFO(This
);
267 IBindStatusCallback_AddRef(STATUSCLB(This
));
271 TRACE("Unsupported riid = %s\n", debugstr_guid(riid
));
272 return E_NOINTERFACE
;
275 static ULONG WINAPI
BindStatusCallback_AddRef(IBindStatusCallback
*iface
)
277 BSCallback
*This
= STATUSCLB_THIS(iface
);
278 LONG ref
= InterlockedIncrement(&This
->ref
);
280 TRACE("(%p) ref = %d\n", This
, ref
);
285 static ULONG WINAPI
BindStatusCallback_Release(IBindStatusCallback
*iface
)
287 BSCallback
*This
= STATUSCLB_THIS(iface
);
288 LONG ref
= InterlockedDecrement(&This
->ref
);
290 TRACE("(%p) ref = %d\n", This
, ref
);
294 GlobalFree(This
->post_data
);
296 IMoniker_Release(This
->mon
);
298 IBinding_Release(This
->binding
);
299 list_remove(&This
->entry
);
300 heap_free(This
->headers
);
302 This
->vtbl
->destroy(This
);
308 static HRESULT WINAPI
BindStatusCallback_OnStartBinding(IBindStatusCallback
*iface
,
309 DWORD dwReserved
, IBinding
*pbind
)
311 BSCallback
*This
= STATUSCLB_THIS(iface
);
313 TRACE("(%p)->(%d %p)\n", This
, dwReserved
, pbind
);
315 IBinding_AddRef(pbind
);
316 This
->binding
= pbind
;
319 list_add_head(&This
->doc
->bindings
, &This
->entry
);
321 return This
->vtbl
->start_binding(This
);
324 static HRESULT WINAPI
BindStatusCallback_GetPriority(IBindStatusCallback
*iface
, LONG
*pnPriority
)
326 BSCallback
*This
= STATUSCLB_THIS(iface
);
327 FIXME("(%p)->(%p)\n", This
, pnPriority
);
331 static HRESULT WINAPI
BindStatusCallback_OnLowResource(IBindStatusCallback
*iface
, DWORD reserved
)
333 BSCallback
*This
= STATUSCLB_THIS(iface
);
334 FIXME("(%p)->(%d)\n", This
, reserved
);
338 static HRESULT WINAPI
BindStatusCallback_OnProgress(IBindStatusCallback
*iface
, ULONG ulProgress
,
339 ULONG ulProgressMax
, ULONG ulStatusCode
, LPCWSTR szStatusText
)
341 BSCallback
*This
= STATUSCLB_THIS(iface
);
343 TRACE("%p)->(%u %u %u %s)\n", This
, ulProgress
, ulProgressMax
, ulStatusCode
,
344 debugstr_w(szStatusText
));
346 return This
->vtbl
->on_progress(This
, ulStatusCode
, szStatusText
);
349 static HRESULT WINAPI
BindStatusCallback_OnStopBinding(IBindStatusCallback
*iface
,
350 HRESULT hresult
, LPCWSTR szError
)
352 BSCallback
*This
= STATUSCLB_THIS(iface
);
355 TRACE("(%p)->(%08x %s)\n", This
, hresult
, debugstr_w(szError
));
357 /* NOTE: IE7 calls GetBindResult here */
359 hres
= This
->vtbl
->stop_binding(This
, hresult
);
362 IBinding_Release(This
->binding
);
363 This
->binding
= NULL
;
366 list_remove(&This
->entry
);
372 static HRESULT WINAPI
BindStatusCallback_GetBindInfo(IBindStatusCallback
*iface
,
373 DWORD
*grfBINDF
, BINDINFO
*pbindinfo
)
375 BSCallback
*This
= STATUSCLB_THIS(iface
);
378 TRACE("(%p)->(%p %p)\n", This
, grfBINDF
, pbindinfo
);
380 if(!This
->bindinfo_ready
) {
383 hres
= This
->vtbl
->init_bindinfo(This
);
387 This
->bindinfo_ready
= TRUE
;
390 *grfBINDF
= This
->bindf
;
392 size
= pbindinfo
->cbSize
;
393 memset(pbindinfo
, 0, size
);
394 pbindinfo
->cbSize
= size
;
396 pbindinfo
->cbstgmedData
= This
->post_data_len
;
397 pbindinfo
->dwCodePage
= CP_UTF8
;
398 pbindinfo
->dwOptions
= 0x80000;
400 if(This
->post_data
) {
401 pbindinfo
->dwBindVerb
= BINDVERB_POST
;
403 pbindinfo
->stgmedData
.tymed
= TYMED_HGLOBAL
;
404 pbindinfo
->stgmedData
.u
.hGlobal
= This
->post_data
;
405 pbindinfo
->stgmedData
.pUnkForRelease
= (IUnknown
*)STATUSCLB(This
);
406 IBindStatusCallback_AddRef(STATUSCLB(This
));
412 static HRESULT WINAPI
BindStatusCallback_OnDataAvailable(IBindStatusCallback
*iface
,
413 DWORD grfBSCF
, DWORD dwSize
, FORMATETC
*pformatetc
, STGMEDIUM
*pstgmed
)
415 BSCallback
*This
= STATUSCLB_THIS(iface
);
417 TRACE("(%p)->(%08x %d %p %p)\n", This
, grfBSCF
, dwSize
, pformatetc
, pstgmed
);
419 return This
->vtbl
->read_data(This
, pstgmed
->u
.pstm
);
422 static HRESULT WINAPI
BindStatusCallback_OnObjectAvailable(IBindStatusCallback
*iface
,
423 REFIID riid
, IUnknown
*punk
)
425 BSCallback
*This
= STATUSCLB_THIS(iface
);
426 FIXME("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), punk
);
430 #undef STATUSCLB_THIS
432 static const IBindStatusCallbackVtbl BindStatusCallbackVtbl
= {
433 BindStatusCallback_QueryInterface
,
434 BindStatusCallback_AddRef
,
435 BindStatusCallback_Release
,
436 BindStatusCallback_OnStartBinding
,
437 BindStatusCallback_GetPriority
,
438 BindStatusCallback_OnLowResource
,
439 BindStatusCallback_OnProgress
,
440 BindStatusCallback_OnStopBinding
,
441 BindStatusCallback_GetBindInfo
,
442 BindStatusCallback_OnDataAvailable
,
443 BindStatusCallback_OnObjectAvailable
446 #define HTTPNEG_THIS(iface) DEFINE_THIS(BSCallback, HttpNegotiate2, iface)
448 static HRESULT WINAPI
HttpNegotiate_QueryInterface(IHttpNegotiate2
*iface
,
449 REFIID riid
, void **ppv
)
451 BSCallback
*This
= HTTPNEG_THIS(iface
);
452 return IBindStatusCallback_QueryInterface(STATUSCLB(This
), riid
, ppv
);
455 static ULONG WINAPI
HttpNegotiate_AddRef(IHttpNegotiate2
*iface
)
457 BSCallback
*This
= HTTPNEG_THIS(iface
);
458 return IBindStatusCallback_AddRef(STATUSCLB(This
));
461 static ULONG WINAPI
HttpNegotiate_Release(IHttpNegotiate2
*iface
)
463 BSCallback
*This
= HTTPNEG_THIS(iface
);
464 return IBindStatusCallback_Release(STATUSCLB(This
));
467 static HRESULT WINAPI
HttpNegotiate_BeginningTransaction(IHttpNegotiate2
*iface
,
468 LPCWSTR szURL
, LPCWSTR szHeaders
, DWORD dwReserved
, LPWSTR
*pszAdditionalHeaders
)
470 BSCallback
*This
= HTTPNEG_THIS(iface
);
473 TRACE("(%p)->(%s %s %d %p)\n", This
, debugstr_w(szURL
), debugstr_w(szHeaders
),
474 dwReserved
, pszAdditionalHeaders
);
477 *pszAdditionalHeaders
= NULL
;
481 size
= (strlenW(This
->headers
)+1)*sizeof(WCHAR
);
482 *pszAdditionalHeaders
= CoTaskMemAlloc(size
);
483 memcpy(*pszAdditionalHeaders
, This
->headers
, size
);
488 static HRESULT WINAPI
HttpNegotiate_OnResponse(IHttpNegotiate2
*iface
, DWORD dwResponseCode
,
489 LPCWSTR szResponseHeaders
, LPCWSTR szRequestHeaders
, LPWSTR
*pszAdditionalRequestHeaders
)
491 BSCallback
*This
= HTTPNEG_THIS(iface
);
493 TRACE("(%p)->(%d %s %s %p)\n", This
, dwResponseCode
, debugstr_w(szResponseHeaders
),
494 debugstr_w(szRequestHeaders
), pszAdditionalRequestHeaders
);
496 return This
->vtbl
->on_response(This
, dwResponseCode
);
499 static HRESULT WINAPI
HttpNegotiate_GetRootSecurityId(IHttpNegotiate2
*iface
,
500 BYTE
*pbSecurityId
, DWORD
*pcbSecurityId
, DWORD_PTR dwReserved
)
502 BSCallback
*This
= HTTPNEG_THIS(iface
);
503 FIXME("(%p)->(%p %p %ld)\n", This
, pbSecurityId
, pcbSecurityId
, dwReserved
);
509 static const IHttpNegotiate2Vtbl HttpNegotiate2Vtbl
= {
510 HttpNegotiate_QueryInterface
,
511 HttpNegotiate_AddRef
,
512 HttpNegotiate_Release
,
513 HttpNegotiate_BeginningTransaction
,
514 HttpNegotiate_OnResponse
,
515 HttpNegotiate_GetRootSecurityId
518 #define BINDINFO_THIS(iface) DEFINE_THIS(BSCallback, InternetBindInfo, iface)
520 static HRESULT WINAPI
InternetBindInfo_QueryInterface(IInternetBindInfo
*iface
,
521 REFIID riid
, void **ppv
)
523 BSCallback
*This
= BINDINFO_THIS(iface
);
524 return IBindStatusCallback_QueryInterface(STATUSCLB(This
), riid
, ppv
);
527 static ULONG WINAPI
InternetBindInfo_AddRef(IInternetBindInfo
*iface
)
529 BSCallback
*This
= BINDINFO_THIS(iface
);
530 return IBindStatusCallback_AddRef(STATUSCLB(This
));
533 static ULONG WINAPI
InternetBindInfo_Release(IInternetBindInfo
*iface
)
535 BSCallback
*This
= BINDINFO_THIS(iface
);
536 return IBindStatusCallback_Release(STATUSCLB(This
));
539 static HRESULT WINAPI
InternetBindInfo_GetBindInfo(IInternetBindInfo
*iface
,
540 DWORD
*grfBINDF
, BINDINFO
*pbindinfo
)
542 BSCallback
*This
= BINDINFO_THIS(iface
);
543 FIXME("(%p)->(%p %p)\n", This
, grfBINDF
, pbindinfo
);
547 static HRESULT WINAPI
InternetBindInfo_GetBindString(IInternetBindInfo
*iface
,
548 ULONG ulStringType
, LPOLESTR
*ppwzStr
, ULONG cEl
, ULONG
*pcElFetched
)
550 BSCallback
*This
= BINDINFO_THIS(iface
);
551 FIXME("(%p)->(%u %p %u %p)\n", This
, ulStringType
, ppwzStr
, cEl
, pcElFetched
);
557 static const IInternetBindInfoVtbl InternetBindInfoVtbl
= {
558 InternetBindInfo_QueryInterface
,
559 InternetBindInfo_AddRef
,
560 InternetBindInfo_Release
,
561 InternetBindInfo_GetBindInfo
,
562 InternetBindInfo_GetBindString
565 #define SERVPROV_THIS(iface) DEFINE_THIS(BSCallback, ServiceProvider, iface)
567 static HRESULT WINAPI
BSCServiceProvider_QueryInterface(IServiceProvider
*iface
,
568 REFIID riid
, void **ppv
)
570 BSCallback
*This
= SERVPROV_THIS(iface
);
571 return IBindStatusCallback_QueryInterface(STATUSCLB(This
), riid
, ppv
);
574 static ULONG WINAPI
BSCServiceProvider_AddRef(IServiceProvider
*iface
)
576 BSCallback
*This
= SERVPROV_THIS(iface
);
577 return IBindStatusCallback_AddRef(STATUSCLB(This
));
580 static ULONG WINAPI
BSCServiceProvider_Release(IServiceProvider
*iface
)
582 BSCallback
*This
= SERVPROV_THIS(iface
);
583 return IBindStatusCallback_Release(STATUSCLB(This
));
586 static HRESULT WINAPI
BSCServiceProvider_QueryService(IServiceProvider
*iface
,
587 REFGUID guidService
, REFIID riid
, void **ppv
)
589 BSCallback
*This
= SERVPROV_THIS(iface
);
590 TRACE("(%p)->(%s %s %p)\n", This
, debugstr_guid(guidService
), debugstr_guid(riid
), ppv
);
591 return E_NOINTERFACE
;
596 static const IServiceProviderVtbl ServiceProviderVtbl
= {
597 BSCServiceProvider_QueryInterface
,
598 BSCServiceProvider_AddRef
,
599 BSCServiceProvider_Release
,
600 BSCServiceProvider_QueryService
603 static void init_bscallback(BSCallback
*This
, const BSCallbackVtbl
*vtbl
, IMoniker
*mon
, DWORD bindf
)
605 This
->lpBindStatusCallbackVtbl
= &BindStatusCallbackVtbl
;
606 This
->lpServiceProviderVtbl
= &ServiceProviderVtbl
;
607 This
->lpHttpNegotiate2Vtbl
= &HttpNegotiate2Vtbl
;
608 This
->lpInternetBindInfoVtbl
= &InternetBindInfoVtbl
;
613 list_init(&This
->entry
);
616 IMoniker_AddRef(mon
);
620 /* Calls undocumented 84 cmd of CGID_ShellDocView */
621 static void call_docview_84(HTMLDocumentObj
*doc
)
623 IOleCommandTarget
*olecmd
;
630 hres
= IOleClientSite_QueryInterface(doc
->client
, &IID_IOleCommandTarget
, (void**)&olecmd
);
635 hres
= IOleCommandTarget_Exec(olecmd
, &CGID_ShellDocView
, 84, 0, NULL
, &var
);
636 IOleCommandTarget_Release(olecmd
);
637 if(SUCCEEDED(hres
) && V_VT(&var
) != VT_NULL
)
638 FIXME("handle result\n");
641 static void parse_post_data(nsIInputStream
*post_data_stream
, LPWSTR
*headers_ret
,
642 HGLOBAL
*post_data_ret
, ULONG
*post_data_len_ret
)
644 PRUint32 post_data_len
= 0, available
= 0;
645 HGLOBAL post_data
= NULL
;
646 LPWSTR headers
= NULL
;
647 DWORD headers_len
= 0, len
;
648 const char *ptr
, *ptr2
, *post_data_end
;
650 nsIInputStream_Available(post_data_stream
, &available
);
651 post_data
= GlobalAlloc(0, available
+1);
652 nsIInputStream_Read(post_data_stream
, post_data
, available
, &post_data_len
);
654 TRACE("post_data = %s\n", debugstr_an(post_data
, post_data_len
));
656 ptr
= ptr2
= post_data
;
657 post_data_end
= (const char*)post_data
+post_data_len
;
659 while(ptr
< post_data_end
&& (*ptr
!= '\r' || ptr
[1] != '\n')) {
660 while(ptr
< post_data_end
&& (*ptr
!= '\r' || ptr
[1] != '\n'))
670 if(ptr
-ptr2
>= sizeof(CONTENT_LENGTH
)
671 && CompareStringA(LOCALE_SYSTEM_DEFAULT
, NORM_IGNORECASE
,
672 CONTENT_LENGTH
, sizeof(CONTENT_LENGTH
)-1,
673 ptr2
, sizeof(CONTENT_LENGTH
)-1) == CSTR_EQUAL
) {
678 len
= MultiByteToWideChar(CP_ACP
, 0, ptr2
, ptr
-ptr2
, NULL
, 0);
681 headers
= heap_realloc(headers
,(headers_len
+len
+1)*sizeof(WCHAR
));
683 headers
= heap_alloc((len
+1)*sizeof(WCHAR
));
685 len
= MultiByteToWideChar(CP_ACP
, 0, ptr2
, ptr
-ptr2
, headers
+headers_len
, len
);
691 headers
[headers_len
] = 0;
692 *headers_ret
= headers
;
694 if(ptr
>= post_data_end
-2) {
695 GlobalFree(post_data
);
702 post_data_len
-= ptr
-(const char*)post_data
;
703 memmove(post_data
, ptr
, post_data_len
);
704 post_data
= GlobalReAlloc(post_data
, post_data_len
+1, 0);
707 *post_data_ret
= post_data
;
708 *post_data_len_ret
= post_data_len
;
711 HRESULT
start_binding(HTMLWindow
*window
, HTMLDocumentNode
*doc
, BSCallback
*bscallback
, IBindCtx
*bctx
)
716 bscallback
->doc
= doc
;
718 /* NOTE: IE7 calls IsSystemMoniker here*/
721 if(bscallback
->mon
!= window
->mon
)
722 set_current_mon(window
, bscallback
->mon
);
723 call_docview_84(window
->doc_obj
);
727 RegisterBindStatusCallback(bctx
, STATUSCLB(bscallback
), NULL
, 0);
728 IBindCtx_AddRef(bctx
);
730 hres
= CreateAsyncBindCtx(0, STATUSCLB(bscallback
), NULL
, &bctx
);
732 WARN("CreateAsyncBindCtx failed: %08x\n", hres
);
733 bscallback
->vtbl
->stop_binding(bscallback
, hres
);
738 hres
= IMoniker_BindToStorage(bscallback
->mon
, bctx
, NULL
, &IID_IStream
, (void**)&str
);
739 IBindCtx_Release(bctx
);
741 WARN("BindToStorage failed: %08x\n", hres
);
742 bscallback
->vtbl
->stop_binding(bscallback
, hres
);
747 IStream_Release(str
);
749 IMoniker_Release(bscallback
->mon
);
750 bscallback
->mon
= NULL
;
763 #define BUFFERBSC_THIS(bsc) ((BufferBSC*) bsc)
765 static void BufferBSC_destroy(BSCallback
*bsc
)
767 BufferBSC
*This
= BUFFERBSC_THIS(bsc
);
769 heap_free(This
->buf
);
773 static HRESULT
BufferBSC_init_bindinfo(BSCallback
*bsc
)
778 static HRESULT
BufferBSC_start_binding(BSCallback
*bsc
)
783 static HRESULT
BufferBSC_stop_binding(BSCallback
*bsc
, HRESULT result
)
785 BufferBSC
*This
= BUFFERBSC_THIS(bsc
);
790 heap_free(This
->buf
);
798 static HRESULT
BufferBSC_read_data(BSCallback
*bsc
, IStream
*stream
)
800 BufferBSC
*This
= BUFFERBSC_THIS(bsc
);
806 This
->buf
= heap_alloc(This
->size
);
810 if(This
->bsc
.readed
== This
->size
) {
812 This
->buf
= heap_realloc(This
->buf
, This
->size
);
816 hres
= IStream_Read(stream
, This
->buf
+This
->bsc
.readed
, This
->size
-This
->bsc
.readed
, &readed
);
817 This
->bsc
.readed
+= readed
;
818 }while(hres
== S_OK
);
823 static HRESULT
BufferBSC_on_progress(BSCallback
*bsc
, ULONG status_code
, LPCWSTR status_text
)
828 static HRESULT
BufferBSC_on_response(BSCallback
*bsc
, DWORD response_code
)
833 #undef BUFFERBSC_THIS
835 static const BSCallbackVtbl BufferBSCVtbl
= {
837 BufferBSC_init_bindinfo
,
838 BufferBSC_start_binding
,
839 BufferBSC_stop_binding
,
841 BufferBSC_on_progress
,
842 BufferBSC_on_response
846 static BufferBSC
*create_bufferbsc(IMoniker
*mon
)
848 BufferBSC
*ret
= heap_alloc_zero(sizeof(*ret
));
850 init_bscallback(&ret
->bsc
, &BufferBSCVtbl
, mon
, 0);
856 HRESULT
bind_mon_to_buffer(HTMLDocumentNode
*doc
, IMoniker
*mon
, void **buf
, DWORD
*size
)
858 BufferBSC
*bsc
= create_bufferbsc(mon
);
863 hres
= start_binding(NULL
, doc
, &bsc
->bsc
, NULL
);
864 if(SUCCEEDED(hres
)) {
866 if(SUCCEEDED(hres
)) {
869 *size
= bsc
->bsc
.readed
;
874 IBindStatusCallback_Release(STATUSCLB(&bsc
->bsc
));
879 struct nsChannelBSC
{
884 nsChannel
*nschannel
;
885 nsIStreamListener
*nslistener
;
886 nsISupports
*nscontext
;
888 nsProtocolStream
*nsstream
;
891 static void on_start_nsrequest(nsChannelBSC
*This
)
895 /* FIXME: it's needed for http connections from BindToObject. */
896 if(!This
->nschannel
->response_status
)
897 This
->nschannel
->response_status
= 200;
899 nsres
= nsIStreamListener_OnStartRequest(This
->nslistener
,
900 (nsIRequest
*)NSCHANNEL(This
->nschannel
), This
->nscontext
);
902 FIXME("OnStartRequest failed: %08x\n", nsres
);
905 static void on_stop_nsrequest(nsChannelBSC
*This
, HRESULT result
)
909 if(!This
->nslistener
)
912 if(!This
->bsc
.readed
&& SUCCEEDED(result
)) {
913 TRACE("No data read! Calling OnStartRequest\n");
914 on_start_nsrequest(This
);
917 nsres
= nsIStreamListener_OnStopRequest(This
->nslistener
, (nsIRequest
*)NSCHANNEL(This
->nschannel
),
918 This
->nscontext
, SUCCEEDED(result
) ? NS_OK
: NS_ERROR_FAILURE
);
920 WARN("OnStopRequest failed: %08x\n", nsres
);
923 static HRESULT
read_stream_data(nsChannelBSC
*This
, IStream
*stream
)
929 if(!This
->nslistener
) {
934 hres
= IStream_Read(stream
, buf
, sizeof(buf
), &read
);
935 }while(hres
== S_OK
&& read
);
941 This
->nsstream
= create_nsprotocol_stream();
945 hres
= IStream_Read(stream
, This
->nsstream
->buf
+This
->nsstream
->buf_size
,
946 sizeof(This
->nsstream
->buf
)-This
->nsstream
->buf_size
, &read
);
950 This
->nsstream
->buf_size
+= read
;
952 if(!This
->bsc
.readed
) {
953 if(This
->nsstream
->buf_size
>= 2
954 && (BYTE
)This
->nsstream
->buf
[0] == 0xff
955 && (BYTE
)This
->nsstream
->buf
[1] == 0xfe)
956 This
->nschannel
->charset
= heap_strdupA(UTF16_STR
);
958 if(!This
->nschannel
->content_type
) {
961 hres
= FindMimeFromData(NULL
, NULL
, This
->nsstream
->buf
, This
->nsstream
->buf_size
, NULL
, 0, &mime
, 0);
965 TRACE("Found MIME %s\n", debugstr_w(mime
));
967 This
->nschannel
->content_type
= heap_strdupWtoA(mime
);
969 if(!This
->nschannel
->content_type
)
970 return E_OUTOFMEMORY
;
973 on_start_nsrequest(This
);
976 update_window_doc(This
->window
);
977 if(This
->window
->readystate
!= READYSTATE_LOADING
)
978 set_ready_state(This
->window
, READYSTATE_LOADING
);
982 This
->bsc
.readed
+= This
->nsstream
->buf_size
;
984 nsres
= nsIStreamListener_OnDataAvailable(This
->nslistener
,
985 (nsIRequest
*)NSCHANNEL(This
->nschannel
), This
->nscontext
,
986 NSINSTREAM(This
->nsstream
), This
->bsc
.readed
-This
->nsstream
->buf_size
,
987 This
->nsstream
->buf_size
);
989 ERR("OnDataAvailable failed: %08x\n", nsres
);
991 if(This
->nsstream
->buf_size
== sizeof(This
->nsstream
->buf
)) {
992 ERR("buffer is full\n");
995 }while(hres
== S_OK
);
1000 static void add_nsrequest(nsChannelBSC
*This
)
1004 if(!This
->nschannel
|| !This
->nschannel
->load_group
)
1007 nsres
= nsILoadGroup_AddRequest(This
->nschannel
->load_group
,
1008 (nsIRequest
*)NSCHANNEL(This
->nschannel
), This
->nscontext
);
1010 if(NS_FAILED(nsres
))
1011 ERR("AddRequest failed:%08x\n", nsres
);
1014 #define NSCHANNELBSC_THIS(bsc) ((nsChannelBSC*) bsc)
1016 static void nsChannelBSC_destroy(BSCallback
*bsc
)
1018 nsChannelBSC
*This
= NSCHANNELBSC_THIS(bsc
);
1021 nsIChannel_Release(NSCHANNEL(This
->nschannel
));
1022 if(This
->nslistener
)
1023 nsIStreamListener_Release(This
->nslistener
);
1025 nsISupports_Release(This
->nscontext
);
1027 nsIInputStream_Release(NSINSTREAM(This
->nsstream
));
1031 static HRESULT
nsChannelBSC_start_binding(BSCallback
*bsc
)
1033 nsChannelBSC
*This
= NSCHANNELBSC_THIS(bsc
);
1035 add_nsrequest(This
);
1040 static HRESULT
nsChannelBSC_init_bindinfo(BSCallback
*bsc
)
1042 nsChannelBSC
*This
= NSCHANNELBSC_THIS(bsc
);
1044 if(This
->nschannel
&& This
->nschannel
->post_data_stream
) {
1045 parse_post_data(This
->nschannel
->post_data_stream
, &This
->bsc
.headers
, &This
->bsc
.post_data
, &This
->bsc
.post_data_len
);
1046 TRACE("headers = %s post_data = %s\n", debugstr_w(This
->bsc
.headers
),
1047 debugstr_an(This
->bsc
.post_data
, This
->bsc
.post_data_len
));
1053 static HRESULT
nsChannelBSC_stop_binding(BSCallback
*bsc
, HRESULT result
)
1055 nsChannelBSC
*This
= NSCHANNELBSC_THIS(bsc
);
1057 on_stop_nsrequest(This
, result
);
1059 if(This
->nslistener
) {
1060 if(This
->nschannel
->load_group
) {
1063 nsres
= nsILoadGroup_RemoveRequest(This
->nschannel
->load_group
,
1064 (nsIRequest
*)NSCHANNEL(This
->nschannel
), NULL
, NS_OK
);
1065 if(NS_FAILED(nsres
))
1066 ERR("RemoveRequest failed: %08x\n", nsres
);
1073 static HRESULT
nsChannelBSC_read_data(BSCallback
*bsc
, IStream
*stream
)
1075 nsChannelBSC
*This
= NSCHANNELBSC_THIS(bsc
);
1077 return read_stream_data(This
, stream
);
1080 static HRESULT
nsChannelBSC_on_progress(BSCallback
*bsc
, ULONG status_code
, LPCWSTR status_text
)
1082 nsChannelBSC
*This
= NSCHANNELBSC_THIS(bsc
);
1084 switch(status_code
) {
1085 case BINDSTATUS_MIMETYPEAVAILABLE
:
1086 if(!This
->nschannel
)
1089 heap_free(This
->nschannel
->content_type
);
1090 This
->nschannel
->content_type
= heap_strdupWtoA(status_text
);
1092 case BINDSTATUS_REDIRECTING
:
1093 TRACE("redirect to %s\n", debugstr_w(status_text
));
1095 /* FIXME: We should find a better way to handle this */
1096 set_wine_url(This
->nschannel
->uri
, status_text
);
1102 static HRESULT
nsChannelBSC_on_response(BSCallback
*bsc
, DWORD response_code
)
1104 nsChannelBSC
*This
= NSCHANNELBSC_THIS(bsc
);
1106 This
->nschannel
->response_status
= response_code
;
1110 #undef NSCHANNELBSC_THIS
1112 static const BSCallbackVtbl nsChannelBSCVtbl
= {
1113 nsChannelBSC_destroy
,
1114 nsChannelBSC_init_bindinfo
,
1115 nsChannelBSC_start_binding
,
1116 nsChannelBSC_stop_binding
,
1117 nsChannelBSC_read_data
,
1118 nsChannelBSC_on_progress
,
1119 nsChannelBSC_on_response
1122 HRESULT
create_channelbsc(IMoniker
*mon
, WCHAR
*headers
, BYTE
*post_data
, DWORD post_data_size
, nsChannelBSC
**retval
)
1126 ret
= heap_alloc_zero(sizeof(*ret
));
1128 return E_OUTOFMEMORY
;
1130 init_bscallback(&ret
->bsc
, &nsChannelBSCVtbl
, mon
, BINDF_ASYNCHRONOUS
| BINDF_ASYNCSTORAGE
| BINDF_PULLDATA
);
1133 ret
->bsc
.headers
= heap_strdupW(headers
);
1134 if(!ret
->bsc
.headers
) {
1135 IBindStatusCallback_Release(STATUSCLB(&ret
->bsc
));
1136 return E_OUTOFMEMORY
;
1141 ret
->bsc
.post_data
= GlobalAlloc(0, post_data_size
);
1142 if(!ret
->bsc
.post_data
) {
1143 heap_free(ret
->bsc
.headers
);
1144 IBindStatusCallback_Release(STATUSCLB(&ret
->bsc
));
1145 return E_OUTOFMEMORY
;
1148 memcpy(ret
->bsc
.post_data
, post_data
, post_data_size
);
1149 ret
->bsc
.post_data_len
= post_data_size
;
1156 IMoniker
*get_channelbsc_mon(nsChannelBSC
*This
)
1159 IMoniker_AddRef(This
->bsc
.mon
);
1160 return This
->bsc
.mon
;
1163 void set_window_bscallback(HTMLWindow
*window
, nsChannelBSC
*callback
)
1165 if(window
->bscallback
) {
1166 if(window
->bscallback
->bsc
.binding
)
1167 IBinding_Abort(window
->bscallback
->bsc
.binding
);
1168 window
->bscallback
->bsc
.doc
= NULL
;
1169 window
->bscallback
->window
= NULL
;
1170 IBindStatusCallback_Release(STATUSCLB(&window
->bscallback
->bsc
));
1173 window
->bscallback
= callback
;
1176 callback
->window
= window
;
1177 IBindStatusCallback_AddRef(STATUSCLB(&callback
->bsc
));
1178 callback
->bsc
.doc
= window
->doc
;
1185 nsChannelBSC
*bscallback
;
1186 } start_doc_binding_task_t
;
1188 static void start_doc_binding_proc(task_t
*_task
)
1190 start_doc_binding_task_t
*task
= (start_doc_binding_task_t
*)_task
;
1192 start_binding(task
->window
, NULL
, (BSCallback
*)task
->bscallback
, NULL
);
1193 IBindStatusCallback_Release(STATUSCLB(&task
->bscallback
->bsc
));
1196 HRESULT
async_start_doc_binding(HTMLWindow
*window
, nsChannelBSC
*bscallback
)
1198 start_doc_binding_task_t
*task
;
1200 task
= heap_alloc(sizeof(start_doc_binding_task_t
));
1202 return E_OUTOFMEMORY
;
1204 task
->window
= window
;
1205 task
->bscallback
= bscallback
;
1206 IBindStatusCallback_AddRef(STATUSCLB(&bscallback
->bsc
));
1208 push_task(&task
->header
, start_doc_binding_proc
, window
->task_magic
);
1212 void abort_document_bindings(HTMLDocumentNode
*doc
)
1216 LIST_FOR_EACH_ENTRY(iter
, &doc
->bindings
, BSCallback
, entry
) {
1218 IBinding_Abort(iter
->binding
);
1220 list_remove(&iter
->entry
);
1224 HRESULT
channelbsc_load_stream(nsChannelBSC
*bscallback
, IStream
*stream
)
1228 if(!bscallback
->nschannel
) {
1229 ERR("NULL nschannel\n");
1233 bscallback
->nschannel
->content_type
= heap_strdupA("text/html");
1234 if(!bscallback
->nschannel
->content_type
)
1235 return E_OUTOFMEMORY
;
1237 add_nsrequest(bscallback
);
1239 hres
= read_stream_data(bscallback
, stream
);
1240 IBindStatusCallback_OnStopBinding(STATUSCLB(&bscallback
->bsc
), hres
, ERROR_SUCCESS
);
1245 void channelbsc_set_channel(nsChannelBSC
*This
, nsChannel
*channel
, nsIStreamListener
*listener
, nsISupports
*context
)
1247 nsIChannel_AddRef(NSCHANNEL(channel
));
1248 This
->nschannel
= channel
;
1250 nsIStreamListener_AddRef(listener
);
1251 This
->nslistener
= listener
;
1254 nsISupports_AddRef(context
);
1255 This
->nscontext
= context
;
1259 HRESULT
hlink_frame_navigate(HTMLDocument
*doc
, LPCWSTR url
,
1260 nsIInputStream
*post_data_stream
, DWORD hlnf
, BOOL
*cancel
)
1262 IHlinkFrame
*hlink_frame
;
1263 nsChannelBSC
*callback
;
1264 IServiceProvider
*sp
;
1272 hres
= IOleClientSite_QueryInterface(doc
->doc_obj
->client
, &IID_IServiceProvider
,
1277 hres
= IServiceProvider_QueryService(sp
, &IID_IHlinkFrame
, &IID_IHlinkFrame
,
1278 (void**)&hlink_frame
);
1279 IServiceProvider_Release(sp
);
1283 hres
= create_channelbsc(NULL
, NULL
, NULL
, 0, &callback
);
1285 IHlinkFrame_Release(hlink_frame
);
1289 if(post_data_stream
) {
1290 parse_post_data(post_data_stream
, &callback
->bsc
.headers
, &callback
->bsc
.post_data
,
1291 &callback
->bsc
.post_data_len
);
1292 TRACE("headers = %s post_data = %s\n", debugstr_w(callback
->bsc
.headers
),
1293 debugstr_an(callback
->bsc
.post_data
, callback
->bsc
.post_data_len
));
1296 hres
= CreateAsyncBindCtx(0, STATUSCLB(&callback
->bsc
), NULL
, &bindctx
);
1298 hres
= CoCreateInstance(&CLSID_StdHlink
, NULL
, CLSCTX_INPROC_SERVER
,
1299 &IID_IHlink
, (LPVOID
*)&hlink
);
1302 hres
= CreateURLMoniker(NULL
, url
, &mon
);
1304 if(SUCCEEDED(hres
)) {
1305 IHlink_SetMonikerReference(hlink
, HLINKSETF_TARGET
, mon
, NULL
);
1307 if(hlnf
& HLNF_OPENINNEWWINDOW
) {
1308 static const WCHAR wszBlank
[] = {'_','b','l','a','n','k',0};
1309 IHlink_SetTargetFrameName(hlink
, wszBlank
); /* FIXME */
1312 hres
= IHlinkFrame_Navigate(hlink_frame
, hlnf
, bindctx
, STATUSCLB(&callback
->bsc
), hlink
);
1313 IMoniker_Release(mon
);
1314 *cancel
= hres
== S_OK
;
1318 IHlinkFrame_Release(hlink_frame
);
1319 IBindCtx_Release(bindctx
);
1320 IBindStatusCallback_Release(STATUSCLB(&callback
->bsc
));
1324 HRESULT
navigate_url(HTMLWindow
*window
, const WCHAR
*new_url
, const WCHAR
*base_url
)
1326 WCHAR url
[INTERNET_MAX_URL_LENGTH
];
1332 }else if(base_url
) {
1335 hres
= CoInternetCombineUrl(base_url
, new_url
, URL_ESCAPE_SPACES_ONLY
|URL_DONT_ESCAPE_EXTRA_INFO
,
1336 url
, sizeof(url
)/sizeof(WCHAR
), &len
, 0);
1340 strcpyW(url
, new_url
);
1343 if(window
->doc_obj
&& window
->doc_obj
->hostui
) {
1344 OLECHAR
*translated_url
= NULL
;
1346 hres
= IDocHostUIHandler_TranslateUrl(window
->doc_obj
->hostui
, 0, url
,
1349 TRACE("%08x %s -> %s\n", hres
, debugstr_w(url
), debugstr_w(translated_url
));
1350 strcpyW(url
, translated_url
);
1351 CoTaskMemFree(translated_url
);
1355 if(window
->doc_obj
&& window
== window
->doc_obj
->basedoc
.window
) {
1358 hres
= hlink_frame_navigate(&window
->doc
->basedoc
, url
, NULL
, 0, &cancel
);
1363 TRACE("Navigation handled by hlink frame\n");
1368 hres
= create_doc_uri(window
, url
, &uri
);
1372 hres
= load_nsuri(window
, uri
, NULL
, LOAD_FLAGS_NONE
);
1373 nsISupports_Release((nsISupports
*)uri
);