4 * Copyright 1999 Ulrich Czekalla for Corel Corporation
5 * Copyright 2002 Huw D M Davies 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
22 #define COM_NO_WINDOWS_H
27 #define NONAMELESSUNION
28 #define NONAMELESSSTRUCT
36 #include "wine/debug.h"
37 #include "wine/unicode.h"
42 #include "urlmon_main.h"
44 WINE_DEFAULT_DEBUG_CHANNEL(urlmon
);
46 /* native urlmon.dll uses this key, too */
47 static const WCHAR BSCBHolder
[] = { '_','B','S','C','B','_','H','o','l','d','e','r','_',0 };
49 /*static BOOL registered_wndclass = FALSE;*/
52 const IBindingVtbl
*lpVtbl
;
60 HINTERNET hinternet
, hconnect
, hrequest
;
62 IUMCacheStream
*pstrCache
;
63 IBindStatusCallback
*pbscb
;
64 DWORD total_read
, expected_size
;
67 static HRESULT WINAPI
Binding_QueryInterface(IBinding
* iface
, REFIID riid
, void **ppvObject
)
69 Binding
*This
= (Binding
*)iface
;
71 TRACE("(%p)->(%s,%p)\n", This
, debugstr_guid(riid
), ppvObject
);
73 if((This
== NULL
) || (ppvObject
== NULL
))
76 if (IsEqualIID(&IID_IUnknown
, riid
) || IsEqualIID(&IID_IBinding
, riid
)) {
78 IBinding_AddRef(iface
);
86 static ULONG WINAPI
Binding_AddRef(IBinding
* iface
)
88 Binding
*This
= (Binding
*)iface
;
89 ULONG ref
= InterlockedIncrement(&This
->ref
);
91 TRACE("(%p) ref=%ld\n", This
, ref
);
96 static ULONG WINAPI
Binding_Release(IBinding
* iface
)
98 Binding
*This
= (Binding
*)iface
;
99 ULONG ref
= InterlockedDecrement(&This
->ref
);
101 TRACE("(%p) ref=%ld\n",This
, ref
);
104 HeapFree(GetProcessHeap(), 0, This
->URLName
);
105 if (This
->hCacheFile
)
106 CloseHandle(This
->hCacheFile
);
109 UMCloseCacheFileStream(This
->pstrCache
);
110 IStream_Release((IStream
*)This
->pstrCache
);
113 IBindStatusCallback_Release(This
->pbscb
);
115 HeapFree(GetProcessHeap(), 0, This
);
117 URLMON_UnlockModule();
123 static HRESULT WINAPI
Binding_Abort(IBinding
* iface
)
125 Binding
*This
= (Binding
*)iface
;
127 FIXME("(%p): stub\n", This
);
132 static HRESULT WINAPI
Binding_GetBindResult(IBinding
* iface
, CLSID
* pclsidProtocol
, DWORD
* pdwResult
, LPOLESTR
* pszResult
, DWORD
* pdwReserved
)
134 Binding
*This
= (Binding
*)iface
;
136 FIXME("(%p)->(%p, %p, %p, %p): stub\n", This
, pclsidProtocol
, pdwResult
, pszResult
, pdwReserved
);
141 static HRESULT WINAPI
Binding_GetPriority(IBinding
* iface
, LONG
* pnPriority
)
143 Binding
*This
= (Binding
*)iface
;
145 FIXME("(%p)->(%p): stub\n", This
, pnPriority
);
150 static HRESULT WINAPI
Binding_Resume(IBinding
* iface
)
152 Binding
*This
= (Binding
*)iface
;
154 FIXME("(%p): stub\n", This
);
159 static HRESULT WINAPI
Binding_SetPriority(IBinding
* iface
, LONG nPriority
)
161 Binding
*This
= (Binding
*)iface
;
163 FIXME("(%p)->(%ld): stub\n", This
, nPriority
);
168 static HRESULT WINAPI
Binding_Suspend(IBinding
* iface
)
170 Binding
*This
= (Binding
*)iface
;
172 FIXME("(%p): stub\n", This
);
177 static void Binding_CloseCacheDownload(Binding
*This
)
179 CloseHandle(This
->hCacheFile
);
180 This
->hCacheFile
= 0;
181 UMCloseCacheFileStream(This
->pstrCache
);
182 IStream_Release((IStream
*)This
->pstrCache
);
186 static HRESULT
Binding_MoreCacheData(Binding
*This
, char *buf
, DWORD dwBytes
)
190 if (WriteFile(This
->hCacheFile
, buf
, dwBytes
, &written
, NULL
) && written
== dwBytes
)
194 This
->total_read
+= written
;
195 hr
= IBindStatusCallback_OnProgress(This
->pbscb
,
196 This
->total_read
+ written
,
198 (This
->total_read
== written
) ?
199 BINDSTATUS_BEGINDOWNLOADDATA
:
200 BINDSTATUS_DOWNLOADINGDATA
,
211 fmt
.tymed
= TYMED_ISTREAM
;
213 stg
.tymed
= TYMED_ISTREAM
;
214 stg
.u
.pstm
= (IStream
*)This
->pstrCache
;
215 stg
.pUnkForRelease
= NULL
;
217 hr
= IBindStatusCallback_OnDataAvailable(This
->pbscb
,
218 (This
->total_read
== written
) ?
219 BSCF_FIRSTDATANOTIFICATION
:
220 BSCF_INTERMEDIATEDATANOTIFICATION
,
221 This
->total_read
+ written
,
225 if (written
< dwBytes
)
226 return STG_E_MEDIUMFULL
;
230 return HRESULT_FROM_WIN32(GetLastError());
233 static void Binding_FinishedDownload(Binding
*This
, HRESULT hr
)
241 fmt
.tymed
= TYMED_ISTREAM
;
243 stg
.tymed
= TYMED_ISTREAM
;
244 stg
.u
.pstm
= (IStream
*)This
->pstrCache
;
245 stg
.pUnkForRelease
= NULL
;
247 IBindStatusCallback_OnProgress(This
->pbscb
, This
->total_read
, This
->expected_size
, BINDSTATUS_ENDDOWNLOADDATA
, NULL
);
248 IBindStatusCallback_OnDataAvailable(This
->pbscb
, BSCF_LASTDATANOTIFICATION
, This
->total_read
, &fmt
, &stg
);
251 WCHAR
*pwchError
= 0;
253 FormatMessageW (FORMAT_MESSAGE_FROM_SYSTEM
|
254 FORMAT_MESSAGE_ALLOCATE_BUFFER
,
256 0, (LPWSTR
) &pwchError
,
260 static WCHAR achFormat
[] = { '%', '0', '8', 'x', 0 };
262 pwchError
=(WCHAR
*) LocalAlloc(LMEM_FIXED
, sizeof(WCHAR
) * 9);
263 wsprintfW(pwchError
, achFormat
, hr
);
265 IBindStatusCallback_OnStopBinding(This
->pbscb
, hr
, pwchError
);
266 LocalFree(pwchError
);
270 IBindStatusCallback_OnStopBinding(This
->pbscb
, hr
, NULL
);
272 IBindStatusCallback_Release(This
->pbscb
);
276 static const IBindingVtbl BindingVtbl
=
278 Binding_QueryInterface
,
286 Binding_GetBindResult
289 /* filemoniker data structure */
292 const IMonikerVtbl
* lpvtbl
; /* VTable relative to the IMoniker interface.*/
294 LONG ref
; /* reference counter for this object */
296 LPOLESTR URLName
; /* URL string identified by this URLmoniker */
299 /*******************************************************************************
300 * URLMoniker_QueryInterface
301 *******************************************************************************/
302 static HRESULT WINAPI
URLMonikerImpl_QueryInterface(IMoniker
* iface
,REFIID riid
,void** ppvObject
)
304 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
306 TRACE("(%p)->(%s,%p)\n",This
,debugstr_guid(riid
),ppvObject
);
308 /* Perform a sanity check on the parameters.*/
309 if ( (This
==0) || (ppvObject
==0) )
312 /* Initialize the return parameter */
315 /* Compare the riid with the interface IDs implemented by this object.*/
316 if (IsEqualIID(&IID_IUnknown
, riid
) ||
317 IsEqualIID(&IID_IPersist
, riid
) ||
318 IsEqualIID(&IID_IPersistStream
,riid
) ||
319 IsEqualIID(&IID_IMoniker
, riid
)
323 /* Check that we obtained an interface.*/
325 return E_NOINTERFACE
;
327 /* Query Interface always increases the reference count by one when it is successful */
328 IMoniker_AddRef(iface
);
333 /******************************************************************************
335 ******************************************************************************/
336 static ULONG WINAPI
URLMonikerImpl_AddRef(IMoniker
* iface
)
338 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
339 ULONG refCount
= InterlockedIncrement(&This
->ref
);
341 TRACE("(%p)->(ref before=%lu)\n",This
, refCount
- 1);
346 /******************************************************************************
348 ******************************************************************************/
349 static ULONG WINAPI
URLMonikerImpl_Release(IMoniker
* iface
)
351 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
352 ULONG refCount
= InterlockedDecrement(&This
->ref
);
354 TRACE("(%p)->(ref before=%lu)\n",This
, refCount
+ 1);
356 /* destroy the object if there's no more reference on it */
358 HeapFree(GetProcessHeap(),0,This
->URLName
);
359 HeapFree(GetProcessHeap(),0,This
);
361 URLMON_UnlockModule();
368 /******************************************************************************
369 * URLMoniker_GetClassID
370 ******************************************************************************/
371 static HRESULT WINAPI
URLMonikerImpl_GetClassID(IMoniker
* iface
,
372 CLSID
*pClassID
)/* Pointer to CLSID of object */
374 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
376 TRACE("(%p,%p)\n",This
,pClassID
);
380 /* Windows always returns CLSID_StdURLMoniker */
381 *pClassID
= CLSID_StdURLMoniker
;
385 /******************************************************************************
387 ******************************************************************************/
388 static HRESULT WINAPI
URLMonikerImpl_IsDirty(IMoniker
* iface
)
390 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
391 /* Note that the OLE-provided implementations of the IPersistStream::IsDirty
392 method in the OLE-provided moniker interfaces always return S_FALSE because
393 their internal state never changes. */
395 TRACE("(%p)\n",This
);
400 /******************************************************************************
404 * Writes a ULONG containing length of unicode string, followed
405 * by that many unicode characters
406 ******************************************************************************/
407 static HRESULT WINAPI
URLMonikerImpl_Load(IMoniker
* iface
,IStream
* pStm
)
409 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
414 TRACE("(%p,%p)\n",This
,pStm
);
419 res
= IStream_Read(pStm
, &len
, sizeof(ULONG
), &got
);
421 if(got
== sizeof(ULONG
)) {
422 HeapFree(GetProcessHeap(), 0, This
->URLName
);
423 This
->URLName
=HeapAlloc(GetProcessHeap(),0,sizeof(WCHAR
)*(len
+1));
427 res
= IStream_Read(pStm
, This
->URLName
, len
, NULL
);
428 This
->URLName
[len
] = 0;
437 /******************************************************************************
439 ******************************************************************************/
440 static HRESULT WINAPI
URLMonikerImpl_Save(IMoniker
* iface
,
441 IStream
* pStm
,/* pointer to the stream where the object is to be saved */
442 BOOL fClearDirty
)/* Specifies whether to clear the dirty flag */
444 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
448 TRACE("(%p,%p,%d)\n",This
,pStm
,fClearDirty
);
453 len
= strlenW(This
->URLName
);
454 res
=IStream_Write(pStm
,&len
,sizeof(ULONG
),NULL
);
456 res
=IStream_Write(pStm
,&This
->URLName
,len
*sizeof(WCHAR
),NULL
);
461 /******************************************************************************
462 * URLMoniker_GetSizeMax
463 ******************************************************************************/
464 static HRESULT WINAPI
URLMonikerImpl_GetSizeMax(IMoniker
* iface
,
465 ULARGE_INTEGER
* pcbSize
)/* Pointer to size of stream needed to save object */
467 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
469 TRACE("(%p,%p)\n",This
,pcbSize
);
474 pcbSize
->u
.LowPart
= sizeof(ULONG
) + (strlenW(This
->URLName
) * sizeof(WCHAR
));
475 pcbSize
->u
.HighPart
= 0;
479 /******************************************************************************
480 * URLMoniker_BindToObject
481 ******************************************************************************/
482 static HRESULT WINAPI
URLMonikerImpl_BindToObject(IMoniker
* iface
,
488 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
492 FIXME("(%p)->(%p,%p,%s,%p): stub\n",This
,pbc
,pmkToLeft
,debugstr_guid(riid
),
499 enum {OnProgress
, OnDataAvailable
} callback
;
500 } URLMON_CallbackData
;
504 static LRESULT CALLBACK
URLMON_WndProc(HWND hwnd
, UINT msg
, WPARAM wparam
, LPARAM lparam
)
506 return DefWindowProcA(hwnd
, msg
, wparam
, lparam
);
509 static void PostOnProgress(URLMonikerImpl
*This
, UINT progress
, UINT maxprogress
, DWORD status
, LPCWSTR
*str
)
513 static void CALLBACK
URLMON_InternetCallback(HINTERNET hinet
, /*DWORD_PTR*/ DWORD context
, DWORD status
,
514 void *status_info
, DWORD status_info_len
)
516 URLMonikerImpl
*This
= (URLMonikerImpl
*)context
;
517 TRACE("handle %p this %p status %08lx\n", hinet
, This
, status
);
519 if(This
->filesize
== -1) {
521 case INTERNET_STATUS_RESOLVING_NAME
:
522 PostOnProgess(This
, 0, 0, BINDSTATUS_FINDINGRESOURCE
, status_info
);
524 case INTERNET_STATUS_CONNECTING_TO_SERVER
:
525 PostOnProgress(This
, 0, 0, BINDSTATUS_CONNECTING
, NULL
);
527 case INTERNET_STATUS_SENDING_REQUEST
:
528 PostOnProgress(This
, 0, 0, BINDSTATUS_SENDINGREQUEST
, NULL
);
530 case INTERNET_REQUEST_COMPLETE
:
532 DWORD len
, lensz
= sizeof(len
);
534 HttpQueryInfoW(hrequest
, HTTP_QUERY_CONTENT_LENGTH
| HTTP_QUERY_FLAG_NUMBER
, &len
, &lensz
, NULL
);
535 TRACE("res = %ld gle = %08lx url len = %ld\n", hres
, GetLastError(), len
);
536 This
->filesize
= len
;
547 /******************************************************************************
548 * URLMoniker_BindToStorage
549 ******************************************************************************/
550 static HRESULT WINAPI
URLMonikerImpl_BindToStorage(IMoniker
* iface
,
556 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
560 WCHAR szFileName
[MAX_PATH
+ 1];
565 FIXME("pmkToLeft != NULL\n");
568 if(!IsEqualIID(&IID_IStream
, riid
)) {
569 FIXME("unsupported iid\n");
573 bind
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(Binding
));
574 bind
->lpVtbl
= &BindingVtbl
;
578 len
= lstrlenW(This
->URLName
)+1;
579 bind
->URLName
= HeapAlloc(GetProcessHeap(), 0, len
*sizeof(WCHAR
));
580 memcpy(bind
->URLName
, This
->URLName
, len
*sizeof(WCHAR
));
582 hres
= UMCreateStreamOnCacheFile(bind
->URLName
, 0, szFileName
, &bind
->hCacheFile
, &bind
->pstrCache
);
584 if(SUCCEEDED(hres
)) {
585 TRACE("Created stream...\n");
587 *ppvObject
= (void *) bind
->pstrCache
;
588 IStream_AddRef((IStream
*) bind
->pstrCache
);
590 hres
= IBindCtx_GetObjectParam(pbc
, (LPOLESTR
)BSCBHolder
, (IUnknown
**)&bind
->pbscb
);
591 if(SUCCEEDED(hres
)) {
592 TRACE("Got IBindStatusCallback...\n");
594 memset(&bi
, 0, sizeof(bi
));
595 bi
.cbSize
= sizeof(bi
);
597 hres
= IBindStatusCallback_GetBindInfo(bind
->pbscb
, &bindf
, &bi
);
598 if(SUCCEEDED(hres
)) {
599 WCHAR
*urlcopy
, *tmpwc
;
601 WCHAR
*host
, *path
, *user
, *pass
;
602 DWORD lensz
= sizeof(bind
->expected_size
);
606 TRACE("got bindinfo. bindf = %08lx extrainfo = %s bindinfof = %08lx bindverb = %08lx iid %s\n",
607 bindf
, debugstr_w(bi
.szExtraInfo
), bi
.grfBindInfoF
, bi
.dwBindVerb
, debugstr_guid(&bi
.iid
));
608 hres
= IBindStatusCallback_OnStartBinding(bind
->pbscb
, 0, (IBinding
*)bind
);
609 TRACE("OnStartBinding rets %08lx\n", hres
);
611 /* This class will accept URLs with the backslash in them. But InternetCrackURL will not - it
612 * requires forward slashes (this is the behaviour of Microsoft's INETAPI). So we need to make
613 * a copy of the URL here and change the backslash to a forward slash everywhere it appears -
614 * but only before any '#' or '?', after which backslash should be left alone.
616 urlcopy
= HeapAlloc(GetProcessHeap(), 0, sizeof(WCHAR
) * (lstrlenW(bind
->URLName
) + 1));
617 lstrcpyW(urlcopy
, bind
->URLName
);
618 for (tmpwc
= urlcopy
; *tmpwc
&& *tmpwc
!= '#' && *tmpwc
!= '?'; ++tmpwc
)
623 if(!registered_wndclass
) {
624 WNDCLASSA urlmon_wndclass
= {0, URLMON_WndProc
,0, 0, URLMON_hInstance
, 0, 0, 0, NULL
, "URLMON_Callback_Window_Class"};
625 RegisterClassA(&urlmon_wndclass
);
626 registered_wndclass
= TRUE
;
629 This
->hwndCallback
= CreateWindowA("URLMON_Callback_Window_Class", NULL
, 0, 0, 0, 0, 0, 0, 0,
630 URLMON_hInstance
, NULL
);
633 bind
->expected_size
= 0;
634 bind
->total_read
= 0;
636 memset(&url
, 0, sizeof(url
));
637 url
.dwStructSize
= sizeof(url
);
638 url
.dwSchemeLength
= url
.dwHostNameLength
= url
.dwUrlPathLength
= url
.dwUserNameLength
= url
.dwPasswordLength
= 1;
639 InternetCrackUrlW(urlcopy
, 0, ICU_ESCAPE
, &url
);
640 host
= HeapAlloc(GetProcessHeap(), 0, (url
.dwHostNameLength
+ 1) * sizeof(WCHAR
));
641 memcpy(host
, url
.lpszHostName
, url
.dwHostNameLength
* sizeof(WCHAR
));
642 host
[url
.dwHostNameLength
] = '\0';
643 path
= HeapAlloc(GetProcessHeap(), 0, (url
.dwUrlPathLength
+ 1) * sizeof(WCHAR
));
644 memcpy(path
, url
.lpszUrlPath
, url
.dwUrlPathLength
* sizeof(WCHAR
));
645 path
[url
.dwUrlPathLength
] = '\0';
646 if (url
.dwUserNameLength
)
648 user
= HeapAlloc(GetProcessHeap(), 0, ((url
.dwUserNameLength
+ 1) * sizeof(WCHAR
)));
649 memcpy(user
, url
.lpszUserName
, url
.dwUserNameLength
* sizeof(WCHAR
));
650 user
[url
.dwUserNameLength
] = 0;
656 if (url
.dwPasswordLength
)
658 pass
= HeapAlloc(GetProcessHeap(), 0, ((url
.dwPasswordLength
+ 1) * sizeof(WCHAR
)));
659 memcpy(pass
, url
.lpszPassword
, url
.dwPasswordLength
* sizeof(WCHAR
));
660 pass
[url
.dwPasswordLength
] = 0;
667 switch ((DWORD
) url
.nScheme
)
669 case INTERNET_SCHEME_FTP
:
670 case INTERNET_SCHEME_GOPHER
:
671 case INTERNET_SCHEME_HTTP
:
672 case INTERNET_SCHEME_HTTPS
:
674 bind
->hinternet
= InternetOpenA("User Agent", 0, NULL
, NULL
, 0 /*INTERNET_FLAG_ASYNC*/);
675 /* InternetSetStatusCallback(bind->hinternet, URLMON_InternetCallback);*/
676 if (!bind
->hinternet
)
678 hres
= HRESULT_FROM_WIN32(GetLastError());
682 switch ((DWORD
) url
.nScheme
)
684 case INTERNET_SCHEME_FTP
:
686 url
.nPort
= INTERNET_DEFAULT_FTP_PORT
;
687 dwService
= INTERNET_SERVICE_FTP
;
690 case INTERNET_SCHEME_GOPHER
:
692 url
.nPort
= INTERNET_DEFAULT_GOPHER_PORT
;
693 dwService
= INTERNET_SERVICE_GOPHER
;
696 case INTERNET_SCHEME_HTTP
:
698 url
.nPort
= INTERNET_DEFAULT_HTTP_PORT
;
699 dwService
= INTERNET_SERVICE_HTTP
;
702 case INTERNET_SCHEME_HTTPS
:
704 url
.nPort
= INTERNET_DEFAULT_HTTPS_PORT
;
705 dwService
= INTERNET_SERVICE_HTTP
;
709 bind
->hconnect
= InternetConnectW(bind
->hinternet
, host
, url
.nPort
, user
, pass
,
710 dwService
, 0, (DWORD
)bind
);
713 hres
= HRESULT_FROM_WIN32(GetLastError());
714 CloseHandle(bind
->hinternet
);
718 hres
= IBindStatusCallback_OnProgress(bind
->pbscb
, 0, 0, 0x22, NULL
);
719 hres
= IBindStatusCallback_OnProgress(bind
->pbscb
, 0, 0, BINDSTATUS_FINDINGRESOURCE
, NULL
);
720 hres
= IBindStatusCallback_OnProgress(bind
->pbscb
, 0, 0, BINDSTATUS_CONNECTING
, NULL
);
721 hres
= IBindStatusCallback_OnProgress(bind
->pbscb
, 0, 0, BINDSTATUS_SENDINGREQUEST
, NULL
);
727 case INTERNET_SERVICE_GOPHER
:
728 bind
->hrequest
= GopherOpenFileW(bind
->hconnect
,
731 INTERNET_FLAG_RELOAD
,
736 hres
= HRESULT_FROM_WIN32(GetLastError());
739 case INTERNET_SERVICE_FTP
:
740 bind
->hrequest
= FtpOpenFileW(bind
->hconnect
,
743 FTP_TRANSFER_TYPE_BINARY
|
744 INTERNET_FLAG_TRANSFER_BINARY
|
745 INTERNET_FLAG_RELOAD
,
750 hres
= HRESULT_FROM_WIN32(GetLastError());
753 case INTERNET_SERVICE_HTTP
:
754 bind
->hrequest
= HttpOpenRequestW(bind
->hconnect
, NULL
, path
, NULL
, NULL
, NULL
, 0, (DWORD
)bind
);
757 hres
= HRESULT_FROM_WIN32(GetLastError());
759 else if (!HttpSendRequestW(bind
->hrequest
, NULL
, 0, NULL
, 0))
761 hres
= HRESULT_FROM_WIN32(GetLastError());
762 InternetCloseHandle(bind
->hrequest
);
766 HttpQueryInfoW(bind
->hrequest
,
767 HTTP_QUERY_CONTENT_LENGTH
| HTTP_QUERY_FLAG_NUMBER
,
768 &bind
->expected_size
,
777 TRACE("res = %ld gle = %08lx url len = %ld\n", hres
, GetLastError(), bind
->expected_size
);
779 IBindStatusCallback_OnProgress(bind
->pbscb
, 0, 0, BINDSTATUS_CACHEFILENAMEAVAILABLE
, szFileName
);
784 if(InternetReadFile(bind
->hrequest
, buf
, sizeof(buf
), &bufread
)) {
785 TRACE("read %ld bytes %s...\n", bufread
, debugstr_an(buf
, 10));
786 if(bufread
== 0) break;
787 hres
= Binding_MoreCacheData(bind
, buf
, bufread
);
791 InternetCloseHandle(bind
->hrequest
);
795 InternetCloseHandle(bind
->hconnect
);
796 InternetCloseHandle(bind
->hinternet
);
799 case INTERNET_SCHEME_FILE
:
800 path
= bind
->URLName
+ 5; /* Skip the "file:" part */
801 if ((path
[0] != '/' && path
[0] != '\\') ||
802 (path
[1] != '/' && path
[1] != '\\'))
811 if (path
[0] == '/' || path
[0] == '\\')
813 h
= CreateFileW(path
, GENERIC_READ
, FILE_SHARE_READ
, NULL
, OPEN_EXISTING
, 0, 0 );
814 if (h
== (HANDLE
) HFILE_ERROR
)
816 hres
= HRESULT_FROM_WIN32(GetLastError());
823 IBindStatusCallback_OnProgress(bind
->pbscb
, 0, 0, BINDSTATUS_CACHEFILENAMEAVAILABLE
, szFileName
);
825 while (ReadFile(h
, buf
, sizeof(buf
), &bufread
, NULL
) && bufread
> 0)
826 hres
= Binding_MoreCacheData(bind
, buf
, bufread
);
836 FIXME("Unsupported URI scheme");
839 Binding_CloseCacheDownload(bind
);
840 Binding_FinishedDownload(bind
, hres
);
843 HeapFree(GetProcessHeap(), 0, user
);
845 HeapFree(GetProcessHeap(), 0, pass
);
846 HeapFree(GetProcessHeap(), 0, path
);
847 HeapFree(GetProcessHeap(), 0, host
);
848 HeapFree(GetProcessHeap(), 0, urlcopy
);
853 IBinding_Release((IBinding
*)bind
);
858 /******************************************************************************
860 ******************************************************************************/
861 static HRESULT WINAPI
URLMonikerImpl_Reduce(IMoniker
* iface
,
863 DWORD dwReduceHowFar
,
864 IMoniker
** ppmkToLeft
,
865 IMoniker
** ppmkReduced
)
867 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
869 TRACE("(%p,%p,%ld,%p,%p)\n",This
,pbc
,dwReduceHowFar
,ppmkToLeft
,ppmkReduced
);
874 URLMonikerImpl_AddRef(iface
);
875 *ppmkReduced
= iface
;
876 return MK_S_REDUCED_TO_SELF
;
879 /******************************************************************************
880 * URLMoniker_ComposeWith
881 ******************************************************************************/
882 static HRESULT WINAPI
URLMonikerImpl_ComposeWith(IMoniker
* iface
,
884 BOOL fOnlyIfNotGeneric
,
885 IMoniker
** ppmkComposite
)
887 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
888 FIXME("(%p)->(%p,%d,%p): stub\n",This
,pmkRight
,fOnlyIfNotGeneric
,ppmkComposite
);
893 /******************************************************************************
895 ******************************************************************************/
896 static HRESULT WINAPI
URLMonikerImpl_Enum(IMoniker
* iface
,BOOL fForward
, IEnumMoniker
** ppenumMoniker
)
898 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
899 TRACE("(%p,%d,%p)\n",This
,fForward
,ppenumMoniker
);
904 /* Does not support sub-monikers */
905 *ppenumMoniker
= NULL
;
909 /******************************************************************************
911 ******************************************************************************/
912 static HRESULT WINAPI
URLMonikerImpl_IsEqual(IMoniker
* iface
,IMoniker
* pmkOtherMoniker
)
914 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
920 TRACE("(%p,%p)\n",This
,pmkOtherMoniker
);
922 if(pmkOtherMoniker
==NULL
)
925 IMoniker_GetClassID(pmkOtherMoniker
,&clsid
);
927 if(!IsEqualCLSID(&clsid
,&CLSID_StdURLMoniker
))
930 res
= CreateBindCtx(0,&bind
);
935 if(SUCCEEDED(IMoniker_GetDisplayName(pmkOtherMoniker
,bind
,NULL
,&urlPath
))) {
936 int result
= lstrcmpiW(urlPath
, This
->URLName
);
937 CoTaskMemFree(urlPath
);
941 IUnknown_Release(bind
);
946 /******************************************************************************
948 ******************************************************************************/
949 static HRESULT WINAPI
URLMonikerImpl_Hash(IMoniker
* iface
,DWORD
* pdwHash
)
951 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
953 int h
= 0,i
,skip
,len
;
957 TRACE("(%p,%p)\n",This
,pdwHash
);
966 for(i
= len
; i
> 0; i
--) {
967 h
= (h
* 37) + val
[off
++];
971 /* only sample some characters */
973 for(i
= len
; i
> 0; i
-= skip
, off
+= skip
) {
974 h
= (h
* 39) + val
[off
];
981 /******************************************************************************
982 * URLMoniker_IsRunning
983 ******************************************************************************/
984 static HRESULT WINAPI
URLMonikerImpl_IsRunning(IMoniker
* iface
,
987 IMoniker
* pmkNewlyRunning
)
989 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
990 FIXME("(%p)->(%p,%p,%p): stub\n",This
,pbc
,pmkToLeft
,pmkNewlyRunning
);
995 /******************************************************************************
996 * URLMoniker_GetTimeOfLastChange
997 ******************************************************************************/
998 static HRESULT WINAPI
URLMonikerImpl_GetTimeOfLastChange(IMoniker
* iface
,
1000 IMoniker
* pmkToLeft
,
1001 FILETIME
* pFileTime
)
1003 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
1004 FIXME("(%p)->(%p,%p,%p): stub\n",This
,pbc
,pmkToLeft
,pFileTime
);
1009 /******************************************************************************
1010 * URLMoniker_Inverse
1011 ******************************************************************************/
1012 static HRESULT WINAPI
URLMonikerImpl_Inverse(IMoniker
* iface
,IMoniker
** ppmk
)
1014 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
1015 TRACE("(%p,%p)\n",This
,ppmk
);
1017 return MK_E_NOINVERSE
;
1020 /******************************************************************************
1021 * URLMoniker_CommonPrefixWith
1022 ******************************************************************************/
1023 static HRESULT WINAPI
URLMonikerImpl_CommonPrefixWith(IMoniker
* iface
,IMoniker
* pmkOther
,IMoniker
** ppmkPrefix
)
1025 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
1026 FIXME("(%p)->(%p,%p): stub\n",This
,pmkOther
,ppmkPrefix
);
1031 /******************************************************************************
1032 * URLMoniker_RelativePathTo
1033 ******************************************************************************/
1034 static HRESULT WINAPI
URLMonikerImpl_RelativePathTo(IMoniker
* iface
,IMoniker
* pmOther
, IMoniker
** ppmkRelPath
)
1036 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
1037 FIXME("(%p)->(%p,%p): stub\n",This
,pmOther
,ppmkRelPath
);
1042 /******************************************************************************
1043 * URLMoniker_GetDisplayName
1044 ******************************************************************************/
1045 static HRESULT WINAPI
URLMonikerImpl_GetDisplayName(IMoniker
* iface
,
1047 IMoniker
* pmkToLeft
,
1048 LPOLESTR
*ppszDisplayName
)
1050 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
1054 TRACE("(%p,%p,%p,%p)\n",This
,pbc
,pmkToLeft
,ppszDisplayName
);
1056 if(!ppszDisplayName
)
1057 return E_INVALIDARG
;
1059 /* FIXME: If this is a partial URL, try and get a URL moniker from SZ_URLCONTEXT in the bind context,
1060 then look at pmkToLeft to try and complete the URL
1062 len
= lstrlenW(This
->URLName
)+1;
1063 *ppszDisplayName
= CoTaskMemAlloc(len
*sizeof(WCHAR
));
1064 if(!*ppszDisplayName
)
1065 return E_OUTOFMEMORY
;
1066 lstrcpyW(*ppszDisplayName
, This
->URLName
);
1070 /******************************************************************************
1071 * URLMoniker_ParseDisplayName
1072 ******************************************************************************/
1073 static HRESULT WINAPI
URLMonikerImpl_ParseDisplayName(IMoniker
* iface
,
1075 IMoniker
* pmkToLeft
,
1076 LPOLESTR pszDisplayName
,
1080 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
1081 FIXME("(%p)->(%p,%p,%p,%p,%p): stub\n",This
,pbc
,pmkToLeft
,pszDisplayName
,pchEaten
,ppmkOut
);
1086 /******************************************************************************
1087 * URLMoniker_IsSystemMoniker
1088 ******************************************************************************/
1089 static HRESULT WINAPI
URLMonikerImpl_IsSystemMoniker(IMoniker
* iface
,DWORD
* pwdMksys
)
1091 URLMonikerImpl
*This
= (URLMonikerImpl
*)iface
;
1092 TRACE("(%p,%p)\n",This
,pwdMksys
);
1095 return E_INVALIDARG
;
1097 *pwdMksys
= MKSYS_URLMONIKER
;
1101 /********************************************************************************/
1102 /* Virtual function table for the URLMonikerImpl class which include IPersist,*/
1103 /* IPersistStream and IMoniker functions. */
1104 static const IMonikerVtbl VT_URLMonikerImpl
=
1106 URLMonikerImpl_QueryInterface
,
1107 URLMonikerImpl_AddRef
,
1108 URLMonikerImpl_Release
,
1109 URLMonikerImpl_GetClassID
,
1110 URLMonikerImpl_IsDirty
,
1111 URLMonikerImpl_Load
,
1112 URLMonikerImpl_Save
,
1113 URLMonikerImpl_GetSizeMax
,
1114 URLMonikerImpl_BindToObject
,
1115 URLMonikerImpl_BindToStorage
,
1116 URLMonikerImpl_Reduce
,
1117 URLMonikerImpl_ComposeWith
,
1118 URLMonikerImpl_Enum
,
1119 URLMonikerImpl_IsEqual
,
1120 URLMonikerImpl_Hash
,
1121 URLMonikerImpl_IsRunning
,
1122 URLMonikerImpl_GetTimeOfLastChange
,
1123 URLMonikerImpl_Inverse
,
1124 URLMonikerImpl_CommonPrefixWith
,
1125 URLMonikerImpl_RelativePathTo
,
1126 URLMonikerImpl_GetDisplayName
,
1127 URLMonikerImpl_ParseDisplayName
,
1128 URLMonikerImpl_IsSystemMoniker
1131 /******************************************************************************
1132 * URLMoniker_Construct (local function)
1133 *******************************************************************************/
1134 static HRESULT
URLMonikerImpl_Construct(URLMonikerImpl
* This
, LPCOLESTR lpszLeftURLName
, LPCOLESTR lpszURLName
)
1139 TRACE("(%p,%s,%s)\n",This
,debugstr_w(lpszLeftURLName
),debugstr_w(lpszURLName
));
1140 memset(This
, 0, sizeof(*This
));
1142 /* Initialize the virtual function table. */
1143 This
->lpvtbl
= &VT_URLMonikerImpl
;
1146 if(lpszLeftURLName
) {
1147 hres
= UrlCombineW(lpszLeftURLName
, lpszURLName
, NULL
, &sizeStr
, 0);
1154 sizeStr
= lstrlenW(lpszURLName
)+1;
1156 This
->URLName
=HeapAlloc(GetProcessHeap(),0,sizeof(WCHAR
)*(sizeStr
));
1158 if (This
->URLName
==NULL
)
1159 return E_OUTOFMEMORY
;
1161 if(lpszLeftURLName
) {
1162 hres
= UrlCombineW(lpszLeftURLName
, lpszURLName
, This
->URLName
, &sizeStr
, 0);
1164 HeapFree(GetProcessHeap(), 0, This
->URLName
);
1169 strcpyW(This
->URLName
,lpszURLName
);
1171 URLMON_LockModule();
1176 /***********************************************************************
1177 * CreateAsyncBindCtx (URLMON.@)
1179 HRESULT WINAPI
CreateAsyncBindCtx(DWORD reserved
, IBindStatusCallback
*callback
,
1180 IEnumFORMATETC
*format
, IBindCtx
**pbind
)
1186 TRACE("(%08lx %p %p %p)\n", reserved
, callback
, format
, pbind
);
1189 return E_INVALIDARG
;
1191 FIXME("format is not supported yet\n");
1193 hres
= CreateBindCtx(0, &bctx
);
1197 bindopts
.cbStruct
= sizeof(BIND_OPTS
);
1198 bindopts
.grfFlags
= BIND_MAYBOTHERUSER
;
1199 bindopts
.grfMode
= STGM_READWRITE
| STGM_SHARE_EXCLUSIVE
;
1200 bindopts
.dwTickCountDeadline
= 0;
1201 IBindCtx_SetBindOptions(bctx
, &bindopts
);
1203 hres
= IBindCtx_RegisterObjectParam(bctx
, (LPOLESTR
)BSCBHolder
, (IUnknown
*)callback
);
1205 IBindCtx_Release(bctx
);
1213 /***********************************************************************
1214 * CreateAsyncBindCtxEx (URLMON.@)
1216 * Create an asynchronous bind context.
1221 HRESULT WINAPI
CreateAsyncBindCtxEx(IBindCtx
*ibind
, DWORD options
,
1222 IBindStatusCallback
*callback
, IEnumFORMATETC
*format
, IBindCtx
** pbind
,
1225 FIXME("stub, returns failure\n");
1226 return E_INVALIDARG
;
1230 /***********************************************************************
1231 * CreateURLMoniker (URLMON.@)
1233 * Create a url moniker.
1236 * pmkContext [I] Context
1237 * szURL [I] Url to create the moniker for
1238 * ppmk [O] Destination for created moniker.
1241 * Success: S_OK. ppmk contains the created IMoniker object.
1242 * Failure: MK_E_SYNTAX if szURL is not a valid url, or
1243 * E_OUTOFMEMORY if memory allocation fails.
1245 HRESULT WINAPI
CreateURLMoniker(IMoniker
*pmkContext
, LPCWSTR szURL
, IMoniker
**ppmk
)
1247 URLMonikerImpl
*obj
;
1249 IID iid
= IID_IMoniker
;
1250 LPOLESTR lefturl
= NULL
;
1252 TRACE("(%p, %s, %p)\n", pmkContext
, debugstr_w(szURL
), ppmk
);
1254 if(!(obj
= HeapAlloc(GetProcessHeap(), 0, sizeof(*obj
))))
1255 return E_OUTOFMEMORY
;
1260 IMoniker_IsSystemMoniker(pmkContext
, &dwMksys
);
1261 if(dwMksys
== MKSYS_URLMONIKER
&& SUCCEEDED(CreateBindCtx(0, &bind
))) {
1262 IMoniker_GetDisplayName(pmkContext
, bind
, NULL
, &lefturl
);
1263 TRACE("lefturl = %s\n", debugstr_w(lefturl
));
1264 IBindCtx_Release(bind
);
1268 hres
= URLMonikerImpl_Construct(obj
, lefturl
, szURL
);
1269 CoTaskMemFree(lefturl
);
1271 hres
= URLMonikerImpl_QueryInterface((IMoniker
*)obj
, &iid
, (void**)ppmk
);
1273 HeapFree(GetProcessHeap(), 0, obj
);
1278 /***********************************************************************
1279 * CoInternetGetSession (URLMON.@)
1281 * Create a new internet session and return an IInternetSession interface
1285 * dwSessionMode [I] Mode for the internet session
1286 * ppIInternetSession [O] Destination for creates IInternetSession object
1287 * dwReserved [I] Reserved, must be 0.
1290 * Success: S_OK. ppIInternetSession contains the IInternetSession interface.
1291 * Failure: E_INVALIDARG, if any argument is invalid, or
1292 * E_OUTOFMEMORY if memory allocation fails.
1294 HRESULT WINAPI
CoInternetGetSession(DWORD dwSessionMode
, IInternetSession
**ppIInternetSession
, DWORD dwReserved
)
1296 FIXME("(%ld, %p, %ld): stub\n", dwSessionMode
, ppIInternetSession
, dwReserved
);
1299 ERR("dwSessionMode: %ld, must be zero\n", dwSessionMode
);
1303 ERR("dwReserved: %ld, must be zero\n", dwReserved
);
1306 *ppIInternetSession
=NULL
;
1307 return E_OUTOFMEMORY
;
1310 /***********************************************************************
1311 * CoInternetQueryInfo (URLMON.@)
1313 * Retrieves information relevant to a specified URL
1317 * S_FALSE buffer too small
1318 * INET_E_QUERYOPTIONUNKNOWN invalid option
1321 HRESULT WINAPI
CoInternetQueryInfo(LPCWSTR pwzUrl
, QUERYOPTION QueryOption
,
1322 DWORD dwQueryFlags
, LPVOID pvBuffer
, DWORD cbBuffer
, DWORD
* pcbBuffer
,
1325 FIXME("(%s, %x, %lx, %p, %lx, %p, %lx): stub\n", debugstr_w(pwzUrl
),
1326 QueryOption
, dwQueryFlags
, pvBuffer
, cbBuffer
, pcbBuffer
, dwReserved
);
1330 static BOOL
URLMON_IsBinary(LPVOID pBuffer
, DWORD cbSize
)
1332 unsigned int i
, binarycount
= 0;
1333 unsigned char *buff
= pBuffer
;
1334 for(i
=0; i
<cbSize
; i
++) {
1338 return binarycount
> (cbSize
-binarycount
);
1341 /***********************************************************************
1342 * FindMimeFromData (URLMON.@)
1344 * Determines the Multipurpose Internet Mail Extensions (MIME) type from the data provided.
1347 * See http://msdn.microsoft.com/workshop/networking/moniker/overview/appendix_a.asp
1349 HRESULT WINAPI
FindMimeFromData(LPBC pBC
, LPCWSTR pwzUrl
, LPVOID pBuffer
,
1350 DWORD cbSize
, LPCWSTR pwzMimeProposed
, DWORD dwMimeFlags
,
1351 LPWSTR
* ppwzMimeOut
, DWORD dwReserved
)
1353 static const WCHAR szBinaryMime
[] = {'a','p','p','l','i','c','a','t','i','o','n','/','o','c','t','e','t','-','s','t','r','e','a','m','\0'};
1354 static const WCHAR szTextMime
[] = {'t','e','x','t','/','p','l','a','i','n','\0'};
1355 static const WCHAR szContentType
[] = {'C','o','n','t','e','n','t',' ','T','y','p','e','\0'};
1356 WCHAR szTmpMime
[256];
1357 LPCWSTR mimeType
= NULL
;
1360 TRACE("(%p,%s,%p,%ld,%s,0x%lx,%p,0x%lx)\n", pBC
, debugstr_w(pwzUrl
), pBuffer
, cbSize
,
1361 debugstr_w(pwzMimeProposed
), dwMimeFlags
, ppwzMimeOut
, dwReserved
);
1363 if((!pwzUrl
&& (!pBuffer
|| cbSize
<= 0)) || !ppwzMimeOut
)
1364 return E_INVALIDARG
;
1367 mimeType
= pwzMimeProposed
;
1369 /* Try and find the mime type in the registry */
1371 LPWSTR ext
= strrchrW(pwzUrl
, '.');
1374 if(!RegOpenKeyExW(HKEY_CLASSES_ROOT
, ext
, 0, 0, &hKey
)) {
1375 if(!RegQueryValueExW(hKey
, szContentType
, NULL
, NULL
, (LPBYTE
)szTmpMime
, &dwSize
)) {
1376 mimeType
= szTmpMime
;
1383 if(!mimeType
&& pBuffer
&& cbSize
> 0)
1384 mimeType
= URLMON_IsBinary(pBuffer
, cbSize
)?szBinaryMime
:szTextMime
;
1386 TRACE("Using %s\n", debugstr_w(mimeType
));
1387 *ppwzMimeOut
= CoTaskMemAlloc((lstrlenW(mimeType
)+1)*sizeof(WCHAR
));
1388 if(!*ppwzMimeOut
) return E_OUTOFMEMORY
;
1389 lstrcpyW(*ppwzMimeOut
, mimeType
);
1393 /***********************************************************************
1394 * IsAsyncMoniker (URLMON.@)
1396 HRESULT WINAPI
IsAsyncMoniker(IMoniker
*pmk
)
1400 TRACE("(%p)\n", pmk
);
1402 return E_INVALIDARG
;
1403 if(SUCCEEDED(IMoniker_QueryInterface(pmk
, &IID_IAsyncMoniker
, (void**)&am
))) {
1404 IUnknown_Release(am
);
1410 /***********************************************************************
1411 * RegisterBindStatusCallback (URLMON.@)
1413 * Register a bind status callback.
1416 * pbc [I] Binding context
1417 * pbsc [I] Callback to register
1418 * ppbscPrevious [O] Destination for previous callback
1419 * dwReserved [I] Reserved, must be 0.
1423 * Failure: E_INVALIDARG, if any argument is invalid, or
1424 * E_OUTOFMEMORY if memory allocation fails.
1426 HRESULT WINAPI
RegisterBindStatusCallback(
1428 IBindStatusCallback
*pbsc
,
1429 IBindStatusCallback
**ppbscPrevious
,
1432 IBindStatusCallback
*prev
;
1434 TRACE("(%p,%p,%p,%lu)\n", pbc
, pbsc
, ppbscPrevious
, dwReserved
);
1436 if (pbc
== NULL
|| pbsc
== NULL
)
1437 return E_INVALIDARG
;
1439 if (SUCCEEDED(IBindCtx_GetObjectParam(pbc
, (LPOLESTR
)BSCBHolder
, (IUnknown
**)&prev
)))
1441 IBindCtx_RevokeObjectParam(pbc
, (LPOLESTR
)BSCBHolder
);
1443 *ppbscPrevious
= prev
;
1445 IBindStatusCallback_Release(prev
);
1448 return IBindCtx_RegisterObjectParam(pbc
, (LPOLESTR
)BSCBHolder
, (IUnknown
*)pbsc
);
1451 /***********************************************************************
1452 * RevokeBindStatusCallback (URLMON.@)
1454 * Unregister a bind status callback.
1456 * pbc [I] Binding context
1457 * pbsc [I] Callback to unregister
1461 * Failure: E_INVALIDARG, if any argument is invalid, or
1462 * E_FAIL if pbsc wasn't registered with pbc.
1464 HRESULT WINAPI
RevokeBindStatusCallback(
1466 IBindStatusCallback
*pbsc
)
1468 IBindStatusCallback
*callback
;
1469 HRESULT hr
= E_FAIL
;
1471 TRACE("(%p,%p)\n", pbc
, pbsc
);
1473 if (pbc
== NULL
|| pbsc
== NULL
)
1474 return E_INVALIDARG
;
1476 if (SUCCEEDED(IBindCtx_GetObjectParam(pbc
, (LPOLESTR
)BSCBHolder
, (IUnknown
**)&callback
)))
1478 if (callback
== pbsc
)
1480 IBindCtx_RevokeObjectParam(pbc
, (LPOLESTR
)BSCBHolder
);
1483 IBindStatusCallback_Release(pbsc
);
1489 /***********************************************************************
1490 * ReleaseBindInfo (URLMON.@)
1492 * Release the resources used by the specified BINDINFO structure.
1495 * pbindinfo [I] BINDINFO to release.
1500 void WINAPI
ReleaseBindInfo(BINDINFO
* pbindinfo
)
1502 FIXME("(%p)stub!\n", pbindinfo
);
1505 /***********************************************************************
1506 * URLDownloadToFileA (URLMON.@)
1508 * Downloads URL szURL to rile szFileName and call lpfnCB callback to
1512 * pCaller [I] controlling IUnknown interface.
1513 * szURL [I] URL of the file to download
1514 * szFileName [I] file name to store the content of the URL
1515 * dwReserved [I] reserved - set to 0
1516 * lpfnCB [I] callback for progress report
1520 * E_OUTOFMEMORY when going out of memory
1522 HRESULT WINAPI
URLDownloadToFileA(LPUNKNOWN pCaller
,
1526 LPBINDSTATUSCALLBACK lpfnCB
)
1528 UNICODE_STRING szURL_w
, szFileName_w
;
1530 if ((szURL
== NULL
) || (szFileName
== NULL
)) {
1531 FIXME("(%p,%s,%s,%08lx,%p) cannot accept NULL strings !\n", pCaller
, debugstr_a(szURL
), debugstr_a(szFileName
), dwReserved
, lpfnCB
);
1532 return E_INVALIDARG
; /* The error code is not specified in this case... */
1535 if (RtlCreateUnicodeStringFromAsciiz(&szURL_w
, szURL
)) {
1536 if (RtlCreateUnicodeStringFromAsciiz(&szFileName_w
, szFileName
)) {
1537 HRESULT ret
= URLDownloadToFileW(pCaller
, szURL_w
.Buffer
, szFileName_w
.Buffer
, dwReserved
, lpfnCB
);
1539 RtlFreeUnicodeString(&szURL_w
);
1540 RtlFreeUnicodeString(&szFileName_w
);
1544 RtlFreeUnicodeString(&szURL_w
);
1548 FIXME("(%p,%s,%s,%08lx,%p) could not allocate W strings !\n", pCaller
, szURL
, szFileName
, dwReserved
, lpfnCB
);
1549 return E_OUTOFMEMORY
;
1552 /***********************************************************************
1553 * URLDownloadToFileW (URLMON.@)
1555 * Downloads URL szURL to rile szFileName and call lpfnCB callback to
1559 * pCaller [I] controlling IUnknown interface.
1560 * szURL [I] URL of the file to download
1561 * szFileName [I] file name to store the content of the URL
1562 * dwReserved [I] reserved - set to 0
1563 * lpfnCB [I] callback for progress report
1567 * E_OUTOFMEMORY when going out of memory
1569 HRESULT WINAPI
URLDownloadToFileW(LPUNKNOWN pCaller
,
1573 LPBINDSTATUSCALLBACK lpfnCB
)
1575 HINTERNET hinternet
, hcon
, hreq
;
1577 CHAR buffer
[0x1000];
1578 DWORD sz
, total
, written
;
1579 DWORD total_size
= 0xFFFFFFFF, arg_size
= sizeof(total_size
);
1580 URL_COMPONENTSW url
;
1581 WCHAR host
[0x80], path
[0x100];
1583 static const WCHAR wszAppName
[]={'u','r','l','m','o','n','.','d','l','l',0};
1585 /* Note: all error codes would need to be checked agains real Windows behaviour... */
1586 TRACE("(%p,%s,%s,%08lx,%p) stub!\n", pCaller
, debugstr_w(szURL
), debugstr_w(szFileName
), dwReserved
, lpfnCB
);
1588 if ((szURL
== NULL
) || (szFileName
== NULL
)) {
1589 FIXME(" cannot accept NULL strings !\n");
1590 return E_INVALIDARG
;
1593 /* Would be better to use the application name here rather than 'urlmon' :-/ */
1594 hinternet
= InternetOpenW(wszAppName
, INTERNET_OPEN_TYPE_PRECONFIG
, NULL
, NULL
, 0);
1595 if (hinternet
== NULL
) {
1596 return E_OUTOFMEMORY
;
1599 memset(&url
, 0, sizeof(url
));
1600 url
.dwStructSize
= sizeof(url
);
1601 url
.lpszHostName
= host
;
1602 url
.dwHostNameLength
= sizeof(host
);
1603 url
.lpszUrlPath
= path
;
1604 url
.dwUrlPathLength
= sizeof(path
);
1606 if (!InternetCrackUrlW(szURL
, 0, 0, &url
)) {
1607 InternetCloseHandle(hinternet
);
1608 return E_OUTOFMEMORY
;
1612 if (IBindStatusCallback_OnProgress(lpfnCB
, 0, 0, BINDSTATUS_CONNECTING
, url
.lpszHostName
) == E_ABORT
) {
1613 InternetCloseHandle(hinternet
);
1618 hcon
= InternetConnectW(hinternet
, url
.lpszHostName
, url
.nPort
,
1619 url
.lpszUserName
, url
.lpszPassword
,
1620 INTERNET_SERVICE_HTTP
, 0, 0);
1622 InternetCloseHandle(hinternet
);
1623 return E_OUTOFMEMORY
;
1626 hreq
= HttpOpenRequestW(hcon
, NULL
, url
.lpszUrlPath
, NULL
, NULL
, NULL
, 0, 0);
1628 InternetCloseHandle(hinternet
);
1629 InternetCloseHandle(hcon
);
1630 return E_OUTOFMEMORY
;
1633 if (!HttpSendRequestW(hreq
, NULL
, 0, NULL
, 0)) {
1634 InternetCloseHandle(hinternet
);
1635 InternetCloseHandle(hcon
);
1636 InternetCloseHandle(hreq
);
1637 return E_OUTOFMEMORY
;
1640 if (HttpQueryInfoW(hreq
, HTTP_QUERY_CONTENT_LENGTH
| HTTP_QUERY_FLAG_NUMBER
,
1641 &total_size
, &arg_size
, NULL
)) {
1642 TRACE(" total size : %ld\n", total_size
);
1645 hfile
= CreateFileW(szFileName
, GENERIC_WRITE
, 0, NULL
, CREATE_ALWAYS
,
1646 FILE_ATTRIBUTE_NORMAL
, NULL
);
1647 if (hfile
== INVALID_HANDLE_VALUE
) {
1648 return E_ACCESSDENIED
;
1652 if (IBindStatusCallback_OnProgress(lpfnCB
, 0, total_size
!= 0xFFFFFFFF ? total_size
: 0,
1653 BINDSTATUS_BEGINDOWNLOADDATA
, szURL
) == E_ABORT
) {
1654 InternetCloseHandle(hreq
);
1655 InternetCloseHandle(hcon
);
1656 InternetCloseHandle(hinternet
);
1664 r
= InternetReadFile(hreq
, buffer
, sizeof(buffer
), &sz
);
1666 InternetCloseHandle(hreq
);
1667 InternetCloseHandle(hcon
);
1668 InternetCloseHandle(hinternet
);
1671 return E_OUTOFMEMORY
;
1679 if (IBindStatusCallback_OnProgress(lpfnCB
, total
, total_size
!= 0xFFFFFFFF ? total_size
: 0,
1680 BINDSTATUS_DOWNLOADINGDATA
, szURL
) == E_ABORT
) {
1681 InternetCloseHandle(hreq
);
1682 InternetCloseHandle(hcon
);
1683 InternetCloseHandle(hinternet
);
1689 if (!WriteFile(hfile
, buffer
, sz
, &written
, NULL
)) {
1690 InternetCloseHandle(hreq
);
1691 InternetCloseHandle(hcon
);
1692 InternetCloseHandle(hinternet
);
1695 return E_OUTOFMEMORY
;
1700 if (IBindStatusCallback_OnProgress(lpfnCB
, total
, total_size
!= 0xFFFFFFFF ? total_size
: 0,
1701 BINDSTATUS_ENDDOWNLOADDATA
, szURL
) == E_ABORT
) {
1702 InternetCloseHandle(hreq
);
1703 InternetCloseHandle(hcon
);
1704 InternetCloseHandle(hinternet
);
1710 InternetCloseHandle(hreq
);
1711 InternetCloseHandle(hcon
);
1712 InternetCloseHandle(hinternet
);
1719 /***********************************************************************
1720 * HlinkSimpleNavigateToString (URLMON.@)
1722 HRESULT WINAPI
HlinkSimpleNavigateToString( LPCWSTR szTarget
,
1723 LPCWSTR szLocation
, LPCWSTR szTargetFrameName
, IUnknown
*pUnk
,
1724 IBindCtx
*pbc
, IBindStatusCallback
*pbsc
, DWORD grfHLNF
, DWORD dwReserved
)
1726 FIXME("%s\n", debugstr_w( szTarget
) );
1730 /***********************************************************************
1731 * HlinkNavigateString (URLMON.@)
1733 HRESULT WINAPI
HlinkNavigateString( IUnknown
*pUnk
, LPCWSTR szTarget
)
1735 TRACE("%p %s\n", pUnk
, debugstr_w( szTarget
) );
1736 return HlinkSimpleNavigateToString(
1737 szTarget
, NULL
, NULL
, pUnk
, NULL
, NULL
, 0, 0 );
1740 /***********************************************************************
1741 * GetSoftwareUpdateInfo (URLMON.@)
1743 HRESULT WINAPI
GetSoftwareUpdateInfo( LPCWSTR szDistUnit
, LPSOFTDISTINFO psdi
)
1745 FIXME("%s %p\n", debugstr_w(szDistUnit
), psdi
);