2 * Copyright 2005-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
19 #include "urlmon_main.h"
23 #include "wine/debug.h"
25 WINE_DEFAULT_DEBUG_CHANNEL(urlmon
);
27 static WCHAR cbinding_contextW
[] = {'C','B','i','n','d','i','n','g',' ','C','o','n','t','e','x','t',0};
28 static WCHAR bscb_holderW
[] = { '_','B','S','C','B','_','H','o','l','d','e','r','_',0 };
31 IUnknown IUnknown_iface
;
35 IInternetProtocolEx
*protocol
;
46 typedef struct _stgmed_obj_t stgmed_obj_t
;
49 void (*release
)(stgmed_obj_t
*);
50 HRESULT (*fill_stgmed
)(stgmed_obj_t
*,STGMEDIUM
*);
51 HRESULT (*get_result
)(stgmed_obj_t
*,DWORD
,void**);
54 struct _stgmed_obj_t
{
55 const stgmed_obj_vtbl
*vtbl
;
64 #define BINDING_LOCKED 0x0001
65 #define BINDING_STOPPED 0x0002
66 #define BINDING_OBJAVAIL 0x0004
67 #define BINDING_ABORTED 0x0008
70 const IBindingVtbl
*lpBindingVtbl
;
71 const IInternetProtocolSinkVtbl
*lpIInternetProtocolSinkVtbl
;
72 const IInternetBindInfoVtbl
*lpInternetBindInfoVtbl
;
73 const IWinInetHttpInfoVtbl
*lpWinInetHttpInfoVtbl
;
74 const IServiceProviderVtbl
*lpServiceProviderVtbl
;
78 IBindStatusCallback
*callback
;
79 IServiceProvider
*service_provider
;
81 BindProtocol
*protocol
;
83 stgmed_buf_t
*stgmed_buf
;
84 stgmed_obj_t
*stgmed_obj
;
90 UINT clipboard_format
;
98 download_state_t download_state
;
104 CRITICAL_SECTION section
;
107 #define BINDING(x) ((IBinding*) &(x)->lpBindingVtbl)
108 #define BINDINF(x) ((IInternetBindInfo*) &(x)->lpInternetBindInfoVtbl)
109 #define INETINFO(x) ((IWinInetHttpInfo*) &(x)->lpWinInetHttpInfoVtbl)
110 #define SERVPROV(x) ((IServiceProvider*) &(x)->lpServiceProviderVtbl)
112 #define STREAM(x) ((IStream*) &(x)->lpStreamVtbl)
113 #define HTTPNEG2(x) ((IHttpNegotiate2*) &(x)->lpHttpNegotiate2Vtbl)
115 static void fill_stgmed_buffer(stgmed_buf_t
*buf
)
119 if(sizeof(buf
->buf
) == buf
->size
)
122 buf
->hres
= IInternetProtocol_Read(buf
->protocol
, buf
->buf
+buf
->size
,
123 sizeof(buf
->buf
)-buf
->size
, &read
);
129 static void read_protocol_data(stgmed_buf_t
*stgmed_buf
)
135 fill_stgmed_buffer(stgmed_buf
);
136 if(stgmed_buf
->size
< sizeof(stgmed_buf
->buf
))
139 do hres
= IInternetProtocol_Read(stgmed_buf
->protocol
, buf
, sizeof(buf
), &read
);
143 static void dump_BINDINFO(BINDINFO
*bi
)
145 static const char * const BINDINFOF_str
[] = {
147 "BINDINFOF_URLENCODESTGMEDDATA",
148 "BINDINFOF_URLENCODEDEXTRAINFO"
151 static const char * const BINDVERB_str
[] = {
165 " %d, %08x, %d, %d\n"
171 bi
->cbSize
, debugstr_w(bi
->szExtraInfo
),
172 bi
->stgmedData
.tymed
, bi
->stgmedData
.u
.hGlobal
, bi
->stgmedData
.pUnkForRelease
,
173 bi
->grfBindInfoF
> BINDINFOF_URLENCODEDEXTRAINFO
174 ? "unknown" : BINDINFOF_str
[bi
->grfBindInfoF
],
175 bi
->dwBindVerb
> BINDVERB_CUSTOM
176 ? "unknown" : BINDVERB_str
[bi
->dwBindVerb
],
177 debugstr_w(bi
->szCustomVerb
),
178 bi
->cbstgmedData
, bi
->dwOptions
, bi
->dwOptionsFlags
, bi
->dwCodePage
,
179 bi
->securityAttributes
.nLength
,
180 bi
->securityAttributes
.lpSecurityDescriptor
,
181 bi
->securityAttributes
.bInheritHandle
,
182 debugstr_guid(&bi
->iid
),
183 bi
->pUnk
, bi
->dwReserved
187 static void mime_available(Binding
*This
, LPCWSTR mime
)
189 heap_free(This
->mime
);
190 This
->mime
= heap_strdupW(mime
);
192 if(!This
->mime
|| !This
->report_mime
)
195 IBindStatusCallback_OnProgress(This
->callback
, 0, 0, BINDSTATUS_MIMETYPEAVAILABLE
, This
->mime
);
197 This
->clipboard_format
= RegisterClipboardFormatW(This
->mime
);
200 static void stop_binding(Binding
*binding
, HRESULT hres
, LPCWSTR str
)
202 if(binding
->state
& BINDING_LOCKED
) {
203 IInternetProtocolEx_UnlockRequest(&binding
->protocol
->IInternetProtocolEx_iface
);
204 binding
->state
&= ~BINDING_LOCKED
;
207 if(!(binding
->state
& BINDING_STOPPED
)) {
208 binding
->state
|= BINDING_STOPPED
;
210 IBindStatusCallback_OnStopBinding(binding
->callback
, hres
, str
);
211 binding
->hres
= hres
;
215 static LPWSTR
get_mime_clsid(LPCWSTR mime
, CLSID
*clsid
)
217 LPWSTR key_name
, ret
;
218 DWORD res
, type
, size
;
223 static const WCHAR mime_keyW
[] =
224 {'M','I','M','E','\\','D','a','t','a','b','a','s','e','\\',
225 'C','o','n','t','e','n','t',' ','T','y','p','e','\\'};
226 static const WCHAR clsidW
[] = {'C','L','S','I','D',0};
228 len
= strlenW(mime
)+1;
229 key_name
= heap_alloc(sizeof(mime_keyW
) + len
*sizeof(WCHAR
));
230 memcpy(key_name
, mime_keyW
, sizeof(mime_keyW
));
231 strcpyW(key_name
+ sizeof(mime_keyW
)/sizeof(WCHAR
), mime
);
233 res
= RegOpenKeyW(HKEY_CLASSES_ROOT
, key_name
, &hkey
);
235 if(res
!= ERROR_SUCCESS
) {
236 WARN("Could not open MIME key: %x\n", res
);
240 size
= 50*sizeof(WCHAR
);
241 ret
= heap_alloc(size
);
242 res
= RegQueryValueExW(hkey
, clsidW
, NULL
, &type
, (LPBYTE
)ret
, &size
);
244 if(res
!= ERROR_SUCCESS
) {
245 WARN("Could not get CLSID: %08x\n", res
);
250 hres
= CLSIDFromString(ret
, clsid
);
252 WARN("Could not parse CLSID: %08x\n", hres
);
260 static void load_doc_mon(Binding
*binding
, IPersistMoniker
*persist
)
265 hres
= CreateAsyncBindCtxEx(binding
->bctx
, 0, NULL
, NULL
, &bctx
, 0);
267 WARN("CreateAsyncBindCtxEx failed: %08x\n", hres
);
271 IBindCtx_RevokeObjectParam(bctx
, bscb_holderW
);
272 IBindCtx_RegisterObjectParam(bctx
, cbinding_contextW
, (IUnknown
*)BINDING(binding
));
274 hres
= IPersistMoniker_Load(persist
, binding
->download_state
== END_DOWNLOAD
, binding
->mon
, bctx
, 0x12);
275 IBindCtx_RevokeObjectParam(bctx
, cbinding_contextW
);
276 IBindCtx_Release(bctx
);
278 FIXME("Load failed: %08x\n", hres
);
281 static HRESULT
create_mime_object(Binding
*binding
, const CLSID
*clsid
, LPCWSTR clsid_str
)
283 IPersistMoniker
*persist
;
286 hres
= CoCreateInstance(clsid
, NULL
, CLSCTX_INPROC_SERVER
|CLSCTX_INPROC_HANDLER
,
287 &binding
->iid
, (void**)&binding
->obj
);
289 WARN("CoCreateInstance failed: %08x\n", hres
);
290 return INET_E_CANNOT_INSTANTIATE_OBJECT
;
293 binding
->state
|= BINDING_OBJAVAIL
;
295 hres
= IUnknown_QueryInterface(binding
->obj
, &IID_IPersistMoniker
, (void**)&persist
);
296 if(SUCCEEDED(hres
)) {
299 hres
= IPersistMoniker_QueryInterface(persist
, &IID_IMonikerProp
, (void**)&prop
);
300 if(SUCCEEDED(hres
)) {
301 IMonikerProp_PutProperty(prop
, MIMETYPEPROP
, binding
->mime
);
302 IMonikerProp_PutProperty(prop
, CLASSIDPROP
, clsid_str
);
303 IMonikerProp_Release(prop
);
306 load_doc_mon(binding
, persist
);
308 IPersistMoniker_Release(persist
);
310 FIXME("Could not get IPersistMoniker: %08x\n", hres
);
311 /* FIXME: Try query IPersistFile */
314 IBindStatusCallback_OnObjectAvailable(binding
->callback
, &binding
->iid
, binding
->obj
);
319 static void create_object(Binding
*binding
)
326 FIXME("MIME not available\n");
330 if(!(clsid_str
= get_mime_clsid(binding
->mime
, &clsid
))) {
331 FIXME("Could not find object for MIME %s\n", debugstr_w(binding
->mime
));
335 IBindStatusCallback_OnProgress(binding
->callback
, 0, 0, BINDSTATUS_CLASSIDAVAILABLE
, clsid_str
);
336 IBindStatusCallback_OnProgress(binding
->callback
, 0, 0, BINDSTATUS_BEGINSYNCOPERATION
, NULL
);
338 hres
= create_mime_object(binding
, &clsid
, clsid_str
);
339 heap_free(clsid_str
);
341 IBindStatusCallback_OnProgress(binding
->callback
, 0, 0, BINDSTATUS_ENDSYNCOPERATION
, NULL
);
343 stop_binding(binding
, hres
, NULL
);
345 IInternetProtocolEx_Terminate(&binding
->protocol
->IInternetProtocolEx_iface
, 0);
348 static void cache_file_available(Binding
*This
, const WCHAR
*file_name
)
350 heap_free(This
->stgmed_buf
->cache_file
);
351 This
->stgmed_buf
->cache_file
= heap_strdupW(file_name
);
353 if(This
->use_cache_file
) {
354 This
->stgmed_buf
->file
= CreateFileW(file_name
, GENERIC_READ
, FILE_SHARE_READ
|FILE_SHARE_WRITE
, NULL
,
355 OPEN_EXISTING
, FILE_ATTRIBUTE_NORMAL
, NULL
);
356 if(This
->stgmed_buf
->file
== INVALID_HANDLE_VALUE
)
357 WARN("CreateFile failed: %u\n", GetLastError());
361 static inline stgmed_buf_t
*impl_from_IUnknown(IUnknown
*iface
)
363 return CONTAINING_RECORD(iface
, stgmed_buf_t
, IUnknown_iface
);
366 static HRESULT WINAPI
StgMedUnk_QueryInterface(IUnknown
*iface
, REFIID riid
, void **ppv
)
368 stgmed_buf_t
*This
= impl_from_IUnknown(iface
);
372 if(IsEqualGUID(riid
, &IID_IUnknown
)) {
373 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
375 *ppv
= &This
->IUnknown_iface
;
376 IUnknown_AddRef(&This
->IUnknown_iface
);
380 TRACE("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppv
);
381 return E_NOINTERFACE
;
384 static ULONG WINAPI
StgMedUnk_AddRef(IUnknown
*iface
)
386 stgmed_buf_t
*This
= impl_from_IUnknown(iface
);
387 LONG ref
= InterlockedIncrement(&This
->ref
);
389 TRACE("(%p) ref=%d\n", This
, ref
);
394 static ULONG WINAPI
StgMedUnk_Release(IUnknown
*iface
)
396 stgmed_buf_t
*This
= impl_from_IUnknown(iface
);
397 LONG ref
= InterlockedDecrement(&This
->ref
);
399 TRACE("(%p) ref=%d\n", This
, ref
);
402 if(This
->file
!= INVALID_HANDLE_VALUE
)
403 CloseHandle(This
->file
);
404 IInternetProtocol_Release(This
->protocol
);
405 heap_free(This
->cache_file
);
408 URLMON_UnlockModule();
414 static const IUnknownVtbl StgMedUnkVtbl
= {
415 StgMedUnk_QueryInterface
,
420 static stgmed_buf_t
*create_stgmed_buf(IInternetProtocolEx
*protocol
)
422 stgmed_buf_t
*ret
= heap_alloc(sizeof(*ret
));
424 ret
->IUnknown_iface
.lpVtbl
= &StgMedUnkVtbl
;
428 ret
->file
= INVALID_HANDLE_VALUE
;
430 ret
->cache_file
= NULL
;
432 IInternetProtocol_AddRef(protocol
);
433 ret
->protocol
= protocol
;
441 stgmed_obj_t stgmed_obj
;
442 const IStreamVtbl
*lpStreamVtbl
;
449 #define STREAM_THIS(iface) DEFINE_THIS(ProtocolStream, Stream, iface)
451 static HRESULT WINAPI
ProtocolStream_QueryInterface(IStream
*iface
,
452 REFIID riid
, void **ppv
)
454 ProtocolStream
*This
= STREAM_THIS(iface
);
458 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
459 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
461 }else if(IsEqualGUID(&IID_ISequentialStream
, riid
)) {
462 TRACE("(%p)->(IID_ISequentialStream %p)\n", This
, ppv
);
464 }else if(IsEqualGUID(&IID_IStream
, riid
)) {
465 TRACE("(%p)->(IID_IStream %p)\n", This
, ppv
);
470 IStream_AddRef(STREAM(This
));
474 WARN("(%p)->(%s %p)\n", This
, debugstr_guid(riid
), ppv
);
475 return E_NOINTERFACE
;
478 static ULONG WINAPI
ProtocolStream_AddRef(IStream
*iface
)
480 ProtocolStream
*This
= STREAM_THIS(iface
);
481 LONG ref
= InterlockedIncrement(&This
->ref
);
483 TRACE("(%p) ref=%d\n", This
, ref
);
488 static ULONG WINAPI
ProtocolStream_Release(IStream
*iface
)
490 ProtocolStream
*This
= STREAM_THIS(iface
);
491 LONG ref
= InterlockedDecrement(&This
->ref
);
493 TRACE("(%p) ref=%d\n", This
, ref
);
496 IUnknown_Release(&This
->buf
->IUnknown_iface
);
499 URLMON_UnlockModule();
505 static HRESULT WINAPI
ProtocolStream_Read(IStream
*iface
, void *pv
,
506 ULONG cb
, ULONG
*pcbRead
)
508 ProtocolStream
*This
= STREAM_THIS(iface
);
509 DWORD read
= 0, pread
= 0;
512 TRACE("(%p)->(%p %d %p)\n", This
, pv
, cb
, pcbRead
);
514 if(This
->buf
->file
!= INVALID_HANDLE_VALUE
) {
515 if (!ReadFile(This
->buf
->file
, pv
, cb
, &read
, NULL
))
516 return INET_E_DOWNLOAD_FAILURE
;
520 return read
? S_OK
: S_FALSE
;
523 if(This
->buf
->size
) {
526 if(read
> This
->buf
->size
)
527 read
= This
->buf
->size
;
529 memcpy(pv
, This
->buf
->buf
, read
);
531 if(read
< This
->buf
->size
)
532 memmove(This
->buf
->buf
, This
->buf
->buf
+read
, This
->buf
->size
-read
);
533 This
->buf
->size
-= read
;
542 hres
= This
->buf
->hres
= IInternetProtocol_Read(This
->buf
->protocol
, (PBYTE
)pv
+read
, cb
-read
, &pread
);
544 *pcbRead
= read
+ pread
;
546 if(hres
== E_PENDING
)
548 else if(FAILED(hres
))
549 FIXME("Read failed: %08x\n", hres
);
551 return read
|| pread
? S_OK
: S_FALSE
;
554 static HRESULT WINAPI
ProtocolStream_Write(IStream
*iface
, const void *pv
,
555 ULONG cb
, ULONG
*pcbWritten
)
557 ProtocolStream
*This
= STREAM_THIS(iface
);
559 TRACE("(%p)->(%p %d %p)\n", This
, pv
, cb
, pcbWritten
);
561 return STG_E_ACCESSDENIED
;
564 static HRESULT WINAPI
ProtocolStream_Seek(IStream
*iface
, LARGE_INTEGER dlibMove
,
565 DWORD dwOrigin
, ULARGE_INTEGER
*plibNewPosition
)
567 ProtocolStream
*This
= STREAM_THIS(iface
);
568 FIXME("(%p)->(%d %08x %p)\n", This
, dlibMove
.u
.LowPart
, dwOrigin
, plibNewPosition
);
572 static HRESULT WINAPI
ProtocolStream_SetSize(IStream
*iface
, ULARGE_INTEGER libNewSize
)
574 ProtocolStream
*This
= STREAM_THIS(iface
);
575 FIXME("(%p)->(%d)\n", This
, libNewSize
.u
.LowPart
);
579 static HRESULT WINAPI
ProtocolStream_CopyTo(IStream
*iface
, IStream
*pstm
,
580 ULARGE_INTEGER cb
, ULARGE_INTEGER
*pcbRead
, ULARGE_INTEGER
*pcbWritten
)
582 ProtocolStream
*This
= STREAM_THIS(iface
);
583 FIXME("(%p)->(%p %d %p %p)\n", This
, pstm
, cb
.u
.LowPart
, pcbRead
, pcbWritten
);
587 static HRESULT WINAPI
ProtocolStream_Commit(IStream
*iface
, DWORD grfCommitFlags
)
589 ProtocolStream
*This
= STREAM_THIS(iface
);
591 TRACE("(%p)->(%08x)\n", This
, grfCommitFlags
);
596 static HRESULT WINAPI
ProtocolStream_Revert(IStream
*iface
)
598 ProtocolStream
*This
= STREAM_THIS(iface
);
600 TRACE("(%p)\n", This
);
605 static HRESULT WINAPI
ProtocolStream_LockRegion(IStream
*iface
, ULARGE_INTEGER libOffset
,
606 ULARGE_INTEGER cb
, DWORD dwLockType
)
608 ProtocolStream
*This
= STREAM_THIS(iface
);
609 FIXME("(%p)->(%d %d %d)\n", This
, libOffset
.u
.LowPart
, cb
.u
.LowPart
, dwLockType
);
613 static HRESULT WINAPI
ProtocolStream_UnlockRegion(IStream
*iface
,
614 ULARGE_INTEGER libOffset
, ULARGE_INTEGER cb
, DWORD dwLockType
)
616 ProtocolStream
*This
= STREAM_THIS(iface
);
617 FIXME("(%p)->(%d %d %d)\n", This
, libOffset
.u
.LowPart
, cb
.u
.LowPart
, dwLockType
);
621 static HRESULT WINAPI
ProtocolStream_Stat(IStream
*iface
, STATSTG
*pstatstg
,
624 ProtocolStream
*This
= STREAM_THIS(iface
);
625 TRACE("(%p)->(%p %08x)\n", This
, pstatstg
, dwStatFlag
);
630 memset(pstatstg
, 0, sizeof(STATSTG
));
632 if(!(dwStatFlag
&STATFLAG_NONAME
) && This
->buf
->cache_file
) {
633 pstatstg
->pwcsName
= CoTaskMemAlloc((lstrlenW(This
->buf
->cache_file
)+1)*sizeof(WCHAR
));
634 if(!pstatstg
->pwcsName
)
635 return STG_E_INSUFFICIENTMEMORY
;
637 lstrcpyW(pstatstg
->pwcsName
, This
->buf
->cache_file
);
640 pstatstg
->type
= STGTY_STREAM
;
641 if(This
->buf
->file
!= INVALID_HANDLE_VALUE
) {
642 GetFileSizeEx(This
->buf
->file
, (PLARGE_INTEGER
)&pstatstg
->cbSize
);
643 GetFileTime(This
->buf
->file
, &pstatstg
->ctime
, &pstatstg
->atime
, &pstatstg
->mtime
);
644 if(pstatstg
->cbSize
.QuadPart
)
645 pstatstg
->grfMode
= GENERIC_READ
;
651 static HRESULT WINAPI
ProtocolStream_Clone(IStream
*iface
, IStream
**ppstm
)
653 ProtocolStream
*This
= STREAM_THIS(iface
);
654 FIXME("(%p)->(%p)\n", This
, ppstm
);
660 static const IStreamVtbl ProtocolStreamVtbl
= {
661 ProtocolStream_QueryInterface
,
662 ProtocolStream_AddRef
,
663 ProtocolStream_Release
,
665 ProtocolStream_Write
,
667 ProtocolStream_SetSize
,
668 ProtocolStream_CopyTo
,
669 ProtocolStream_Commit
,
670 ProtocolStream_Revert
,
671 ProtocolStream_LockRegion
,
672 ProtocolStream_UnlockRegion
,
677 static void stgmed_stream_release(stgmed_obj_t
*obj
)
679 ProtocolStream
*stream
= (ProtocolStream
*)obj
;
680 IStream_Release(STREAM(stream
));
683 static HRESULT
stgmed_stream_fill_stgmed(stgmed_obj_t
*obj
, STGMEDIUM
*stgmed
)
685 ProtocolStream
*stream
= (ProtocolStream
*)obj
;
687 stgmed
->tymed
= TYMED_ISTREAM
;
688 stgmed
->u
.pstm
= STREAM(stream
);
689 stgmed
->pUnkForRelease
= &stream
->buf
->IUnknown_iface
;
694 static HRESULT
stgmed_stream_get_result(stgmed_obj_t
*obj
, DWORD bindf
, void **result
)
696 ProtocolStream
*stream
= (ProtocolStream
*)obj
;
698 if(!(bindf
& BINDF_ASYNCHRONOUS
) && stream
->buf
->file
== INVALID_HANDLE_VALUE
699 && (stream
->buf
->hres
!= S_FALSE
|| stream
->buf
->size
))
700 return INET_E_DATA_NOT_AVAILABLE
;
702 IStream_AddRef(STREAM(stream
));
703 *result
= STREAM(stream
);
707 static const stgmed_obj_vtbl stgmed_stream_vtbl
= {
708 stgmed_stream_release
,
709 stgmed_stream_fill_stgmed
,
710 stgmed_stream_get_result
714 stgmed_obj_t stgmed_obj
;
718 static stgmed_obj_t
*create_stgmed_stream(stgmed_buf_t
*buf
)
720 ProtocolStream
*ret
= heap_alloc(sizeof(ProtocolStream
));
722 ret
->stgmed_obj
.vtbl
= &stgmed_stream_vtbl
;
723 ret
->lpStreamVtbl
= &ProtocolStreamVtbl
;
726 IUnknown_AddRef(&buf
->IUnknown_iface
);
731 return &ret
->stgmed_obj
;
734 static void stgmed_file_release(stgmed_obj_t
*obj
)
736 stgmed_file_obj_t
*file_obj
= (stgmed_file_obj_t
*)obj
;
738 IUnknown_Release(&file_obj
->buf
->IUnknown_iface
);
742 static HRESULT
stgmed_file_fill_stgmed(stgmed_obj_t
*obj
, STGMEDIUM
*stgmed
)
744 stgmed_file_obj_t
*file_obj
= (stgmed_file_obj_t
*)obj
;
746 if(!file_obj
->buf
->cache_file
) {
747 WARN("cache_file not set\n");
748 return INET_E_DATA_NOT_AVAILABLE
;
751 read_protocol_data(file_obj
->buf
);
753 stgmed
->tymed
= TYMED_FILE
;
754 stgmed
->u
.lpszFileName
= file_obj
->buf
->cache_file
;
755 stgmed
->pUnkForRelease
= &file_obj
->buf
->IUnknown_iface
;
760 static HRESULT
stgmed_file_get_result(stgmed_obj_t
*obj
, DWORD bindf
, void **result
)
762 return bindf
& BINDF_ASYNCHRONOUS
? MK_S_ASYNCHRONOUS
: S_OK
;
765 static const stgmed_obj_vtbl stgmed_file_vtbl
= {
767 stgmed_file_fill_stgmed
,
768 stgmed_file_get_result
771 static stgmed_obj_t
*create_stgmed_file(stgmed_buf_t
*buf
)
773 stgmed_file_obj_t
*ret
= heap_alloc(sizeof(*ret
));
775 ret
->stgmed_obj
.vtbl
= &stgmed_file_vtbl
;
777 IUnknown_AddRef(&buf
->IUnknown_iface
);
780 return &ret
->stgmed_obj
;
783 #define BINDING_THIS(iface) DEFINE_THIS(Binding, Binding, iface)
785 static HRESULT WINAPI
Binding_QueryInterface(IBinding
*iface
, REFIID riid
, void **ppv
)
787 Binding
*This
= BINDING_THIS(iface
);
791 if(IsEqualGUID(&IID_IUnknown
, riid
)) {
792 TRACE("(%p)->(IID_IUnknown %p)\n", This
, ppv
);
793 *ppv
= BINDING(This
);
794 }else if(IsEqualGUID(&IID_IBinding
, riid
)) {
795 TRACE("(%p)->(IID_IBinding %p)\n", This
, ppv
);
796 *ppv
= BINDING(This
);
797 }else if(IsEqualGUID(&IID_IInternetProtocolSink
, riid
)) {
798 TRACE("(%p)->(IID_IInternetProtocolSink %p)\n", This
, ppv
);
799 *ppv
= PROTSINK(This
);
800 }else if(IsEqualGUID(&IID_IInternetBindInfo
, riid
)) {
801 TRACE("(%p)->(IID_IInternetBindInfo %p)\n", This
, ppv
);
802 *ppv
= BINDINF(This
);
803 }else if(IsEqualGUID(&IID_IServiceProvider
, riid
)) {
804 TRACE("(%p)->(IID_IServiceProvider %p)\n", This
, ppv
);
805 *ppv
= SERVPROV(This
);
806 }else if(IsEqualGUID(&IID_IWinInetInfo
, riid
)) {
807 TRACE("(%p)->(IID_IWinInetInfo %p)\n", This
, ppv
);
809 /* NOTE: This violidates COM rules, but tests prove that we should do it */
810 if(!This
->protocol
->wininet_info
)
811 return E_NOINTERFACE
;
813 *ppv
= INETINFO(This
);
814 }else if(IsEqualGUID(&IID_IWinInetHttpInfo
, riid
)) {
815 IWinInetHttpInfo
*http_info
;
818 TRACE("(%p)->(IID_IWinInetHttpInfo %p)\n", This
, ppv
);
820 if(!This
->protocol
->wininet_info
)
821 return E_NOINTERFACE
;
823 hres
= IWinInetInfo_QueryInterface(This
->protocol
->wininet_info
, &IID_IWinInetHttpInfo
, (void**)&http_info
);
825 return E_NOINTERFACE
;
827 IWinInetHttpInfo_Release(http_info
);
828 *ppv
= INETINFO(This
);
832 IBinding_AddRef(BINDING(This
));
836 WARN("Unsupported interface %s\n", debugstr_guid(riid
));
837 return E_NOINTERFACE
;
840 static ULONG WINAPI
Binding_AddRef(IBinding
*iface
)
842 Binding
*This
= BINDING_THIS(iface
);
843 LONG ref
= InterlockedIncrement(&This
->ref
);
845 TRACE("(%p) ref=%d\n", This
, ref
);
850 static ULONG WINAPI
Binding_Release(IBinding
*iface
)
852 Binding
*This
= BINDING_THIS(iface
);
853 LONG ref
= InterlockedDecrement(&This
->ref
);
855 TRACE("(%p) ref=%d\n", This
, ref
);
859 release_notif_hwnd(This
->notif_hwnd
);
861 IMoniker_Release(This
->mon
);
863 IBindStatusCallback_Release(This
->callback
);
865 IInternetProtocolEx_Release(&This
->protocol
->IInternetProtocolEx_iface
);
866 if(This
->service_provider
)
867 IServiceProvider_Release(This
->service_provider
);
869 IUnknown_Release(&This
->stgmed_buf
->IUnknown_iface
);
871 This
->stgmed_obj
->vtbl
->release(This
->stgmed_obj
);
873 IUnknown_Release(This
->obj
);
875 IBindCtx_Release(This
->bctx
);
877 ReleaseBindInfo(&This
->bindinfo
);
878 This
->section
.DebugInfo
->Spare
[0] = 0;
879 DeleteCriticalSection(&This
->section
);
880 SysFreeString(This
->url
);
881 heap_free(This
->mime
);
882 heap_free(This
->redirect_url
);
885 URLMON_UnlockModule();
891 static HRESULT WINAPI
Binding_Abort(IBinding
*iface
)
893 Binding
*This
= BINDING_THIS(iface
);
896 TRACE("(%p)\n", This
);
898 if(This
->state
& BINDING_ABORTED
)
901 hres
= IInternetProtocolEx_Abort(&This
->protocol
->IInternetProtocolEx_iface
, E_ABORT
,
906 This
->state
|= BINDING_ABORTED
;
910 static HRESULT WINAPI
Binding_Suspend(IBinding
*iface
)
912 Binding
*This
= BINDING_THIS(iface
);
913 FIXME("(%p)\n", This
);
917 static HRESULT WINAPI
Binding_Resume(IBinding
*iface
)
919 Binding
*This
= BINDING_THIS(iface
);
920 FIXME("(%p)\n", This
);
924 static HRESULT WINAPI
Binding_SetPriority(IBinding
*iface
, LONG nPriority
)
926 Binding
*This
= BINDING_THIS(iface
);
927 FIXME("(%p)->(%d)\n", This
, nPriority
);
931 static HRESULT WINAPI
Binding_GetPriority(IBinding
*iface
, LONG
*pnPriority
)
933 Binding
*This
= BINDING_THIS(iface
);
934 FIXME("(%p)->(%p)\n", This
, pnPriority
);
938 static HRESULT WINAPI
Binding_GetBindResult(IBinding
*iface
, CLSID
*pclsidProtocol
,
939 DWORD
*pdwResult
, LPOLESTR
*pszResult
, DWORD
*pdwReserved
)
941 Binding
*This
= BINDING_THIS(iface
);
942 FIXME("(%p)->(%p %p %p %p)\n", This
, pclsidProtocol
, pdwResult
, pszResult
, pdwReserved
);
946 static Binding
*get_bctx_binding(IBindCtx
*bctx
)
952 hres
= IBindCtx_GetObjectParam(bctx
, cbinding_contextW
, &unk
);
956 hres
= IUnknown_QueryInterface(unk
, &IID_IBinding
, (void*)&binding
);
957 IUnknown_Release(unk
);
962 return BINDING_THIS(binding
);
967 static const IBindingVtbl BindingVtbl
= {
968 Binding_QueryInterface
,
976 Binding_GetBindResult
979 #define PROTSINK_THIS(iface) DEFINE_THIS(Binding, IInternetProtocolSink, iface)
981 static HRESULT WINAPI
InternetProtocolSink_QueryInterface(IInternetProtocolSink
*iface
,
982 REFIID riid
, void **ppv
)
984 Binding
*This
= PROTSINK_THIS(iface
);
985 return IBinding_QueryInterface(BINDING(This
), riid
, ppv
);
988 static ULONG WINAPI
InternetProtocolSink_AddRef(IInternetProtocolSink
*iface
)
990 Binding
*This
= PROTSINK_THIS(iface
);
991 return IBinding_AddRef(BINDING(This
));
994 static ULONG WINAPI
InternetProtocolSink_Release(IInternetProtocolSink
*iface
)
996 Binding
*This
= PROTSINK_THIS(iface
);
997 return IBinding_Release(BINDING(This
));
1000 static HRESULT WINAPI
InternetProtocolSink_Switch(IInternetProtocolSink
*iface
,
1001 PROTOCOLDATA
*pProtocolData
)
1003 Binding
*This
= PROTSINK_THIS(iface
);
1005 WARN("(%p)->(%p)\n", This
, pProtocolData
);
1010 static void on_progress(Binding
*This
, ULONG progress
, ULONG progress_max
,
1011 ULONG status_code
, LPCWSTR status_text
)
1013 IBindStatusCallback_OnProgress(This
->callback
, progress
, progress_max
,
1014 status_code
, status_text
);
1017 static HRESULT WINAPI
InternetProtocolSink_ReportProgress(IInternetProtocolSink
*iface
,
1018 ULONG ulStatusCode
, LPCWSTR szStatusText
)
1020 Binding
*This
= PROTSINK_THIS(iface
);
1022 TRACE("(%p)->(%u %s)\n", This
, ulStatusCode
, debugstr_w(szStatusText
));
1024 switch(ulStatusCode
) {
1025 case BINDSTATUS_FINDINGRESOURCE
:
1026 on_progress(This
, 0, 0, BINDSTATUS_FINDINGRESOURCE
, szStatusText
);
1028 case BINDSTATUS_CONNECTING
:
1029 on_progress(This
, 0, 0, BINDSTATUS_CONNECTING
, szStatusText
);
1031 case BINDSTATUS_REDIRECTING
:
1032 heap_free(This
->redirect_url
);
1033 This
->redirect_url
= heap_strdupW(szStatusText
);
1034 on_progress(This
, 0, 0, BINDSTATUS_REDIRECTING
, szStatusText
);
1036 case BINDSTATUS_BEGINDOWNLOADDATA
:
1037 fill_stgmed_buffer(This
->stgmed_buf
);
1039 case BINDSTATUS_SENDINGREQUEST
:
1040 on_progress(This
, 0, 0, BINDSTATUS_SENDINGREQUEST
, szStatusText
);
1042 case BINDSTATUS_PROTOCOLCLASSID
:
1044 case BINDSTATUS_MIMETYPEAVAILABLE
:
1045 case BINDSTATUS_VERIFIEDMIMETYPEAVAILABLE
:
1046 mime_available(This
, szStatusText
);
1048 case BINDSTATUS_CACHEFILENAMEAVAILABLE
:
1049 cache_file_available(This
, szStatusText
);
1051 case BINDSTATUS_DECODING
:
1052 IBindStatusCallback_OnProgress(This
->callback
, 0, 0, BINDSTATUS_DECODING
, szStatusText
);
1054 case BINDSTATUS_LOADINGMIMEHANDLER
:
1055 on_progress(This
, 0, 0, BINDSTATUS_LOADINGMIMEHANDLER
, szStatusText
);
1057 case BINDSTATUS_DIRECTBIND
: /* FIXME: Handle BINDSTATUS_DIRECTBIND in BindProtocol */
1058 This
->report_mime
= FALSE
;
1060 case BINDSTATUS_ACCEPTRANGES
:
1063 FIXME("Unhandled status code %d\n", ulStatusCode
);
1070 static void report_data(Binding
*This
, DWORD bscf
, ULONG progress
, ULONG progress_max
)
1072 FORMATETC formatetc
= {0, NULL
, 1, -1, TYMED_ISTREAM
};
1073 BOOL sent_begindownloaddata
= FALSE
;
1075 TRACE("(%p)->(%d %u %u)\n", This
, bscf
, progress
, progress_max
);
1077 if(This
->download_state
== END_DOWNLOAD
|| (This
->state
& (BINDING_STOPPED
|BINDING_ABORTED
)))
1080 if(This
->stgmed_buf
->file
!= INVALID_HANDLE_VALUE
)
1081 read_protocol_data(This
->stgmed_buf
);
1082 else if(This
->download_state
== BEFORE_DOWNLOAD
)
1083 fill_stgmed_buffer(This
->stgmed_buf
);
1085 if(This
->download_state
== BEFORE_DOWNLOAD
) {
1086 This
->download_state
= DOWNLOADING
;
1087 sent_begindownloaddata
= TRUE
;
1088 IBindStatusCallback_OnProgress(This
->callback
, progress
, progress_max
,
1089 BINDSTATUS_BEGINDOWNLOADDATA
, This
->url
);
1091 if(This
->stgmed_buf
->cache_file
)
1092 IBindStatusCallback_OnProgress(This
->callback
, progress
, progress_max
,
1093 BINDSTATUS_CACHEFILENAMEAVAILABLE
, This
->stgmed_buf
->cache_file
);
1096 if(This
->stgmed_buf
->hres
== S_FALSE
|| (bscf
& BSCF_LASTDATANOTIFICATION
)) {
1097 This
->download_state
= END_DOWNLOAD
;
1098 IBindStatusCallback_OnProgress(This
->callback
, progress
, progress_max
,
1099 BINDSTATUS_ENDDOWNLOADDATA
, This
->url
);
1100 }else if(!sent_begindownloaddata
) {
1101 IBindStatusCallback_OnProgress(This
->callback
, progress
, progress_max
,
1102 BINDSTATUS_DOWNLOADINGDATA
, This
->url
);
1105 if(This
->state
& (BINDING_STOPPED
|BINDING_ABORTED
))
1108 if(This
->to_object
) {
1109 if(!(This
->state
& BINDING_OBJAVAIL
)) {
1110 IBinding_AddRef(BINDING(This
));
1111 create_object(This
);
1112 IBinding_Release(BINDING(This
));
1118 if(!(This
->state
& BINDING_LOCKED
)) {
1119 HRESULT hres
= IInternetProtocolEx_LockRequest(
1120 &This
->protocol
->IInternetProtocolEx_iface
, 0);
1122 This
->state
|= BINDING_LOCKED
;
1125 hres
= This
->stgmed_obj
->vtbl
->fill_stgmed(This
->stgmed_obj
, &stgmed
);
1127 stop_binding(This
, hres
, NULL
);
1131 formatetc
.tymed
= stgmed
.tymed
;
1132 formatetc
.cfFormat
= This
->clipboard_format
;
1134 IBindStatusCallback_OnDataAvailable(This
->callback
, bscf
, progress
,
1135 &formatetc
, &stgmed
);
1137 if(This
->download_state
== END_DOWNLOAD
)
1138 stop_binding(This
, S_OK
, NULL
);
1142 static HRESULT WINAPI
InternetProtocolSink_ReportData(IInternetProtocolSink
*iface
,
1143 DWORD grfBSCF
, ULONG ulProgress
, ULONG ulProgressMax
)
1145 Binding
*This
= PROTSINK_THIS(iface
);
1147 TRACE("(%p)->(%d %u %u)\n", This
, grfBSCF
, ulProgress
, ulProgressMax
);
1149 report_data(This
, grfBSCF
, ulProgress
, ulProgressMax
);
1153 static HRESULT WINAPI
InternetProtocolSink_ReportResult(IInternetProtocolSink
*iface
,
1154 HRESULT hrResult
, DWORD dwError
, LPCWSTR szResult
)
1156 Binding
*This
= PROTSINK_THIS(iface
);
1158 TRACE("(%p)->(%08x %d %s)\n", This
, hrResult
, dwError
, debugstr_w(szResult
));
1160 stop_binding(This
, hrResult
, szResult
);
1161 IInternetProtocolEx_Terminate(&This
->protocol
->IInternetProtocolEx_iface
, 0);
1165 #undef PROTSINK_THIS
1167 static const IInternetProtocolSinkVtbl InternetProtocolSinkVtbl
= {
1168 InternetProtocolSink_QueryInterface
,
1169 InternetProtocolSink_AddRef
,
1170 InternetProtocolSink_Release
,
1171 InternetProtocolSink_Switch
,
1172 InternetProtocolSink_ReportProgress
,
1173 InternetProtocolSink_ReportData
,
1174 InternetProtocolSink_ReportResult
1177 #define BINDINF_THIS(iface) DEFINE_THIS(Binding, InternetBindInfo, iface)
1179 static HRESULT WINAPI
InternetBindInfo_QueryInterface(IInternetBindInfo
*iface
,
1180 REFIID riid
, void **ppv
)
1182 Binding
*This
= BINDINF_THIS(iface
);
1183 return IBinding_QueryInterface(BINDING(This
), riid
, ppv
);
1186 static ULONG WINAPI
InternetBindInfo_AddRef(IInternetBindInfo
*iface
)
1188 Binding
*This
= BINDINF_THIS(iface
);
1189 return IBinding_AddRef(BINDING(This
));
1192 static ULONG WINAPI
InternetBindInfo_Release(IInternetBindInfo
*iface
)
1194 Binding
*This
= BINDINF_THIS(iface
);
1195 return IBinding_Release(BINDING(This
));
1198 static HRESULT WINAPI
InternetBindInfo_GetBindInfo(IInternetBindInfo
*iface
,
1199 DWORD
*grfBINDF
, BINDINFO
*pbindinfo
)
1201 Binding
*This
= BINDINF_THIS(iface
);
1203 TRACE("(%p)->(%p %p)\n", This
, grfBINDF
, pbindinfo
);
1205 *grfBINDF
= This
->bindf
;
1207 *pbindinfo
= This
->bindinfo
;
1209 if(pbindinfo
->szExtraInfo
|| pbindinfo
->szCustomVerb
)
1210 FIXME("copy strings\n");
1212 if(pbindinfo
->stgmedData
.pUnkForRelease
)
1213 IUnknown_AddRef(pbindinfo
->stgmedData
.pUnkForRelease
);
1216 IUnknown_AddRef(pbindinfo
->pUnk
);
1221 static HRESULT WINAPI
InternetBindInfo_GetBindString(IInternetBindInfo
*iface
,
1222 ULONG ulStringType
, LPOLESTR
*ppwzStr
, ULONG cEl
, ULONG
*pcElFetched
)
1224 Binding
*This
= BINDINF_THIS(iface
);
1226 TRACE("(%p)->(%d %p %d %p)\n", This
, ulStringType
, ppwzStr
, cEl
, pcElFetched
);
1228 switch(ulStringType
) {
1229 case BINDSTRING_ACCEPT_MIMES
: {
1230 static const WCHAR wszMimes
[] = {'*','/','*',0};
1232 if(!ppwzStr
|| !pcElFetched
)
1233 return E_INVALIDARG
;
1235 ppwzStr
[0] = CoTaskMemAlloc(sizeof(wszMimes
));
1236 memcpy(ppwzStr
[0], wszMimes
, sizeof(wszMimes
));
1240 case BINDSTRING_USER_AGENT
: {
1241 IInternetBindInfo
*bindinfo
= NULL
;
1244 hres
= IBindStatusCallback_QueryInterface(This
->callback
, &IID_IInternetBindInfo
,
1249 hres
= IInternetBindInfo_GetBindString(bindinfo
, ulStringType
, ppwzStr
,
1251 IInternetBindInfo_Release(bindinfo
);
1255 case BINDSTRING_URL
: {
1256 DWORD size
= (SysStringLen(This
->url
)+1) * sizeof(WCHAR
);
1258 if(!ppwzStr
|| !pcElFetched
)
1259 return E_INVALIDARG
;
1261 *ppwzStr
= CoTaskMemAlloc(size
);
1262 memcpy(*ppwzStr
, This
->url
, size
);
1268 FIXME("not supported string type %d\n", ulStringType
);
1274 static const IInternetBindInfoVtbl InternetBindInfoVtbl
= {
1275 InternetBindInfo_QueryInterface
,
1276 InternetBindInfo_AddRef
,
1277 InternetBindInfo_Release
,
1278 InternetBindInfo_GetBindInfo
,
1279 InternetBindInfo_GetBindString
1282 #define INETINFO_THIS(iface) DEFINE_THIS(Binding, WinInetHttpInfo, iface)
1284 static HRESULT WINAPI
WinInetHttpInfo_QueryInterface(IWinInetHttpInfo
*iface
, REFIID riid
, void **ppv
)
1286 Binding
*This
= INETINFO_THIS(iface
);
1287 return IBinding_QueryInterface(BINDING(This
), riid
, ppv
);
1290 static ULONG WINAPI
WinInetHttpInfo_AddRef(IWinInetHttpInfo
*iface
)
1292 Binding
*This
= INETINFO_THIS(iface
);
1293 return IBinding_AddRef(BINDING(This
));
1296 static ULONG WINAPI
WinInetHttpInfo_Release(IWinInetHttpInfo
*iface
)
1298 Binding
*This
= INETINFO_THIS(iface
);
1299 return IBinding_Release(BINDING(This
));
1302 static HRESULT WINAPI
WinInetHttpInfo_QueryOption(IWinInetHttpInfo
*iface
, DWORD dwOption
,
1303 void *pBuffer
, DWORD
*pcbBuffer
)
1305 Binding
*This
= INETINFO_THIS(iface
);
1306 FIXME("(%p)->(%x %p %p)\n", This
, dwOption
, pBuffer
, pcbBuffer
);
1310 static HRESULT WINAPI
WinInetHttpInfo_QueryInfo(IWinInetHttpInfo
*iface
, DWORD dwOption
,
1311 void *pBuffer
, DWORD
*pcbBuffer
, DWORD
*pdwFlags
, DWORD
*pdwReserved
)
1313 Binding
*This
= INETINFO_THIS(iface
);
1314 FIXME("(%p)->(%x %p %p %p %p)\n", This
, dwOption
, pBuffer
, pcbBuffer
, pdwFlags
, pdwReserved
);
1318 #undef INETINFO_THIS
1320 static const IWinInetHttpInfoVtbl WinInetHttpInfoVtbl
= {
1321 WinInetHttpInfo_QueryInterface
,
1322 WinInetHttpInfo_AddRef
,
1323 WinInetHttpInfo_Release
,
1324 WinInetHttpInfo_QueryOption
,
1325 WinInetHttpInfo_QueryInfo
1328 #define SERVPROV_THIS(iface) DEFINE_THIS(Binding, ServiceProvider, iface)
1330 static HRESULT WINAPI
ServiceProvider_QueryInterface(IServiceProvider
*iface
,
1331 REFIID riid
, void **ppv
)
1333 Binding
*This
= SERVPROV_THIS(iface
);
1334 return IBinding_QueryInterface(BINDING(This
), riid
, ppv
);
1337 static ULONG WINAPI
ServiceProvider_AddRef(IServiceProvider
*iface
)
1339 Binding
*This
= SERVPROV_THIS(iface
);
1340 return IBinding_AddRef(BINDING(This
));
1343 static ULONG WINAPI
ServiceProvider_Release(IServiceProvider
*iface
)
1345 Binding
*This
= SERVPROV_THIS(iface
);
1346 return IBinding_Release(BINDING(This
));
1349 static HRESULT WINAPI
ServiceProvider_QueryService(IServiceProvider
*iface
,
1350 REFGUID guidService
, REFIID riid
, void **ppv
)
1352 Binding
*This
= SERVPROV_THIS(iface
);
1355 TRACE("(%p)->(%s %s %p)\n", This
, debugstr_guid(guidService
), debugstr_guid(riid
), ppv
);
1357 if(This
->service_provider
) {
1358 hres
= IServiceProvider_QueryService(This
->service_provider
, guidService
,
1364 WARN("unknown service %s\n", debugstr_guid(guidService
));
1365 return E_NOINTERFACE
;
1368 #undef SERVPROV_THIS
1370 static const IServiceProviderVtbl ServiceProviderVtbl
= {
1371 ServiceProvider_QueryInterface
,
1372 ServiceProvider_AddRef
,
1373 ServiceProvider_Release
,
1374 ServiceProvider_QueryService
1377 static HRESULT
get_callback(IBindCtx
*pbc
, IBindStatusCallback
**callback
)
1382 hres
= IBindCtx_GetObjectParam(pbc
, bscb_holderW
, &unk
);
1384 return create_default_callback(callback
);
1386 hres
= IUnknown_QueryInterface(unk
, &IID_IBindStatusCallback
, (void**)callback
);
1387 IUnknown_Release(unk
);
1391 static BOOL
is_urlmon_protocol(IUri
*uri
)
1396 hres
= IUri_GetScheme(uri
, &scheme
);
1401 case URL_SCHEME_FILE
:
1402 case URL_SCHEME_FTP
:
1403 case URL_SCHEME_GOPHER
:
1404 case URL_SCHEME_HTTP
:
1405 case URL_SCHEME_HTTPS
:
1413 static HRESULT
Binding_Create(IMoniker
*mon
, Binding
*binding_ctx
, IUri
*uri
, IBindCtx
*pbc
,
1414 BOOL to_obj
, REFIID riid
, Binding
**binding
)
1419 URLMON_LockModule();
1421 ret
= heap_alloc_zero(sizeof(Binding
));
1423 ret
->lpBindingVtbl
= &BindingVtbl
;
1424 ret
->lpIInternetProtocolSinkVtbl
= &InternetProtocolSinkVtbl
;
1425 ret
->lpInternetBindInfoVtbl
= &InternetBindInfoVtbl
;
1426 ret
->lpWinInetHttpInfoVtbl
= &WinInetHttpInfoVtbl
;
1427 ret
->lpServiceProviderVtbl
= &ServiceProviderVtbl
;
1431 ret
->to_object
= to_obj
;
1433 ret
->notif_hwnd
= get_notif_hwnd();
1434 ret
->report_mime
= !binding_ctx
;
1435 ret
->download_state
= BEFORE_DOWNLOAD
;
1438 IBindCtx_AddRef(pbc
);
1443 IMoniker_AddRef(mon
);
1447 ret
->bindinfo
.cbSize
= sizeof(BINDINFO
);
1449 InitializeCriticalSection(&ret
->section
);
1450 ret
->section
.DebugInfo
->Spare
[0] = (DWORD_PTR
)(__FILE__
": Binding.section");
1452 hres
= get_callback(pbc
, &ret
->callback
);
1454 WARN("Could not get IBindStatusCallback\n");
1455 IBinding_Release(BINDING(ret
));
1459 IBindStatusCallback_QueryInterface(ret
->callback
, &IID_IServiceProvider
,
1460 (void**)&ret
->service_provider
);
1463 ret
->protocol
= binding_ctx
->protocol
;
1464 IInternetProtocolEx_AddRef(&ret
->protocol
->IInternetProtocolEx_iface
);
1466 hres
= create_binding_protocol(TRUE
, &ret
->protocol
);
1468 WARN("Could not get protocol handler\n");
1469 IBinding_Release(BINDING(ret
));
1474 hres
= IBindStatusCallback_GetBindInfo(ret
->callback
, &ret
->bindf
, &ret
->bindinfo
);
1476 WARN("GetBindInfo failed: %08x\n", hres
);
1477 IBinding_Release(BINDING(ret
));
1481 TRACE("bindf %08x\n", ret
->bindf
);
1482 dump_BINDINFO(&ret
->bindinfo
);
1484 ret
->bindf
|= BINDF_FROMURLMON
;
1486 ret
->bindinfo
.dwOptions
|= 0x100000;
1488 if(!(ret
->bindf
& BINDF_ASYNCHRONOUS
) || !(ret
->bindf
& BINDF_PULLDATA
)) {
1489 ret
->bindf
|= BINDF_NEEDFILE
;
1490 ret
->use_cache_file
= TRUE
;
1491 }else if(!is_urlmon_protocol(uri
)) {
1492 ret
->bindf
|= BINDF_NEEDFILE
;
1495 hres
= IUri_GetDisplayUri(uri
, &ret
->url
);
1497 IBinding_Release(BINDING(ret
));
1502 ret
->stgmed_buf
= binding_ctx
->stgmed_buf
;
1503 IUnknown_AddRef(&ret
->stgmed_buf
->IUnknown_iface
);
1504 ret
->clipboard_format
= binding_ctx
->clipboard_format
;
1506 ret
->stgmed_buf
= create_stgmed_buf(&ret
->protocol
->IInternetProtocolEx_iface
);
1510 ret
->stgmed_obj
= NULL
;
1511 }else if(IsEqualGUID(&IID_IStream
, riid
)) {
1512 ret
->stgmed_obj
= create_stgmed_stream(ret
->stgmed_buf
);
1513 }else if(IsEqualGUID(&IID_IUnknown
, riid
)) {
1514 ret
->bindf
|= BINDF_NEEDFILE
;
1515 ret
->stgmed_obj
= create_stgmed_file(ret
->stgmed_buf
);
1517 FIXME("Unsupported riid %s\n", debugstr_guid(riid
));
1518 IBinding_Release(BINDING(ret
));
1526 static HRESULT
start_binding(IMoniker
*mon
, Binding
*binding_ctx
, IUri
*uri
, IBindCtx
*pbc
,
1527 BOOL to_obj
, REFIID riid
, Binding
**ret
)
1529 Binding
*binding
= NULL
;
1533 hres
= Binding_Create(mon
, binding_ctx
, uri
, pbc
, to_obj
, riid
, &binding
);
1537 hres
= IBindStatusCallback_OnStartBinding(binding
->callback
, 0, BINDING(binding
));
1539 WARN("OnStartBinding failed: %08x\n", hres
);
1540 stop_binding(binding
, INET_E_DOWNLOAD_FAILURE
, NULL
);
1541 IBinding_Release(BINDING(binding
));
1546 set_binding_sink(binding
->protocol
, PROTSINK(binding
), BINDINF(binding
));
1547 if(binding_ctx
->redirect_url
)
1548 IBindStatusCallback_OnProgress(binding
->callback
, 0, 0, BINDSTATUS_REDIRECTING
, binding_ctx
->redirect_url
);
1549 report_data(binding
, BSCF_FIRSTDATANOTIFICATION
| (binding_ctx
->download_state
== END_DOWNLOAD
? BSCF_LASTDATANOTIFICATION
: 0),
1552 hres
= IInternetProtocolEx_StartEx(&binding
->protocol
->IInternetProtocolEx_iface
, uri
,
1553 PROTSINK(binding
), BINDINF(binding
), PI_APARTMENTTHREADED
|PI_MIMEVERIFICATION
, 0);
1555 TRACE("start ret %08x\n", hres
);
1557 if(FAILED(hres
) && hres
!= E_PENDING
) {
1558 stop_binding(binding
, hres
, NULL
);
1559 IBinding_Release(BINDING(binding
));
1565 while(!(binding
->bindf
& BINDF_ASYNCHRONOUS
) &&
1566 !(binding
->state
& BINDING_STOPPED
)) {
1567 MsgWaitForMultipleObjects(0, NULL
, FALSE
, 5000, QS_POSTMESSAGE
);
1568 while (PeekMessageW(&msg
, binding
->notif_hwnd
, WM_USER
, WM_USER
+117, PM_REMOVE
|PM_NOYIELD
)) {
1569 TranslateMessage(&msg
);
1570 DispatchMessageW(&msg
);
1578 HRESULT
bind_to_storage(IUri
*uri
, IBindCtx
*pbc
, REFIID riid
, void **ppv
)
1580 Binding
*binding
= NULL
, *binding_ctx
;
1585 binding_ctx
= get_bctx_binding(pbc
);
1587 hres
= start_binding(NULL
, binding_ctx
, uri
, pbc
, FALSE
, riid
, &binding
);
1589 IBinding_Release(BINDING(binding_ctx
));
1593 if(binding
->hres
== S_OK
&& binding
->stgmed_buf
->init
) {
1594 if((binding
->state
& BINDING_STOPPED
) && (binding
->state
& BINDING_LOCKED
))
1595 IInternetProtocolEx_UnlockRequest(&binding
->protocol
->IInternetProtocolEx_iface
);
1597 hres
= binding
->stgmed_obj
->vtbl
->get_result(binding
->stgmed_obj
, binding
->bindf
, ppv
);
1598 }else if(binding
->bindf
& BINDF_ASYNCHRONOUS
) {
1599 hres
= MK_S_ASYNCHRONOUS
;
1601 hres
= FAILED(binding
->hres
) ? binding
->hres
: S_OK
;
1604 IBinding_Release(BINDING(binding
));
1609 HRESULT
bind_to_object(IMoniker
*mon
, IUri
*uri
, IBindCtx
*pbc
, REFIID riid
, void **ppv
)
1616 hres
= start_binding(mon
, NULL
, uri
, pbc
, TRUE
, riid
, &binding
);
1620 if(binding
->hres
!= S_OK
) {
1621 hres
= SUCCEEDED(binding
->hres
) ? S_OK
: binding
->hres
;
1622 }else if(binding
->bindf
& BINDF_ASYNCHRONOUS
) {
1623 hres
= MK_S_ASYNCHRONOUS
;
1625 *ppv
= binding
->obj
;
1626 IUnknown_AddRef(binding
->obj
);
1630 IBinding_Release(BINDING(binding
));