wininet: Directly return error status from HTTP_OpenConnection.
[wine] / dlls / wininet / internet.c
1 /*
2  * Wininet
3  *
4  * Copyright 1999 Corel Corporation
5  * Copyright 2002 CodeWeavers Inc.
6  * Copyright 2002 Jaco Greeff
7  * Copyright 2002 TransGaming Technologies Inc.
8  * Copyright 2004 Mike McCormack for CodeWeavers
9  *
10  * Ulrich Czekalla
11  * Aric Stewart
12  * David Hammerton
13  *
14  * This library is free software; you can redistribute it and/or
15  * modify it under the terms of the GNU Lesser General Public
16  * License as published by the Free Software Foundation; either
17  * version 2.1 of the License, or (at your option) any later version.
18  *
19  * This library is distributed in the hope that it will be useful,
20  * but WITHOUT ANY WARRANTY; without even the implied warranty of
21  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
22  * Lesser General Public License for more details.
23  *
24  * You should have received a copy of the GNU Lesser General Public
25  * License along with this library; if not, write to the Free Software
26  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
27  */
28
29 #include "config.h"
30 #include "wine/port.h"
31
32 #define MAXHOSTNAME 100 /* from http.c */
33
34 #if defined(__MINGW32__) || defined (_MSC_VER)
35 #include <ws2tcpip.h>
36 #endif
37
38 #include <string.h>
39 #include <stdarg.h>
40 #include <stdio.h>
41 #include <sys/types.h>
42 #ifdef HAVE_SYS_SOCKET_H
43 # include <sys/socket.h>
44 #endif
45 #ifdef HAVE_POLL_H
46 #include <poll.h>
47 #endif
48 #ifdef HAVE_SYS_POLL_H
49 # include <sys/poll.h>
50 #endif
51 #ifdef HAVE_SYS_TIME_H
52 # include <sys/time.h>
53 #endif
54 #include <stdlib.h>
55 #include <ctype.h>
56 #ifdef HAVE_UNISTD_H
57 # include <unistd.h>
58 #endif
59 #include <assert.h>
60
61 #include "windef.h"
62 #include "winbase.h"
63 #include "winreg.h"
64 #include "winuser.h"
65 #include "wininet.h"
66 #include "winineti.h"
67 #include "winnls.h"
68 #include "wine/debug.h"
69 #include "winerror.h"
70 #define NO_SHLWAPI_STREAM
71 #include "shlwapi.h"
72
73 #include "wine/exception.h"
74
75 #include "internet.h"
76 #include "resource.h"
77
78 #include "wine/unicode.h"
79
80 WINE_DEFAULT_DEBUG_CHANNEL(wininet);
81
82 #define RESPONSE_TIMEOUT        30
83
84 typedef struct
85 {
86     DWORD  dwError;
87     CHAR   response[MAX_REPLY_LEN];
88 } WITHREADERROR, *LPWITHREADERROR;
89
90 static DWORD g_dwTlsErrIndex = TLS_OUT_OF_INDEXES;
91 static HMODULE WININET_hModule;
92
93 #define HANDLE_CHUNK_SIZE 0x10
94
95 static CRITICAL_SECTION WININET_cs;
96 static CRITICAL_SECTION_DEBUG WININET_cs_debug = 
97 {
98     0, 0, &WININET_cs,
99     { &WININET_cs_debug.ProcessLocksList, &WININET_cs_debug.ProcessLocksList },
100       0, 0, { (DWORD_PTR)(__FILE__ ": WININET_cs") }
101 };
102 static CRITICAL_SECTION WININET_cs = { &WININET_cs_debug, -1, 0, 0, 0, 0 };
103
104 static object_header_t **WININET_Handles;
105 static UINT WININET_dwNextHandle;
106 static UINT WININET_dwMaxHandles;
107
108 HINTERNET WININET_AllocHandle( object_header_t *info )
109 {
110     object_header_t **p;
111     UINT handle = 0, num;
112
113     list_init( &info->children );
114
115     EnterCriticalSection( &WININET_cs );
116     if( !WININET_dwMaxHandles )
117     {
118         num = HANDLE_CHUNK_SIZE;
119         p = HeapAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY, 
120                    sizeof (*WININET_Handles)* num);
121         if( !p )
122             goto end;
123         WININET_Handles = p;
124         WININET_dwMaxHandles = num;
125     }
126     if( WININET_dwMaxHandles == WININET_dwNextHandle )
127     {
128         num = WININET_dwMaxHandles + HANDLE_CHUNK_SIZE;
129         p = HeapReAlloc( GetProcessHeap(), HEAP_ZERO_MEMORY,
130                    WININET_Handles, sizeof (*WININET_Handles)* num);
131         if( !p )
132             goto end;
133         WININET_Handles = p;
134         WININET_dwMaxHandles = num;
135     }
136
137     handle = WININET_dwNextHandle;
138     if( WININET_Handles[handle] )
139         ERR("handle isn't free but should be\n");
140     WININET_Handles[handle] = WININET_AddRef( info );
141
142     while( WININET_Handles[WININET_dwNextHandle] && 
143            (WININET_dwNextHandle < WININET_dwMaxHandles ) )
144         WININET_dwNextHandle++;
145     
146 end:
147     LeaveCriticalSection( &WININET_cs );
148
149     return info->hInternet = (HINTERNET) (handle+1);
150 }
151
152 object_header_t *WININET_AddRef( object_header_t *info )
153 {
154     ULONG refs = InterlockedIncrement(&info->refs);
155     TRACE("%p -> refcount = %d\n", info, refs );
156     return info;
157 }
158
159 object_header_t *WININET_GetObject( HINTERNET hinternet )
160 {
161     object_header_t *info = NULL;
162     UINT handle = (UINT) hinternet;
163
164     EnterCriticalSection( &WININET_cs );
165
166     if( (handle > 0) && ( handle <= WININET_dwMaxHandles ) && 
167         WININET_Handles[handle-1] )
168         info = WININET_AddRef( WININET_Handles[handle-1] );
169
170     LeaveCriticalSection( &WININET_cs );
171
172     TRACE("handle %d -> %p\n", handle, info);
173
174     return info;
175 }
176
177 BOOL WININET_Release( object_header_t *info )
178 {
179     ULONG refs = InterlockedDecrement(&info->refs);
180     TRACE( "object %p refcount = %d\n", info, refs );
181     if( !refs )
182     {
183         if ( info->vtbl->CloseConnection )
184         {
185             TRACE( "closing connection %p\n", info);
186             info->vtbl->CloseConnection( info );
187         }
188         /* Don't send a callback if this is a session handle created with InternetOpenUrl */
189         if ((info->htype != WH_HHTTPSESSION && info->htype != WH_HFTPSESSION)
190             || !(info->dwInternalFlags & INET_OPENURL))
191         {
192             INTERNET_SendCallback(info, info->dwContext,
193                                   INTERNET_STATUS_HANDLE_CLOSING, &info->hInternet,
194                                   sizeof(HINTERNET));
195         }
196         TRACE( "destroying object %p\n", info);
197         if ( info->htype != WH_HINIT )
198             list_remove( &info->entry );
199         info->vtbl->Destroy( info );
200     }
201     return TRUE;
202 }
203
204 BOOL WININET_FreeHandle( HINTERNET hinternet )
205 {
206     BOOL ret = FALSE;
207     UINT handle = (UINT) hinternet;
208     object_header_t *info = NULL, *child, *next;
209
210     EnterCriticalSection( &WININET_cs );
211
212     if( (handle > 0) && ( handle <= WININET_dwMaxHandles ) )
213     {
214         handle--;
215         if( WININET_Handles[handle] )
216         {
217             info = WININET_Handles[handle];
218             TRACE( "destroying handle %d for object %p\n", handle+1, info);
219             WININET_Handles[handle] = NULL;
220             ret = TRUE;
221         }
222     }
223
224     LeaveCriticalSection( &WININET_cs );
225
226     /* As on native when the equivalent of WININET_Release is called, the handle
227      * is already invalid, but if a new handle is created at this time it does
228      * not yet get assigned the freed handle number */
229     if( info )
230     {
231         /* Free all children as native does */
232         LIST_FOR_EACH_ENTRY_SAFE( child, next, &info->children, object_header_t, entry )
233         {
234             TRACE( "freeing child handle %d for parent handle %d\n",
235                    (UINT)child->hInternet, handle+1);
236             WININET_FreeHandle( child->hInternet );
237         }
238         WININET_Release( info );
239     }
240
241     EnterCriticalSection( &WININET_cs );
242
243     if( WININET_dwNextHandle > handle && !WININET_Handles[handle] )
244         WININET_dwNextHandle = handle;
245
246     LeaveCriticalSection( &WININET_cs );
247
248     return ret;
249 }
250
251 /***********************************************************************
252  * DllMain [Internal] Initializes the internal 'WININET.DLL'.
253  *
254  * PARAMS
255  *     hinstDLL    [I] handle to the DLL's instance
256  *     fdwReason   [I]
257  *     lpvReserved [I] reserved, must be NULL
258  *
259  * RETURNS
260  *     Success: TRUE
261  *     Failure: FALSE
262  */
263
264 BOOL WINAPI DllMain (HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
265 {
266     TRACE("%p,%x,%p\n", hinstDLL, fdwReason, lpvReserved);
267
268     switch (fdwReason) {
269         case DLL_PROCESS_ATTACH:
270
271             g_dwTlsErrIndex = TlsAlloc();
272
273             if (g_dwTlsErrIndex == TLS_OUT_OF_INDEXES)
274                 return FALSE;
275
276             URLCacheContainers_CreateDefaults();
277
278             WININET_hModule = hinstDLL;
279
280         case DLL_THREAD_ATTACH:
281             break;
282
283         case DLL_THREAD_DETACH:
284             if (g_dwTlsErrIndex != TLS_OUT_OF_INDEXES)
285                         {
286                                 LPVOID lpwite = TlsGetValue(g_dwTlsErrIndex);
287                                 HeapFree(GetProcessHeap(), 0, lpwite);
288                         }
289             break;
290
291         case DLL_PROCESS_DETACH:
292
293             NETCON_unload();
294
295             URLCacheContainers_DeleteAll();
296
297             if (g_dwTlsErrIndex != TLS_OUT_OF_INDEXES)
298             {
299                 HeapFree(GetProcessHeap(), 0, TlsGetValue(g_dwTlsErrIndex));
300                 TlsFree(g_dwTlsErrIndex);
301             }
302             break;
303     }
304
305     return TRUE;
306 }
307
308
309 /***********************************************************************
310  *           InternetInitializeAutoProxyDll   (WININET.@)
311  *
312  * Setup the internal proxy
313  *
314  * PARAMETERS
315  *     dwReserved
316  *
317  * RETURNS
318  *     FALSE on failure
319  *
320  */
321 BOOL WINAPI InternetInitializeAutoProxyDll(DWORD dwReserved)
322 {
323     FIXME("STUB\n");
324     INTERNET_SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
325     return FALSE;
326 }
327
328 /***********************************************************************
329  *           DetectAutoProxyUrl   (WININET.@)
330  *
331  * Auto detect the proxy url
332  *
333  * RETURNS
334  *     FALSE on failure
335  *
336  */
337 BOOL WINAPI DetectAutoProxyUrl(LPSTR lpszAutoProxyUrl,
338         DWORD dwAutoProxyUrlLength, DWORD dwDetectFlags)
339 {
340     FIXME("STUB\n");
341     INTERNET_SetLastError(ERROR_CALL_NOT_IMPLEMENTED);
342     return FALSE;
343 }
344
345
346 /***********************************************************************
347  *           INTERNET_ConfigureProxy
348  *
349  * FIXME:
350  * The proxy may be specified in the form 'http=proxy.my.org'
351  * Presumably that means there can be ftp=ftpproxy.my.org too.
352  */
353 static BOOL INTERNET_ConfigureProxy( appinfo_t *lpwai )
354 {
355     HKEY key;
356     DWORD type, len, enabled = 0;
357     LPCSTR envproxy;
358     static const WCHAR szInternetSettings[] =
359         { 'S','o','f','t','w','a','r','e','\\','M','i','c','r','o','s','o','f','t','\\',
360           'W','i','n','d','o','w','s','\\','C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
361           'I','n','t','e','r','n','e','t',' ','S','e','t','t','i','n','g','s',0 };
362     static const WCHAR szProxyServer[] = { 'P','r','o','x','y','S','e','r','v','e','r', 0 };
363     static const WCHAR szProxyEnable[] = { 'P','r','o','x','y','E','n','a','b','l','e', 0 };
364
365     if (RegOpenKeyW( HKEY_CURRENT_USER, szInternetSettings, &key )) return FALSE;
366
367     len = sizeof enabled;
368     if (RegQueryValueExW( key, szProxyEnable, NULL, &type, (BYTE *)&enabled, &len ) || type != REG_DWORD)
369         RegSetValueExW( key, szProxyEnable, 0, REG_DWORD, (BYTE *)&enabled, sizeof(REG_DWORD) );
370
371     if (enabled)
372     {
373         TRACE("Proxy is enabled.\n");
374
375         /* figure out how much memory the proxy setting takes */
376         if (!RegQueryValueExW( key, szProxyServer, NULL, &type, NULL, &len ) && len && (type == REG_SZ))
377         {
378             LPWSTR szProxy, p;
379             static const WCHAR szHttp[] = {'h','t','t','p','=',0};
380
381             if (!(szProxy = HeapAlloc( GetProcessHeap(), 0, len )))
382             {
383                 RegCloseKey( key );
384                 return FALSE;
385             }
386             RegQueryValueExW( key, szProxyServer, NULL, &type, (BYTE*)szProxy, &len );
387
388             /* find the http proxy, and strip away everything else */
389             p = strstrW( szProxy, szHttp );
390             if (p)
391             {
392                 p += lstrlenW( szHttp );
393                 lstrcpyW( szProxy, p );
394             }
395             p = strchrW( szProxy, ' ' );
396             if (p) *p = 0;
397
398             lpwai->dwAccessType = INTERNET_OPEN_TYPE_PROXY;
399             lpwai->lpszProxy = szProxy;
400
401             TRACE("http proxy = %s\n", debugstr_w(lpwai->lpszProxy));
402         }
403         else
404             ERR("Couldn't read proxy server settings from registry.\n");
405     }
406     else if ((envproxy = getenv( "http_proxy" )))
407     {
408         WCHAR *envproxyW;
409
410         len = MultiByteToWideChar( CP_UNIXCP, 0, envproxy, -1, NULL, 0 );
411         if (!(envproxyW = HeapAlloc( GetProcessHeap(), 0, len * sizeof(WCHAR)))) return FALSE;
412         MultiByteToWideChar( CP_UNIXCP, 0, envproxy, -1, envproxyW, len );
413
414         lpwai->dwAccessType = INTERNET_OPEN_TYPE_PROXY;
415         lpwai->lpszProxy = envproxyW;
416
417         TRACE("http proxy (from environment) = %s\n", debugstr_w(lpwai->lpszProxy));
418         enabled = 1;
419     }
420     if (!enabled)
421     {
422         TRACE("Proxy is not enabled.\n");
423         lpwai->dwAccessType = INTERNET_OPEN_TYPE_DIRECT;
424     }
425     RegCloseKey( key );
426     return (enabled > 0);
427 }
428
429 /***********************************************************************
430  *           dump_INTERNET_FLAGS
431  *
432  * Helper function to TRACE the internet flags.
433  *
434  * RETURNS
435  *    None
436  *
437  */
438 static void dump_INTERNET_FLAGS(DWORD dwFlags) 
439 {
440 #define FE(x) { x, #x }
441     static const wininet_flag_info flag[] = {
442         FE(INTERNET_FLAG_RELOAD),
443         FE(INTERNET_FLAG_RAW_DATA),
444         FE(INTERNET_FLAG_EXISTING_CONNECT),
445         FE(INTERNET_FLAG_ASYNC),
446         FE(INTERNET_FLAG_PASSIVE),
447         FE(INTERNET_FLAG_NO_CACHE_WRITE),
448         FE(INTERNET_FLAG_MAKE_PERSISTENT),
449         FE(INTERNET_FLAG_FROM_CACHE),
450         FE(INTERNET_FLAG_SECURE),
451         FE(INTERNET_FLAG_KEEP_CONNECTION),
452         FE(INTERNET_FLAG_NO_AUTO_REDIRECT),
453         FE(INTERNET_FLAG_READ_PREFETCH),
454         FE(INTERNET_FLAG_NO_COOKIES),
455         FE(INTERNET_FLAG_NO_AUTH),
456         FE(INTERNET_FLAG_CACHE_IF_NET_FAIL),
457         FE(INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTP),
458         FE(INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTPS),
459         FE(INTERNET_FLAG_IGNORE_CERT_DATE_INVALID),
460         FE(INTERNET_FLAG_IGNORE_CERT_CN_INVALID),
461         FE(INTERNET_FLAG_RESYNCHRONIZE),
462         FE(INTERNET_FLAG_HYPERLINK),
463         FE(INTERNET_FLAG_NO_UI),
464         FE(INTERNET_FLAG_PRAGMA_NOCACHE),
465         FE(INTERNET_FLAG_CACHE_ASYNC),
466         FE(INTERNET_FLAG_FORMS_SUBMIT),
467         FE(INTERNET_FLAG_NEED_FILE),
468         FE(INTERNET_FLAG_TRANSFER_ASCII),
469         FE(INTERNET_FLAG_TRANSFER_BINARY)
470     };
471 #undef FE
472     unsigned int i;
473
474     for (i = 0; i < (sizeof(flag) / sizeof(flag[0])); i++) {
475         if (flag[i].val & dwFlags) {
476             TRACE(" %s", flag[i].name);
477             dwFlags &= ~flag[i].val;
478         }
479     }   
480     if (dwFlags)
481         TRACE(" Unknown flags (%08x)\n", dwFlags);
482     else
483         TRACE("\n");
484 }
485
486 /***********************************************************************
487  *           INTERNET_CloseHandle (internal)
488  *
489  * Close internet handle
490  *
491  */
492 static VOID APPINFO_Destroy(object_header_t *hdr)
493 {
494     appinfo_t *lpwai = (appinfo_t*)hdr;
495
496     TRACE("%p\n",lpwai);
497
498     HeapFree(GetProcessHeap(), 0, lpwai->lpszAgent);
499     HeapFree(GetProcessHeap(), 0, lpwai->lpszProxy);
500     HeapFree(GetProcessHeap(), 0, lpwai->lpszProxyBypass);
501     HeapFree(GetProcessHeap(), 0, lpwai->lpszProxyUsername);
502     HeapFree(GetProcessHeap(), 0, lpwai->lpszProxyPassword);
503     HeapFree(GetProcessHeap(), 0, lpwai);
504 }
505
506 static DWORD APPINFO_QueryOption(object_header_t *hdr, DWORD option, void *buffer, DWORD *size, BOOL unicode)
507 {
508     appinfo_t *ai = (appinfo_t*)hdr;
509
510     switch(option) {
511     case INTERNET_OPTION_HANDLE_TYPE:
512         TRACE("INTERNET_OPTION_HANDLE_TYPE\n");
513
514         if (*size < sizeof(ULONG))
515             return ERROR_INSUFFICIENT_BUFFER;
516
517         *size = sizeof(DWORD);
518         *(DWORD*)buffer = INTERNET_HANDLE_TYPE_INTERNET;
519         return ERROR_SUCCESS;
520
521     case INTERNET_OPTION_USER_AGENT: {
522         DWORD bufsize;
523
524         TRACE("INTERNET_OPTION_USER_AGENT\n");
525
526         bufsize = *size;
527
528         if (unicode) {
529             DWORD len = ai->lpszAgent ? strlenW(ai->lpszAgent) : 0;
530
531             *size = (len + 1) * sizeof(WCHAR);
532             if(!buffer || bufsize < *size)
533                 return ERROR_INSUFFICIENT_BUFFER;
534
535             if (ai->lpszAgent)
536                 strcpyW(buffer, ai->lpszAgent);
537             else
538                 *(WCHAR *)buffer = 0;
539             /* If the buffer is copied, the returned length doesn't include
540              * the NULL terminator.
541              */
542             *size = len * sizeof(WCHAR);
543         }else {
544             if (ai->lpszAgent)
545                 *size = WideCharToMultiByte(CP_ACP, 0, ai->lpszAgent, -1, NULL, 0, NULL, NULL);
546             else
547                 *size = 1;
548             if(!buffer || bufsize < *size)
549                 return ERROR_INSUFFICIENT_BUFFER;
550
551             if (ai->lpszAgent)
552                 WideCharToMultiByte(CP_ACP, 0, ai->lpszAgent, -1, buffer, *size, NULL, NULL);
553             else
554                 *(char *)buffer = 0;
555             /* If the buffer is copied, the returned length doesn't include
556              * the NULL terminator.
557              */
558             *size -= 1;
559         }
560
561         return ERROR_SUCCESS;
562     }
563
564     case INTERNET_OPTION_PROXY:
565         if (unicode) {
566             INTERNET_PROXY_INFOW *pi = (INTERNET_PROXY_INFOW *)buffer;
567             DWORD proxyBytesRequired = 0, proxyBypassBytesRequired = 0;
568             LPWSTR proxy, proxy_bypass;
569
570             if (ai->lpszProxy)
571                 proxyBytesRequired = (lstrlenW(ai->lpszProxy) + 1) * sizeof(WCHAR);
572             if (ai->lpszProxyBypass)
573                 proxyBypassBytesRequired = (lstrlenW(ai->lpszProxyBypass) + 1) * sizeof(WCHAR);
574             if (*size < sizeof(INTERNET_PROXY_INFOW) + proxyBytesRequired + proxyBypassBytesRequired)
575             {
576                 *size = sizeof(INTERNET_PROXY_INFOW) + proxyBytesRequired + proxyBypassBytesRequired;
577                 return ERROR_INSUFFICIENT_BUFFER;
578             }
579             proxy = (LPWSTR)((LPBYTE)buffer + sizeof(INTERNET_PROXY_INFOW));
580             proxy_bypass = (LPWSTR)((LPBYTE)buffer + sizeof(INTERNET_PROXY_INFOW) + proxyBytesRequired);
581
582             pi->dwAccessType = ai->dwAccessType;
583             pi->lpszProxy = NULL;
584             pi->lpszProxyBypass = NULL;
585             if (ai->lpszProxy) {
586                 lstrcpyW(proxy, ai->lpszProxy);
587                 pi->lpszProxy = proxy;
588             }
589
590             if (ai->lpszProxyBypass) {
591                 lstrcpyW(proxy_bypass, ai->lpszProxyBypass);
592                 pi->lpszProxyBypass = proxy_bypass;
593             }
594
595             *size = sizeof(INTERNET_PROXY_INFOW) + proxyBytesRequired + proxyBypassBytesRequired;
596             return ERROR_SUCCESS;
597         }else {
598             INTERNET_PROXY_INFOA *pi = (INTERNET_PROXY_INFOA *)buffer;
599             DWORD proxyBytesRequired = 0, proxyBypassBytesRequired = 0;
600             LPSTR proxy, proxy_bypass;
601
602             if (ai->lpszProxy)
603                 proxyBytesRequired = WideCharToMultiByte(CP_ACP, 0, ai->lpszProxy, -1, NULL, 0, NULL, NULL);
604             if (ai->lpszProxyBypass)
605                 proxyBypassBytesRequired = WideCharToMultiByte(CP_ACP, 0, ai->lpszProxyBypass, -1,
606                         NULL, 0, NULL, NULL);
607             if (*size < sizeof(INTERNET_PROXY_INFOA) + proxyBytesRequired + proxyBypassBytesRequired)
608             {
609                 *size = sizeof(INTERNET_PROXY_INFOA) + proxyBytesRequired + proxyBypassBytesRequired;
610                 return ERROR_INSUFFICIENT_BUFFER;
611             }
612             proxy = (LPSTR)((LPBYTE)buffer + sizeof(INTERNET_PROXY_INFOA));
613             proxy_bypass = (LPSTR)((LPBYTE)buffer + sizeof(INTERNET_PROXY_INFOA) + proxyBytesRequired);
614
615             pi->dwAccessType = ai->dwAccessType;
616             pi->lpszProxy = NULL;
617             pi->lpszProxyBypass = NULL;
618             if (ai->lpszProxy) {
619                 WideCharToMultiByte(CP_ACP, 0, ai->lpszProxy, -1, proxy, proxyBytesRequired, NULL, NULL);
620                 pi->lpszProxy = proxy;
621             }
622
623             if (ai->lpszProxyBypass) {
624                 WideCharToMultiByte(CP_ACP, 0, ai->lpszProxyBypass, -1, proxy_bypass,
625                         proxyBypassBytesRequired, NULL, NULL);
626                 pi->lpszProxyBypass = proxy_bypass;
627             }
628
629             *size = sizeof(INTERNET_PROXY_INFOA) + proxyBytesRequired + proxyBypassBytesRequired;
630             return ERROR_SUCCESS;
631         }
632     }
633
634     return INET_QueryOption(option, buffer, size, unicode);
635 }
636
637 static const object_vtbl_t APPINFOVtbl = {
638     APPINFO_Destroy,
639     NULL,
640     APPINFO_QueryOption,
641     NULL,
642     NULL,
643     NULL,
644     NULL,
645     NULL,
646     NULL
647 };
648
649
650 /***********************************************************************
651  *           InternetOpenW   (WININET.@)
652  *
653  * Per-application initialization of wininet
654  *
655  * RETURNS
656  *    HINTERNET on success
657  *    NULL on failure
658  *
659  */
660 HINTERNET WINAPI InternetOpenW(LPCWSTR lpszAgent, DWORD dwAccessType,
661     LPCWSTR lpszProxy, LPCWSTR lpszProxyBypass, DWORD dwFlags)
662 {
663     appinfo_t *lpwai = NULL;
664     HINTERNET handle = NULL;
665
666     if (TRACE_ON(wininet)) {
667 #define FE(x) { x, #x }
668         static const wininet_flag_info access_type[] = {
669             FE(INTERNET_OPEN_TYPE_PRECONFIG),
670             FE(INTERNET_OPEN_TYPE_DIRECT),
671             FE(INTERNET_OPEN_TYPE_PROXY),
672             FE(INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY)
673         };
674 #undef FE
675         DWORD i;
676         const char *access_type_str = "Unknown";
677         
678         TRACE("(%s, %i, %s, %s, %i)\n", debugstr_w(lpszAgent), dwAccessType,
679               debugstr_w(lpszProxy), debugstr_w(lpszProxyBypass), dwFlags);
680         for (i = 0; i < (sizeof(access_type) / sizeof(access_type[0])); i++) {
681             if (access_type[i].val == dwAccessType) {
682                 access_type_str = access_type[i].name;
683                 break;
684             }
685         }
686         TRACE("  access type : %s\n", access_type_str);
687         TRACE("  flags       :");
688         dump_INTERNET_FLAGS(dwFlags);
689     }
690
691     /* Clear any error information */
692     INTERNET_SetLastError(0);
693
694     lpwai = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(appinfo_t));
695     if (NULL == lpwai)
696     {
697         INTERNET_SetLastError(ERROR_OUTOFMEMORY);
698         goto lend;
699     }
700
701     lpwai->hdr.htype = WH_HINIT;
702     lpwai->hdr.vtbl = &APPINFOVtbl;
703     lpwai->hdr.dwFlags = dwFlags;
704     lpwai->hdr.refs = 1;
705     lpwai->dwAccessType = dwAccessType;
706     lpwai->lpszProxyUsername = NULL;
707     lpwai->lpszProxyPassword = NULL;
708
709     handle = WININET_AllocHandle( &lpwai->hdr );
710     if( !handle )
711     {
712         HeapFree( GetProcessHeap(), 0, lpwai );
713         INTERNET_SetLastError(ERROR_OUTOFMEMORY);
714         goto lend;
715     }
716
717     lpwai->lpszAgent = heap_strdupW(lpszAgent);
718     if(dwAccessType == INTERNET_OPEN_TYPE_PRECONFIG)
719         INTERNET_ConfigureProxy( lpwai );
720     else
721         lpwai->lpszProxy = heap_strdupW(lpszProxy);
722     lpwai->lpszProxyBypass = heap_strdupW(lpszProxyBypass);
723
724 lend:
725     if( lpwai )
726         WININET_Release( &lpwai->hdr );
727
728     TRACE("returning %p\n", lpwai);
729
730     return handle;
731 }
732
733
734 /***********************************************************************
735  *           InternetOpenA   (WININET.@)
736  *
737  * Per-application initialization of wininet
738  *
739  * RETURNS
740  *    HINTERNET on success
741  *    NULL on failure
742  *
743  */
744 HINTERNET WINAPI InternetOpenA(LPCSTR lpszAgent, DWORD dwAccessType,
745     LPCSTR lpszProxy, LPCSTR lpszProxyBypass, DWORD dwFlags)
746 {
747     WCHAR *szAgent, *szProxy, *szBypass;
748     HINTERNET rc;
749
750     TRACE("(%s, 0x%08x, %s, %s, 0x%08x)\n", debugstr_a(lpszAgent),
751        dwAccessType, debugstr_a(lpszProxy), debugstr_a(lpszProxyBypass), dwFlags);
752
753     szAgent = heap_strdupAtoW(lpszAgent);
754     szProxy = heap_strdupAtoW(lpszProxy);
755     szBypass = heap_strdupAtoW(lpszProxyBypass);
756
757     rc = InternetOpenW(szAgent, dwAccessType, szProxy, szBypass, dwFlags);
758
759     HeapFree(GetProcessHeap(), 0, szAgent);
760     HeapFree(GetProcessHeap(), 0, szProxy);
761     HeapFree(GetProcessHeap(), 0, szBypass);
762
763     return rc;
764 }
765
766 /***********************************************************************
767  *           InternetGetLastResponseInfoA (WININET.@)
768  *
769  * Return last wininet error description on the calling thread
770  *
771  * RETURNS
772  *    TRUE on success of writing to buffer
773  *    FALSE on failure
774  *
775  */
776 BOOL WINAPI InternetGetLastResponseInfoA(LPDWORD lpdwError,
777     LPSTR lpszBuffer, LPDWORD lpdwBufferLength)
778 {
779     LPWITHREADERROR lpwite = TlsGetValue(g_dwTlsErrIndex);
780
781     TRACE("\n");
782
783     if (lpwite)
784     {
785         *lpdwError = lpwite->dwError;
786         if (lpwite->dwError)
787         {
788             memcpy(lpszBuffer, lpwite->response, *lpdwBufferLength);
789             *lpdwBufferLength = strlen(lpszBuffer);
790         }
791         else
792             *lpdwBufferLength = 0;
793     }
794     else
795     {
796         *lpdwError = 0;
797         *lpdwBufferLength = 0;
798     }
799
800     return TRUE;
801 }
802
803 /***********************************************************************
804  *           InternetGetLastResponseInfoW (WININET.@)
805  *
806  * Return last wininet error description on the calling thread
807  *
808  * RETURNS
809  *    TRUE on success of writing to buffer
810  *    FALSE on failure
811  *
812  */
813 BOOL WINAPI InternetGetLastResponseInfoW(LPDWORD lpdwError,
814     LPWSTR lpszBuffer, LPDWORD lpdwBufferLength)
815 {
816     LPWITHREADERROR lpwite = TlsGetValue(g_dwTlsErrIndex);
817
818     TRACE("\n");
819
820     if (lpwite)
821     {
822         *lpdwError = lpwite->dwError;
823         if (lpwite->dwError)
824         {
825             memcpy(lpszBuffer, lpwite->response, *lpdwBufferLength);
826             *lpdwBufferLength = lstrlenW(lpszBuffer);
827         }
828         else
829             *lpdwBufferLength = 0;
830     }
831     else
832     {
833         *lpdwError = 0;
834         *lpdwBufferLength = 0;
835     }
836
837     return TRUE;
838 }
839
840 /***********************************************************************
841  *           InternetGetConnectedState (WININET.@)
842  *
843  * Return connected state
844  *
845  * RETURNS
846  *    TRUE if connected
847  *    if lpdwStatus is not null, return the status (off line,
848  *    modem, lan...) in it.
849  *    FALSE if not connected
850  */
851 BOOL WINAPI InternetGetConnectedState(LPDWORD lpdwStatus, DWORD dwReserved)
852 {
853     TRACE("(%p, 0x%08x)\n", lpdwStatus, dwReserved);
854
855     if (lpdwStatus) {
856         WARN("always returning LAN connection.\n");
857         *lpdwStatus = INTERNET_CONNECTION_LAN;
858     }
859     return TRUE;
860 }
861
862
863 /***********************************************************************
864  *           InternetGetConnectedStateExW (WININET.@)
865  *
866  * Return connected state
867  *
868  * PARAMS
869  *
870  * lpdwStatus         [O] Flags specifying the status of the internet connection.
871  * lpszConnectionName [O] Pointer to buffer to receive the friendly name of the internet connection.
872  * dwNameLen          [I] Size of the buffer, in characters.
873  * dwReserved         [I] Reserved. Must be set to 0.
874  *
875  * RETURNS
876  *    TRUE if connected
877  *    if lpdwStatus is not null, return the status (off line,
878  *    modem, lan...) in it.
879  *    FALSE if not connected
880  *
881  * NOTES
882  *   If the system has no available network connections, an empty string is
883  *   stored in lpszConnectionName. If there is a LAN connection, a localized
884  *   "LAN Connection" string is stored. Presumably, if only a dial-up
885  *   connection is available then the name of the dial-up connection is
886  *   returned. Why any application, other than the "Internet Settings" CPL,
887  *   would want to use this function instead of the simpler InternetGetConnectedStateW
888  *   function is beyond me.
889  */
890 BOOL WINAPI InternetGetConnectedStateExW(LPDWORD lpdwStatus, LPWSTR lpszConnectionName,
891                                          DWORD dwNameLen, DWORD dwReserved)
892 {
893     TRACE("(%p, %p, %d, 0x%08x)\n", lpdwStatus, lpszConnectionName, dwNameLen, dwReserved);
894
895     /* Must be zero */
896     if(dwReserved)
897         return FALSE;
898
899     if (lpdwStatus) {
900         WARN("always returning LAN connection.\n");
901         *lpdwStatus = INTERNET_CONNECTION_LAN;
902     }
903     return LoadStringW(WININET_hModule, IDS_LANCONNECTION, lpszConnectionName, dwNameLen);
904 }
905
906
907 /***********************************************************************
908  *           InternetGetConnectedStateExA (WININET.@)
909  */
910 BOOL WINAPI InternetGetConnectedStateExA(LPDWORD lpdwStatus, LPSTR lpszConnectionName,
911                                          DWORD dwNameLen, DWORD dwReserved)
912 {
913     LPWSTR lpwszConnectionName = NULL;
914     BOOL rc;
915
916     TRACE("(%p, %p, %d, 0x%08x)\n", lpdwStatus, lpszConnectionName, dwNameLen, dwReserved);
917
918     if (lpszConnectionName && dwNameLen > 0)
919         lpwszConnectionName= HeapAlloc(GetProcessHeap(), 0, dwNameLen * sizeof(WCHAR));
920
921     rc = InternetGetConnectedStateExW(lpdwStatus,lpwszConnectionName, dwNameLen,
922                                       dwReserved);
923     if (rc && lpwszConnectionName)
924     {
925         WideCharToMultiByte(CP_ACP,0,lpwszConnectionName,-1,lpszConnectionName,
926                             dwNameLen, NULL, NULL);
927
928         HeapFree(GetProcessHeap(),0,lpwszConnectionName);
929     }
930
931     return rc;
932 }
933
934
935 /***********************************************************************
936  *           InternetConnectW (WININET.@)
937  *
938  * Open a ftp, gopher or http session
939  *
940  * RETURNS
941  *    HINTERNET a session handle on success
942  *    NULL on failure
943  *
944  */
945 HINTERNET WINAPI InternetConnectW(HINTERNET hInternet,
946     LPCWSTR lpszServerName, INTERNET_PORT nServerPort,
947     LPCWSTR lpszUserName, LPCWSTR lpszPassword,
948     DWORD dwService, DWORD dwFlags, DWORD_PTR dwContext)
949 {
950     appinfo_t *hIC;
951     HINTERNET rc = NULL;
952
953     TRACE("(%p, %s, %i, %s, %s, %i, %i, %lx)\n", hInternet, debugstr_w(lpszServerName),
954           nServerPort, debugstr_w(lpszUserName), debugstr_w(lpszPassword),
955           dwService, dwFlags, dwContext);
956
957     if (!lpszServerName)
958     {
959         INTERNET_SetLastError(ERROR_INVALID_PARAMETER);
960         return NULL;
961     }
962
963     /* Clear any error information */
964     INTERNET_SetLastError(0);
965     hIC = (appinfo_t*)WININET_GetObject( hInternet );
966     if ( (hIC == NULL) || (hIC->hdr.htype != WH_HINIT) )
967     {
968         INTERNET_SetLastError(ERROR_INVALID_HANDLE);
969         goto lend;
970     }
971
972     switch (dwService)
973     {
974         case INTERNET_SERVICE_FTP:
975             rc = FTP_Connect(hIC, lpszServerName, nServerPort,
976             lpszUserName, lpszPassword, dwFlags, dwContext, 0);
977             break;
978
979         case INTERNET_SERVICE_HTTP:
980             rc = HTTP_Connect(hIC, lpszServerName, nServerPort,
981             lpszUserName, lpszPassword, dwFlags, dwContext, 0);
982             break;
983
984         case INTERNET_SERVICE_GOPHER:
985         default:
986             break;
987     }
988 lend:
989     if( hIC )
990         WININET_Release( &hIC->hdr );
991
992     TRACE("returning %p\n", rc);
993     return rc;
994 }
995
996
997 /***********************************************************************
998  *           InternetConnectA (WININET.@)
999  *
1000  * Open a ftp, gopher or http session
1001  *
1002  * RETURNS
1003  *    HINTERNET a session handle on success
1004  *    NULL on failure
1005  *
1006  */
1007 HINTERNET WINAPI InternetConnectA(HINTERNET hInternet,
1008     LPCSTR lpszServerName, INTERNET_PORT nServerPort,
1009     LPCSTR lpszUserName, LPCSTR lpszPassword,
1010     DWORD dwService, DWORD dwFlags, DWORD_PTR dwContext)
1011 {
1012     HINTERNET rc = NULL;
1013     LPWSTR szServerName;
1014     LPWSTR szUserName;
1015     LPWSTR szPassword;
1016
1017     szServerName = heap_strdupAtoW(lpszServerName);
1018     szUserName = heap_strdupAtoW(lpszUserName);
1019     szPassword = heap_strdupAtoW(lpszPassword);
1020
1021     rc = InternetConnectW(hInternet, szServerName, nServerPort,
1022         szUserName, szPassword, dwService, dwFlags, dwContext);
1023
1024     HeapFree(GetProcessHeap(), 0, szServerName);
1025     HeapFree(GetProcessHeap(), 0, szUserName);
1026     HeapFree(GetProcessHeap(), 0, szPassword);
1027     return rc;
1028 }
1029
1030
1031 /***********************************************************************
1032  *           InternetFindNextFileA (WININET.@)
1033  *
1034  * Continues a file search from a previous call to FindFirstFile
1035  *
1036  * RETURNS
1037  *    TRUE on success
1038  *    FALSE on failure
1039  *
1040  */
1041 BOOL WINAPI InternetFindNextFileA(HINTERNET hFind, LPVOID lpvFindData)
1042 {
1043     BOOL ret;
1044     WIN32_FIND_DATAW fd;
1045     
1046     ret = InternetFindNextFileW(hFind, lpvFindData?&fd:NULL);
1047     if(lpvFindData)
1048         WININET_find_data_WtoA(&fd, (LPWIN32_FIND_DATAA)lpvFindData);
1049     return ret;
1050 }
1051
1052 /***********************************************************************
1053  *           InternetFindNextFileW (WININET.@)
1054  *
1055  * Continues a file search from a previous call to FindFirstFile
1056  *
1057  * RETURNS
1058  *    TRUE on success
1059  *    FALSE on failure
1060  *
1061  */
1062 BOOL WINAPI InternetFindNextFileW(HINTERNET hFind, LPVOID lpvFindData)
1063 {
1064     object_header_t *hdr;
1065     DWORD res;
1066
1067     TRACE("\n");
1068
1069     hdr = WININET_GetObject(hFind);
1070     if(!hdr) {
1071         WARN("Invalid handle\n");
1072         SetLastError(ERROR_INVALID_HANDLE);
1073         return FALSE;
1074     }
1075
1076     if(hdr->vtbl->FindNextFileW) {
1077         res = hdr->vtbl->FindNextFileW(hdr, lpvFindData);
1078     }else {
1079         WARN("Handle doesn't support NextFile\n");
1080         res = ERROR_INTERNET_INCORRECT_HANDLE_TYPE;
1081     }
1082
1083     WININET_Release(hdr);
1084
1085     if(res != ERROR_SUCCESS)
1086         SetLastError(res);
1087     return res == ERROR_SUCCESS;
1088 }
1089
1090 /***********************************************************************
1091  *           InternetCloseHandle (WININET.@)
1092  *
1093  * Generic close handle function
1094  *
1095  * RETURNS
1096  *    TRUE on success
1097  *    FALSE on failure
1098  *
1099  */
1100 BOOL WINAPI InternetCloseHandle(HINTERNET hInternet)
1101 {
1102     object_header_t *lpwh;
1103     
1104     TRACE("%p\n",hInternet);
1105
1106     lpwh = WININET_GetObject( hInternet );
1107     if (NULL == lpwh)
1108     {
1109         INTERNET_SetLastError(ERROR_INVALID_HANDLE);
1110         return FALSE;
1111     }
1112
1113     WININET_Release( lpwh );
1114     WININET_FreeHandle( hInternet );
1115
1116     return TRUE;
1117 }
1118
1119
1120 /***********************************************************************
1121  *           ConvertUrlComponentValue (Internal)
1122  *
1123  * Helper function for InternetCrackUrlA
1124  *
1125  */
1126 static void ConvertUrlComponentValue(LPSTR* lppszComponent, LPDWORD dwComponentLen,
1127                                      LPWSTR lpwszComponent, DWORD dwwComponentLen,
1128                                      LPCSTR lpszStart, LPCWSTR lpwszStart)
1129 {
1130     TRACE("%p %d %p %d %p %p\n", *lppszComponent, *dwComponentLen, lpwszComponent, dwwComponentLen, lpszStart, lpwszStart);
1131     if (*dwComponentLen != 0)
1132     {
1133         DWORD nASCIILength=WideCharToMultiByte(CP_ACP,0,lpwszComponent,dwwComponentLen,NULL,0,NULL,NULL);
1134         if (*lppszComponent == NULL)
1135         {
1136             if (lpwszComponent)
1137             {
1138                 int offset = WideCharToMultiByte(CP_ACP, 0, lpwszStart, lpwszComponent-lpwszStart, NULL, 0, NULL, NULL);
1139                 *lppszComponent = (LPSTR)lpszStart + offset;
1140             }
1141             else
1142                 *lppszComponent = NULL;
1143
1144             *dwComponentLen = nASCIILength;
1145         }
1146         else
1147         {
1148             DWORD ncpylen = min((*dwComponentLen)-1, nASCIILength);
1149             WideCharToMultiByte(CP_ACP,0,lpwszComponent,dwwComponentLen,*lppszComponent,ncpylen+1,NULL,NULL);
1150             (*lppszComponent)[ncpylen]=0;
1151             *dwComponentLen = ncpylen;
1152         }
1153     }
1154 }
1155
1156
1157 /***********************************************************************
1158  *           InternetCrackUrlA (WININET.@)
1159  *
1160  * See InternetCrackUrlW.
1161  */
1162 BOOL WINAPI InternetCrackUrlA(LPCSTR lpszUrl, DWORD dwUrlLength, DWORD dwFlags,
1163     LPURL_COMPONENTSA lpUrlComponents)
1164 {
1165   DWORD nLength;
1166   URL_COMPONENTSW UCW;
1167   BOOL ret = FALSE;
1168   WCHAR *lpwszUrl, *hostname = NULL, *username = NULL, *password = NULL, *path = NULL,
1169         *scheme = NULL, *extra = NULL;
1170
1171   TRACE("(%s %u %x %p)\n",
1172         lpszUrl ? debugstr_an(lpszUrl, dwUrlLength ? dwUrlLength : strlen(lpszUrl)) : "(null)",
1173         dwUrlLength, dwFlags, lpUrlComponents);
1174
1175   if (!lpszUrl || !*lpszUrl || !lpUrlComponents ||
1176           lpUrlComponents->dwStructSize != sizeof(URL_COMPONENTSA))
1177   {
1178       INTERNET_SetLastError(ERROR_INVALID_PARAMETER);
1179       return FALSE;
1180   }
1181
1182   if(dwUrlLength<=0)
1183       dwUrlLength=-1;
1184   nLength=MultiByteToWideChar(CP_ACP,0,lpszUrl,dwUrlLength,NULL,0);
1185
1186   /* if dwUrlLength=-1 then nLength includes null but length to 
1187        InternetCrackUrlW should not include it                  */
1188   if (dwUrlLength == -1) nLength--;
1189
1190   lpwszUrl = HeapAlloc(GetProcessHeap(), 0, nLength * sizeof(WCHAR));
1191   MultiByteToWideChar(CP_ACP,0,lpszUrl,dwUrlLength,lpwszUrl,nLength);
1192
1193   memset(&UCW,0,sizeof(UCW));
1194   UCW.dwStructSize = sizeof(URL_COMPONENTSW);
1195   if (lpUrlComponents->dwHostNameLength)
1196   {
1197     UCW.dwHostNameLength = lpUrlComponents->dwHostNameLength;
1198     if (lpUrlComponents->lpszHostName)
1199     {
1200       hostname = HeapAlloc(GetProcessHeap(), 0, UCW.dwHostNameLength * sizeof(WCHAR));
1201       UCW.lpszHostName = hostname;
1202     }
1203   }
1204   if (lpUrlComponents->dwUserNameLength)
1205   {
1206     UCW.dwUserNameLength = lpUrlComponents->dwUserNameLength;
1207     if (lpUrlComponents->lpszUserName)
1208     {
1209       username = HeapAlloc(GetProcessHeap(), 0, UCW.dwUserNameLength * sizeof(WCHAR));
1210       UCW.lpszUserName = username;
1211     }
1212   }
1213   if (lpUrlComponents->dwPasswordLength)
1214   {
1215     UCW.dwPasswordLength = lpUrlComponents->dwPasswordLength;
1216     if (lpUrlComponents->lpszPassword)
1217     {
1218       password = HeapAlloc(GetProcessHeap(), 0, UCW.dwPasswordLength * sizeof(WCHAR));
1219       UCW.lpszPassword = password;
1220     }
1221   }
1222   if (lpUrlComponents->dwUrlPathLength)
1223   {
1224     UCW.dwUrlPathLength = lpUrlComponents->dwUrlPathLength;
1225     if (lpUrlComponents->lpszUrlPath)
1226     {
1227       path = HeapAlloc(GetProcessHeap(), 0, UCW.dwUrlPathLength * sizeof(WCHAR));
1228       UCW.lpszUrlPath = path;
1229     }
1230   }
1231   if (lpUrlComponents->dwSchemeLength)
1232   {
1233     UCW.dwSchemeLength = lpUrlComponents->dwSchemeLength;
1234     if (lpUrlComponents->lpszScheme)
1235     {
1236       scheme = HeapAlloc(GetProcessHeap(), 0, UCW.dwSchemeLength * sizeof(WCHAR));
1237       UCW.lpszScheme = scheme;
1238     }
1239   }
1240   if (lpUrlComponents->dwExtraInfoLength)
1241   {
1242     UCW.dwExtraInfoLength = lpUrlComponents->dwExtraInfoLength;
1243     if (lpUrlComponents->lpszExtraInfo)
1244     {
1245       extra = HeapAlloc(GetProcessHeap(), 0, UCW.dwExtraInfoLength * sizeof(WCHAR));
1246       UCW.lpszExtraInfo = extra;
1247     }
1248   }
1249   if ((ret = InternetCrackUrlW(lpwszUrl, nLength, dwFlags, &UCW)))
1250   {
1251     ConvertUrlComponentValue(&lpUrlComponents->lpszHostName, &lpUrlComponents->dwHostNameLength,
1252                              UCW.lpszHostName, UCW.dwHostNameLength, lpszUrl, lpwszUrl);
1253     ConvertUrlComponentValue(&lpUrlComponents->lpszUserName, &lpUrlComponents->dwUserNameLength,
1254                              UCW.lpszUserName, UCW.dwUserNameLength, lpszUrl, lpwszUrl);
1255     ConvertUrlComponentValue(&lpUrlComponents->lpszPassword, &lpUrlComponents->dwPasswordLength,
1256                              UCW.lpszPassword, UCW.dwPasswordLength, lpszUrl, lpwszUrl);
1257     ConvertUrlComponentValue(&lpUrlComponents->lpszUrlPath, &lpUrlComponents->dwUrlPathLength,
1258                              UCW.lpszUrlPath, UCW.dwUrlPathLength, lpszUrl, lpwszUrl);
1259     ConvertUrlComponentValue(&lpUrlComponents->lpszScheme, &lpUrlComponents->dwSchemeLength,
1260                              UCW.lpszScheme, UCW.dwSchemeLength, lpszUrl, lpwszUrl);
1261     ConvertUrlComponentValue(&lpUrlComponents->lpszExtraInfo, &lpUrlComponents->dwExtraInfoLength,
1262                              UCW.lpszExtraInfo, UCW.dwExtraInfoLength, lpszUrl, lpwszUrl);
1263
1264     lpUrlComponents->nScheme = UCW.nScheme;
1265     lpUrlComponents->nPort = UCW.nPort;
1266
1267     TRACE("%s: scheme(%s) host(%s) path(%s) extra(%s)\n", lpszUrl,
1268           debugstr_an(lpUrlComponents->lpszScheme, lpUrlComponents->dwSchemeLength),
1269           debugstr_an(lpUrlComponents->lpszHostName, lpUrlComponents->dwHostNameLength),
1270           debugstr_an(lpUrlComponents->lpszUrlPath, lpUrlComponents->dwUrlPathLength),
1271           debugstr_an(lpUrlComponents->lpszExtraInfo, lpUrlComponents->dwExtraInfoLength));
1272   }
1273   HeapFree(GetProcessHeap(), 0, lpwszUrl);
1274   HeapFree(GetProcessHeap(), 0, hostname);
1275   HeapFree(GetProcessHeap(), 0, username);
1276   HeapFree(GetProcessHeap(), 0, password);
1277   HeapFree(GetProcessHeap(), 0, path);
1278   HeapFree(GetProcessHeap(), 0, scheme);
1279   HeapFree(GetProcessHeap(), 0, extra);
1280   return ret;
1281 }
1282
1283 static const WCHAR url_schemes[][7] =
1284 {
1285     {'f','t','p',0},
1286     {'g','o','p','h','e','r',0},
1287     {'h','t','t','p',0},
1288     {'h','t','t','p','s',0},
1289     {'f','i','l','e',0},
1290     {'n','e','w','s',0},
1291     {'m','a','i','l','t','o',0},
1292     {'r','e','s',0},
1293 };
1294
1295 /***********************************************************************
1296  *           GetInternetSchemeW (internal)
1297  *
1298  * Get scheme of url
1299  *
1300  * RETURNS
1301  *    scheme on success
1302  *    INTERNET_SCHEME_UNKNOWN on failure
1303  *
1304  */
1305 static INTERNET_SCHEME GetInternetSchemeW(LPCWSTR lpszScheme, DWORD nMaxCmp)
1306 {
1307     int i;
1308
1309     TRACE("%s %d\n",debugstr_wn(lpszScheme, nMaxCmp), nMaxCmp);
1310
1311     if(lpszScheme==NULL)
1312         return INTERNET_SCHEME_UNKNOWN;
1313
1314     for (i = 0; i < sizeof(url_schemes)/sizeof(url_schemes[0]); i++)
1315         if (!strncmpW(lpszScheme, url_schemes[i], nMaxCmp))
1316             return INTERNET_SCHEME_FIRST + i;
1317
1318     return INTERNET_SCHEME_UNKNOWN;
1319 }
1320
1321 /***********************************************************************
1322  *           SetUrlComponentValueW (Internal)
1323  *
1324  * Helper function for InternetCrackUrlW
1325  *
1326  * PARAMS
1327  *     lppszComponent [O] Holds the returned string
1328  *     dwComponentLen [I] Holds the size of lppszComponent
1329  *                    [O] Holds the length of the string in lppszComponent without '\0'
1330  *     lpszStart      [I] Holds the string to copy from
1331  *     len            [I] Holds the length of lpszStart without '\0'
1332  *
1333  * RETURNS
1334  *    TRUE on success
1335  *    FALSE on failure
1336  *
1337  */
1338 static BOOL SetUrlComponentValueW(LPWSTR* lppszComponent, LPDWORD dwComponentLen, LPCWSTR lpszStart, DWORD len)
1339 {
1340     TRACE("%s (%d)\n", debugstr_wn(lpszStart,len), len);
1341
1342     if ( (*dwComponentLen == 0) && (*lppszComponent == NULL) )
1343         return FALSE;
1344
1345     if (*dwComponentLen != 0 || *lppszComponent == NULL)
1346     {
1347         if (*lppszComponent == NULL)
1348         {
1349             *lppszComponent = (LPWSTR)lpszStart;
1350             *dwComponentLen = len;
1351         }
1352         else
1353         {
1354             DWORD ncpylen = min((*dwComponentLen)-1, len);
1355             memcpy(*lppszComponent, lpszStart, ncpylen*sizeof(WCHAR));
1356             (*lppszComponent)[ncpylen] = '\0';
1357             *dwComponentLen = ncpylen;
1358         }
1359     }
1360
1361     return TRUE;
1362 }
1363
1364 /***********************************************************************
1365  *           InternetCrackUrlW   (WININET.@)
1366  *
1367  * Break up URL into its components
1368  *
1369  * RETURNS
1370  *    TRUE on success
1371  *    FALSE on failure
1372  */
1373 BOOL WINAPI InternetCrackUrlW(LPCWSTR lpszUrl_orig, DWORD dwUrlLength_orig, DWORD dwFlags,
1374                               LPURL_COMPONENTSW lpUC)
1375 {
1376   /*
1377    * RFC 1808
1378    * <protocol>:[//<net_loc>][/path][;<params>][?<query>][#<fragment>]
1379    *
1380    */
1381     LPCWSTR lpszParam    = NULL;
1382     BOOL  bIsAbsolute = FALSE;
1383     LPCWSTR lpszap, lpszUrl = lpszUrl_orig;
1384     LPCWSTR lpszcp = NULL;
1385     LPWSTR  lpszUrl_decode = NULL;
1386     DWORD dwUrlLength = dwUrlLength_orig;
1387
1388     TRACE("(%s %u %x %p)\n",
1389           lpszUrl ? debugstr_wn(lpszUrl, dwUrlLength ? dwUrlLength : strlenW(lpszUrl)) : "(null)",
1390           dwUrlLength, dwFlags, lpUC);
1391
1392     if (!lpszUrl_orig || !*lpszUrl_orig || !lpUC)
1393     {
1394         INTERNET_SetLastError(ERROR_INVALID_PARAMETER);
1395         return FALSE;
1396     }
1397     if (!dwUrlLength) dwUrlLength = strlenW(lpszUrl);
1398
1399     if (dwFlags & ICU_DECODE)
1400     {
1401         WCHAR *url_tmp;
1402         DWORD len = dwUrlLength + 1;
1403
1404         if (!(url_tmp = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR))))
1405         {
1406             INTERNET_SetLastError(ERROR_OUTOFMEMORY);
1407             return FALSE;
1408         }
1409         memcpy(url_tmp, lpszUrl_orig, dwUrlLength * sizeof(WCHAR));
1410         url_tmp[dwUrlLength] = 0;
1411         if (!(lpszUrl_decode = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR))))
1412         {
1413             HeapFree(GetProcessHeap(), 0, url_tmp);
1414             INTERNET_SetLastError(ERROR_OUTOFMEMORY);
1415             return FALSE;
1416         }
1417         if (InternetCanonicalizeUrlW(url_tmp, lpszUrl_decode, &len, ICU_DECODE | ICU_NO_ENCODE))
1418         {
1419             dwUrlLength = len;
1420             lpszUrl = lpszUrl_decode;
1421         }
1422         HeapFree(GetProcessHeap(), 0, url_tmp);
1423     }
1424     lpszap = lpszUrl;
1425     
1426     /* Determine if the URI is absolute. */
1427     while (lpszap - lpszUrl < dwUrlLength)
1428     {
1429         if (isalnumW(*lpszap) || *lpszap == '+' || *lpszap == '.' || *lpszap == '-')
1430         {
1431             lpszap++;
1432             continue;
1433         }
1434         if ((*lpszap == ':') && (lpszap - lpszUrl >= 2))
1435         {
1436             bIsAbsolute = TRUE;
1437             lpszcp = lpszap;
1438         }
1439         else
1440         {
1441             lpszcp = lpszUrl; /* Relative url */
1442         }
1443
1444         break;
1445     }
1446
1447     lpUC->nScheme = INTERNET_SCHEME_UNKNOWN;
1448     lpUC->nPort = INTERNET_INVALID_PORT_NUMBER;
1449
1450     /* Parse <params> */
1451     lpszParam = memchrW(lpszap, ';', dwUrlLength - (lpszap - lpszUrl));
1452     if(!lpszParam)
1453         lpszParam = memchrW(lpszap, '?', dwUrlLength - (lpszap - lpszUrl));
1454     if(!lpszParam)
1455         lpszParam = memchrW(lpszap, '#', dwUrlLength - (lpszap - lpszUrl));
1456
1457     SetUrlComponentValueW(&lpUC->lpszExtraInfo, &lpUC->dwExtraInfoLength,
1458                           lpszParam, lpszParam ? dwUrlLength-(lpszParam-lpszUrl) : 0);
1459
1460     if (bIsAbsolute) /* Parse <protocol>:[//<net_loc>] */
1461     {
1462         LPCWSTR lpszNetLoc;
1463
1464         /* Get scheme first. */
1465         lpUC->nScheme = GetInternetSchemeW(lpszUrl, lpszcp - lpszUrl);
1466         SetUrlComponentValueW(&lpUC->lpszScheme, &lpUC->dwSchemeLength,
1467                                    lpszUrl, lpszcp - lpszUrl);
1468
1469         /* Eat ':' in protocol. */
1470         lpszcp++;
1471
1472         /* double slash indicates the net_loc portion is present */
1473         if ((lpszcp[0] == '/') && (lpszcp[1] == '/'))
1474         {
1475             lpszcp += 2;
1476
1477             lpszNetLoc = memchrW(lpszcp, '/', dwUrlLength - (lpszcp - lpszUrl));
1478             if (lpszParam)
1479             {
1480                 if (lpszNetLoc)
1481                     lpszNetLoc = min(lpszNetLoc, lpszParam);
1482                 else
1483                     lpszNetLoc = lpszParam;
1484             }
1485             else if (!lpszNetLoc)
1486                 lpszNetLoc = lpszcp + dwUrlLength-(lpszcp-lpszUrl);
1487
1488             /* Parse net-loc */
1489             if (lpszNetLoc)
1490             {
1491                 LPCWSTR lpszHost;
1492                 LPCWSTR lpszPort;
1493
1494                 /* [<user>[<:password>]@]<host>[:<port>] */
1495                 /* First find the user and password if they exist */
1496
1497                 lpszHost = memchrW(lpszcp, '@', dwUrlLength - (lpszcp - lpszUrl));
1498                 if (lpszHost == NULL || lpszHost > lpszNetLoc)
1499                 {
1500                     /* username and password not specified. */
1501                     SetUrlComponentValueW(&lpUC->lpszUserName, &lpUC->dwUserNameLength, NULL, 0);
1502                     SetUrlComponentValueW(&lpUC->lpszPassword, &lpUC->dwPasswordLength, NULL, 0);
1503                 }
1504                 else /* Parse out username and password */
1505                 {
1506                     LPCWSTR lpszUser = lpszcp;
1507                     LPCWSTR lpszPasswd = lpszHost;
1508
1509                     while (lpszcp < lpszHost)
1510                     {
1511                         if (*lpszcp == ':')
1512                             lpszPasswd = lpszcp;
1513
1514                         lpszcp++;
1515                     }
1516
1517                     SetUrlComponentValueW(&lpUC->lpszUserName, &lpUC->dwUserNameLength,
1518                                           lpszUser, lpszPasswd - lpszUser);
1519
1520                     if (lpszPasswd != lpszHost)
1521                         lpszPasswd++;
1522                     SetUrlComponentValueW(&lpUC->lpszPassword, &lpUC->dwPasswordLength,
1523                                           lpszPasswd == lpszHost ? NULL : lpszPasswd,
1524                                           lpszHost - lpszPasswd);
1525
1526                     lpszcp++; /* Advance to beginning of host */
1527                 }
1528
1529                 /* Parse <host><:port> */
1530
1531                 lpszHost = lpszcp;
1532                 lpszPort = lpszNetLoc;
1533
1534                 /* special case for res:// URLs: there is no port here, so the host is the
1535                    entire string up to the first '/' */
1536                 if(lpUC->nScheme==INTERNET_SCHEME_RES)
1537                 {
1538                     SetUrlComponentValueW(&lpUC->lpszHostName, &lpUC->dwHostNameLength,
1539                                           lpszHost, lpszPort - lpszHost);
1540                     lpszcp=lpszNetLoc;
1541                 }
1542                 else
1543                 {
1544                     while (lpszcp < lpszNetLoc)
1545                     {
1546                         if (*lpszcp == ':')
1547                             lpszPort = lpszcp;
1548
1549                         lpszcp++;
1550                     }
1551
1552                     /* If the scheme is "file" and the host is just one letter, it's not a host */
1553                     if(lpUC->nScheme==INTERNET_SCHEME_FILE && (lpszPort-lpszHost)==1)
1554                     {
1555                         lpszcp=lpszHost;
1556                         SetUrlComponentValueW(&lpUC->lpszHostName, &lpUC->dwHostNameLength,
1557                                               NULL, 0);
1558                     }
1559                     else
1560                     {
1561                         SetUrlComponentValueW(&lpUC->lpszHostName, &lpUC->dwHostNameLength,
1562                                               lpszHost, lpszPort - lpszHost);
1563                         if (lpszPort != lpszNetLoc)
1564                             lpUC->nPort = atoiW(++lpszPort);
1565                         else switch (lpUC->nScheme)
1566                         {
1567                         case INTERNET_SCHEME_HTTP:
1568                             lpUC->nPort = INTERNET_DEFAULT_HTTP_PORT;
1569                             break;
1570                         case INTERNET_SCHEME_HTTPS:
1571                             lpUC->nPort = INTERNET_DEFAULT_HTTPS_PORT;
1572                             break;
1573                         case INTERNET_SCHEME_FTP:
1574                             lpUC->nPort = INTERNET_DEFAULT_FTP_PORT;
1575                             break;
1576                         case INTERNET_SCHEME_GOPHER:
1577                             lpUC->nPort = INTERNET_DEFAULT_GOPHER_PORT;
1578                             break;
1579                         default:
1580                             break;
1581                         }
1582                     }
1583                 }
1584             }
1585         }
1586         else
1587         {
1588             SetUrlComponentValueW(&lpUC->lpszUserName, &lpUC->dwUserNameLength, NULL, 0);
1589             SetUrlComponentValueW(&lpUC->lpszPassword, &lpUC->dwPasswordLength, NULL, 0);
1590             SetUrlComponentValueW(&lpUC->lpszHostName, &lpUC->dwHostNameLength, NULL, 0);
1591         }
1592     }
1593     else
1594     {
1595         SetUrlComponentValueW(&lpUC->lpszScheme, &lpUC->dwSchemeLength, NULL, 0);
1596         SetUrlComponentValueW(&lpUC->lpszUserName, &lpUC->dwUserNameLength, NULL, 0);
1597         SetUrlComponentValueW(&lpUC->lpszPassword, &lpUC->dwPasswordLength, NULL, 0);
1598         SetUrlComponentValueW(&lpUC->lpszHostName, &lpUC->dwHostNameLength, NULL, 0);
1599     }
1600
1601     /* Here lpszcp points to:
1602      *
1603      * <protocol>:[//<net_loc>][/path][;<params>][?<query>][#<fragment>]
1604      *                          ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
1605      */
1606     if (lpszcp != 0 && lpszcp - lpszUrl < dwUrlLength && (!lpszParam || lpszcp < lpszParam))
1607     {
1608         INT len;
1609
1610         /* Only truncate the parameter list if it's already been saved
1611          * in lpUC->lpszExtraInfo.
1612          */
1613         if (lpszParam && lpUC->dwExtraInfoLength && lpUC->lpszExtraInfo)
1614             len = lpszParam - lpszcp;
1615         else
1616         {
1617             /* Leave the parameter list in lpszUrlPath.  Strip off any trailing
1618              * newlines if necessary.
1619              */
1620             LPWSTR lpsznewline = memchrW(lpszcp, '\n', dwUrlLength - (lpszcp - lpszUrl));
1621             if (lpsznewline != NULL)
1622                 len = lpsznewline - lpszcp;
1623             else
1624                 len = dwUrlLength-(lpszcp-lpszUrl);
1625         }
1626         SetUrlComponentValueW(&lpUC->lpszUrlPath, &lpUC->dwUrlPathLength,
1627                                    lpszcp, len);
1628     }
1629     else
1630     {
1631         if (lpUC->lpszUrlPath && (lpUC->dwUrlPathLength > 0))
1632             lpUC->lpszUrlPath[0] = 0;
1633         lpUC->dwUrlPathLength = 0;
1634     }
1635
1636     TRACE("%s: scheme(%s) host(%s) path(%s) extra(%s)\n", debugstr_wn(lpszUrl,dwUrlLength),
1637              debugstr_wn(lpUC->lpszScheme,lpUC->dwSchemeLength),
1638              debugstr_wn(lpUC->lpszHostName,lpUC->dwHostNameLength),
1639              debugstr_wn(lpUC->lpszUrlPath,lpUC->dwUrlPathLength),
1640              debugstr_wn(lpUC->lpszExtraInfo,lpUC->dwExtraInfoLength));
1641
1642     HeapFree(GetProcessHeap(), 0, lpszUrl_decode );
1643     return TRUE;
1644 }
1645
1646 /***********************************************************************
1647  *           InternetAttemptConnect (WININET.@)
1648  *
1649  * Attempt to make a connection to the internet
1650  *
1651  * RETURNS
1652  *    ERROR_SUCCESS on success
1653  *    Error value   on failure
1654  *
1655  */
1656 DWORD WINAPI InternetAttemptConnect(DWORD dwReserved)
1657 {
1658     FIXME("Stub\n");
1659     return ERROR_SUCCESS;
1660 }
1661
1662
1663 /***********************************************************************
1664  *           InternetCanonicalizeUrlA (WININET.@)
1665  *
1666  * Escape unsafe characters and spaces
1667  *
1668  * RETURNS
1669  *    TRUE on success
1670  *    FALSE on failure
1671  *
1672  */
1673 BOOL WINAPI InternetCanonicalizeUrlA(LPCSTR lpszUrl, LPSTR lpszBuffer,
1674         LPDWORD lpdwBufferLength, DWORD dwFlags)
1675 {
1676     HRESULT hr;
1677     DWORD dwURLFlags = URL_WININET_COMPATIBILITY | URL_ESCAPE_UNSAFE;
1678
1679     TRACE("(%s, %p, %p, 0x%08x) bufferlength: %d\n", debugstr_a(lpszUrl), lpszBuffer,
1680         lpdwBufferLength, lpdwBufferLength ? *lpdwBufferLength : -1, dwFlags);
1681
1682     if(dwFlags & ICU_DECODE)
1683     {
1684         dwURLFlags |= URL_UNESCAPE;
1685         dwFlags &= ~ICU_DECODE;
1686     }
1687
1688     if(dwFlags & ICU_ESCAPE)
1689     {
1690         dwURLFlags |= URL_UNESCAPE;
1691         dwFlags &= ~ICU_ESCAPE;
1692     }
1693
1694     if(dwFlags & ICU_BROWSER_MODE)
1695     {
1696         dwURLFlags |= URL_BROWSER_MODE;
1697         dwFlags &= ~ICU_BROWSER_MODE;
1698     }
1699
1700     if(dwFlags & ICU_NO_ENCODE)
1701     {
1702         /* Flip this bit to correspond to URL_ESCAPE_UNSAFE */
1703         dwURLFlags ^= URL_ESCAPE_UNSAFE;
1704         dwFlags &= ~ICU_NO_ENCODE;
1705     }
1706
1707     if (dwFlags) FIXME("Unhandled flags 0x%08x\n", dwFlags);
1708
1709     hr = UrlCanonicalizeA(lpszUrl, lpszBuffer, lpdwBufferLength, dwURLFlags);
1710     if (hr == E_POINTER) SetLastError(ERROR_INSUFFICIENT_BUFFER);
1711     if (hr == E_INVALIDARG) SetLastError(ERROR_INVALID_PARAMETER);
1712
1713     return (hr == S_OK) ? TRUE : FALSE;
1714 }
1715
1716 /***********************************************************************
1717  *           InternetCanonicalizeUrlW (WININET.@)
1718  *
1719  * Escape unsafe characters and spaces
1720  *
1721  * RETURNS
1722  *    TRUE on success
1723  *    FALSE on failure
1724  *
1725  */
1726 BOOL WINAPI InternetCanonicalizeUrlW(LPCWSTR lpszUrl, LPWSTR lpszBuffer,
1727     LPDWORD lpdwBufferLength, DWORD dwFlags)
1728 {
1729     HRESULT hr;
1730     DWORD dwURLFlags = URL_WININET_COMPATIBILITY | URL_ESCAPE_UNSAFE;
1731
1732     TRACE("(%s, %p, %p, 0x%08x) bufferlength: %d\n", debugstr_w(lpszUrl), lpszBuffer,
1733           lpdwBufferLength, dwFlags, lpdwBufferLength ? *lpdwBufferLength : -1);
1734
1735     if(dwFlags & ICU_DECODE)
1736     {
1737         dwURLFlags |= URL_UNESCAPE;
1738         dwFlags &= ~ICU_DECODE;
1739     }
1740
1741     if(dwFlags & ICU_ESCAPE)
1742     {
1743         dwURLFlags |= URL_UNESCAPE;
1744         dwFlags &= ~ICU_ESCAPE;
1745     }
1746
1747     if(dwFlags & ICU_BROWSER_MODE)
1748     {
1749         dwURLFlags |= URL_BROWSER_MODE;
1750         dwFlags &= ~ICU_BROWSER_MODE;
1751     }
1752
1753     if(dwFlags & ICU_NO_ENCODE)
1754     {
1755         /* Flip this bit to correspond to URL_ESCAPE_UNSAFE */
1756         dwURLFlags ^= URL_ESCAPE_UNSAFE;
1757         dwFlags &= ~ICU_NO_ENCODE;
1758     }
1759
1760     if (dwFlags) FIXME("Unhandled flags 0x%08x\n", dwFlags);
1761
1762     hr = UrlCanonicalizeW(lpszUrl, lpszBuffer, lpdwBufferLength, dwURLFlags);
1763     if (hr == E_POINTER) SetLastError(ERROR_INSUFFICIENT_BUFFER);
1764     if (hr == E_INVALIDARG) SetLastError(ERROR_INVALID_PARAMETER);
1765
1766     return (hr == S_OK) ? TRUE : FALSE;
1767 }
1768
1769 /* #################################################### */
1770
1771 static INTERNET_STATUS_CALLBACK set_status_callback(
1772     object_header_t *lpwh, INTERNET_STATUS_CALLBACK callback, BOOL unicode)
1773 {
1774     INTERNET_STATUS_CALLBACK ret;
1775
1776     if (unicode) lpwh->dwInternalFlags |= INET_CALLBACKW;
1777     else lpwh->dwInternalFlags &= ~INET_CALLBACKW;
1778
1779     ret = lpwh->lpfnStatusCB;
1780     lpwh->lpfnStatusCB = callback;
1781
1782     return ret;
1783 }
1784
1785 /***********************************************************************
1786  *           InternetSetStatusCallbackA (WININET.@)
1787  *
1788  * Sets up a callback function which is called as progress is made
1789  * during an operation.
1790  *
1791  * RETURNS
1792  *    Previous callback or NULL         on success
1793  *    INTERNET_INVALID_STATUS_CALLBACK  on failure
1794  *
1795  */
1796 INTERNET_STATUS_CALLBACK WINAPI InternetSetStatusCallbackA(
1797         HINTERNET hInternet ,INTERNET_STATUS_CALLBACK lpfnIntCB)
1798 {
1799     INTERNET_STATUS_CALLBACK retVal;
1800     object_header_t *lpwh;
1801
1802     TRACE("%p\n", hInternet);
1803
1804     if (!(lpwh = WININET_GetObject(hInternet)))
1805         return INTERNET_INVALID_STATUS_CALLBACK;
1806
1807     retVal = set_status_callback(lpwh, lpfnIntCB, FALSE);
1808
1809     WININET_Release( lpwh );
1810     return retVal;
1811 }
1812
1813 /***********************************************************************
1814  *           InternetSetStatusCallbackW (WININET.@)
1815  *
1816  * Sets up a callback function which is called as progress is made
1817  * during an operation.
1818  *
1819  * RETURNS
1820  *    Previous callback or NULL         on success
1821  *    INTERNET_INVALID_STATUS_CALLBACK  on failure
1822  *
1823  */
1824 INTERNET_STATUS_CALLBACK WINAPI InternetSetStatusCallbackW(
1825         HINTERNET hInternet ,INTERNET_STATUS_CALLBACK lpfnIntCB)
1826 {
1827     INTERNET_STATUS_CALLBACK retVal;
1828     object_header_t *lpwh;
1829
1830     TRACE("%p\n", hInternet);
1831
1832     if (!(lpwh = WININET_GetObject(hInternet)))
1833         return INTERNET_INVALID_STATUS_CALLBACK;
1834
1835     retVal = set_status_callback(lpwh, lpfnIntCB, TRUE);
1836
1837     WININET_Release( lpwh );
1838     return retVal;
1839 }
1840
1841 /***********************************************************************
1842  *           InternetSetFilePointer (WININET.@)
1843  */
1844 DWORD WINAPI InternetSetFilePointer(HINTERNET hFile, LONG lDistanceToMove,
1845     PVOID pReserved, DWORD dwMoveContext, DWORD_PTR dwContext)
1846 {
1847     FIXME("stub\n");
1848     return FALSE;
1849 }
1850
1851 /***********************************************************************
1852  *           InternetWriteFile (WININET.@)
1853  *
1854  * Write data to an open internet file
1855  *
1856  * RETURNS
1857  *    TRUE  on success
1858  *    FALSE on failure
1859  *
1860  */
1861 BOOL WINAPI InternetWriteFile(HINTERNET hFile, LPCVOID lpBuffer,
1862         DWORD dwNumOfBytesToWrite, LPDWORD lpdwNumOfBytesWritten)
1863 {
1864     object_header_t *lpwh;
1865     BOOL res;
1866
1867     TRACE("(%p %p %d %p)\n", hFile, lpBuffer, dwNumOfBytesToWrite, lpdwNumOfBytesWritten);
1868
1869     lpwh = WININET_GetObject( hFile );
1870     if (!lpwh) {
1871         WARN("Invalid handle\n");
1872         SetLastError(ERROR_INVALID_HANDLE);
1873         return FALSE;
1874     }
1875
1876     if(lpwh->vtbl->WriteFile) {
1877         res = lpwh->vtbl->WriteFile(lpwh, lpBuffer, dwNumOfBytesToWrite, lpdwNumOfBytesWritten);
1878     }else {
1879         WARN("No Writefile method.\n");
1880         res = ERROR_INVALID_HANDLE;
1881     }
1882
1883     WININET_Release( lpwh );
1884
1885     if(res != ERROR_SUCCESS)
1886         SetLastError(res);
1887     return res == ERROR_SUCCESS;
1888 }
1889
1890
1891 /***********************************************************************
1892  *           InternetReadFile (WININET.@)
1893  *
1894  * Read data from an open internet file
1895  *
1896  * RETURNS
1897  *    TRUE  on success
1898  *    FALSE on failure
1899  *
1900  */
1901 BOOL WINAPI InternetReadFile(HINTERNET hFile, LPVOID lpBuffer,
1902         DWORD dwNumOfBytesToRead, LPDWORD pdwNumOfBytesRead)
1903 {
1904     object_header_t *hdr;
1905     DWORD res = ERROR_INTERNET_INCORRECT_HANDLE_TYPE;
1906
1907     TRACE("%p %p %d %p\n", hFile, lpBuffer, dwNumOfBytesToRead, pdwNumOfBytesRead);
1908
1909     hdr = WININET_GetObject(hFile);
1910     if (!hdr) {
1911         INTERNET_SetLastError(ERROR_INVALID_HANDLE);
1912         return FALSE;
1913     }
1914
1915     if(hdr->vtbl->ReadFile)
1916         res = hdr->vtbl->ReadFile(hdr, lpBuffer, dwNumOfBytesToRead, pdwNumOfBytesRead);
1917
1918     WININET_Release(hdr);
1919
1920     TRACE("-- %s (%u) (bytes read: %d)\n", res == ERROR_SUCCESS ? "TRUE": "FALSE", res,
1921           pdwNumOfBytesRead ? *pdwNumOfBytesRead : -1);
1922
1923     if(res != ERROR_SUCCESS)
1924         SetLastError(res);
1925     return res == ERROR_SUCCESS;
1926 }
1927
1928 /***********************************************************************
1929  *           InternetReadFileExA (WININET.@)
1930  *
1931  * Read data from an open internet file
1932  *
1933  * PARAMS
1934  *  hFile         [I] Handle returned by InternetOpenUrl or HttpOpenRequest.
1935  *  lpBuffersOut  [I/O] Buffer.
1936  *  dwFlags       [I] Flags. See notes.
1937  *  dwContext     [I] Context for callbacks.
1938  *
1939  * RETURNS
1940  *    TRUE  on success
1941  *    FALSE on failure
1942  *
1943  * NOTES
1944  *  The parameter dwFlags include zero or more of the following flags:
1945  *|IRF_ASYNC - Makes the call asynchronous.
1946  *|IRF_SYNC - Makes the call synchronous.
1947  *|IRF_USE_CONTEXT - Forces dwContext to be used.
1948  *|IRF_NO_WAIT - Don't block if the data is not available, just return what is available.
1949  *
1950  * However, in testing IRF_USE_CONTEXT seems to have no effect - dwContext isn't used.
1951  *
1952  * SEE
1953  *  InternetOpenUrlA(), HttpOpenRequestA()
1954  */
1955 BOOL WINAPI InternetReadFileExA(HINTERNET hFile, LPINTERNET_BUFFERSA lpBuffersOut,
1956         DWORD dwFlags, DWORD_PTR dwContext)
1957 {
1958     object_header_t *hdr;
1959     DWORD res = ERROR_INTERNET_INCORRECT_HANDLE_TYPE;
1960
1961     TRACE("(%p %p 0x%x 0x%lx)\n", hFile, lpBuffersOut, dwFlags, dwContext);
1962
1963     hdr = WININET_GetObject(hFile);
1964     if (!hdr) {
1965         INTERNET_SetLastError(ERROR_INVALID_HANDLE);
1966         return FALSE;
1967     }
1968
1969     if(hdr->vtbl->ReadFileExA)
1970         res = hdr->vtbl->ReadFileExA(hdr, lpBuffersOut, dwFlags, dwContext);
1971
1972     WININET_Release(hdr);
1973
1974     TRACE("-- %s (%u, bytes read: %d)\n", res == ERROR_SUCCESS ? "TRUE": "FALSE",
1975           res, lpBuffersOut->dwBufferLength);
1976
1977     if(res != ERROR_SUCCESS)
1978         SetLastError(res);
1979     return res == ERROR_SUCCESS;
1980 }
1981
1982 /***********************************************************************
1983  *           InternetReadFileExW (WININET.@)
1984  * SEE
1985  *  InternetReadFileExA()
1986  */
1987 BOOL WINAPI InternetReadFileExW(HINTERNET hFile, LPINTERNET_BUFFERSW lpBuffer,
1988         DWORD dwFlags, DWORD_PTR dwContext)
1989 {
1990     object_header_t *hdr;
1991     DWORD res = ERROR_INTERNET_INCORRECT_HANDLE_TYPE;
1992
1993     TRACE("(%p %p 0x%x 0x%lx)\n", hFile, lpBuffer, dwFlags, dwContext);
1994
1995     hdr = WININET_GetObject(hFile);
1996     if (!hdr) {
1997         INTERNET_SetLastError(ERROR_INVALID_HANDLE);
1998         return FALSE;
1999     }
2000
2001     if(hdr->vtbl->ReadFileExW)
2002         res = hdr->vtbl->ReadFileExW(hdr, lpBuffer, dwFlags, dwContext);
2003
2004     WININET_Release(hdr);
2005
2006     TRACE("-- %s (%u, bytes read: %d)\n", res == ERROR_SUCCESS ? "TRUE": "FALSE",
2007           res, lpBuffer->dwBufferLength);
2008
2009     if(res != ERROR_SUCCESS)
2010         SetLastError(res);
2011     return res == ERROR_SUCCESS;
2012 }
2013
2014 DWORD INET_QueryOption(DWORD option, void *buffer, DWORD *size, BOOL unicode)
2015 {
2016     static BOOL warn = TRUE;
2017
2018     switch(option) {
2019     case INTERNET_OPTION_REQUEST_FLAGS:
2020         TRACE("INTERNET_OPTION_REQUEST_FLAGS\n");
2021
2022         if (*size < sizeof(ULONG))
2023             return ERROR_INSUFFICIENT_BUFFER;
2024
2025         *(ULONG*)buffer = 4;
2026         *size = sizeof(ULONG);
2027
2028         return ERROR_SUCCESS;
2029
2030     case INTERNET_OPTION_HTTP_VERSION:
2031         if (*size < sizeof(HTTP_VERSION_INFO))
2032             return ERROR_INSUFFICIENT_BUFFER;
2033
2034         /*
2035          * Presently hardcoded to 1.1
2036          */
2037         ((HTTP_VERSION_INFO*)buffer)->dwMajorVersion = 1;
2038         ((HTTP_VERSION_INFO*)buffer)->dwMinorVersion = 1;
2039         *size = sizeof(HTTP_VERSION_INFO);
2040
2041         return ERROR_SUCCESS;
2042
2043     case INTERNET_OPTION_CONNECTED_STATE:
2044         if (warn) {
2045             FIXME("INTERNET_OPTION_CONNECTED_STATE: semi-stub\n");
2046             warn = FALSE;
2047         }
2048         if (*size < sizeof(ULONG))
2049             return ERROR_INSUFFICIENT_BUFFER;
2050
2051         *(ULONG*)buffer = INTERNET_STATE_CONNECTED;
2052         *size = sizeof(ULONG);
2053
2054         return ERROR_SUCCESS;
2055
2056     case INTERNET_OPTION_PROXY: {
2057         appinfo_t ai;
2058         BOOL ret;
2059
2060         TRACE("Getting global proxy info\n");
2061         memset(&ai, 0, sizeof(appinfo_t));
2062         INTERNET_ConfigureProxy(&ai);
2063
2064         ret = APPINFO_QueryOption(&ai.hdr, INTERNET_OPTION_PROXY, buffer, size, unicode); /* FIXME */
2065         APPINFO_Destroy(&ai.hdr);
2066         return ret;
2067     }
2068
2069     case INTERNET_OPTION_MAX_CONNS_PER_SERVER:
2070         TRACE("INTERNET_OPTION_MAX_CONNS_PER_SERVER\n");
2071
2072         if (*size < sizeof(ULONG))
2073             return ERROR_INSUFFICIENT_BUFFER;
2074
2075         *(ULONG*)buffer = 2;
2076         *size = sizeof(ULONG);
2077
2078         return ERROR_SUCCESS;
2079
2080     case INTERNET_OPTION_MAX_CONNS_PER_1_0_SERVER:
2081             TRACE("INTERNET_OPTION_MAX_CONNS_1_0_SERVER\n");
2082
2083             if (*size < sizeof(ULONG))
2084                 return ERROR_INSUFFICIENT_BUFFER;
2085
2086             *(ULONG*)size = 4;
2087             *size = sizeof(ULONG);
2088
2089             return ERROR_SUCCESS;
2090
2091     case INTERNET_OPTION_SECURITY_FLAGS:
2092         FIXME("INTERNET_OPTION_SECURITY_FLAGS: Stub\n");
2093         return ERROR_SUCCESS;
2094
2095     case INTERNET_OPTION_VERSION: {
2096         static const INTERNET_VERSION_INFO info = { 1, 2 };
2097
2098         TRACE("INTERNET_OPTION_VERSION\n");
2099
2100         if (*size < sizeof(INTERNET_VERSION_INFO))
2101             return ERROR_INSUFFICIENT_BUFFER;
2102
2103         memcpy(buffer, &info, sizeof(info));
2104         *size = sizeof(info);
2105
2106         return ERROR_SUCCESS;
2107     }
2108
2109     case INTERNET_OPTION_PER_CONNECTION_OPTION: {
2110         INTERNET_PER_CONN_OPTION_LISTW *con = buffer;
2111         INTERNET_PER_CONN_OPTION_LISTA *conA = buffer;
2112         DWORD res = ERROR_SUCCESS, i;
2113         appinfo_t ai;
2114
2115         TRACE("Getting global proxy info\n");
2116         memset(&ai, 0, sizeof(appinfo_t));
2117         INTERNET_ConfigureProxy(&ai);
2118
2119         FIXME("INTERNET_OPTION_PER_CONNECTION_OPTION stub\n");
2120
2121         if (*size < sizeof(INTERNET_PER_CONN_OPTION_LISTW)) {
2122             APPINFO_Destroy(&ai.hdr);
2123             return ERROR_INSUFFICIENT_BUFFER;
2124         }
2125
2126         for (i = 0; i < con->dwOptionCount; i++) {
2127             INTERNET_PER_CONN_OPTIONW *option = con->pOptions + i;
2128             INTERNET_PER_CONN_OPTIONA *optionA = conA->pOptions + i;
2129
2130             switch (option->dwOption) {
2131             case INTERNET_PER_CONN_FLAGS:
2132                 option->Value.dwValue = ai.dwAccessType;
2133                 break;
2134
2135             case INTERNET_PER_CONN_PROXY_SERVER:
2136                 if (unicode)
2137                     option->Value.pszValue = heap_strdupW(ai.lpszProxy);
2138                 else
2139                     optionA->Value.pszValue = heap_strdupWtoA(ai.lpszProxy);
2140                 break;
2141
2142             case INTERNET_PER_CONN_PROXY_BYPASS:
2143                 if (unicode)
2144                     option->Value.pszValue = heap_strdupW(ai.lpszProxyBypass);
2145                 else
2146                     optionA->Value.pszValue = heap_strdupWtoA(ai.lpszProxyBypass);
2147                 break;
2148
2149             case INTERNET_PER_CONN_AUTOCONFIG_URL:
2150             case INTERNET_PER_CONN_AUTODISCOVERY_FLAGS:
2151             case INTERNET_PER_CONN_AUTOCONFIG_SECONDARY_URL:
2152             case INTERNET_PER_CONN_AUTOCONFIG_RELOAD_DELAY_MINS:
2153             case INTERNET_PER_CONN_AUTOCONFIG_LAST_DETECT_TIME:
2154             case INTERNET_PER_CONN_AUTOCONFIG_LAST_DETECT_URL:
2155                 FIXME("Unhandled dwOption %d\n", option->dwOption);
2156                 memset(&option->Value, 0, sizeof(option->Value));
2157                 break;
2158
2159             default:
2160                 FIXME("Unknown dwOption %d\n", option->dwOption);
2161                 res = ERROR_INVALID_PARAMETER;
2162                 break;
2163             }
2164         }
2165         APPINFO_Destroy(&ai.hdr);
2166
2167         return res;
2168     }
2169     case INTERNET_OPTION_USER_AGENT:
2170         return ERROR_INTERNET_INCORRECT_HANDLE_TYPE;
2171     }
2172
2173     FIXME("Stub for %d\n", option);
2174     return ERROR_INTERNET_INCORRECT_HANDLE_TYPE;
2175 }
2176
2177 /***********************************************************************
2178  *           InternetQueryOptionW (WININET.@)
2179  *
2180  * Queries an options on the specified handle
2181  *
2182  * RETURNS
2183  *    TRUE  on success
2184  *    FALSE on failure
2185  *
2186  */
2187 BOOL WINAPI InternetQueryOptionW(HINTERNET hInternet, DWORD dwOption,
2188                                  LPVOID lpBuffer, LPDWORD lpdwBufferLength)
2189 {
2190     object_header_t *hdr;
2191     DWORD res = ERROR_INVALID_HANDLE;
2192
2193     TRACE("%p %d %p %p\n", hInternet, dwOption, lpBuffer, lpdwBufferLength);
2194
2195     if(hInternet) {
2196         hdr = WININET_GetObject(hInternet);
2197         if (hdr) {
2198             res = hdr->vtbl->QueryOption(hdr, dwOption, lpBuffer, lpdwBufferLength, TRUE);
2199             WININET_Release(hdr);
2200         }
2201     }else {
2202         res = INET_QueryOption(dwOption, lpBuffer, lpdwBufferLength, TRUE);
2203     }
2204
2205     if(res != ERROR_SUCCESS)
2206         SetLastError(res);
2207     return res == ERROR_SUCCESS;
2208 }
2209
2210 /***********************************************************************
2211  *           InternetQueryOptionA (WININET.@)
2212  *
2213  * Queries an options on the specified handle
2214  *
2215  * RETURNS
2216  *    TRUE  on success
2217  *    FALSE on failure
2218  *
2219  */
2220 BOOL WINAPI InternetQueryOptionA(HINTERNET hInternet, DWORD dwOption,
2221                                  LPVOID lpBuffer, LPDWORD lpdwBufferLength)
2222 {
2223     object_header_t *hdr;
2224     DWORD res = ERROR_INVALID_HANDLE;
2225
2226     TRACE("%p %d %p %p\n", hInternet, dwOption, lpBuffer, lpdwBufferLength);
2227
2228     if(hInternet) {
2229         hdr = WININET_GetObject(hInternet);
2230         if (hdr) {
2231             res = hdr->vtbl->QueryOption(hdr, dwOption, lpBuffer, lpdwBufferLength, FALSE);
2232             WININET_Release(hdr);
2233         }
2234     }else {
2235         res = INET_QueryOption(dwOption, lpBuffer, lpdwBufferLength, FALSE);
2236     }
2237
2238     if(res != ERROR_SUCCESS)
2239         SetLastError(res);
2240     return res == ERROR_SUCCESS;
2241 }
2242
2243
2244 /***********************************************************************
2245  *           InternetSetOptionW (WININET.@)
2246  *
2247  * Sets an options on the specified handle
2248  *
2249  * RETURNS
2250  *    TRUE  on success
2251  *    FALSE on failure
2252  *
2253  */
2254 BOOL WINAPI InternetSetOptionW(HINTERNET hInternet, DWORD dwOption,
2255                            LPVOID lpBuffer, DWORD dwBufferLength)
2256 {
2257     object_header_t *lpwhh;
2258     BOOL ret = TRUE;
2259
2260     TRACE("(%p %d %p %d)\n", hInternet, dwOption, lpBuffer, dwBufferLength);
2261
2262     lpwhh = (object_header_t*) WININET_GetObject( hInternet );
2263     if(lpwhh && lpwhh->vtbl->SetOption) {
2264         DWORD res;
2265
2266         res = lpwhh->vtbl->SetOption(lpwhh, dwOption, lpBuffer, dwBufferLength);
2267         if(res != ERROR_INTERNET_INVALID_OPTION) {
2268             WININET_Release( lpwhh );
2269
2270             if(res != ERROR_SUCCESS)
2271                 SetLastError(res);
2272
2273             return res == ERROR_SUCCESS;
2274         }
2275     }
2276
2277     switch (dwOption)
2278     {
2279     case INTERNET_OPTION_CALLBACK:
2280       {
2281         if (!lpwhh)
2282         {
2283             INTERNET_SetLastError(ERROR_INTERNET_INCORRECT_HANDLE_TYPE);
2284             return FALSE;
2285         }
2286         WININET_Release(lpwhh);
2287         INTERNET_SetLastError(ERROR_INTERNET_OPTION_NOT_SETTABLE);
2288         return FALSE;
2289       }
2290     case INTERNET_OPTION_HTTP_VERSION:
2291       {
2292         HTTP_VERSION_INFO* pVersion=(HTTP_VERSION_INFO*)lpBuffer;
2293         FIXME("Option INTERNET_OPTION_HTTP_VERSION(%d,%d): STUB\n",pVersion->dwMajorVersion,pVersion->dwMinorVersion);
2294       }
2295       break;
2296     case INTERNET_OPTION_ERROR_MASK:
2297       {
2298         ULONG flags = *(ULONG *)lpBuffer;
2299         FIXME("Option INTERNET_OPTION_ERROR_MASK(%d): STUB\n", flags);
2300       }
2301       break;
2302     case INTERNET_OPTION_CODEPAGE:
2303       {
2304         ULONG codepage = *(ULONG *)lpBuffer;
2305         FIXME("Option INTERNET_OPTION_CODEPAGE (%d): STUB\n", codepage);
2306       }
2307       break;
2308     case INTERNET_OPTION_REQUEST_PRIORITY:
2309       {
2310         ULONG priority = *(ULONG *)lpBuffer;
2311         FIXME("Option INTERNET_OPTION_REQUEST_PRIORITY (%d): STUB\n", priority);
2312       }
2313       break;
2314     case INTERNET_OPTION_CONNECT_TIMEOUT:
2315       {
2316         ULONG connecttimeout = *(ULONG *)lpBuffer;
2317         FIXME("Option INTERNET_OPTION_CONNECT_TIMEOUT (%d): STUB\n", connecttimeout);
2318       }
2319       break;
2320     case INTERNET_OPTION_DATA_RECEIVE_TIMEOUT:
2321       {
2322         ULONG receivetimeout = *(ULONG *)lpBuffer;
2323         FIXME("Option INTERNET_OPTION_DATA_RECEIVE_TIMEOUT (%d): STUB\n", receivetimeout);
2324       }
2325       break;
2326     case INTERNET_OPTION_MAX_CONNS_PER_SERVER:
2327       {
2328         ULONG conns = *(ULONG *)lpBuffer;
2329         FIXME("Option INTERNET_OPTION_MAX_CONNS_PER_SERVER (%d): STUB\n", conns);
2330       }
2331       break;
2332     case INTERNET_OPTION_MAX_CONNS_PER_1_0_SERVER:
2333       {
2334         ULONG conns = *(ULONG *)lpBuffer;
2335         FIXME("Option INTERNET_OPTION_MAX_CONNS_PER_1_0_SERVER (%d): STUB\n", conns);
2336       }
2337       break;
2338     case INTERNET_OPTION_RESET_URLCACHE_SESSION:
2339         FIXME("Option INTERNET_OPTION_RESET_URLCACHE_SESSION: STUB\n");
2340         break;
2341     case INTERNET_OPTION_END_BROWSER_SESSION:
2342         FIXME("Option INTERNET_OPTION_END_BROWSER_SESSION: STUB\n");
2343         break;
2344     case INTERNET_OPTION_CONNECTED_STATE:
2345         FIXME("Option INTERNET_OPTION_CONNECTED_STATE: STUB\n");
2346         break;
2347     case INTERNET_OPTION_DISABLE_PASSPORT_AUTH:
2348         TRACE("Option INTERNET_OPTION_DISABLE_PASSPORT_AUTH: harmless stub, since not enabled\n");
2349         break;
2350     case INTERNET_OPTION_SEND_TIMEOUT:
2351     case INTERNET_OPTION_RECEIVE_TIMEOUT:
2352     {
2353         ULONG timeout = *(ULONG *)lpBuffer;
2354         FIXME("INTERNET_OPTION_SEND/RECEIVE_TIMEOUT %d\n", timeout);
2355         break;
2356     }
2357     case INTERNET_OPTION_CONNECT_RETRIES:
2358     {
2359         ULONG retries = *(ULONG *)lpBuffer;
2360         FIXME("INTERNET_OPTION_CONNECT_RETRIES %d\n", retries);
2361         break;
2362     }
2363     case INTERNET_OPTION_CONTEXT_VALUE:
2364          FIXME("Option INTERNET_OPTION_CONTEXT_VALUE; STUB\n");
2365          break;
2366     case INTERNET_OPTION_SECURITY_FLAGS:
2367          FIXME("Option INTERNET_OPTION_SECURITY_FLAGS; STUB\n");
2368          break;
2369     case INTERNET_OPTION_DISABLE_AUTODIAL:
2370          FIXME("Option INTERNET_OPTION_DISABLE_AUTODIAL; STUB\n");
2371          break;
2372     case INTERNET_OPTION_HTTP_DECODING:
2373         FIXME("INTERNET_OPTION_HTTP_DECODING; STUB\n");
2374         INTERNET_SetLastError(ERROR_INTERNET_INVALID_OPTION);
2375         ret = FALSE;
2376         break;
2377     case INTERNET_OPTION_COOKIES_3RD_PARTY:
2378         FIXME("INTERNET_OPTION_COOKIES_3RD_PARTY; STUB\n");
2379         INTERNET_SetLastError(ERROR_INTERNET_INVALID_OPTION);
2380         ret = FALSE;
2381         break;
2382     case INTERNET_OPTION_SEND_UTF8_SERVERNAME_TO_PROXY:
2383         FIXME("INTERNET_OPTION_SEND_UTF8_SERVERNAME_TO_PROXY; STUB\n");
2384         INTERNET_SetLastError(ERROR_INTERNET_INVALID_OPTION);
2385         ret = FALSE;
2386         break;
2387     case INTERNET_OPTION_CODEPAGE_PATH:
2388         FIXME("INTERNET_OPTION_CODEPAGE_PATH; STUB\n");
2389         INTERNET_SetLastError(ERROR_INTERNET_INVALID_OPTION);
2390         ret = FALSE;
2391         break;
2392     case INTERNET_OPTION_CODEPAGE_EXTRA:
2393         FIXME("INTERNET_OPTION_CODEPAGE_EXTRA; STUB\n");
2394         INTERNET_SetLastError(ERROR_INTERNET_INVALID_OPTION);
2395         ret = FALSE;
2396         break;
2397     case INTERNET_OPTION_IDN:
2398         FIXME("INTERNET_OPTION_IDN; STUB\n");
2399         INTERNET_SetLastError(ERROR_INTERNET_INVALID_OPTION);
2400         ret = FALSE;
2401         break;
2402     default:
2403         FIXME("Option %d STUB\n",dwOption);
2404         INTERNET_SetLastError(ERROR_INTERNET_INVALID_OPTION);
2405         ret = FALSE;
2406         break;
2407     }
2408
2409     if(lpwhh)
2410         WININET_Release( lpwhh );
2411
2412     return ret;
2413 }
2414
2415
2416 /***********************************************************************
2417  *           InternetSetOptionA (WININET.@)
2418  *
2419  * Sets an options on the specified handle.
2420  *
2421  * RETURNS
2422  *    TRUE  on success
2423  *    FALSE on failure
2424  *
2425  */
2426 BOOL WINAPI InternetSetOptionA(HINTERNET hInternet, DWORD dwOption,
2427                            LPVOID lpBuffer, DWORD dwBufferLength)
2428 {
2429     LPVOID wbuffer;
2430     DWORD wlen;
2431     BOOL r;
2432
2433     switch( dwOption )
2434     {
2435     case INTERNET_OPTION_CALLBACK:
2436         {
2437         object_header_t *lpwh;
2438
2439         if (!(lpwh = WININET_GetObject(hInternet)))
2440         {
2441             INTERNET_SetLastError(ERROR_INTERNET_INCORRECT_HANDLE_TYPE);
2442             return FALSE;
2443         }
2444         WININET_Release(lpwh);
2445         INTERNET_SetLastError(ERROR_INTERNET_OPTION_NOT_SETTABLE);
2446         return FALSE;
2447         }
2448     case INTERNET_OPTION_PROXY:
2449         {
2450         LPINTERNET_PROXY_INFOA pi = (LPINTERNET_PROXY_INFOA) lpBuffer;
2451         LPINTERNET_PROXY_INFOW piw;
2452         DWORD proxlen, prbylen;
2453         LPWSTR prox, prby;
2454
2455         proxlen = MultiByteToWideChar( CP_ACP, 0, pi->lpszProxy, -1, NULL, 0);
2456         prbylen= MultiByteToWideChar( CP_ACP, 0, pi->lpszProxyBypass, -1, NULL, 0);
2457         wlen = sizeof(*piw) + proxlen + prbylen;
2458         wbuffer = HeapAlloc( GetProcessHeap(), 0, wlen*sizeof(WCHAR) );
2459         piw = (LPINTERNET_PROXY_INFOW) wbuffer;
2460         piw->dwAccessType = pi->dwAccessType;
2461         prox = (LPWSTR) &piw[1];
2462         prby = &prox[proxlen+1];
2463         MultiByteToWideChar( CP_ACP, 0, pi->lpszProxy, -1, prox, proxlen);
2464         MultiByteToWideChar( CP_ACP, 0, pi->lpszProxyBypass, -1, prby, prbylen);
2465         piw->lpszProxy = prox;
2466         piw->lpszProxyBypass = prby;
2467         }
2468         break;
2469     case INTERNET_OPTION_USER_AGENT:
2470     case INTERNET_OPTION_USERNAME:
2471     case INTERNET_OPTION_PASSWORD:
2472         wlen = MultiByteToWideChar( CP_ACP, 0, lpBuffer, dwBufferLength,
2473                                    NULL, 0 );
2474         wbuffer = HeapAlloc( GetProcessHeap(), 0, wlen*sizeof(WCHAR) );
2475         MultiByteToWideChar( CP_ACP, 0, lpBuffer, dwBufferLength,
2476                                    wbuffer, wlen );
2477         break;
2478     default:
2479         wbuffer = lpBuffer;
2480         wlen = dwBufferLength;
2481     }
2482
2483     r = InternetSetOptionW(hInternet,dwOption, wbuffer, wlen);
2484
2485     if( lpBuffer != wbuffer )
2486         HeapFree( GetProcessHeap(), 0, wbuffer );
2487
2488     return r;
2489 }
2490
2491
2492 /***********************************************************************
2493  *           InternetSetOptionExA (WININET.@)
2494  */
2495 BOOL WINAPI InternetSetOptionExA(HINTERNET hInternet, DWORD dwOption,
2496                            LPVOID lpBuffer, DWORD dwBufferLength, DWORD dwFlags)
2497 {
2498     FIXME("Flags %08x ignored\n", dwFlags);
2499     return InternetSetOptionA( hInternet, dwOption, lpBuffer, dwBufferLength );
2500 }
2501
2502 /***********************************************************************
2503  *           InternetSetOptionExW (WININET.@)
2504  */
2505 BOOL WINAPI InternetSetOptionExW(HINTERNET hInternet, DWORD dwOption,
2506                            LPVOID lpBuffer, DWORD dwBufferLength, DWORD dwFlags)
2507 {
2508     FIXME("Flags %08x ignored\n", dwFlags);
2509     if( dwFlags & ~ISO_VALID_FLAGS )
2510     {
2511         INTERNET_SetLastError( ERROR_INVALID_PARAMETER );
2512         return FALSE;
2513     }
2514     return InternetSetOptionW( hInternet, dwOption, lpBuffer, dwBufferLength );
2515 }
2516
2517 static const WCHAR WININET_wkday[7][4] =
2518     { { 'S','u','n', 0 }, { 'M','o','n', 0 }, { 'T','u','e', 0 }, { 'W','e','d', 0 },
2519       { 'T','h','u', 0 }, { 'F','r','i', 0 }, { 'S','a','t', 0 } };
2520 static const WCHAR WININET_month[12][4] =
2521     { { 'J','a','n', 0 }, { 'F','e','b', 0 }, { 'M','a','r', 0 }, { 'A','p','r', 0 },
2522       { 'M','a','y', 0 }, { 'J','u','n', 0 }, { 'J','u','l', 0 }, { 'A','u','g', 0 },
2523       { 'S','e','p', 0 }, { 'O','c','t', 0 }, { 'N','o','v', 0 }, { 'D','e','c', 0 } };
2524
2525 /***********************************************************************
2526  *           InternetTimeFromSystemTimeA (WININET.@)
2527  */
2528 BOOL WINAPI InternetTimeFromSystemTimeA( const SYSTEMTIME* time, DWORD format, LPSTR string, DWORD size )
2529 {
2530     BOOL ret;
2531     WCHAR stringW[INTERNET_RFC1123_BUFSIZE];
2532
2533     TRACE( "%p 0x%08x %p 0x%08x\n", time, format, string, size );
2534
2535     if (!time || !string || format != INTERNET_RFC1123_FORMAT)
2536     {
2537         SetLastError(ERROR_INVALID_PARAMETER);
2538         return FALSE;
2539     }
2540
2541     if (size < INTERNET_RFC1123_BUFSIZE * sizeof(*string))
2542     {
2543         SetLastError(ERROR_INSUFFICIENT_BUFFER);
2544         return FALSE;
2545     }
2546
2547     ret = InternetTimeFromSystemTimeW( time, format, stringW, sizeof(stringW) );
2548     if (ret) WideCharToMultiByte( CP_ACP, 0, stringW, -1, string, size, NULL, NULL );
2549
2550     return ret;
2551 }
2552
2553 /***********************************************************************
2554  *           InternetTimeFromSystemTimeW (WININET.@)
2555  */
2556 BOOL WINAPI InternetTimeFromSystemTimeW( const SYSTEMTIME* time, DWORD format, LPWSTR string, DWORD size )
2557 {
2558     static const WCHAR date[] =
2559         { '%','s',',',' ','%','0','2','d',' ','%','s',' ','%','4','d',' ','%','0',
2560           '2','d',':','%','0','2','d',':','%','0','2','d',' ','G','M','T', 0 };
2561
2562     TRACE( "%p 0x%08x %p 0x%08x\n", time, format, string, size );
2563
2564     if (!time || !string || format != INTERNET_RFC1123_FORMAT)
2565     {
2566         SetLastError(ERROR_INVALID_PARAMETER);
2567         return FALSE;
2568     }
2569
2570     if (size < INTERNET_RFC1123_BUFSIZE * sizeof(*string))
2571     {
2572         SetLastError(ERROR_INSUFFICIENT_BUFFER);
2573         return FALSE;
2574     }
2575
2576     sprintfW( string, date,
2577               WININET_wkday[time->wDayOfWeek],
2578               time->wDay,
2579               WININET_month[time->wMonth - 1],
2580               time->wYear,
2581               time->wHour,
2582               time->wMinute,
2583               time->wSecond );
2584
2585     return TRUE;
2586 }
2587
2588 /***********************************************************************
2589  *           InternetTimeToSystemTimeA (WININET.@)
2590  */
2591 BOOL WINAPI InternetTimeToSystemTimeA( LPCSTR string, SYSTEMTIME* time, DWORD reserved )
2592 {
2593     BOOL ret = FALSE;
2594     WCHAR *stringW;
2595
2596     TRACE( "%s %p 0x%08x\n", debugstr_a(string), time, reserved );
2597
2598     stringW = heap_strdupAtoW(string);
2599     if (stringW)
2600     {
2601         ret = InternetTimeToSystemTimeW( stringW, time, reserved );
2602         HeapFree( GetProcessHeap(), 0, stringW );
2603     }
2604     return ret;
2605 }
2606
2607 /***********************************************************************
2608  *           InternetTimeToSystemTimeW (WININET.@)
2609  */
2610 BOOL WINAPI InternetTimeToSystemTimeW( LPCWSTR string, SYSTEMTIME* time, DWORD reserved )
2611 {
2612     unsigned int i;
2613     const WCHAR *s = string;
2614     WCHAR       *end;
2615
2616     TRACE( "%s %p 0x%08x\n", debugstr_w(string), time, reserved );
2617
2618     if (!string || !time) return FALSE;
2619
2620     /* Windows does this too */
2621     GetSystemTime( time );
2622
2623     /*  Convert an RFC1123 time such as 'Fri, 07 Jan 2005 12:06:35 GMT' into
2624      *  a SYSTEMTIME structure.
2625      */
2626
2627     while (*s && !isalphaW( *s )) s++;
2628     if (s[0] == '\0' || s[1] == '\0' || s[2] == '\0') return TRUE;
2629     time->wDayOfWeek = 7;
2630
2631     for (i = 0; i < 7; i++)
2632     {
2633         if (toupperW( WININET_wkday[i][0] ) == toupperW( s[0] ) &&
2634             toupperW( WININET_wkday[i][1] ) == toupperW( s[1] ) &&
2635             toupperW( WININET_wkday[i][2] ) == toupperW( s[2] ) )
2636         {
2637             time->wDayOfWeek = i;
2638             break;
2639         }
2640     }
2641
2642     if (time->wDayOfWeek > 6) return TRUE;
2643     while (*s && !isdigitW( *s )) s++;
2644     time->wDay = strtolW( s, &end, 10 );
2645     s = end;
2646
2647     while (*s && !isalphaW( *s )) s++;
2648     if (s[0] == '\0' || s[1] == '\0' || s[2] == '\0') return TRUE;
2649     time->wMonth = 0;
2650
2651     for (i = 0; i < 12; i++)
2652     {
2653         if (toupperW( WININET_month[i][0]) == toupperW( s[0] ) &&
2654             toupperW( WININET_month[i][1]) == toupperW( s[1] ) &&
2655             toupperW( WININET_month[i][2]) == toupperW( s[2] ) )
2656         {
2657             time->wMonth = i + 1;
2658             break;
2659         }
2660     }
2661     if (time->wMonth == 0) return TRUE;
2662
2663     while (*s && !isdigitW( *s )) s++;
2664     if (*s == '\0') return TRUE;
2665     time->wYear = strtolW( s, &end, 10 );
2666     s = end;
2667
2668     while (*s && !isdigitW( *s )) s++;
2669     if (*s == '\0') return TRUE;
2670     time->wHour = strtolW( s, &end, 10 );
2671     s = end;
2672
2673     while (*s && !isdigitW( *s )) s++;
2674     if (*s == '\0') return TRUE;
2675     time->wMinute = strtolW( s, &end, 10 );
2676     s = end;
2677
2678     while (*s && !isdigitW( *s )) s++;
2679     if (*s == '\0') return TRUE;
2680     time->wSecond = strtolW( s, &end, 10 );
2681     s = end;
2682
2683     time->wMilliseconds = 0;
2684     return TRUE;
2685 }
2686
2687 /***********************************************************************
2688  *      InternetCheckConnectionW (WININET.@)
2689  *
2690  * Pings a requested host to check internet connection
2691  *
2692  * RETURNS
2693  *   TRUE on success and FALSE on failure. If a failure then
2694  *   ERROR_NOT_CONNECTED is placed into GetLastError
2695  *
2696  */
2697 BOOL WINAPI InternetCheckConnectionW( LPCWSTR lpszUrl, DWORD dwFlags, DWORD dwReserved )
2698 {
2699 /*
2700  * this is a kludge which runs the resident ping program and reads the output.
2701  *
2702  * Anyone have a better idea?
2703  */
2704
2705   BOOL   rc = FALSE;
2706   static const CHAR ping[] = "ping -c 1 ";
2707   static const CHAR redirect[] = " >/dev/null 2>/dev/null";
2708   CHAR *command = NULL;
2709   WCHAR hostW[1024];
2710   DWORD len;
2711   INTERNET_PORT port;
2712   int status = -1;
2713
2714   FIXME("\n");
2715
2716   /*
2717    * Crack or set the Address
2718    */
2719   if (lpszUrl == NULL)
2720   {
2721      /*
2722       * According to the doc we are supposed to use the ip for the next
2723       * server in the WnInet internal server database. I have
2724       * no idea what that is or how to get it.
2725       *
2726       * So someone needs to implement this.
2727       */
2728      FIXME("Unimplemented with URL of NULL\n");
2729      return TRUE;
2730   }
2731   else
2732   {
2733      URL_COMPONENTSW components;
2734
2735      ZeroMemory(&components,sizeof(URL_COMPONENTSW));
2736      components.lpszHostName = (LPWSTR)hostW;
2737      components.dwHostNameLength = 1024;
2738
2739      if (!InternetCrackUrlW(lpszUrl,0,0,&components))
2740        goto End;
2741
2742      TRACE("host name : %s\n",debugstr_w(components.lpszHostName));
2743      port = components.nPort;
2744      TRACE("port: %d\n", port);
2745   }
2746
2747   if (dwFlags & FLAG_ICC_FORCE_CONNECTION)
2748   {
2749       struct sockaddr_storage saddr;
2750       socklen_t sa_len = sizeof(saddr);
2751       int fd;
2752
2753       if (!GetAddress(hostW, port, (struct sockaddr *)&saddr, &sa_len))
2754           goto End;
2755       fd = socket(saddr.ss_family, SOCK_STREAM, 0);
2756       if (fd != -1)
2757       {
2758           if (connect(fd, (struct sockaddr *)&saddr, sa_len) == 0)
2759               rc = TRUE;
2760           close(fd);
2761       }
2762   }
2763   else
2764   {
2765       /*
2766        * Build our ping command
2767        */
2768       len = WideCharToMultiByte(CP_UNIXCP, 0, hostW, -1, NULL, 0, NULL, NULL);
2769       command = HeapAlloc( GetProcessHeap(), 0, strlen(ping)+len+strlen(redirect) );
2770       strcpy(command,ping);
2771       WideCharToMultiByte(CP_UNIXCP, 0, hostW, -1, command+strlen(ping), len, NULL, NULL);
2772       strcat(command,redirect);
2773
2774       TRACE("Ping command is : %s\n",command);
2775
2776       status = system(command);
2777
2778       TRACE("Ping returned a code of %i\n",status);
2779
2780       /* Ping return code of 0 indicates success */
2781       if (status == 0)
2782          rc = TRUE;
2783   }
2784
2785 End:
2786
2787   HeapFree( GetProcessHeap(), 0, command );
2788   if (rc == FALSE)
2789     INTERNET_SetLastError(ERROR_NOT_CONNECTED);
2790
2791   return rc;
2792 }
2793
2794
2795 /***********************************************************************
2796  *      InternetCheckConnectionA (WININET.@)
2797  *
2798  * Pings a requested host to check internet connection
2799  *
2800  * RETURNS
2801  *   TRUE on success and FALSE on failure. If a failure then
2802  *   ERROR_NOT_CONNECTED is placed into GetLastError
2803  *
2804  */
2805 BOOL WINAPI InternetCheckConnectionA(LPCSTR lpszUrl, DWORD dwFlags, DWORD dwReserved)
2806 {
2807     WCHAR *url = NULL;
2808     BOOL rc;
2809
2810     if(lpszUrl) {
2811         url = heap_strdupAtoW(lpszUrl);
2812         if(!url)
2813             return FALSE;
2814     }
2815
2816     rc = InternetCheckConnectionW(url, dwFlags, dwReserved);
2817
2818     HeapFree(GetProcessHeap(), 0, url);
2819     return rc;
2820 }
2821
2822
2823 /**********************************************************
2824  *      INTERNET_InternetOpenUrlW (internal)
2825  *
2826  * Opens an URL
2827  *
2828  * RETURNS
2829  *   handle of connection or NULL on failure
2830  */
2831 static HINTERNET INTERNET_InternetOpenUrlW(appinfo_t *hIC, LPCWSTR lpszUrl,
2832     LPCWSTR lpszHeaders, DWORD dwHeadersLength, DWORD dwFlags, DWORD_PTR dwContext)
2833 {
2834     URL_COMPONENTSW urlComponents;
2835     WCHAR protocol[32], hostName[MAXHOSTNAME], userName[1024];
2836     WCHAR password[1024], path[2048], extra[1024];
2837     HINTERNET client = NULL, client1 = NULL;
2838     
2839     TRACE("(%p, %s, %s, %08x, %08x, %08lx)\n", hIC, debugstr_w(lpszUrl), debugstr_w(lpszHeaders),
2840           dwHeadersLength, dwFlags, dwContext);
2841     
2842     urlComponents.dwStructSize = sizeof(URL_COMPONENTSW);
2843     urlComponents.lpszScheme = protocol;
2844     urlComponents.dwSchemeLength = 32;
2845     urlComponents.lpszHostName = hostName;
2846     urlComponents.dwHostNameLength = MAXHOSTNAME;
2847     urlComponents.lpszUserName = userName;
2848     urlComponents.dwUserNameLength = 1024;
2849     urlComponents.lpszPassword = password;
2850     urlComponents.dwPasswordLength = 1024;
2851     urlComponents.lpszUrlPath = path;
2852     urlComponents.dwUrlPathLength = 2048;
2853     urlComponents.lpszExtraInfo = extra;
2854     urlComponents.dwExtraInfoLength = 1024;
2855     if(!InternetCrackUrlW(lpszUrl, strlenW(lpszUrl), 0, &urlComponents))
2856         return NULL;
2857     switch(urlComponents.nScheme) {
2858     case INTERNET_SCHEME_FTP:
2859         if(urlComponents.nPort == 0)
2860             urlComponents.nPort = INTERNET_DEFAULT_FTP_PORT;
2861         client = FTP_Connect(hIC, hostName, urlComponents.nPort,
2862                              userName, password, dwFlags, dwContext, INET_OPENURL);
2863         if(client == NULL)
2864             break;
2865         client1 = FtpOpenFileW(client, path, GENERIC_READ, dwFlags, dwContext);
2866         if(client1 == NULL) {
2867             InternetCloseHandle(client);
2868             break;
2869         }
2870         break;
2871         
2872     case INTERNET_SCHEME_HTTP:
2873     case INTERNET_SCHEME_HTTPS: {
2874         static const WCHAR szStars[] = { '*','/','*', 0 };
2875         LPCWSTR accept[2] = { szStars, NULL };
2876         if(urlComponents.nPort == 0) {
2877             if(urlComponents.nScheme == INTERNET_SCHEME_HTTP)
2878                 urlComponents.nPort = INTERNET_DEFAULT_HTTP_PORT;
2879             else
2880                 urlComponents.nPort = INTERNET_DEFAULT_HTTPS_PORT;
2881         }
2882         if (urlComponents.nScheme == INTERNET_SCHEME_HTTPS) dwFlags |= INTERNET_FLAG_SECURE;
2883
2884         /* FIXME: should use pointers, not handles, as handles are not thread-safe */
2885         client = HTTP_Connect(hIC, hostName, urlComponents.nPort,
2886                               userName, password, dwFlags, dwContext, INET_OPENURL);
2887         if(client == NULL)
2888             break;
2889
2890         if (urlComponents.dwExtraInfoLength) {
2891                 WCHAR *path_extra;
2892                 DWORD len = urlComponents.dwUrlPathLength + urlComponents.dwExtraInfoLength + 1;
2893
2894                 if (!(path_extra = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR))))
2895                 {
2896                         InternetCloseHandle(client);
2897                         break;
2898                 }
2899                 strcpyW(path_extra, urlComponents.lpszUrlPath);
2900                 strcatW(path_extra, urlComponents.lpszExtraInfo);
2901                 client1 = HttpOpenRequestW(client, NULL, path_extra, NULL, NULL, accept, dwFlags, dwContext);
2902                 HeapFree(GetProcessHeap(), 0, path_extra);
2903         }
2904         else
2905                 client1 = HttpOpenRequestW(client, NULL, path, NULL, NULL, accept, dwFlags, dwContext);
2906
2907         if(client1 == NULL) {
2908             InternetCloseHandle(client);
2909             break;
2910         }
2911         HttpAddRequestHeadersW(client1, lpszHeaders, dwHeadersLength, HTTP_ADDREQ_FLAG_ADD);
2912         if (!HttpSendRequestW(client1, NULL, 0, NULL, 0) &&
2913             GetLastError() != ERROR_IO_PENDING) {
2914             InternetCloseHandle(client1);
2915             client1 = NULL;
2916             break;
2917         }
2918     }
2919     case INTERNET_SCHEME_GOPHER:
2920         /* gopher doesn't seem to be implemented in wine, but it's supposed
2921          * to be supported by InternetOpenUrlA. */
2922     default:
2923         INTERNET_SetLastError(ERROR_INTERNET_UNRECOGNIZED_SCHEME);
2924         break;
2925     }
2926
2927     TRACE(" %p <--\n", client1);
2928     
2929     return client1;
2930 }
2931
2932 /**********************************************************
2933  *      InternetOpenUrlW (WININET.@)
2934  *
2935  * Opens an URL
2936  *
2937  * RETURNS
2938  *   handle of connection or NULL on failure
2939  */
2940 static void AsyncInternetOpenUrlProc(WORKREQUEST *workRequest)
2941 {
2942     struct WORKREQ_INTERNETOPENURLW const *req = &workRequest->u.InternetOpenUrlW;
2943     appinfo_t *hIC = (appinfo_t*) workRequest->hdr;
2944
2945     TRACE("%p\n", hIC);
2946
2947     INTERNET_InternetOpenUrlW(hIC, req->lpszUrl,
2948                               req->lpszHeaders, req->dwHeadersLength, req->dwFlags, req->dwContext);
2949     HeapFree(GetProcessHeap(), 0, req->lpszUrl);
2950     HeapFree(GetProcessHeap(), 0, req->lpszHeaders);
2951 }
2952
2953 HINTERNET WINAPI InternetOpenUrlW(HINTERNET hInternet, LPCWSTR lpszUrl,
2954     LPCWSTR lpszHeaders, DWORD dwHeadersLength, DWORD dwFlags, DWORD_PTR dwContext)
2955 {
2956     HINTERNET ret = NULL;
2957     appinfo_t *hIC = NULL;
2958
2959     if (TRACE_ON(wininet)) {
2960         TRACE("(%p, %s, %s, %08x, %08x, %08lx)\n", hInternet, debugstr_w(lpszUrl), debugstr_w(lpszHeaders),
2961               dwHeadersLength, dwFlags, dwContext);
2962         TRACE("  flags :");
2963         dump_INTERNET_FLAGS(dwFlags);
2964     }
2965
2966     if (!lpszUrl)
2967     {
2968         INTERNET_SetLastError(ERROR_INVALID_PARAMETER);
2969         goto lend;
2970     }
2971
2972     hIC = (appinfo_t*)WININET_GetObject( hInternet );
2973     if (NULL == hIC ||  hIC->hdr.htype != WH_HINIT) {
2974         INTERNET_SetLastError(ERROR_INTERNET_INCORRECT_HANDLE_TYPE);
2975         goto lend;
2976     }
2977     
2978     if (hIC->hdr.dwFlags & INTERNET_FLAG_ASYNC) {
2979         WORKREQUEST workRequest;
2980         struct WORKREQ_INTERNETOPENURLW *req;
2981
2982         workRequest.asyncproc = AsyncInternetOpenUrlProc;
2983         workRequest.hdr = WININET_AddRef( &hIC->hdr );
2984         req = &workRequest.u.InternetOpenUrlW;
2985         req->lpszUrl = heap_strdupW(lpszUrl);
2986         req->lpszHeaders = heap_strdupW(lpszHeaders);
2987         req->dwHeadersLength = dwHeadersLength;
2988         req->dwFlags = dwFlags;
2989         req->dwContext = dwContext;
2990         
2991         INTERNET_AsyncCall(&workRequest);
2992         /*
2993          * This is from windows.
2994          */
2995         INTERNET_SetLastError(ERROR_IO_PENDING);
2996     } else {
2997         ret = INTERNET_InternetOpenUrlW(hIC, lpszUrl, lpszHeaders, dwHeadersLength, dwFlags, dwContext);
2998     }
2999     
3000   lend:
3001     if( hIC )
3002         WININET_Release( &hIC->hdr );
3003     TRACE(" %p <--\n", ret);
3004     
3005     return ret;
3006 }
3007
3008 /**********************************************************
3009  *      InternetOpenUrlA (WININET.@)
3010  *
3011  * Opens an URL
3012  *
3013  * RETURNS
3014  *   handle of connection or NULL on failure
3015  */
3016 HINTERNET WINAPI InternetOpenUrlA(HINTERNET hInternet, LPCSTR lpszUrl,
3017     LPCSTR lpszHeaders, DWORD dwHeadersLength, DWORD dwFlags, DWORD_PTR dwContext)
3018 {
3019     HINTERNET rc = NULL;
3020     DWORD lenHeaders = 0;
3021     LPWSTR szUrl = NULL;
3022     LPWSTR szHeaders = NULL;
3023
3024     TRACE("\n");
3025
3026     if(lpszUrl) {
3027         szUrl = heap_strdupAtoW(lpszUrl);
3028         if(!szUrl)
3029             return NULL;
3030     }
3031
3032     if(lpszHeaders) {
3033         lenHeaders = MultiByteToWideChar(CP_ACP, 0, lpszHeaders, dwHeadersLength, NULL, 0 );
3034         szHeaders = HeapAlloc(GetProcessHeap(), 0, lenHeaders*sizeof(WCHAR));
3035         if(!szHeaders) {
3036             HeapFree(GetProcessHeap(), 0, szUrl);
3037             return NULL;
3038         }
3039         MultiByteToWideChar(CP_ACP, 0, lpszHeaders, dwHeadersLength, szHeaders, lenHeaders);
3040     }
3041     
3042     rc = InternetOpenUrlW(hInternet, szUrl, szHeaders,
3043         lenHeaders, dwFlags, dwContext);
3044
3045     HeapFree(GetProcessHeap(), 0, szUrl);
3046     HeapFree(GetProcessHeap(), 0, szHeaders);
3047
3048     return rc;
3049 }
3050
3051
3052 static LPWITHREADERROR INTERNET_AllocThreadError(void)
3053 {
3054     LPWITHREADERROR lpwite = HeapAlloc(GetProcessHeap(), 0, sizeof(*lpwite));
3055
3056     if (lpwite)
3057     {
3058         lpwite->dwError = 0;
3059         lpwite->response[0] = '\0';
3060     }
3061
3062     if (!TlsSetValue(g_dwTlsErrIndex, lpwite))
3063     {
3064         HeapFree(GetProcessHeap(), 0, lpwite);
3065         return NULL;
3066     }
3067
3068     return lpwite;
3069 }
3070
3071
3072 /***********************************************************************
3073  *           INTERNET_SetLastError (internal)
3074  *
3075  * Set last thread specific error
3076  *
3077  * RETURNS
3078  *
3079  */
3080 void INTERNET_SetLastError(DWORD dwError)
3081 {
3082     LPWITHREADERROR lpwite = TlsGetValue(g_dwTlsErrIndex);
3083
3084     if (!lpwite)
3085         lpwite = INTERNET_AllocThreadError();
3086
3087     SetLastError(dwError);
3088     if(lpwite)
3089         lpwite->dwError = dwError;
3090 }
3091
3092
3093 /***********************************************************************
3094  *           INTERNET_GetLastError (internal)
3095  *
3096  * Get last thread specific error
3097  *
3098  * RETURNS
3099  *
3100  */
3101 DWORD INTERNET_GetLastError(void)
3102 {
3103     LPWITHREADERROR lpwite = TlsGetValue(g_dwTlsErrIndex);
3104     if (!lpwite) return 0;
3105     /* TlsGetValue clears last error, so set it again here */
3106     SetLastError(lpwite->dwError);
3107     return lpwite->dwError;
3108 }
3109
3110
3111 /***********************************************************************
3112  *           INTERNET_WorkerThreadFunc (internal)
3113  *
3114  * Worker thread execution function
3115  *
3116  * RETURNS
3117  *
3118  */
3119 static DWORD CALLBACK INTERNET_WorkerThreadFunc(LPVOID lpvParam)
3120 {
3121     LPWORKREQUEST lpRequest = lpvParam;
3122     WORKREQUEST workRequest;
3123
3124     TRACE("\n");
3125
3126     workRequest = *lpRequest;
3127     HeapFree(GetProcessHeap(), 0, lpRequest);
3128
3129     workRequest.asyncproc(&workRequest);
3130
3131     WININET_Release( workRequest.hdr );
3132     return TRUE;
3133 }
3134
3135
3136 /***********************************************************************
3137  *           INTERNET_AsyncCall (internal)
3138  *
3139  * Retrieves work request from queue
3140  *
3141  * RETURNS
3142  *
3143  */
3144 BOOL INTERNET_AsyncCall(LPWORKREQUEST lpWorkRequest)
3145 {
3146     BOOL bSuccess;
3147     LPWORKREQUEST lpNewRequest;
3148
3149     TRACE("\n");
3150
3151     lpNewRequest = HeapAlloc(GetProcessHeap(), 0, sizeof(WORKREQUEST));
3152     if (!lpNewRequest)
3153         return FALSE;
3154
3155     *lpNewRequest = *lpWorkRequest;
3156
3157     bSuccess = QueueUserWorkItem(INTERNET_WorkerThreadFunc, lpNewRequest, WT_EXECUTELONGFUNCTION);
3158     if (!bSuccess)
3159     {
3160         HeapFree(GetProcessHeap(), 0, lpNewRequest);
3161         INTERNET_SetLastError(ERROR_INTERNET_ASYNC_THREAD_FAILED);
3162     }
3163
3164     return bSuccess;
3165 }
3166
3167
3168 /***********************************************************************
3169  *          INTERNET_GetResponseBuffer  (internal)
3170  *
3171  * RETURNS
3172  *
3173  */
3174 LPSTR INTERNET_GetResponseBuffer(void)
3175 {
3176     LPWITHREADERROR lpwite = TlsGetValue(g_dwTlsErrIndex);
3177     if (!lpwite)
3178         lpwite = INTERNET_AllocThreadError();
3179     TRACE("\n");
3180     return lpwite->response;
3181 }
3182
3183 /***********************************************************************
3184  *           INTERNET_GetNextLine  (internal)
3185  *
3186  * Parse next line in directory string listing
3187  *
3188  * RETURNS
3189  *   Pointer to beginning of next line
3190  *   NULL on failure
3191  *
3192  */
3193
3194 LPSTR INTERNET_GetNextLine(INT nSocket, LPDWORD dwLen)
3195 {
3196     struct pollfd pfd;
3197     BOOL bSuccess = FALSE;
3198     INT nRecv = 0;
3199     LPSTR lpszBuffer = INTERNET_GetResponseBuffer();
3200
3201     TRACE("\n");
3202
3203     pfd.fd = nSocket;
3204     pfd.events = POLLIN;
3205
3206     while (nRecv < MAX_REPLY_LEN)
3207     {
3208         if (poll(&pfd,1, RESPONSE_TIMEOUT * 1000) > 0)
3209         {
3210             if (recv(nSocket, &lpszBuffer[nRecv], 1, 0) <= 0)
3211             {
3212                 INTERNET_SetLastError(ERROR_FTP_TRANSFER_IN_PROGRESS);
3213                 goto lend;
3214             }
3215
3216             if (lpszBuffer[nRecv] == '\n')
3217             {
3218                 bSuccess = TRUE;
3219                 break;
3220             }
3221             if (lpszBuffer[nRecv] != '\r')
3222                 nRecv++;
3223         }
3224         else
3225         {
3226             INTERNET_SetLastError(ERROR_INTERNET_TIMEOUT);
3227             goto lend;
3228         }
3229     }
3230
3231 lend:
3232     if (bSuccess)
3233     {
3234         lpszBuffer[nRecv] = '\0';
3235         *dwLen = nRecv - 1;
3236         TRACE(":%d %s\n", nRecv, lpszBuffer);
3237         return lpszBuffer;
3238     }
3239     else
3240     {
3241         return NULL;
3242     }
3243 }
3244
3245 /**********************************************************
3246  *      InternetQueryDataAvailable (WININET.@)
3247  *
3248  * Determines how much data is available to be read.
3249  *
3250  * RETURNS
3251  *   TRUE on success, FALSE if an error occurred. If
3252  *   INTERNET_FLAG_ASYNC was specified in InternetOpen, and
3253  *   no data is presently available, FALSE is returned with
3254  *   the last error ERROR_IO_PENDING; a callback with status
3255  *   INTERNET_STATUS_REQUEST_COMPLETE will be sent when more
3256  *   data is available.
3257  */
3258 BOOL WINAPI InternetQueryDataAvailable( HINTERNET hFile,
3259                                 LPDWORD lpdwNumberOfBytesAvailble,
3260                                 DWORD dwFlags, DWORD_PTR dwContext)
3261 {
3262     object_header_t *hdr;
3263     DWORD res;
3264
3265     TRACE("(%p %p %x %lx)\n", hFile, lpdwNumberOfBytesAvailble, dwFlags, dwContext);
3266
3267     hdr = WININET_GetObject( hFile );
3268     if (!hdr) {
3269         INTERNET_SetLastError(ERROR_INVALID_HANDLE);
3270         return FALSE;
3271     }
3272
3273     if(hdr->vtbl->QueryDataAvailable) {
3274         res = hdr->vtbl->QueryDataAvailable(hdr, lpdwNumberOfBytesAvailble, dwFlags, dwContext);
3275     }else {
3276         WARN("wrong handle\n");
3277         res = ERROR_INTERNET_INCORRECT_HANDLE_TYPE;
3278     }
3279
3280     WININET_Release(hdr);
3281
3282     if(res != ERROR_SUCCESS)
3283         SetLastError(res);
3284     return res == ERROR_SUCCESS;
3285 }
3286
3287
3288 /***********************************************************************
3289  *      InternetLockRequestFile (WININET.@)
3290  */
3291 BOOL WINAPI InternetLockRequestFile( HINTERNET hInternet, HANDLE
3292 *lphLockReqHandle)
3293 {
3294     FIXME("STUB\n");
3295     return FALSE;
3296 }
3297
3298 BOOL WINAPI InternetUnlockRequestFile( HANDLE hLockHandle)
3299 {
3300     FIXME("STUB\n");
3301     return FALSE;
3302 }
3303
3304
3305 /***********************************************************************
3306  *      InternetAutodial (WININET.@)
3307  *
3308  * On windows this function is supposed to dial the default internet
3309  * connection. We don't want to have Wine dial out to the internet so
3310  * we return TRUE by default. It might be nice to check if we are connected.
3311  *
3312  * RETURNS
3313  *   TRUE on success
3314  *   FALSE on failure
3315  *
3316  */
3317 BOOL WINAPI InternetAutodial(DWORD dwFlags, HWND hwndParent)
3318 {
3319     FIXME("STUB\n");
3320
3321     /* Tell that we are connected to the internet. */
3322     return TRUE;
3323 }
3324
3325 /***********************************************************************
3326  *      InternetAutodialHangup (WININET.@)
3327  *
3328  * Hangs up a connection made with InternetAutodial
3329  *
3330  * PARAM
3331  *    dwReserved
3332  * RETURNS
3333  *   TRUE on success
3334  *   FALSE on failure
3335  *
3336  */
3337 BOOL WINAPI InternetAutodialHangup(DWORD dwReserved)
3338 {
3339     FIXME("STUB\n");
3340
3341     /* we didn't dial, we don't disconnect */
3342     return TRUE;
3343 }
3344
3345 /***********************************************************************
3346  *      InternetCombineUrlA (WININET.@)
3347  *
3348  * Combine a base URL with a relative URL
3349  *
3350  * RETURNS
3351  *   TRUE on success
3352  *   FALSE on failure
3353  *
3354  */
3355
3356 BOOL WINAPI InternetCombineUrlA(LPCSTR lpszBaseUrl, LPCSTR lpszRelativeUrl,
3357                                 LPSTR lpszBuffer, LPDWORD lpdwBufferLength,
3358                                 DWORD dwFlags)
3359 {
3360     HRESULT hr=S_OK;
3361
3362     TRACE("(%s, %s, %p, %p, 0x%08x)\n", debugstr_a(lpszBaseUrl), debugstr_a(lpszRelativeUrl), lpszBuffer, lpdwBufferLength, dwFlags);
3363
3364     /* Flip this bit to correspond to URL_ESCAPE_UNSAFE */
3365     dwFlags ^= ICU_NO_ENCODE;
3366     hr=UrlCombineA(lpszBaseUrl,lpszRelativeUrl,lpszBuffer,lpdwBufferLength,dwFlags);
3367
3368     return (hr==S_OK);
3369 }
3370
3371 /***********************************************************************
3372  *      InternetCombineUrlW (WININET.@)
3373  *
3374  * Combine a base URL with a relative URL
3375  *
3376  * RETURNS
3377  *   TRUE on success
3378  *   FALSE on failure
3379  *
3380  */
3381
3382 BOOL WINAPI InternetCombineUrlW(LPCWSTR lpszBaseUrl, LPCWSTR lpszRelativeUrl,
3383                                 LPWSTR lpszBuffer, LPDWORD lpdwBufferLength,
3384                                 DWORD dwFlags)
3385 {
3386     HRESULT hr=S_OK;
3387
3388     TRACE("(%s, %s, %p, %p, 0x%08x)\n", debugstr_w(lpszBaseUrl), debugstr_w(lpszRelativeUrl), lpszBuffer, lpdwBufferLength, dwFlags);
3389
3390     /* Flip this bit to correspond to URL_ESCAPE_UNSAFE */
3391     dwFlags ^= ICU_NO_ENCODE;
3392     hr=UrlCombineW(lpszBaseUrl,lpszRelativeUrl,lpszBuffer,lpdwBufferLength,dwFlags);
3393
3394     return (hr==S_OK);
3395 }
3396
3397 /* max port num is 65535 => 5 digits */
3398 #define MAX_WORD_DIGITS 5
3399
3400 #define URL_GET_COMP_LENGTH(url, component) ((url)->dw##component##Length ? \
3401     (url)->dw##component##Length : strlenW((url)->lpsz##component))
3402 #define URL_GET_COMP_LENGTHA(url, component) ((url)->dw##component##Length ? \
3403     (url)->dw##component##Length : strlen((url)->lpsz##component))
3404
3405 static BOOL url_uses_default_port(INTERNET_SCHEME nScheme, INTERNET_PORT nPort)
3406 {
3407     if ((nScheme == INTERNET_SCHEME_HTTP) &&
3408         (nPort == INTERNET_DEFAULT_HTTP_PORT))
3409         return TRUE;
3410     if ((nScheme == INTERNET_SCHEME_HTTPS) &&
3411         (nPort == INTERNET_DEFAULT_HTTPS_PORT))
3412         return TRUE;
3413     if ((nScheme == INTERNET_SCHEME_FTP) &&
3414         (nPort == INTERNET_DEFAULT_FTP_PORT))
3415         return TRUE;
3416     if ((nScheme == INTERNET_SCHEME_GOPHER) &&
3417         (nPort == INTERNET_DEFAULT_GOPHER_PORT))
3418         return TRUE;
3419
3420     if (nPort == INTERNET_INVALID_PORT_NUMBER)
3421         return TRUE;
3422
3423     return FALSE;
3424 }
3425
3426 /* opaque urls do not fit into the standard url hierarchy and don't have
3427  * two following slashes */
3428 static inline BOOL scheme_is_opaque(INTERNET_SCHEME nScheme)
3429 {
3430     return (nScheme != INTERNET_SCHEME_FTP) &&
3431            (nScheme != INTERNET_SCHEME_GOPHER) &&
3432            (nScheme != INTERNET_SCHEME_HTTP) &&
3433            (nScheme != INTERNET_SCHEME_HTTPS) &&
3434            (nScheme != INTERNET_SCHEME_FILE);
3435 }
3436
3437 static LPCWSTR INTERNET_GetSchemeString(INTERNET_SCHEME scheme)
3438 {
3439     int index;
3440     if (scheme < INTERNET_SCHEME_FIRST)
3441         return NULL;
3442     index = scheme - INTERNET_SCHEME_FIRST;
3443     if (index >= sizeof(url_schemes)/sizeof(url_schemes[0]))
3444         return NULL;
3445     return (LPCWSTR)url_schemes[index];
3446 }
3447
3448 /* we can calculate using ansi strings because we're just
3449  * calculating string length, not size
3450  */
3451 static BOOL calc_url_length(LPURL_COMPONENTSW lpUrlComponents,
3452                             LPDWORD lpdwUrlLength)
3453 {
3454     INTERNET_SCHEME nScheme;
3455
3456     *lpdwUrlLength = 0;
3457
3458     if (lpUrlComponents->lpszScheme)
3459     {
3460         DWORD dwLen = URL_GET_COMP_LENGTH(lpUrlComponents, Scheme);
3461         *lpdwUrlLength += dwLen;
3462         nScheme = GetInternetSchemeW(lpUrlComponents->lpszScheme, dwLen);
3463     }
3464     else
3465     {
3466         LPCWSTR scheme;
3467
3468         nScheme = lpUrlComponents->nScheme;
3469
3470         if (nScheme == INTERNET_SCHEME_DEFAULT)
3471             nScheme = INTERNET_SCHEME_HTTP;
3472         scheme = INTERNET_GetSchemeString(nScheme);
3473         *lpdwUrlLength += strlenW(scheme);
3474     }
3475
3476     (*lpdwUrlLength)++; /* ':' */
3477     if (!scheme_is_opaque(nScheme) || lpUrlComponents->lpszHostName)
3478         *lpdwUrlLength += strlen("//");
3479
3480     if (lpUrlComponents->lpszUserName)
3481     {
3482         *lpdwUrlLength += URL_GET_COMP_LENGTH(lpUrlComponents, UserName);
3483         *lpdwUrlLength += strlen("@");
3484     }
3485     else
3486     {
3487         if (lpUrlComponents->lpszPassword)
3488         {
3489             INTERNET_SetLastError(ERROR_INVALID_PARAMETER);
3490             return FALSE;
3491         }
3492     }
3493
3494     if (lpUrlComponents->lpszPassword)
3495     {
3496         *lpdwUrlLength += strlen(":");
3497         *lpdwUrlLength += URL_GET_COMP_LENGTH(lpUrlComponents, Password);
3498     }
3499
3500     if (lpUrlComponents->lpszHostName)
3501     {
3502         *lpdwUrlLength += URL_GET_COMP_LENGTH(lpUrlComponents, HostName);
3503
3504         if (!url_uses_default_port(nScheme, lpUrlComponents->nPort))
3505         {
3506             char szPort[MAX_WORD_DIGITS+1];
3507
3508             sprintf(szPort, "%d", lpUrlComponents->nPort);
3509             *lpdwUrlLength += strlen(szPort);
3510             *lpdwUrlLength += strlen(":");
3511         }
3512
3513         if (lpUrlComponents->lpszUrlPath && *lpUrlComponents->lpszUrlPath != '/')
3514             (*lpdwUrlLength)++; /* '/' */
3515     }
3516
3517     if (lpUrlComponents->lpszUrlPath)
3518         *lpdwUrlLength += URL_GET_COMP_LENGTH(lpUrlComponents, UrlPath);
3519
3520     if (lpUrlComponents->lpszExtraInfo)
3521         *lpdwUrlLength += URL_GET_COMP_LENGTH(lpUrlComponents, ExtraInfo);
3522
3523     return TRUE;
3524 }
3525
3526 static void convert_urlcomp_atow(LPURL_COMPONENTSA lpUrlComponents, LPURL_COMPONENTSW urlCompW)
3527 {
3528     INT len;
3529
3530     ZeroMemory(urlCompW, sizeof(URL_COMPONENTSW));
3531
3532     urlCompW->dwStructSize = sizeof(URL_COMPONENTSW);
3533     urlCompW->dwSchemeLength = lpUrlComponents->dwSchemeLength;
3534     urlCompW->nScheme = lpUrlComponents->nScheme;
3535     urlCompW->dwHostNameLength = lpUrlComponents->dwHostNameLength;
3536     urlCompW->nPort = lpUrlComponents->nPort;
3537     urlCompW->dwUserNameLength = lpUrlComponents->dwUserNameLength;
3538     urlCompW->dwPasswordLength = lpUrlComponents->dwPasswordLength;
3539     urlCompW->dwUrlPathLength = lpUrlComponents->dwUrlPathLength;
3540     urlCompW->dwExtraInfoLength = lpUrlComponents->dwExtraInfoLength;
3541
3542     if (lpUrlComponents->lpszScheme)
3543     {
3544         len = URL_GET_COMP_LENGTHA(lpUrlComponents, Scheme) + 1;
3545         urlCompW->lpszScheme = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
3546         MultiByteToWideChar(CP_ACP, 0, lpUrlComponents->lpszScheme,
3547                             -1, urlCompW->lpszScheme, len);
3548     }
3549
3550     if (lpUrlComponents->lpszHostName)
3551     {
3552         len = URL_GET_COMP_LENGTHA(lpUrlComponents, HostName) + 1;
3553         urlCompW->lpszHostName = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
3554         MultiByteToWideChar(CP_ACP, 0, lpUrlComponents->lpszHostName,
3555                             -1, urlCompW->lpszHostName, len);
3556     }
3557
3558     if (lpUrlComponents->lpszUserName)
3559     {
3560         len = URL_GET_COMP_LENGTHA(lpUrlComponents, UserName) + 1;
3561         urlCompW->lpszUserName = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
3562         MultiByteToWideChar(CP_ACP, 0, lpUrlComponents->lpszUserName,
3563                             -1, urlCompW->lpszUserName, len);
3564     }
3565
3566     if (lpUrlComponents->lpszPassword)
3567     {
3568         len = URL_GET_COMP_LENGTHA(lpUrlComponents, Password) + 1;
3569         urlCompW->lpszPassword = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
3570         MultiByteToWideChar(CP_ACP, 0, lpUrlComponents->lpszPassword,
3571                             -1, urlCompW->lpszPassword, len);
3572     }
3573
3574     if (lpUrlComponents->lpszUrlPath)
3575     {
3576         len = URL_GET_COMP_LENGTHA(lpUrlComponents, UrlPath) + 1;
3577         urlCompW->lpszUrlPath = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
3578         MultiByteToWideChar(CP_ACP, 0, lpUrlComponents->lpszUrlPath,
3579                             -1, urlCompW->lpszUrlPath, len);
3580     }
3581
3582     if (lpUrlComponents->lpszExtraInfo)
3583     {
3584         len = URL_GET_COMP_LENGTHA(lpUrlComponents, ExtraInfo) + 1;
3585         urlCompW->lpszExtraInfo = HeapAlloc(GetProcessHeap(), 0, len * sizeof(WCHAR));
3586         MultiByteToWideChar(CP_ACP, 0, lpUrlComponents->lpszExtraInfo,
3587                             -1, urlCompW->lpszExtraInfo, len);
3588     }
3589 }
3590
3591 /***********************************************************************
3592  *      InternetCreateUrlA (WININET.@)
3593  *
3594  * See InternetCreateUrlW.
3595  */
3596 BOOL WINAPI InternetCreateUrlA(LPURL_COMPONENTSA lpUrlComponents, DWORD dwFlags,
3597                                LPSTR lpszUrl, LPDWORD lpdwUrlLength)
3598 {
3599     BOOL ret;
3600     LPWSTR urlW = NULL;
3601     URL_COMPONENTSW urlCompW;
3602
3603     TRACE("(%p,%d,%p,%p)\n", lpUrlComponents, dwFlags, lpszUrl, lpdwUrlLength);
3604
3605     if (!lpUrlComponents || lpUrlComponents->dwStructSize != sizeof(URL_COMPONENTSW) || !lpdwUrlLength)
3606     {
3607         INTERNET_SetLastError(ERROR_INVALID_PARAMETER);
3608         return FALSE;
3609     }
3610
3611     convert_urlcomp_atow(lpUrlComponents, &urlCompW);
3612
3613     if (lpszUrl)
3614         urlW = HeapAlloc(GetProcessHeap(), 0, *lpdwUrlLength * sizeof(WCHAR));
3615
3616     ret = InternetCreateUrlW(&urlCompW, dwFlags, urlW, lpdwUrlLength);
3617
3618     if (!ret && (GetLastError() == ERROR_INSUFFICIENT_BUFFER))
3619         *lpdwUrlLength /= sizeof(WCHAR);
3620
3621     /* on success, lpdwUrlLength points to the size of urlW in WCHARS
3622     * minus one, so add one to leave room for NULL terminator
3623     */
3624     if (ret)
3625         WideCharToMultiByte(CP_ACP, 0, urlW, -1, lpszUrl, *lpdwUrlLength + 1, NULL, NULL);
3626
3627     HeapFree(GetProcessHeap(), 0, urlCompW.lpszScheme);
3628     HeapFree(GetProcessHeap(), 0, urlCompW.lpszHostName);
3629     HeapFree(GetProcessHeap(), 0, urlCompW.lpszUserName);
3630     HeapFree(GetProcessHeap(), 0, urlCompW.lpszPassword);
3631     HeapFree(GetProcessHeap(), 0, urlCompW.lpszUrlPath);
3632     HeapFree(GetProcessHeap(), 0, urlCompW.lpszExtraInfo);
3633     HeapFree(GetProcessHeap(), 0, urlW);
3634
3635     return ret;
3636 }
3637
3638 /***********************************************************************
3639  *      InternetCreateUrlW (WININET.@)
3640  *
3641  * Creates a URL from its component parts.
3642  *
3643  * PARAMS
3644  *  lpUrlComponents [I] URL Components.
3645  *  dwFlags         [I] Flags. See notes.
3646  *  lpszUrl         [I] Buffer in which to store the created URL.
3647  *  lpdwUrlLength   [I/O] On input, the length of the buffer pointed to by
3648  *                        lpszUrl in characters. On output, the number of bytes
3649  *                        required to store the URL including terminator.
3650  *
3651  * NOTES
3652  *
3653  * The dwFlags parameter can be zero or more of the following:
3654  *|ICU_ESCAPE - Generates escape sequences for unsafe characters in the path and extra info of the URL.
3655  *
3656  * RETURNS
3657  *   TRUE on success
3658  *   FALSE on failure
3659  *
3660  */
3661 BOOL WINAPI InternetCreateUrlW(LPURL_COMPONENTSW lpUrlComponents, DWORD dwFlags,
3662                                LPWSTR lpszUrl, LPDWORD lpdwUrlLength)
3663 {
3664     DWORD dwLen;
3665     INTERNET_SCHEME nScheme;
3666
3667     static const WCHAR slashSlashW[] = {'/','/'};
3668     static const WCHAR percentD[] = {'%','d',0};
3669
3670     TRACE("(%p,%d,%p,%p)\n", lpUrlComponents, dwFlags, lpszUrl, lpdwUrlLength);
3671
3672     if (!lpUrlComponents || lpUrlComponents->dwStructSize != sizeof(URL_COMPONENTSW) || !lpdwUrlLength)
3673     {
3674         INTERNET_SetLastError(ERROR_INVALID_PARAMETER);
3675         return FALSE;
3676     }
3677
3678     if (!calc_url_length(lpUrlComponents, &dwLen))
3679         return FALSE;
3680
3681     if (!lpszUrl || *lpdwUrlLength < dwLen)
3682     {
3683         *lpdwUrlLength = (dwLen + 1) * sizeof(WCHAR);
3684         INTERNET_SetLastError(ERROR_INSUFFICIENT_BUFFER);
3685         return FALSE;
3686     }
3687
3688     *lpdwUrlLength = dwLen;
3689     lpszUrl[0] = 0x00;
3690
3691     dwLen = 0;
3692
3693     if (lpUrlComponents->lpszScheme)
3694     {
3695         dwLen = URL_GET_COMP_LENGTH(lpUrlComponents, Scheme);
3696         memcpy(lpszUrl, lpUrlComponents->lpszScheme, dwLen * sizeof(WCHAR));
3697         lpszUrl += dwLen;
3698
3699         nScheme = GetInternetSchemeW(lpUrlComponents->lpszScheme, dwLen);
3700     }
3701     else
3702     {
3703         LPCWSTR scheme;
3704         nScheme = lpUrlComponents->nScheme;
3705
3706         if (nScheme == INTERNET_SCHEME_DEFAULT)
3707             nScheme = INTERNET_SCHEME_HTTP;
3708
3709         scheme = INTERNET_GetSchemeString(nScheme);
3710         dwLen = strlenW(scheme);
3711         memcpy(lpszUrl, scheme, dwLen * sizeof(WCHAR));
3712         lpszUrl += dwLen;
3713     }
3714
3715     /* all schemes are followed by at least a colon */
3716     *lpszUrl = ':';
3717     lpszUrl++;
3718
3719     if (!scheme_is_opaque(nScheme) || lpUrlComponents->lpszHostName)
3720     {
3721         memcpy(lpszUrl, slashSlashW, sizeof(slashSlashW));
3722         lpszUrl += sizeof(slashSlashW)/sizeof(slashSlashW[0]);
3723     }
3724
3725     if (lpUrlComponents->lpszUserName)
3726     {
3727         dwLen = URL_GET_COMP_LENGTH(lpUrlComponents, UserName);
3728         memcpy(lpszUrl, lpUrlComponents->lpszUserName, dwLen * sizeof(WCHAR));
3729         lpszUrl += dwLen;
3730
3731         if (lpUrlComponents->lpszPassword)
3732         {
3733             *lpszUrl = ':';
3734             lpszUrl++;
3735
3736             dwLen = URL_GET_COMP_LENGTH(lpUrlComponents, Password);
3737             memcpy(lpszUrl, lpUrlComponents->lpszPassword, dwLen * sizeof(WCHAR));
3738             lpszUrl += dwLen;
3739         }
3740
3741         *lpszUrl = '@';
3742         lpszUrl++;
3743     }
3744
3745     if (lpUrlComponents->lpszHostName)
3746     {
3747         dwLen = URL_GET_COMP_LENGTH(lpUrlComponents, HostName);
3748         memcpy(lpszUrl, lpUrlComponents->lpszHostName, dwLen * sizeof(WCHAR));
3749         lpszUrl += dwLen;
3750
3751         if (!url_uses_default_port(nScheme, lpUrlComponents->nPort))
3752         {
3753             WCHAR szPort[MAX_WORD_DIGITS+1];
3754
3755             sprintfW(szPort, percentD, lpUrlComponents->nPort);
3756             *lpszUrl = ':';
3757             lpszUrl++;
3758             dwLen = strlenW(szPort);
3759             memcpy(lpszUrl, szPort, dwLen * sizeof(WCHAR));
3760             lpszUrl += dwLen;
3761         }
3762
3763         /* add slash between hostname and path if necessary */
3764         if (lpUrlComponents->lpszUrlPath && *lpUrlComponents->lpszUrlPath != '/')
3765         {
3766             *lpszUrl = '/';
3767             lpszUrl++;
3768         }
3769     }
3770
3771     if (lpUrlComponents->lpszUrlPath)
3772     {
3773         dwLen = URL_GET_COMP_LENGTH(lpUrlComponents, UrlPath);
3774         memcpy(lpszUrl, lpUrlComponents->lpszUrlPath, dwLen * sizeof(WCHAR));
3775         lpszUrl += dwLen;
3776     }
3777
3778     if (lpUrlComponents->lpszExtraInfo)
3779     {
3780         dwLen = URL_GET_COMP_LENGTH(lpUrlComponents, ExtraInfo);
3781         memcpy(lpszUrl, lpUrlComponents->lpszExtraInfo, dwLen * sizeof(WCHAR));
3782         lpszUrl += dwLen;
3783     }
3784
3785     *lpszUrl = '\0';
3786
3787     return TRUE;
3788 }
3789
3790 /***********************************************************************
3791  *      InternetConfirmZoneCrossingA (WININET.@)
3792  *
3793  */
3794 DWORD WINAPI InternetConfirmZoneCrossingA( HWND hWnd, LPSTR szUrlPrev, LPSTR szUrlNew, BOOL bPost )
3795 {
3796     FIXME("(%p, %s, %s, %x) stub\n", hWnd, debugstr_a(szUrlPrev), debugstr_a(szUrlNew), bPost);
3797     return ERROR_SUCCESS;
3798 }
3799
3800 /***********************************************************************
3801  *      InternetConfirmZoneCrossingW (WININET.@)
3802  *
3803  */
3804 DWORD WINAPI InternetConfirmZoneCrossingW( HWND hWnd, LPWSTR szUrlPrev, LPWSTR szUrlNew, BOOL bPost )
3805 {
3806     FIXME("(%p, %s, %s, %x) stub\n", hWnd, debugstr_w(szUrlPrev), debugstr_w(szUrlNew), bPost);
3807     return ERROR_SUCCESS;
3808 }
3809
3810 static DWORD zone_preference = 3;
3811
3812 /***********************************************************************
3813  *      PrivacySetZonePreferenceW (WININET.@)
3814  */
3815 DWORD WINAPI PrivacySetZonePreferenceW( DWORD zone, DWORD type, DWORD template, LPCWSTR preference )
3816 {
3817     FIXME( "%x %x %x %s: stub\n", zone, type, template, debugstr_w(preference) );
3818
3819     zone_preference = template;
3820     return 0;
3821 }
3822
3823 /***********************************************************************
3824  *      PrivacyGetZonePreferenceW (WININET.@)
3825  */
3826 DWORD WINAPI PrivacyGetZonePreferenceW( DWORD zone, DWORD type, LPDWORD template,
3827                                         LPWSTR preference, LPDWORD length )
3828 {
3829     FIXME( "%x %x %p %p %p: stub\n", zone, type, template, preference, length );
3830
3831     if (template) *template = zone_preference;
3832     return 0;
3833 }
3834
3835 DWORD WINAPI InternetDialA( HWND hwndParent, LPSTR lpszConnectoid, DWORD dwFlags,
3836                             DWORD_PTR* lpdwConnection, DWORD dwReserved )
3837 {
3838     FIXME("(%p, %p, 0x%08x, %p, 0x%08x) stub\n", hwndParent, lpszConnectoid, dwFlags,
3839           lpdwConnection, dwReserved);
3840     return ERROR_SUCCESS;
3841 }
3842
3843 DWORD WINAPI InternetDialW( HWND hwndParent, LPWSTR lpszConnectoid, DWORD dwFlags,
3844                             DWORD_PTR* lpdwConnection, DWORD dwReserved )
3845 {
3846     FIXME("(%p, %p, 0x%08x, %p, 0x%08x) stub\n", hwndParent, lpszConnectoid, dwFlags,
3847           lpdwConnection, dwReserved);
3848     return ERROR_SUCCESS;
3849 }
3850
3851 BOOL WINAPI InternetGoOnlineA( LPSTR lpszURL, HWND hwndParent, DWORD dwReserved )
3852 {
3853     FIXME("(%s, %p, 0x%08x) stub\n", debugstr_a(lpszURL), hwndParent, dwReserved);
3854     return TRUE;
3855 }
3856
3857 BOOL WINAPI InternetGoOnlineW( LPWSTR lpszURL, HWND hwndParent, DWORD dwReserved )
3858 {
3859     FIXME("(%s, %p, 0x%08x) stub\n", debugstr_w(lpszURL), hwndParent, dwReserved);
3860     return TRUE;
3861 }
3862
3863 DWORD WINAPI InternetHangUp( DWORD_PTR dwConnection, DWORD dwReserved )
3864 {
3865     FIXME("(0x%08lx, 0x%08x) stub\n", dwConnection, dwReserved);
3866     return ERROR_SUCCESS;
3867 }
3868
3869 BOOL WINAPI CreateMD5SSOHash( PWSTR pszChallengeInfo, PWSTR pwszRealm, PWSTR pwszTarget,
3870                               PBYTE pbHexHash )
3871 {
3872     FIXME("(%s, %s, %s, %p) stub\n", debugstr_w(pszChallengeInfo), debugstr_w(pwszRealm),
3873           debugstr_w(pwszTarget), pbHexHash);
3874     return FALSE;
3875 }
3876
3877 BOOL WINAPI ResumeSuspendedDownload( HINTERNET hInternet, DWORD dwError )
3878 {
3879     FIXME("(%p, 0x%08x) stub\n", hInternet, dwError);
3880     return FALSE;
3881 }
3882
3883 BOOL WINAPI InternetQueryFortezzaStatus(DWORD *a, DWORD_PTR b)
3884 {
3885     FIXME("(%p, %08lx) stub\n", a, b);
3886     return 0;
3887 }