2 * WININET - Ftp implementation
4 * Copyright 1999 Corel Corporation
5 * Copyright 2004 Mike McCormack for CodeWeavers
6 * Copyright 2004 Kevin Koltzau
7 * Copyright 2007 Hans Leidekker
12 * Copyright 2000 Andreas Mohr
13 * Copyright 2002 Jaco Greeff
15 * This library is free software; you can redistribute it and/or
16 * modify it under the terms of the GNU Lesser General Public
17 * License as published by the Free Software Foundation; either
18 * version 2.1 of the License, or (at your option) any later version.
20 * This library is distributed in the hope that it will be useful,
21 * but WITHOUT ANY WARRANTY; without even the implied warranty of
22 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
23 * Lesser General Public License for more details.
25 * You should have received a copy of the GNU Lesser General Public
26 * License along with this library; if not, write to the Free Software
27 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
31 #include "wine/port.h"
33 #if defined(__MINGW32__) || defined (_MSC_VER)
42 #include <sys/types.h>
43 #ifdef HAVE_SYS_SOCKET_H
44 # include <sys/socket.h>
49 #ifdef HAVE_SYS_IOCTL_H
50 # include <sys/ioctl.h>
66 #include "wine/debug.h"
69 WINE_DEFAULT_DEBUG_CHANNEL(wininet
);
71 typedef struct _WININETFTPSESSIONW WININETFTPSESSIONW
;
75 WININETHANDLEHEADER hdr
;
76 WININETFTPSESSIONW
*lpFtpSession
;
79 } WININETFTPFILE
, *LPWININETFTPFILE
;
81 typedef struct _WININETFTPSESSIONW
83 WININETHANDLEHEADER hdr
;
84 WININETAPPINFOW
*lpAppInfo
;
87 int pasvSocket
; /* data socket connected by us in case of passive FTP */
88 LPWININETFTPFILE download_in_progress
;
89 struct sockaddr_in socketAddress
;
90 struct sockaddr_in lstnSocketAddress
;
93 } *LPWININETFTPSESSIONW
;
100 SYSTEMTIME tmLastModified
;
101 unsigned short permissions
;
102 } FILEPROPERTIESW
, *LPFILEPROPERTIESW
;
106 WININETHANDLEHEADER hdr
;
107 WININETFTPSESSIONW
*lpFtpSession
;
110 LPFILEPROPERTIESW lpafp
;
111 } WININETFTPFINDNEXTW
, *LPWININETFTPFINDNEXTW
;
113 #define DATA_PACKET_SIZE 0x2000
114 #define szCRLF "\r\n"
115 #define MAX_BACKLOG 5
117 /* Testing shows that Windows only accepts dwFlags where the last
118 * 3 (yes 3) bits define FTP_TRANSFER_TYPE_UNKNOWN, FTP_TRANSFER_TYPE_ASCII or FTP_TRANSFER_TYPE_BINARY.
120 #define FTP_CONDITION_MASK 0x0007
123 /* FTP commands with arguments. */
139 /* FTP commands without arguments. */
148 static const CHAR
*const szFtpCommands
[] = {
171 static const CHAR szMonths
[] = "JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC";
172 static const WCHAR szNoAccount
[] = {'n','o','a','c','c','o','u','n','t','\0'};
174 static BOOL
FTP_SendCommand(INT nSocket
, FTP_COMMAND ftpCmd
, LPCWSTR lpszParam
,
175 INTERNET_STATUS_CALLBACK lpfnStatusCB
, LPWININETHANDLEHEADER hdr
, DWORD_PTR dwContext
);
176 static BOOL
FTP_SendStore(LPWININETFTPSESSIONW lpwfs
, LPCWSTR lpszRemoteFile
, DWORD dwType
);
177 static BOOL
FTP_GetDataSocket(LPWININETFTPSESSIONW lpwfs
, LPINT nDataSocket
);
178 static BOOL
FTP_SendData(LPWININETFTPSESSIONW lpwfs
, INT nDataSocket
, HANDLE hFile
);
179 static INT
FTP_ReceiveResponse(LPWININETFTPSESSIONW lpwfs
, DWORD_PTR dwContext
);
180 static BOOL
FTP_SendRetrieve(LPWININETFTPSESSIONW lpwfs
, LPCWSTR lpszRemoteFile
, DWORD dwType
);
181 static BOOL
FTP_RetrieveFileData(LPWININETFTPSESSIONW lpwfs
, INT nDataSocket
, HANDLE hFile
);
182 static BOOL
FTP_InitListenSocket(LPWININETFTPSESSIONW lpwfs
);
183 static BOOL
FTP_ConnectToHost(LPWININETFTPSESSIONW lpwfs
);
184 static BOOL
FTP_SendPassword(LPWININETFTPSESSIONW lpwfs
);
185 static BOOL
FTP_SendAccount(LPWININETFTPSESSIONW lpwfs
);
186 static BOOL
FTP_SendType(LPWININETFTPSESSIONW lpwfs
, DWORD dwType
);
187 static BOOL
FTP_SendPort(LPWININETFTPSESSIONW lpwfs
);
188 static BOOL
FTP_DoPassive(LPWININETFTPSESSIONW lpwfs
);
189 static BOOL
FTP_SendPortOrPasv(LPWININETFTPSESSIONW lpwfs
);
190 static BOOL
FTP_ParsePermission(LPCSTR lpszPermission
, LPFILEPROPERTIESW lpfp
);
191 static BOOL
FTP_ParseNextFile(INT nSocket
, LPCWSTR lpszSearchFile
, LPFILEPROPERTIESW fileprop
);
192 static BOOL
FTP_ParseDirectory(LPWININETFTPSESSIONW lpwfs
, INT nSocket
, LPCWSTR lpszSearchFile
,
193 LPFILEPROPERTIESW
*lpafp
, LPDWORD dwfp
);
194 static HINTERNET
FTP_ReceiveFileList(LPWININETFTPSESSIONW lpwfs
, INT nSocket
, LPCWSTR lpszSearchFile
,
195 LPWIN32_FIND_DATAW lpFindFileData
, DWORD_PTR dwContext
);
196 static DWORD
FTP_SetResponseError(DWORD dwResponse
);
197 static BOOL
FTP_ConvertFileProp(LPFILEPROPERTIESW lpafp
, LPWIN32_FIND_DATAW lpFindFileData
);
198 static BOOL
FTP_FtpPutFileW(LPWININETFTPSESSIONW lpwfs
, LPCWSTR lpszLocalFile
,
199 LPCWSTR lpszNewRemoteFile
, DWORD dwFlags
, DWORD_PTR dwContext
);
200 static BOOL
FTP_FtpSetCurrentDirectoryW(LPWININETFTPSESSIONW lpwfs
, LPCWSTR lpszDirectory
);
201 static BOOL
FTP_FtpCreateDirectoryW(LPWININETFTPSESSIONW lpwfs
, LPCWSTR lpszDirectory
);
202 static HINTERNET
FTP_FtpFindFirstFileW(LPWININETFTPSESSIONW lpwfs
,
203 LPCWSTR lpszSearchFile
, LPWIN32_FIND_DATAW lpFindFileData
, DWORD dwFlags
, DWORD_PTR dwContext
);
204 static BOOL
FTP_FtpGetCurrentDirectoryW(LPWININETFTPSESSIONW lpwfs
, LPWSTR lpszCurrentDirectory
,
205 LPDWORD lpdwCurrentDirectory
);
206 static BOOL
FTP_FtpRenameFileW(LPWININETFTPSESSIONW lpwfs
, LPCWSTR lpszSrc
, LPCWSTR lpszDest
);
207 static BOOL
FTP_FtpRemoveDirectoryW(LPWININETFTPSESSIONW lpwfs
, LPCWSTR lpszDirectory
);
208 static BOOL
FTP_FtpDeleteFileW(LPWININETFTPSESSIONW lpwfs
, LPCWSTR lpszFileName
);
209 static BOOL
FTP_FtpGetFileW(LPWININETFTPSESSIONW lpwfs
, LPCWSTR lpszRemoteFile
, LPCWSTR lpszNewFile
,
210 BOOL fFailIfExists
, DWORD dwLocalFlagsAttribute
, DWORD dwInternetFlags
,
211 DWORD_PTR dwContext
);
214 /***********************************************************************
215 * FtpPutFileA (WININET.@)
217 * Uploads a file to the FTP server
224 BOOL WINAPI
FtpPutFileA(HINTERNET hConnect
, LPCSTR lpszLocalFile
,
225 LPCSTR lpszNewRemoteFile
, DWORD dwFlags
, DWORD_PTR dwContext
)
227 LPWSTR lpwzLocalFile
;
228 LPWSTR lpwzNewRemoteFile
;
231 lpwzLocalFile
= lpszLocalFile
?WININET_strdup_AtoW(lpszLocalFile
):NULL
;
232 lpwzNewRemoteFile
= lpszNewRemoteFile
?WININET_strdup_AtoW(lpszNewRemoteFile
):NULL
;
233 ret
= FtpPutFileW(hConnect
, lpwzLocalFile
, lpwzNewRemoteFile
,
235 HeapFree(GetProcessHeap(), 0, lpwzLocalFile
);
236 HeapFree(GetProcessHeap(), 0, lpwzNewRemoteFile
);
240 static void AsyncFtpPutFileProc(WORKREQUEST
*workRequest
)
242 struct WORKREQ_FTPPUTFILEW
const *req
= &workRequest
->u
.FtpPutFileW
;
243 LPWININETFTPSESSIONW lpwfs
= (LPWININETFTPSESSIONW
) workRequest
->hdr
;
245 TRACE("%p\n", lpwfs
);
247 FTP_FtpPutFileW(lpwfs
, req
->lpszLocalFile
,
248 req
->lpszNewRemoteFile
, req
->dwFlags
, req
->dwContext
);
250 HeapFree(GetProcessHeap(), 0, req
->lpszLocalFile
);
251 HeapFree(GetProcessHeap(), 0, req
->lpszNewRemoteFile
);
254 /***********************************************************************
255 * FtpPutFileW (WININET.@)
257 * Uploads a file to the FTP server
264 BOOL WINAPI
FtpPutFileW(HINTERNET hConnect
, LPCWSTR lpszLocalFile
,
265 LPCWSTR lpszNewRemoteFile
, DWORD dwFlags
, DWORD_PTR dwContext
)
267 LPWININETFTPSESSIONW lpwfs
;
268 LPWININETAPPINFOW hIC
= NULL
;
271 if (!lpszLocalFile
|| !lpszNewRemoteFile
)
273 INTERNET_SetLastError(ERROR_INVALID_PARAMETER
);
277 lpwfs
= (LPWININETFTPSESSIONW
) WININET_GetObject( hConnect
);
280 INTERNET_SetLastError(ERROR_INVALID_HANDLE
);
284 if (WH_HFTPSESSION
!= lpwfs
->hdr
.htype
)
286 INTERNET_SetLastError(ERROR_INTERNET_INCORRECT_HANDLE_TYPE
);
290 if (lpwfs
->download_in_progress
!= NULL
)
292 INTERNET_SetLastError(ERROR_FTP_TRANSFER_IN_PROGRESS
);
296 if ((dwFlags
& FTP_CONDITION_MASK
) > FTP_TRANSFER_TYPE_BINARY
)
298 INTERNET_SetLastError(ERROR_INVALID_PARAMETER
);
302 hIC
= lpwfs
->lpAppInfo
;
303 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
305 WORKREQUEST workRequest
;
306 struct WORKREQ_FTPPUTFILEW
*req
= &workRequest
.u
.FtpPutFileW
;
308 workRequest
.asyncproc
= AsyncFtpPutFileProc
;
309 workRequest
.hdr
= WININET_AddRef( &lpwfs
->hdr
);
310 req
->lpszLocalFile
= WININET_strdupW(lpszLocalFile
);
311 req
->lpszNewRemoteFile
= WININET_strdupW(lpszNewRemoteFile
);
312 req
->dwFlags
= dwFlags
;
313 req
->dwContext
= dwContext
;
315 r
= INTERNET_AsyncCall(&workRequest
);
319 r
= FTP_FtpPutFileW(lpwfs
, lpszLocalFile
,
320 lpszNewRemoteFile
, dwFlags
, dwContext
);
324 WININET_Release( &lpwfs
->hdr
);
329 /***********************************************************************
330 * FTP_FtpPutFileW (Internal)
332 * Uploads a file to the FTP server
339 static BOOL
FTP_FtpPutFileW(LPWININETFTPSESSIONW lpwfs
, LPCWSTR lpszLocalFile
,
340 LPCWSTR lpszNewRemoteFile
, DWORD dwFlags
, DWORD_PTR dwContext
)
343 BOOL bSuccess
= FALSE
;
344 LPWININETAPPINFOW hIC
= NULL
;
347 TRACE(" lpszLocalFile(%s) lpszNewRemoteFile(%s)\n", debugstr_w(lpszLocalFile
), debugstr_w(lpszNewRemoteFile
));
349 /* Clear any error information */
350 INTERNET_SetLastError(0);
352 /* Open file to be uploaded */
353 if (INVALID_HANDLE_VALUE
==
354 (hFile
= CreateFileW(lpszLocalFile
, GENERIC_READ
, 0, 0, OPEN_EXISTING
, 0, 0)))
355 /* Let CreateFile set the appropriate error */
358 hIC
= lpwfs
->lpAppInfo
;
360 SendAsyncCallback(&lpwfs
->hdr
, lpwfs
->hdr
.dwContext
, INTERNET_STATUS_SENDING_REQUEST
, NULL
, 0);
362 if (FTP_SendStore(lpwfs
, lpszNewRemoteFile
, dwFlags
))
366 /* Get data socket to server */
367 if (FTP_GetDataSocket(lpwfs
, &nDataSocket
))
369 FTP_SendData(lpwfs
, nDataSocket
, hFile
);
370 closesocket(nDataSocket
);
371 nResCode
= FTP_ReceiveResponse(lpwfs
, dwContext
);
377 FTP_SetResponseError(nResCode
);
382 if (lpwfs
->lstnSocket
!= -1)
383 closesocket(lpwfs
->lstnSocket
);
385 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
387 INTERNET_ASYNC_RESULT iar
;
389 iar
.dwResult
= (DWORD
)bSuccess
;
390 iar
.dwError
= bSuccess
? ERROR_SUCCESS
: INTERNET_GetLastError();
391 SendAsyncCallback(&lpwfs
->hdr
, lpwfs
->hdr
.dwContext
, INTERNET_STATUS_REQUEST_COMPLETE
,
392 &iar
, sizeof(INTERNET_ASYNC_RESULT
));
401 /***********************************************************************
402 * FtpSetCurrentDirectoryA (WININET.@)
404 * Change the working directory on the FTP server
411 BOOL WINAPI
FtpSetCurrentDirectoryA(HINTERNET hConnect
, LPCSTR lpszDirectory
)
413 LPWSTR lpwzDirectory
;
416 lpwzDirectory
= lpszDirectory
?WININET_strdup_AtoW(lpszDirectory
):NULL
;
417 ret
= FtpSetCurrentDirectoryW(hConnect
, lpwzDirectory
);
418 HeapFree(GetProcessHeap(), 0, lpwzDirectory
);
423 static void AsyncFtpSetCurrentDirectoryProc(WORKREQUEST
*workRequest
)
425 struct WORKREQ_FTPSETCURRENTDIRECTORYW
const *req
= &workRequest
->u
.FtpSetCurrentDirectoryW
;
426 LPWININETFTPSESSIONW lpwfs
= (LPWININETFTPSESSIONW
) workRequest
->hdr
;
428 TRACE("%p\n", lpwfs
);
430 FTP_FtpSetCurrentDirectoryW(lpwfs
, req
->lpszDirectory
);
431 HeapFree(GetProcessHeap(), 0, req
->lpszDirectory
);
434 /***********************************************************************
435 * FtpSetCurrentDirectoryW (WININET.@)
437 * Change the working directory on the FTP server
444 BOOL WINAPI
FtpSetCurrentDirectoryW(HINTERNET hConnect
, LPCWSTR lpszDirectory
)
446 LPWININETFTPSESSIONW lpwfs
= NULL
;
447 LPWININETAPPINFOW hIC
= NULL
;
452 INTERNET_SetLastError(ERROR_INVALID_PARAMETER
);
456 lpwfs
= (LPWININETFTPSESSIONW
) WININET_GetObject( hConnect
);
457 if (NULL
== lpwfs
|| WH_HFTPSESSION
!= lpwfs
->hdr
.htype
)
459 INTERNET_SetLastError(ERROR_INTERNET_INCORRECT_HANDLE_TYPE
);
463 if (lpwfs
->download_in_progress
!= NULL
)
465 INTERNET_SetLastError(ERROR_FTP_TRANSFER_IN_PROGRESS
);
469 TRACE("lpszDirectory(%s)\n", debugstr_w(lpszDirectory
));
471 hIC
= lpwfs
->lpAppInfo
;
472 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
474 WORKREQUEST workRequest
;
475 struct WORKREQ_FTPSETCURRENTDIRECTORYW
*req
;
477 workRequest
.asyncproc
= AsyncFtpSetCurrentDirectoryProc
;
478 workRequest
.hdr
= WININET_AddRef( &lpwfs
->hdr
);
479 req
= &workRequest
.u
.FtpSetCurrentDirectoryW
;
480 req
->lpszDirectory
= WININET_strdupW(lpszDirectory
);
482 r
= INTERNET_AsyncCall(&workRequest
);
486 r
= FTP_FtpSetCurrentDirectoryW(lpwfs
, lpszDirectory
);
491 WININET_Release( &lpwfs
->hdr
);
497 /***********************************************************************
498 * FTP_FtpSetCurrentDirectoryW (Internal)
500 * Change the working directory on the FTP server
507 static BOOL
FTP_FtpSetCurrentDirectoryW(LPWININETFTPSESSIONW lpwfs
, LPCWSTR lpszDirectory
)
510 LPWININETAPPINFOW hIC
= NULL
;
511 DWORD bSuccess
= FALSE
;
513 TRACE("lpszDirectory(%s)\n", debugstr_w(lpszDirectory
));
515 /* Clear any error information */
516 INTERNET_SetLastError(0);
518 hIC
= lpwfs
->lpAppInfo
;
519 if (!FTP_SendCommand(lpwfs
->sndSocket
, FTP_CMD_CWD
, lpszDirectory
,
520 lpwfs
->hdr
.lpfnStatusCB
, &lpwfs
->hdr
, lpwfs
->hdr
.dwContext
))
523 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
530 FTP_SetResponseError(nResCode
);
534 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
536 INTERNET_ASYNC_RESULT iar
;
538 iar
.dwResult
= bSuccess
;
539 iar
.dwError
= bSuccess
? ERROR_SUCCESS
: ERROR_INTERNET_EXTENDED_ERROR
;
540 SendAsyncCallback(&lpwfs
->hdr
, lpwfs
->hdr
.dwContext
, INTERNET_STATUS_REQUEST_COMPLETE
,
541 &iar
, sizeof(INTERNET_ASYNC_RESULT
));
547 /***********************************************************************
548 * FtpCreateDirectoryA (WININET.@)
550 * Create new directory on the FTP server
557 BOOL WINAPI
FtpCreateDirectoryA(HINTERNET hConnect
, LPCSTR lpszDirectory
)
559 LPWSTR lpwzDirectory
;
562 lpwzDirectory
= lpszDirectory
?WININET_strdup_AtoW(lpszDirectory
):NULL
;
563 ret
= FtpCreateDirectoryW(hConnect
, lpwzDirectory
);
564 HeapFree(GetProcessHeap(), 0, lpwzDirectory
);
569 static void AsyncFtpCreateDirectoryProc(WORKREQUEST
*workRequest
)
571 struct WORKREQ_FTPCREATEDIRECTORYW
const *req
= &workRequest
->u
.FtpCreateDirectoryW
;
572 LPWININETFTPSESSIONW lpwfs
= (LPWININETFTPSESSIONW
) workRequest
->hdr
;
574 TRACE(" %p\n", lpwfs
);
576 FTP_FtpCreateDirectoryW(lpwfs
, req
->lpszDirectory
);
577 HeapFree(GetProcessHeap(), 0, req
->lpszDirectory
);
580 /***********************************************************************
581 * FtpCreateDirectoryW (WININET.@)
583 * Create new directory on the FTP server
590 BOOL WINAPI
FtpCreateDirectoryW(HINTERNET hConnect
, LPCWSTR lpszDirectory
)
592 LPWININETFTPSESSIONW lpwfs
;
593 LPWININETAPPINFOW hIC
= NULL
;
596 lpwfs
= (LPWININETFTPSESSIONW
) WININET_GetObject( hConnect
);
599 INTERNET_SetLastError(ERROR_INVALID_HANDLE
);
603 if (WH_HFTPSESSION
!= lpwfs
->hdr
.htype
)
605 INTERNET_SetLastError(ERROR_INTERNET_INCORRECT_HANDLE_TYPE
);
609 if (lpwfs
->download_in_progress
!= NULL
)
611 INTERNET_SetLastError(ERROR_FTP_TRANSFER_IN_PROGRESS
);
617 INTERNET_SetLastError(ERROR_INVALID_PARAMETER
);
621 hIC
= lpwfs
->lpAppInfo
;
622 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
624 WORKREQUEST workRequest
;
625 struct WORKREQ_FTPCREATEDIRECTORYW
*req
;
627 workRequest
.asyncproc
= AsyncFtpCreateDirectoryProc
;
628 workRequest
.hdr
= WININET_AddRef( &lpwfs
->hdr
);
629 req
= &workRequest
.u
.FtpCreateDirectoryW
;
630 req
->lpszDirectory
= WININET_strdupW(lpszDirectory
);
632 r
= INTERNET_AsyncCall(&workRequest
);
636 r
= FTP_FtpCreateDirectoryW(lpwfs
, lpszDirectory
);
639 WININET_Release( &lpwfs
->hdr
);
645 /***********************************************************************
646 * FTP_FtpCreateDirectoryW (Internal)
648 * Create new directory on the FTP server
655 static BOOL
FTP_FtpCreateDirectoryW(LPWININETFTPSESSIONW lpwfs
, LPCWSTR lpszDirectory
)
658 BOOL bSuccess
= FALSE
;
659 LPWININETAPPINFOW hIC
= NULL
;
661 TRACE("lpszDirectory(%s)\n", debugstr_w(lpszDirectory
));
663 /* Clear any error information */
664 INTERNET_SetLastError(0);
666 if (!FTP_SendCommand(lpwfs
->sndSocket
, FTP_CMD_MKD
, lpszDirectory
, 0, 0, 0))
669 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
675 FTP_SetResponseError(nResCode
);
679 hIC
= lpwfs
->lpAppInfo
;
680 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
682 INTERNET_ASYNC_RESULT iar
;
684 iar
.dwResult
= (DWORD
)bSuccess
;
685 iar
.dwError
= bSuccess
? ERROR_SUCCESS
: INTERNET_GetLastError();
686 SendAsyncCallback(&lpwfs
->hdr
, lpwfs
->hdr
.dwContext
, INTERNET_STATUS_REQUEST_COMPLETE
,
687 &iar
, sizeof(INTERNET_ASYNC_RESULT
));
693 /***********************************************************************
694 * FtpFindFirstFileA (WININET.@)
696 * Search the specified directory
699 * HINTERNET on success
703 HINTERNET WINAPI
FtpFindFirstFileA(HINTERNET hConnect
,
704 LPCSTR lpszSearchFile
, LPWIN32_FIND_DATAA lpFindFileData
, DWORD dwFlags
, DWORD_PTR dwContext
)
706 LPWSTR lpwzSearchFile
;
707 WIN32_FIND_DATAW wfd
;
708 LPWIN32_FIND_DATAW lpFindFileDataW
;
711 lpwzSearchFile
= lpszSearchFile
?WININET_strdup_AtoW(lpszSearchFile
):NULL
;
712 lpFindFileDataW
= lpFindFileData
?&wfd
:NULL
;
713 ret
= FtpFindFirstFileW(hConnect
, lpwzSearchFile
, lpFindFileDataW
, dwFlags
, dwContext
);
714 HeapFree(GetProcessHeap(), 0, lpwzSearchFile
);
717 WININET_find_data_WtoA(lpFindFileDataW
, lpFindFileData
);
723 static void AsyncFtpFindFirstFileProc(WORKREQUEST
*workRequest
)
725 struct WORKREQ_FTPFINDFIRSTFILEW
const *req
= &workRequest
->u
.FtpFindFirstFileW
;
726 LPWININETFTPSESSIONW lpwfs
= (LPWININETFTPSESSIONW
) workRequest
->hdr
;
728 TRACE("%p\n", lpwfs
);
730 FTP_FtpFindFirstFileW(lpwfs
, req
->lpszSearchFile
,
731 req
->lpFindFileData
, req
->dwFlags
, req
->dwContext
);
732 HeapFree(GetProcessHeap(), 0, req
->lpszSearchFile
);
735 /***********************************************************************
736 * FtpFindFirstFileW (WININET.@)
738 * Search the specified directory
741 * HINTERNET on success
745 HINTERNET WINAPI
FtpFindFirstFileW(HINTERNET hConnect
,
746 LPCWSTR lpszSearchFile
, LPWIN32_FIND_DATAW lpFindFileData
, DWORD dwFlags
, DWORD_PTR dwContext
)
748 LPWININETFTPSESSIONW lpwfs
;
749 LPWININETAPPINFOW hIC
= NULL
;
752 lpwfs
= (LPWININETFTPSESSIONW
) WININET_GetObject( hConnect
);
753 if (NULL
== lpwfs
|| WH_HFTPSESSION
!= lpwfs
->hdr
.htype
)
755 INTERNET_SetLastError(ERROR_INTERNET_INCORRECT_HANDLE_TYPE
);
759 if (lpwfs
->download_in_progress
!= NULL
)
761 INTERNET_SetLastError(ERROR_FTP_TRANSFER_IN_PROGRESS
);
765 hIC
= lpwfs
->lpAppInfo
;
766 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
768 WORKREQUEST workRequest
;
769 struct WORKREQ_FTPFINDFIRSTFILEW
*req
;
771 workRequest
.asyncproc
= AsyncFtpFindFirstFileProc
;
772 workRequest
.hdr
= WININET_AddRef( &lpwfs
->hdr
);
773 req
= &workRequest
.u
.FtpFindFirstFileW
;
774 req
->lpszSearchFile
= (lpszSearchFile
== NULL
) ? NULL
: WININET_strdupW(lpszSearchFile
);
775 req
->lpFindFileData
= lpFindFileData
;
776 req
->dwFlags
= dwFlags
;
777 req
->dwContext
= dwContext
;
779 INTERNET_AsyncCall(&workRequest
);
784 r
= FTP_FtpFindFirstFileW(lpwfs
, lpszSearchFile
, lpFindFileData
,
789 WININET_Release( &lpwfs
->hdr
);
795 /***********************************************************************
796 * FTP_FtpFindFirstFileW (Internal)
798 * Search the specified directory
801 * HINTERNET on success
805 static HINTERNET
FTP_FtpFindFirstFileW(LPWININETFTPSESSIONW lpwfs
,
806 LPCWSTR lpszSearchFile
, LPWIN32_FIND_DATAW lpFindFileData
, DWORD dwFlags
, DWORD_PTR dwContext
)
809 LPWININETAPPINFOW hIC
= NULL
;
810 HINTERNET hFindNext
= NULL
;
814 /* Clear any error information */
815 INTERNET_SetLastError(0);
817 if (!FTP_InitListenSocket(lpwfs
))
820 if (!FTP_SendType(lpwfs
, INTERNET_FLAG_TRANSFER_ASCII
))
823 if (!FTP_SendPortOrPasv(lpwfs
))
826 if (!FTP_SendCommand(lpwfs
->sndSocket
, FTP_CMD_LIST
, NULL
,
827 lpwfs
->hdr
.lpfnStatusCB
, &lpwfs
->hdr
, lpwfs
->hdr
.dwContext
))
830 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
833 if (nResCode
== 125 || nResCode
== 150)
837 /* Get data socket to server */
838 if (FTP_GetDataSocket(lpwfs
, &nDataSocket
))
840 hFindNext
= FTP_ReceiveFileList(lpwfs
, nDataSocket
, lpszSearchFile
, lpFindFileData
, dwContext
);
841 closesocket(nDataSocket
);
842 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
843 if (nResCode
!= 226 && nResCode
!= 250)
844 INTERNET_SetLastError(ERROR_NO_MORE_FILES
);
848 FTP_SetResponseError(nResCode
);
852 if (lpwfs
->lstnSocket
!= -1)
853 closesocket(lpwfs
->lstnSocket
);
855 hIC
= lpwfs
->lpAppInfo
;
856 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
858 INTERNET_ASYNC_RESULT iar
;
862 iar
.dwResult
= (DWORD_PTR
)hFindNext
;
863 iar
.dwError
= ERROR_SUCCESS
;
864 SendAsyncCallback(&lpwfs
->hdr
, lpwfs
->hdr
.dwContext
, INTERNET_STATUS_HANDLE_CREATED
,
865 &iar
, sizeof(INTERNET_ASYNC_RESULT
));
868 iar
.dwResult
= (DWORD_PTR
)hFindNext
;
869 iar
.dwError
= hFindNext
? ERROR_SUCCESS
: INTERNET_GetLastError();
870 SendAsyncCallback(&lpwfs
->hdr
, lpwfs
->hdr
.dwContext
, INTERNET_STATUS_REQUEST_COMPLETE
,
871 &iar
, sizeof(INTERNET_ASYNC_RESULT
));
878 /***********************************************************************
879 * FtpGetCurrentDirectoryA (WININET.@)
881 * Retrieves the current directory
888 BOOL WINAPI
FtpGetCurrentDirectoryA(HINTERNET hFtpSession
, LPSTR lpszCurrentDirectory
,
889 LPDWORD lpdwCurrentDirectory
)
895 if(lpdwCurrentDirectory
) {
896 len
= *lpdwCurrentDirectory
;
897 if(lpszCurrentDirectory
)
899 dir
= HeapAlloc(GetProcessHeap(), 0, len
* sizeof(WCHAR
));
902 INTERNET_SetLastError(ERROR_OUTOFMEMORY
);
907 ret
= FtpGetCurrentDirectoryW(hFtpSession
, lpszCurrentDirectory
?dir
:NULL
, lpdwCurrentDirectory
?&len
:NULL
);
909 if (ret
&& lpszCurrentDirectory
)
910 WideCharToMultiByte(CP_ACP
, 0, dir
, -1, lpszCurrentDirectory
, len
, NULL
, NULL
);
912 if (lpdwCurrentDirectory
) *lpdwCurrentDirectory
= len
;
913 HeapFree(GetProcessHeap(), 0, dir
);
918 static void AsyncFtpGetCurrentDirectoryProc(WORKREQUEST
*workRequest
)
920 struct WORKREQ_FTPGETCURRENTDIRECTORYW
const *req
= &workRequest
->u
.FtpGetCurrentDirectoryW
;
921 LPWININETFTPSESSIONW lpwfs
= (LPWININETFTPSESSIONW
) workRequest
->hdr
;
923 TRACE("%p\n", lpwfs
);
925 FTP_FtpGetCurrentDirectoryW(lpwfs
, req
->lpszDirectory
, req
->lpdwDirectory
);
928 /***********************************************************************
929 * FtpGetCurrentDirectoryW (WININET.@)
931 * Retrieves the current directory
938 BOOL WINAPI
FtpGetCurrentDirectoryW(HINTERNET hFtpSession
, LPWSTR lpszCurrentDirectory
,
939 LPDWORD lpdwCurrentDirectory
)
941 LPWININETFTPSESSIONW lpwfs
;
942 LPWININETAPPINFOW hIC
= NULL
;
945 TRACE("%p %p %p\n", hFtpSession
, lpszCurrentDirectory
, lpdwCurrentDirectory
);
947 lpwfs
= (LPWININETFTPSESSIONW
) WININET_GetObject( hFtpSession
);
950 INTERNET_SetLastError(ERROR_INVALID_HANDLE
);
954 if (WH_HFTPSESSION
!= lpwfs
->hdr
.htype
)
956 INTERNET_SetLastError(ERROR_INTERNET_INCORRECT_HANDLE_TYPE
);
960 if (!lpdwCurrentDirectory
)
962 INTERNET_SetLastError(ERROR_INVALID_PARAMETER
);
966 if (lpszCurrentDirectory
== NULL
)
968 INTERNET_SetLastError(ERROR_INSUFFICIENT_BUFFER
);
972 if (lpwfs
->download_in_progress
!= NULL
)
974 INTERNET_SetLastError(ERROR_FTP_TRANSFER_IN_PROGRESS
);
978 hIC
= lpwfs
->lpAppInfo
;
979 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
981 WORKREQUEST workRequest
;
982 struct WORKREQ_FTPGETCURRENTDIRECTORYW
*req
;
984 workRequest
.asyncproc
= AsyncFtpGetCurrentDirectoryProc
;
985 workRequest
.hdr
= WININET_AddRef( &lpwfs
->hdr
);
986 req
= &workRequest
.u
.FtpGetCurrentDirectoryW
;
987 req
->lpszDirectory
= lpszCurrentDirectory
;
988 req
->lpdwDirectory
= lpdwCurrentDirectory
;
990 r
= INTERNET_AsyncCall(&workRequest
);
994 r
= FTP_FtpGetCurrentDirectoryW(lpwfs
, lpszCurrentDirectory
,
995 lpdwCurrentDirectory
);
1000 WININET_Release( &lpwfs
->hdr
);
1006 /***********************************************************************
1007 * FTP_FtpGetCurrentDirectoryW (Internal)
1009 * Retrieves the current directory
1016 static BOOL
FTP_FtpGetCurrentDirectoryW(LPWININETFTPSESSIONW lpwfs
, LPWSTR lpszCurrentDirectory
,
1017 LPDWORD lpdwCurrentDirectory
)
1020 LPWININETAPPINFOW hIC
= NULL
;
1021 DWORD bSuccess
= FALSE
;
1023 /* Clear any error information */
1024 INTERNET_SetLastError(0);
1026 hIC
= lpwfs
->lpAppInfo
;
1027 if (!FTP_SendCommand(lpwfs
->sndSocket
, FTP_CMD_PWD
, NULL
,
1028 lpwfs
->hdr
.lpfnStatusCB
, &lpwfs
->hdr
, lpwfs
->hdr
.dwContext
))
1031 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
1034 if (nResCode
== 257) /* Extract directory name */
1036 DWORD firstpos
, lastpos
, len
;
1037 LPWSTR lpszResponseBuffer
= WININET_strdup_AtoW(INTERNET_GetResponseBuffer());
1039 for (firstpos
= 0, lastpos
= 0; lpszResponseBuffer
[lastpos
]; lastpos
++)
1041 if ('"' == lpszResponseBuffer
[lastpos
])
1049 len
= lastpos
- firstpos
;
1050 if (*lpdwCurrentDirectory
>= len
)
1052 memcpy(lpszCurrentDirectory
, &lpszResponseBuffer
[firstpos
+ 1], len
* sizeof(WCHAR
));
1053 lpszCurrentDirectory
[len
- 1] = 0;
1054 *lpdwCurrentDirectory
= len
;
1057 else INTERNET_SetLastError(ERROR_INSUFFICIENT_BUFFER
);
1059 HeapFree(GetProcessHeap(), 0, lpszResponseBuffer
);
1062 FTP_SetResponseError(nResCode
);
1066 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
1068 INTERNET_ASYNC_RESULT iar
;
1070 iar
.dwResult
= bSuccess
;
1071 iar
.dwError
= bSuccess
? ERROR_SUCCESS
: ERROR_INTERNET_EXTENDED_ERROR
;
1072 SendAsyncCallback(&lpwfs
->hdr
, lpwfs
->hdr
.dwContext
, INTERNET_STATUS_REQUEST_COMPLETE
,
1073 &iar
, sizeof(INTERNET_ASYNC_RESULT
));
1080 /***********************************************************************
1081 * FTPFILE_Destroy(internal)
1083 * Closes the file transfer handle. This also 'cleans' the data queue of
1084 * the 'transfer complete' message (this is a bit of a hack though :-/ )
1087 static void FTPFILE_Destroy(WININETHANDLEHEADER
*hdr
)
1089 LPWININETFTPFILE lpwh
= (LPWININETFTPFILE
) hdr
;
1090 LPWININETFTPSESSIONW lpwfs
= lpwh
->lpFtpSession
;
1095 if (!lpwh
->session_deleted
)
1096 lpwfs
->download_in_progress
= NULL
;
1098 if (lpwh
->nDataSocket
!= -1)
1099 closesocket(lpwh
->nDataSocket
);
1101 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
1102 if (nResCode
> 0 && nResCode
!= 226) WARN("server reports failed transfer\n");
1104 WININET_Release(&lpwh
->lpFtpSession
->hdr
);
1106 HeapFree(GetProcessHeap(), 0, lpwh
);
1109 static DWORD
FTPFILE_QueryOption(WININETHANDLEHEADER
*hdr
, DWORD option
, void *buffer
, DWORD
*size
, BOOL unicode
)
1112 case INTERNET_OPTION_HANDLE_TYPE
:
1113 TRACE("INTERNET_OPTION_HANDLE_TYPE\n");
1115 if (*size
< sizeof(ULONG
))
1116 return ERROR_INSUFFICIENT_BUFFER
;
1118 *size
= sizeof(DWORD
);
1119 *(DWORD
*)buffer
= INTERNET_HANDLE_TYPE_FTP_FILE
;
1120 return ERROR_SUCCESS
;
1123 return INET_QueryOption(option
, buffer
, size
, unicode
);
1126 static DWORD
FTPFILE_ReadFile(WININETHANDLEHEADER
*hdr
, void *buffer
, DWORD size
, DWORD
*read
)
1128 WININETFTPFILE
*file
= (WININETFTPFILE
*)hdr
;
1131 if (file
->nDataSocket
== -1)
1132 return ERROR_INTERNET_DISCONNECTED
;
1134 /* FIXME: FTP should use NETCON_ stuff */
1135 res
= recv(file
->nDataSocket
, buffer
, size
, MSG_WAITALL
);
1136 *read
= res
>0 ? res
: 0;
1138 return res
>=0 ? ERROR_SUCCESS
: INTERNET_ERROR_BASE
; /* FIXME*/
1141 static DWORD
FTPFILE_ReadFileExA(WININETHANDLEHEADER
*hdr
, INTERNET_BUFFERSA
*buffers
,
1142 DWORD flags
, DWORD_PTR context
)
1144 return FTPFILE_ReadFile(hdr
, buffers
->lpvBuffer
, buffers
->dwBufferLength
, &buffers
->dwBufferLength
);
1147 static DWORD
FTPFILE_ReadFileExW(WININETHANDLEHEADER
*hdr
, INTERNET_BUFFERSW
*buffers
,
1148 DWORD flags
, DWORD_PTR context
)
1150 return FTPFILE_ReadFile(hdr
, buffers
->lpvBuffer
, buffers
->dwBufferLength
, &buffers
->dwBufferLength
);
1153 static BOOL
FTPFILE_WriteFile(WININETHANDLEHEADER
*hdr
, const void *buffer
, DWORD size
, DWORD
*written
)
1155 LPWININETFTPFILE lpwh
= (LPWININETFTPFILE
) hdr
;
1158 res
= send(lpwh
->nDataSocket
, buffer
, size
, 0);
1160 *written
= res
>0 ? res
: 0;
1164 static void FTP_ReceiveRequestData(WININETFTPFILE
*file
, BOOL first_notif
)
1166 INTERNET_ASYNC_RESULT iar
;
1170 TRACE("%p\n", file
);
1172 available
= recv(file
->nDataSocket
, buffer
, sizeof(buffer
), MSG_PEEK
);
1174 if(available
!= -1) {
1175 iar
.dwResult
= (DWORD_PTR
)file
->hdr
.hInternet
;
1176 iar
.dwError
= first_notif
? 0 : available
;
1179 iar
.dwError
= INTERNET_GetLastError();
1182 INTERNET_SendCallback(&file
->hdr
, file
->hdr
.dwContext
, INTERNET_STATUS_REQUEST_COMPLETE
, &iar
,
1183 sizeof(INTERNET_ASYNC_RESULT
));
1186 static void FTPFILE_AsyncQueryDataAvailableProc(WORKREQUEST
*workRequest
)
1188 WININETFTPFILE
*file
= (WININETFTPFILE
*)workRequest
->hdr
;
1190 FTP_ReceiveRequestData(file
, FALSE
);
1193 static DWORD
FTPFILE_QueryDataAvailable(WININETHANDLEHEADER
*hdr
, DWORD
*available
, DWORD flags
, DWORD_PTR ctx
)
1195 LPWININETFTPFILE file
= (LPWININETFTPFILE
) hdr
;
1196 int retval
, unread
= 0;
1198 TRACE("(%p %p %x %lx)\n", file
, available
, flags
, ctx
);
1201 retval
= ioctlsocket(file
->nDataSocket
, FIONREAD
, &unread
);
1203 TRACE("%d bytes of queued, but unread data\n", unread
);
1205 FIXME("FIONREAD not available\n");
1208 *available
= unread
;
1215 retval
= recv(file
->nDataSocket
, &byte
, 1, MSG_PEEK
);
1217 WORKREQUEST workRequest
;
1220 workRequest
.asyncproc
= FTPFILE_AsyncQueryDataAvailableProc
;
1221 workRequest
.hdr
= WININET_AddRef( &file
->hdr
);
1223 INTERNET_AsyncCall(&workRequest
);
1225 return ERROR_IO_PENDING
;
1229 return ERROR_SUCCESS
;
1233 static const HANDLEHEADERVtbl FTPFILEVtbl
= {
1236 FTPFILE_QueryOption
,
1239 FTPFILE_ReadFileExA
,
1240 FTPFILE_ReadFileExW
,
1242 FTPFILE_QueryDataAvailable
,
1246 /***********************************************************************
1247 * FTP_FtpOpenFileW (Internal)
1249 * Open a remote file for writing or reading
1252 * HINTERNET handle on success
1256 HINTERNET
FTP_FtpOpenFileW(LPWININETFTPSESSIONW lpwfs
,
1257 LPCWSTR lpszFileName
, DWORD fdwAccess
, DWORD dwFlags
,
1258 DWORD_PTR dwContext
)
1261 BOOL bSuccess
= FALSE
;
1262 LPWININETFTPFILE lpwh
= NULL
;
1263 LPWININETAPPINFOW hIC
= NULL
;
1264 HINTERNET handle
= NULL
;
1268 /* Clear any error information */
1269 INTERNET_SetLastError(0);
1271 if (GENERIC_READ
== fdwAccess
)
1273 /* Set up socket to retrieve data */
1274 bSuccess
= FTP_SendRetrieve(lpwfs
, lpszFileName
, dwFlags
);
1276 else if (GENERIC_WRITE
== fdwAccess
)
1278 /* Set up socket to send data */
1279 bSuccess
= FTP_SendStore(lpwfs
, lpszFileName
, dwFlags
);
1282 /* Get data socket to server */
1283 if (bSuccess
&& FTP_GetDataSocket(lpwfs
, &nDataSocket
))
1285 lpwh
= HeapAlloc(GetProcessHeap(), 0, sizeof(WININETFTPFILE
));
1286 lpwh
->hdr
.htype
= WH_HFILE
;
1287 lpwh
->hdr
.vtbl
= &FTPFILEVtbl
;
1288 lpwh
->hdr
.dwFlags
= dwFlags
;
1289 lpwh
->hdr
.dwContext
= dwContext
;
1291 lpwh
->hdr
.lpfnStatusCB
= lpwfs
->hdr
.lpfnStatusCB
;
1292 lpwh
->nDataSocket
= nDataSocket
;
1293 lpwh
->session_deleted
= FALSE
;
1295 WININET_AddRef( &lpwfs
->hdr
);
1296 lpwh
->lpFtpSession
= lpwfs
;
1297 list_add_head( &lpwfs
->hdr
.children
, &lpwh
->hdr
.entry
);
1299 handle
= WININET_AllocHandle( &lpwh
->hdr
);
1303 /* Indicate that a download is currently in progress */
1304 lpwfs
->download_in_progress
= lpwh
;
1307 if (lpwfs
->lstnSocket
!= -1)
1308 closesocket(lpwfs
->lstnSocket
);
1310 hIC
= lpwfs
->lpAppInfo
;
1311 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
1313 INTERNET_ASYNC_RESULT iar
;
1317 iar
.dwResult
= (DWORD_PTR
)handle
;
1318 iar
.dwError
= ERROR_SUCCESS
;
1319 SendAsyncCallback(&lpwfs
->hdr
, lpwfs
->hdr
.dwContext
, INTERNET_STATUS_HANDLE_CREATED
,
1320 &iar
, sizeof(INTERNET_ASYNC_RESULT
));
1324 FTP_ReceiveRequestData(lpwh
, TRUE
);
1327 iar
.dwError
= INTERNET_GetLastError();
1328 SendAsyncCallback(&lpwfs
->hdr
, lpwfs
->hdr
.dwContext
, INTERNET_STATUS_REQUEST_COMPLETE
,
1329 &iar
, sizeof(INTERNET_ASYNC_RESULT
));
1335 WININET_Release( &lpwh
->hdr
);
1341 /***********************************************************************
1342 * FtpOpenFileA (WININET.@)
1344 * Open a remote file for writing or reading
1347 * HINTERNET handle on success
1351 HINTERNET WINAPI
FtpOpenFileA(HINTERNET hFtpSession
,
1352 LPCSTR lpszFileName
, DWORD fdwAccess
, DWORD dwFlags
,
1353 DWORD_PTR dwContext
)
1355 LPWSTR lpwzFileName
;
1358 lpwzFileName
= lpszFileName
?WININET_strdup_AtoW(lpszFileName
):NULL
;
1359 ret
= FtpOpenFileW(hFtpSession
, lpwzFileName
, fdwAccess
, dwFlags
, dwContext
);
1360 HeapFree(GetProcessHeap(), 0, lpwzFileName
);
1365 static void AsyncFtpOpenFileProc(WORKREQUEST
*workRequest
)
1367 struct WORKREQ_FTPOPENFILEW
const *req
= &workRequest
->u
.FtpOpenFileW
;
1368 LPWININETFTPSESSIONW lpwfs
= (LPWININETFTPSESSIONW
) workRequest
->hdr
;
1370 TRACE("%p\n", lpwfs
);
1372 FTP_FtpOpenFileW(lpwfs
, req
->lpszFilename
,
1373 req
->dwAccess
, req
->dwFlags
, req
->dwContext
);
1374 HeapFree(GetProcessHeap(), 0, req
->lpszFilename
);
1377 /***********************************************************************
1378 * FtpOpenFileW (WININET.@)
1380 * Open a remote file for writing or reading
1383 * HINTERNET handle on success
1387 HINTERNET WINAPI
FtpOpenFileW(HINTERNET hFtpSession
,
1388 LPCWSTR lpszFileName
, DWORD fdwAccess
, DWORD dwFlags
,
1389 DWORD_PTR dwContext
)
1391 LPWININETFTPSESSIONW lpwfs
;
1392 LPWININETAPPINFOW hIC
= NULL
;
1395 TRACE("(%p,%s,0x%08x,0x%08x,0x%08lx)\n", hFtpSession
,
1396 debugstr_w(lpszFileName
), fdwAccess
, dwFlags
, dwContext
);
1398 lpwfs
= (LPWININETFTPSESSIONW
) WININET_GetObject( hFtpSession
);
1401 INTERNET_SetLastError(ERROR_INVALID_HANDLE
);
1405 if (WH_HFTPSESSION
!= lpwfs
->hdr
.htype
)
1407 INTERNET_SetLastError(ERROR_INTERNET_INCORRECT_HANDLE_TYPE
);
1411 if ((!lpszFileName
) ||
1412 ((fdwAccess
!= GENERIC_READ
) && (fdwAccess
!= GENERIC_WRITE
)) ||
1413 ((dwFlags
& FTP_CONDITION_MASK
) > FTP_TRANSFER_TYPE_BINARY
))
1415 INTERNET_SetLastError(ERROR_INVALID_PARAMETER
);
1419 if (lpwfs
->download_in_progress
!= NULL
)
1421 INTERNET_SetLastError(ERROR_FTP_TRANSFER_IN_PROGRESS
);
1425 hIC
= lpwfs
->lpAppInfo
;
1426 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
1428 WORKREQUEST workRequest
;
1429 struct WORKREQ_FTPOPENFILEW
*req
;
1431 workRequest
.asyncproc
= AsyncFtpOpenFileProc
;
1432 workRequest
.hdr
= WININET_AddRef( &lpwfs
->hdr
);
1433 req
= &workRequest
.u
.FtpOpenFileW
;
1434 req
->lpszFilename
= WININET_strdupW(lpszFileName
);
1435 req
->dwAccess
= fdwAccess
;
1436 req
->dwFlags
= dwFlags
;
1437 req
->dwContext
= dwContext
;
1439 INTERNET_AsyncCall(&workRequest
);
1444 r
= FTP_FtpOpenFileW(lpwfs
, lpszFileName
, fdwAccess
, dwFlags
, dwContext
);
1448 WININET_Release( &lpwfs
->hdr
);
1454 /***********************************************************************
1455 * FtpGetFileA (WININET.@)
1457 * Retrieve file from the FTP server
1464 BOOL WINAPI
FtpGetFileA(HINTERNET hInternet
, LPCSTR lpszRemoteFile
, LPCSTR lpszNewFile
,
1465 BOOL fFailIfExists
, DWORD dwLocalFlagsAttribute
, DWORD dwInternetFlags
,
1466 DWORD_PTR dwContext
)
1468 LPWSTR lpwzRemoteFile
;
1472 lpwzRemoteFile
= lpszRemoteFile
?WININET_strdup_AtoW(lpszRemoteFile
):NULL
;
1473 lpwzNewFile
= lpszNewFile
?WININET_strdup_AtoW(lpszNewFile
):NULL
;
1474 ret
= FtpGetFileW(hInternet
, lpwzRemoteFile
, lpwzNewFile
, fFailIfExists
,
1475 dwLocalFlagsAttribute
, dwInternetFlags
, dwContext
);
1476 HeapFree(GetProcessHeap(), 0, lpwzRemoteFile
);
1477 HeapFree(GetProcessHeap(), 0, lpwzNewFile
);
1482 static void AsyncFtpGetFileProc(WORKREQUEST
*workRequest
)
1484 struct WORKREQ_FTPGETFILEW
const *req
= &workRequest
->u
.FtpGetFileW
;
1485 LPWININETFTPSESSIONW lpwfs
= (LPWININETFTPSESSIONW
) workRequest
->hdr
;
1487 TRACE("%p\n", lpwfs
);
1489 FTP_FtpGetFileW(lpwfs
, req
->lpszRemoteFile
,
1490 req
->lpszNewFile
, req
->fFailIfExists
,
1491 req
->dwLocalFlagsAttribute
, req
->dwFlags
, req
->dwContext
);
1492 HeapFree(GetProcessHeap(), 0, req
->lpszRemoteFile
);
1493 HeapFree(GetProcessHeap(), 0, req
->lpszNewFile
);
1497 /***********************************************************************
1498 * FtpGetFileW (WININET.@)
1500 * Retrieve file from the FTP server
1507 BOOL WINAPI
FtpGetFileW(HINTERNET hInternet
, LPCWSTR lpszRemoteFile
, LPCWSTR lpszNewFile
,
1508 BOOL fFailIfExists
, DWORD dwLocalFlagsAttribute
, DWORD dwInternetFlags
,
1509 DWORD_PTR dwContext
)
1511 LPWININETFTPSESSIONW lpwfs
;
1512 LPWININETAPPINFOW hIC
= NULL
;
1515 if (!lpszRemoteFile
|| !lpszNewFile
)
1517 INTERNET_SetLastError(ERROR_INVALID_PARAMETER
);
1521 lpwfs
= (LPWININETFTPSESSIONW
) WININET_GetObject( hInternet
);
1524 INTERNET_SetLastError(ERROR_INVALID_HANDLE
);
1528 if (WH_HFTPSESSION
!= lpwfs
->hdr
.htype
)
1530 INTERNET_SetLastError(ERROR_INTERNET_INCORRECT_HANDLE_TYPE
);
1534 if ((dwInternetFlags
& FTP_CONDITION_MASK
) > FTP_TRANSFER_TYPE_BINARY
)
1536 INTERNET_SetLastError(ERROR_INVALID_PARAMETER
);
1540 if (lpwfs
->download_in_progress
!= NULL
)
1542 INTERNET_SetLastError(ERROR_FTP_TRANSFER_IN_PROGRESS
);
1546 hIC
= lpwfs
->lpAppInfo
;
1547 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
1549 WORKREQUEST workRequest
;
1550 struct WORKREQ_FTPGETFILEW
*req
;
1552 workRequest
.asyncproc
= AsyncFtpGetFileProc
;
1553 workRequest
.hdr
= WININET_AddRef( &lpwfs
->hdr
);
1554 req
= &workRequest
.u
.FtpGetFileW
;
1555 req
->lpszRemoteFile
= WININET_strdupW(lpszRemoteFile
);
1556 req
->lpszNewFile
= WININET_strdupW(lpszNewFile
);
1557 req
->dwLocalFlagsAttribute
= dwLocalFlagsAttribute
;
1558 req
->fFailIfExists
= fFailIfExists
;
1559 req
->dwFlags
= dwInternetFlags
;
1560 req
->dwContext
= dwContext
;
1562 r
= INTERNET_AsyncCall(&workRequest
);
1566 r
= FTP_FtpGetFileW(lpwfs
, lpszRemoteFile
, lpszNewFile
,
1567 fFailIfExists
, dwLocalFlagsAttribute
, dwInternetFlags
, dwContext
);
1571 WININET_Release( &lpwfs
->hdr
);
1577 /***********************************************************************
1578 * FTP_FtpGetFileW (Internal)
1580 * Retrieve file from the FTP server
1587 static BOOL
FTP_FtpGetFileW(LPWININETFTPSESSIONW lpwfs
, LPCWSTR lpszRemoteFile
, LPCWSTR lpszNewFile
,
1588 BOOL fFailIfExists
, DWORD dwLocalFlagsAttribute
, DWORD dwInternetFlags
,
1589 DWORD_PTR dwContext
)
1591 BOOL bSuccess
= FALSE
;
1593 LPWININETAPPINFOW hIC
= NULL
;
1595 TRACE("lpszRemoteFile(%s) lpszNewFile(%s)\n", debugstr_w(lpszRemoteFile
), debugstr_w(lpszNewFile
));
1597 /* Clear any error information */
1598 INTERNET_SetLastError(0);
1600 /* Ensure we can write to lpszNewfile by opening it */
1601 hFile
= CreateFileW(lpszNewFile
, GENERIC_WRITE
, 0, 0, fFailIfExists
?
1602 CREATE_NEW
: CREATE_ALWAYS
, dwLocalFlagsAttribute
, 0);
1603 if (INVALID_HANDLE_VALUE
== hFile
)
1606 /* Set up socket to retrieve data */
1607 if (FTP_SendRetrieve(lpwfs
, lpszRemoteFile
, dwInternetFlags
))
1611 /* Get data socket to server */
1612 if (FTP_GetDataSocket(lpwfs
, &nDataSocket
))
1617 FTP_RetrieveFileData(lpwfs
, nDataSocket
, hFile
);
1618 closesocket(nDataSocket
);
1620 nResCode
= FTP_ReceiveResponse(lpwfs
, dwContext
);
1623 if (nResCode
== 226)
1626 FTP_SetResponseError(nResCode
);
1631 if (lpwfs
->lstnSocket
!= -1)
1632 closesocket(lpwfs
->lstnSocket
);
1636 hIC
= lpwfs
->lpAppInfo
;
1637 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
1639 INTERNET_ASYNC_RESULT iar
;
1641 iar
.dwResult
= (DWORD
)bSuccess
;
1642 iar
.dwError
= bSuccess
? ERROR_SUCCESS
: INTERNET_GetLastError();
1643 SendAsyncCallback(&lpwfs
->hdr
, lpwfs
->hdr
.dwContext
, INTERNET_STATUS_REQUEST_COMPLETE
,
1644 &iar
, sizeof(INTERNET_ASYNC_RESULT
));
1647 if (!bSuccess
) DeleteFileW(lpszNewFile
);
1651 /***********************************************************************
1652 * FtpGetFileSize (WININET.@)
1654 DWORD WINAPI
FtpGetFileSize( HINTERNET hFile
, LPDWORD lpdwFileSizeHigh
)
1656 FIXME("(%p, %p)\n", hFile
, lpdwFileSizeHigh
);
1658 if (lpdwFileSizeHigh
)
1659 *lpdwFileSizeHigh
= 0;
1664 /***********************************************************************
1665 * FtpDeleteFileA (WININET.@)
1667 * Delete a file on the ftp server
1674 BOOL WINAPI
FtpDeleteFileA(HINTERNET hFtpSession
, LPCSTR lpszFileName
)
1676 LPWSTR lpwzFileName
;
1679 lpwzFileName
= lpszFileName
?WININET_strdup_AtoW(lpszFileName
):NULL
;
1680 ret
= FtpDeleteFileW(hFtpSession
, lpwzFileName
);
1681 HeapFree(GetProcessHeap(), 0, lpwzFileName
);
1685 static void AsyncFtpDeleteFileProc(WORKREQUEST
*workRequest
)
1687 struct WORKREQ_FTPDELETEFILEW
const *req
= &workRequest
->u
.FtpDeleteFileW
;
1688 LPWININETFTPSESSIONW lpwfs
= (LPWININETFTPSESSIONW
) workRequest
->hdr
;
1690 TRACE("%p\n", lpwfs
);
1692 FTP_FtpDeleteFileW(lpwfs
, req
->lpszFilename
);
1693 HeapFree(GetProcessHeap(), 0, req
->lpszFilename
);
1696 /***********************************************************************
1697 * FtpDeleteFileW (WININET.@)
1699 * Delete a file on the ftp server
1706 BOOL WINAPI
FtpDeleteFileW(HINTERNET hFtpSession
, LPCWSTR lpszFileName
)
1708 LPWININETFTPSESSIONW lpwfs
;
1709 LPWININETAPPINFOW hIC
= NULL
;
1712 lpwfs
= (LPWININETFTPSESSIONW
) WININET_GetObject( hFtpSession
);
1715 INTERNET_SetLastError(ERROR_INVALID_HANDLE
);
1719 if (WH_HFTPSESSION
!= lpwfs
->hdr
.htype
)
1721 INTERNET_SetLastError(ERROR_INTERNET_INCORRECT_HANDLE_TYPE
);
1725 if (lpwfs
->download_in_progress
!= NULL
)
1727 INTERNET_SetLastError(ERROR_FTP_TRANSFER_IN_PROGRESS
);
1733 INTERNET_SetLastError(ERROR_INVALID_PARAMETER
);
1737 hIC
= lpwfs
->lpAppInfo
;
1738 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
1740 WORKREQUEST workRequest
;
1741 struct WORKREQ_FTPDELETEFILEW
*req
;
1743 workRequest
.asyncproc
= AsyncFtpDeleteFileProc
;
1744 workRequest
.hdr
= WININET_AddRef( &lpwfs
->hdr
);
1745 req
= &workRequest
.u
.FtpDeleteFileW
;
1746 req
->lpszFilename
= WININET_strdupW(lpszFileName
);
1748 r
= INTERNET_AsyncCall(&workRequest
);
1752 r
= FTP_FtpDeleteFileW(lpwfs
, lpszFileName
);
1756 WININET_Release( &lpwfs
->hdr
);
1761 /***********************************************************************
1762 * FTP_FtpDeleteFileW (Internal)
1764 * Delete a file on the ftp server
1771 BOOL
FTP_FtpDeleteFileW(LPWININETFTPSESSIONW lpwfs
, LPCWSTR lpszFileName
)
1774 BOOL bSuccess
= FALSE
;
1775 LPWININETAPPINFOW hIC
= NULL
;
1777 TRACE("%p\n", lpwfs
);
1779 /* Clear any error information */
1780 INTERNET_SetLastError(0);
1782 if (!FTP_SendCommand(lpwfs
->sndSocket
, FTP_CMD_DELE
, lpszFileName
, 0, 0, 0))
1785 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
1788 if (nResCode
== 250)
1791 FTP_SetResponseError(nResCode
);
1794 hIC
= lpwfs
->lpAppInfo
;
1795 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
1797 INTERNET_ASYNC_RESULT iar
;
1799 iar
.dwResult
= (DWORD
)bSuccess
;
1800 iar
.dwError
= bSuccess
? ERROR_SUCCESS
: INTERNET_GetLastError();
1801 SendAsyncCallback(&lpwfs
->hdr
, lpwfs
->hdr
.dwContext
, INTERNET_STATUS_REQUEST_COMPLETE
,
1802 &iar
, sizeof(INTERNET_ASYNC_RESULT
));
1809 /***********************************************************************
1810 * FtpRemoveDirectoryA (WININET.@)
1812 * Remove a directory on the ftp server
1819 BOOL WINAPI
FtpRemoveDirectoryA(HINTERNET hFtpSession
, LPCSTR lpszDirectory
)
1821 LPWSTR lpwzDirectory
;
1824 lpwzDirectory
= lpszDirectory
?WININET_strdup_AtoW(lpszDirectory
):NULL
;
1825 ret
= FtpRemoveDirectoryW(hFtpSession
, lpwzDirectory
);
1826 HeapFree(GetProcessHeap(), 0, lpwzDirectory
);
1830 static void AsyncFtpRemoveDirectoryProc(WORKREQUEST
*workRequest
)
1832 struct WORKREQ_FTPREMOVEDIRECTORYW
const *req
= &workRequest
->u
.FtpRemoveDirectoryW
;
1833 LPWININETFTPSESSIONW lpwfs
= (LPWININETFTPSESSIONW
) workRequest
->hdr
;
1835 TRACE("%p\n", lpwfs
);
1837 FTP_FtpRemoveDirectoryW(lpwfs
, req
->lpszDirectory
);
1838 HeapFree(GetProcessHeap(), 0, req
->lpszDirectory
);
1841 /***********************************************************************
1842 * FtpRemoveDirectoryW (WININET.@)
1844 * Remove a directory on the ftp server
1851 BOOL WINAPI
FtpRemoveDirectoryW(HINTERNET hFtpSession
, LPCWSTR lpszDirectory
)
1853 LPWININETFTPSESSIONW lpwfs
;
1854 LPWININETAPPINFOW hIC
= NULL
;
1857 lpwfs
= (LPWININETFTPSESSIONW
) WININET_GetObject( hFtpSession
);
1860 INTERNET_SetLastError(ERROR_INVALID_HANDLE
);
1864 if (WH_HFTPSESSION
!= lpwfs
->hdr
.htype
)
1866 INTERNET_SetLastError(ERROR_INTERNET_INCORRECT_HANDLE_TYPE
);
1870 if (lpwfs
->download_in_progress
!= NULL
)
1872 INTERNET_SetLastError(ERROR_FTP_TRANSFER_IN_PROGRESS
);
1878 INTERNET_SetLastError(ERROR_INVALID_PARAMETER
);
1882 hIC
= lpwfs
->lpAppInfo
;
1883 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
1885 WORKREQUEST workRequest
;
1886 struct WORKREQ_FTPREMOVEDIRECTORYW
*req
;
1888 workRequest
.asyncproc
= AsyncFtpRemoveDirectoryProc
;
1889 workRequest
.hdr
= WININET_AddRef( &lpwfs
->hdr
);
1890 req
= &workRequest
.u
.FtpRemoveDirectoryW
;
1891 req
->lpszDirectory
= WININET_strdupW(lpszDirectory
);
1893 r
= INTERNET_AsyncCall(&workRequest
);
1897 r
= FTP_FtpRemoveDirectoryW(lpwfs
, lpszDirectory
);
1901 WININET_Release( &lpwfs
->hdr
);
1906 /***********************************************************************
1907 * FTP_FtpRemoveDirectoryW (Internal)
1909 * Remove a directory on the ftp server
1916 BOOL
FTP_FtpRemoveDirectoryW(LPWININETFTPSESSIONW lpwfs
, LPCWSTR lpszDirectory
)
1919 BOOL bSuccess
= FALSE
;
1920 LPWININETAPPINFOW hIC
= NULL
;
1924 /* Clear any error information */
1925 INTERNET_SetLastError(0);
1927 if (!FTP_SendCommand(lpwfs
->sndSocket
, FTP_CMD_RMD
, lpszDirectory
, 0, 0, 0))
1930 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
1933 if (nResCode
== 250)
1936 FTP_SetResponseError(nResCode
);
1940 hIC
= lpwfs
->lpAppInfo
;
1941 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
1943 INTERNET_ASYNC_RESULT iar
;
1945 iar
.dwResult
= (DWORD
)bSuccess
;
1946 iar
.dwError
= bSuccess
? ERROR_SUCCESS
: INTERNET_GetLastError();
1947 SendAsyncCallback(&lpwfs
->hdr
, lpwfs
->hdr
.dwContext
, INTERNET_STATUS_REQUEST_COMPLETE
,
1948 &iar
, sizeof(INTERNET_ASYNC_RESULT
));
1955 /***********************************************************************
1956 * FtpRenameFileA (WININET.@)
1958 * Rename a file on the ftp server
1965 BOOL WINAPI
FtpRenameFileA(HINTERNET hFtpSession
, LPCSTR lpszSrc
, LPCSTR lpszDest
)
1971 lpwzSrc
= lpszSrc
?WININET_strdup_AtoW(lpszSrc
):NULL
;
1972 lpwzDest
= lpszDest
?WININET_strdup_AtoW(lpszDest
):NULL
;
1973 ret
= FtpRenameFileW(hFtpSession
, lpwzSrc
, lpwzDest
);
1974 HeapFree(GetProcessHeap(), 0, lpwzSrc
);
1975 HeapFree(GetProcessHeap(), 0, lpwzDest
);
1979 static void AsyncFtpRenameFileProc(WORKREQUEST
*workRequest
)
1981 struct WORKREQ_FTPRENAMEFILEW
const *req
= &workRequest
->u
.FtpRenameFileW
;
1982 LPWININETFTPSESSIONW lpwfs
= (LPWININETFTPSESSIONW
) workRequest
->hdr
;
1984 TRACE("%p\n", lpwfs
);
1986 FTP_FtpRenameFileW(lpwfs
, req
->lpszSrcFile
, req
->lpszDestFile
);
1987 HeapFree(GetProcessHeap(), 0, req
->lpszSrcFile
);
1988 HeapFree(GetProcessHeap(), 0, req
->lpszDestFile
);
1991 /***********************************************************************
1992 * FtpRenameFileW (WININET.@)
1994 * Rename a file on the ftp server
2001 BOOL WINAPI
FtpRenameFileW(HINTERNET hFtpSession
, LPCWSTR lpszSrc
, LPCWSTR lpszDest
)
2003 LPWININETFTPSESSIONW lpwfs
;
2004 LPWININETAPPINFOW hIC
= NULL
;
2007 lpwfs
= (LPWININETFTPSESSIONW
) WININET_GetObject( hFtpSession
);
2010 INTERNET_SetLastError(ERROR_INVALID_HANDLE
);
2014 if (WH_HFTPSESSION
!= lpwfs
->hdr
.htype
)
2016 INTERNET_SetLastError(ERROR_INTERNET_INCORRECT_HANDLE_TYPE
);
2020 if (lpwfs
->download_in_progress
!= NULL
)
2022 INTERNET_SetLastError(ERROR_FTP_TRANSFER_IN_PROGRESS
);
2026 if (!lpszSrc
|| !lpszDest
)
2028 INTERNET_SetLastError(ERROR_INVALID_PARAMETER
);
2032 hIC
= lpwfs
->lpAppInfo
;
2033 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
2035 WORKREQUEST workRequest
;
2036 struct WORKREQ_FTPRENAMEFILEW
*req
;
2038 workRequest
.asyncproc
= AsyncFtpRenameFileProc
;
2039 workRequest
.hdr
= WININET_AddRef( &lpwfs
->hdr
);
2040 req
= &workRequest
.u
.FtpRenameFileW
;
2041 req
->lpszSrcFile
= WININET_strdupW(lpszSrc
);
2042 req
->lpszDestFile
= WININET_strdupW(lpszDest
);
2044 r
= INTERNET_AsyncCall(&workRequest
);
2048 r
= FTP_FtpRenameFileW(lpwfs
, lpszSrc
, lpszDest
);
2052 WININET_Release( &lpwfs
->hdr
);
2057 /***********************************************************************
2058 * FTP_FtpRenameFileW (Internal)
2060 * Rename a file on the ftp server
2067 BOOL
FTP_FtpRenameFileW( LPWININETFTPSESSIONW lpwfs
,
2068 LPCWSTR lpszSrc
, LPCWSTR lpszDest
)
2071 BOOL bSuccess
= FALSE
;
2072 LPWININETAPPINFOW hIC
= NULL
;
2076 /* Clear any error information */
2077 INTERNET_SetLastError(0);
2079 if (!FTP_SendCommand(lpwfs
->sndSocket
, FTP_CMD_RNFR
, lpszSrc
, 0, 0, 0))
2082 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
2083 if (nResCode
== 350)
2085 if (!FTP_SendCommand(lpwfs
->sndSocket
, FTP_CMD_RNTO
, lpszDest
, 0, 0, 0))
2088 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
2091 if (nResCode
== 250)
2094 FTP_SetResponseError(nResCode
);
2097 hIC
= lpwfs
->lpAppInfo
;
2098 if (hIC
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
2100 INTERNET_ASYNC_RESULT iar
;
2102 iar
.dwResult
= (DWORD
)bSuccess
;
2103 iar
.dwError
= bSuccess
? ERROR_SUCCESS
: INTERNET_GetLastError();
2104 SendAsyncCallback(&lpwfs
->hdr
, lpwfs
->hdr
.dwContext
, INTERNET_STATUS_REQUEST_COMPLETE
,
2105 &iar
, sizeof(INTERNET_ASYNC_RESULT
));
2111 /***********************************************************************
2112 * FtpCommandA (WININET.@)
2114 BOOL WINAPI
FtpCommandA( HINTERNET hConnect
, BOOL fExpectResponse
, DWORD dwFlags
,
2115 LPCSTR lpszCommand
, DWORD_PTR dwContext
, HINTERNET
* phFtpCommand
)
2120 TRACE("%p %d 0x%08x %s 0x%08lx %p\n", hConnect
, fExpectResponse
, dwFlags
,
2121 debugstr_a(lpszCommand
), dwContext
, phFtpCommand
);
2123 if (fExpectResponse
)
2125 FIXME("data connection not supported\n");
2129 if (!lpszCommand
|| !lpszCommand
[0])
2131 INTERNET_SetLastError(ERROR_INVALID_PARAMETER
);
2135 if (!(cmdW
= WININET_strdup_AtoW(lpszCommand
)))
2137 INTERNET_SetLastError(ERROR_OUTOFMEMORY
);
2141 r
= FtpCommandW(hConnect
, fExpectResponse
, dwFlags
, cmdW
, dwContext
, phFtpCommand
);
2143 HeapFree(GetProcessHeap(), 0, cmdW
);
2147 /***********************************************************************
2148 * FtpCommandW (WININET.@)
2150 BOOL WINAPI
FtpCommandW( HINTERNET hConnect
, BOOL fExpectResponse
, DWORD dwFlags
,
2151 LPCWSTR lpszCommand
, DWORD_PTR dwContext
, HINTERNET
* phFtpCommand
)
2154 LPWININETFTPSESSIONW lpwfs
;
2156 DWORD len
, nBytesSent
= 0;
2157 INT nResCode
, nRC
= 0;
2159 TRACE("%p %d 0x%08x %s 0x%08lx %p\n", hConnect
, fExpectResponse
, dwFlags
,
2160 debugstr_w(lpszCommand
), dwContext
, phFtpCommand
);
2162 if (!lpszCommand
|| !lpszCommand
[0])
2164 INTERNET_SetLastError(ERROR_INVALID_PARAMETER
);
2168 if (fExpectResponse
)
2170 FIXME("data connection not supported\n");
2174 lpwfs
= (LPWININETFTPSESSIONW
) WININET_GetObject( hConnect
);
2177 INTERNET_SetLastError(ERROR_INVALID_HANDLE
);
2181 if (WH_HFTPSESSION
!= lpwfs
->hdr
.htype
)
2183 INTERNET_SetLastError(ERROR_INTERNET_INCORRECT_HANDLE_TYPE
);
2187 if (lpwfs
->download_in_progress
!= NULL
)
2189 INTERNET_SetLastError(ERROR_FTP_TRANSFER_IN_PROGRESS
);
2193 len
= WideCharToMultiByte(CP_ACP
, 0, lpszCommand
, -1, NULL
, 0, NULL
, NULL
) + strlen(szCRLF
);
2194 if ((cmd
= HeapAlloc(GetProcessHeap(), 0, len
)))
2195 WideCharToMultiByte(CP_ACP
, 0, lpszCommand
, -1, cmd
, len
, NULL
, NULL
);
2198 INTERNET_SetLastError(ERROR_OUTOFMEMORY
);
2202 strcat(cmd
, szCRLF
);
2205 TRACE("Sending (%s) len(%d)\n", cmd
, len
);
2206 while ((nBytesSent
< len
) && (nRC
!= -1))
2208 nRC
= send(lpwfs
->sndSocket
, cmd
+ nBytesSent
, len
- nBytesSent
, 0);
2212 TRACE("Sent %d bytes\n", nRC
);
2218 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
2219 if (nResCode
> 0 && nResCode
< 400)
2222 FTP_SetResponseError(nResCode
);
2226 WININET_Release( &lpwfs
->hdr
);
2227 HeapFree(GetProcessHeap(), 0, cmd
);
2232 /***********************************************************************
2233 * FTPSESSION_Destroy (internal)
2235 * Deallocate session handle
2237 static void FTPSESSION_Destroy(WININETHANDLEHEADER
*hdr
)
2239 LPWININETFTPSESSIONW lpwfs
= (LPWININETFTPSESSIONW
) hdr
;
2243 WININET_Release(&lpwfs
->lpAppInfo
->hdr
);
2245 HeapFree(GetProcessHeap(), 0, lpwfs
->lpszPassword
);
2246 HeapFree(GetProcessHeap(), 0, lpwfs
->lpszUserName
);
2247 HeapFree(GetProcessHeap(), 0, lpwfs
);
2250 static void FTPSESSION_CloseConnection(WININETHANDLEHEADER
*hdr
)
2252 LPWININETFTPSESSIONW lpwfs
= (LPWININETFTPSESSIONW
) hdr
;
2256 SendAsyncCallback(&lpwfs
->hdr
, lpwfs
->hdr
.dwContext
,
2257 INTERNET_STATUS_CLOSING_CONNECTION
, 0, 0);
2259 if (lpwfs
->download_in_progress
!= NULL
)
2260 lpwfs
->download_in_progress
->session_deleted
= TRUE
;
2262 if (lpwfs
->sndSocket
!= -1)
2263 closesocket(lpwfs
->sndSocket
);
2265 if (lpwfs
->lstnSocket
!= -1)
2266 closesocket(lpwfs
->lstnSocket
);
2268 if (lpwfs
->pasvSocket
!= -1)
2269 closesocket(lpwfs
->pasvSocket
);
2271 SendAsyncCallback(&lpwfs
->hdr
, lpwfs
->hdr
.dwContext
,
2272 INTERNET_STATUS_CONNECTION_CLOSED
, 0, 0);
2275 static DWORD
FTPSESSION_QueryOption(WININETHANDLEHEADER
*hdr
, DWORD option
, void *buffer
, DWORD
*size
, BOOL unicode
)
2278 case INTERNET_OPTION_HANDLE_TYPE
:
2279 TRACE("INTERNET_OPTION_HANDLE_TYPE\n");
2281 if (*size
< sizeof(ULONG
))
2282 return ERROR_INSUFFICIENT_BUFFER
;
2284 *size
= sizeof(DWORD
);
2285 *(DWORD
*)buffer
= INTERNET_HANDLE_TYPE_CONNECT_FTP
;
2286 return ERROR_SUCCESS
;
2289 return INET_QueryOption(option
, buffer
, size
, unicode
);
2292 static const HANDLEHEADERVtbl FTPSESSIONVtbl
= {
2294 FTPSESSION_CloseConnection
,
2295 FTPSESSION_QueryOption
,
2305 /***********************************************************************
2306 * FTP_Connect (internal)
2308 * Connect to a ftp server
2311 * HINTERNET a session handle on success
2316 * Windows uses 'anonymous' as the username, when given a NULL username
2317 * and a NULL password. The password is first looked up in:
2319 * HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\EmailName
2321 * If this entry is not present it uses the current username as the password.
2325 HINTERNET
FTP_Connect(LPWININETAPPINFOW hIC
, LPCWSTR lpszServerName
,
2326 INTERNET_PORT nServerPort
, LPCWSTR lpszUserName
,
2327 LPCWSTR lpszPassword
, DWORD dwFlags
, DWORD_PTR dwContext
,
2328 DWORD dwInternalFlags
)
2330 static const WCHAR szKey
[] = {'S','o','f','t','w','a','r','e','\\',
2331 'M','i','c','r','o','s','o','f','t','\\',
2332 'W','i','n','d','o','w','s','\\',
2333 'C','u','r','r','e','n','t','V','e','r','s','i','o','n','\\',
2334 'I','n','t','e','r','n','e','t',' ','S','e','t','t','i','n','g','s',0};
2335 static const WCHAR szValue
[] = {'E','m','a','i','l','N','a','m','e',0};
2336 static const WCHAR szDefaultUsername
[] = {'a','n','o','n','y','m','o','u','s','\0'};
2337 static const WCHAR szEmpty
[] = {'\0'};
2338 struct sockaddr_in socketAddr
;
2341 BOOL bSuccess
= FALSE
;
2342 LPWININETFTPSESSIONW lpwfs
= NULL
;
2343 HINTERNET handle
= NULL
;
2345 TRACE("%p Server(%s) Port(%d) User(%s) Paswd(%s)\n",
2346 hIC
, debugstr_w(lpszServerName
),
2347 nServerPort
, debugstr_w(lpszUserName
), debugstr_w(lpszPassword
));
2349 assert( hIC
->hdr
.htype
== WH_HINIT
);
2351 if ((!lpszUserName
|| !*lpszUserName
) && lpszPassword
&& *lpszPassword
)
2353 INTERNET_SetLastError(ERROR_INVALID_PARAMETER
);
2357 lpwfs
= HeapAlloc(GetProcessHeap(), 0, sizeof(WININETFTPSESSIONW
));
2360 INTERNET_SetLastError(ERROR_OUTOFMEMORY
);
2364 if (nServerPort
== INTERNET_INVALID_PORT_NUMBER
)
2365 nServerPort
= INTERNET_DEFAULT_FTP_PORT
;
2367 lpwfs
->hdr
.htype
= WH_HFTPSESSION
;
2368 lpwfs
->hdr
.vtbl
= &FTPSESSIONVtbl
;
2369 lpwfs
->hdr
.dwFlags
= dwFlags
;
2370 lpwfs
->hdr
.dwContext
= dwContext
;
2371 lpwfs
->hdr
.dwInternalFlags
= dwInternalFlags
;
2372 lpwfs
->hdr
.refs
= 1;
2373 lpwfs
->hdr
.lpfnStatusCB
= hIC
->hdr
.lpfnStatusCB
;
2374 lpwfs
->download_in_progress
= NULL
;
2375 lpwfs
->sndSocket
= -1;
2376 lpwfs
->lstnSocket
= -1;
2377 lpwfs
->pasvSocket
= -1;
2379 WININET_AddRef( &hIC
->hdr
);
2380 lpwfs
->lpAppInfo
= hIC
;
2381 list_add_head( &hIC
->hdr
.children
, &lpwfs
->hdr
.entry
);
2383 handle
= WININET_AllocHandle( &lpwfs
->hdr
);
2386 ERR("Failed to alloc handle\n");
2387 INTERNET_SetLastError(ERROR_OUTOFMEMORY
);
2391 if(hIC
->lpszProxy
&& hIC
->dwAccessType
== INTERNET_OPEN_TYPE_PROXY
) {
2392 if(strchrW(hIC
->lpszProxy
, ' '))
2393 FIXME("Several proxies not implemented.\n");
2394 if(hIC
->lpszProxyBypass
)
2395 FIXME("Proxy bypass is ignored.\n");
2397 if (!lpszUserName
|| !strlenW(lpszUserName
)) {
2399 WCHAR szPassword
[MAX_PATH
];
2400 DWORD len
= sizeof(szPassword
);
2402 lpwfs
->lpszUserName
= WININET_strdupW(szDefaultUsername
);
2404 RegOpenKeyW(HKEY_CURRENT_USER
, szKey
, &key
);
2405 if (RegQueryValueExW(key
, szValue
, NULL
, NULL
, (LPBYTE
)szPassword
, &len
)) {
2406 /* Nothing in the registry, get the username and use that as the password */
2407 if (!GetUserNameW(szPassword
, &len
)) {
2408 /* Should never get here, but use an empty password as failsafe */
2409 strcpyW(szPassword
, szEmpty
);
2414 TRACE("Password used for anonymous ftp : (%s)\n", debugstr_w(szPassword
));
2415 lpwfs
->lpszPassword
= WININET_strdupW(szPassword
);
2418 lpwfs
->lpszUserName
= WININET_strdupW(lpszUserName
);
2421 lpwfs
->lpszPassword
= WININET_strdupW(lpszPassword
);
2423 lpwfs
->lpszPassword
= WININET_strdupW(szEmpty
);
2426 /* Don't send a handle created callback if this handle was created with InternetOpenUrl */
2427 if (!(lpwfs
->hdr
.dwInternalFlags
& INET_OPENURL
))
2429 INTERNET_ASYNC_RESULT iar
;
2431 iar
.dwResult
= (DWORD_PTR
)handle
;
2432 iar
.dwError
= ERROR_SUCCESS
;
2434 SendAsyncCallback(&hIC
->hdr
, dwContext
,
2435 INTERNET_STATUS_HANDLE_CREATED
, &iar
,
2436 sizeof(INTERNET_ASYNC_RESULT
));
2439 SendAsyncCallback(&hIC
->hdr
, dwContext
, INTERNET_STATUS_RESOLVING_NAME
,
2440 (LPWSTR
) lpszServerName
, strlenW(lpszServerName
));
2442 if (!GetAddress(lpszServerName
, nServerPort
, &socketAddr
))
2444 INTERNET_SetLastError(ERROR_INTERNET_NAME_NOT_RESOLVED
);
2448 SendAsyncCallback(&hIC
->hdr
, dwContext
, INTERNET_STATUS_NAME_RESOLVED
,
2449 (LPWSTR
) lpszServerName
, strlenW(lpszServerName
));
2451 nsocket
= socket(AF_INET
,SOCK_STREAM
,0);
2454 INTERNET_SetLastError(ERROR_INTERNET_CANNOT_CONNECT
);
2458 SendAsyncCallback(&hIC
->hdr
, dwContext
, INTERNET_STATUS_CONNECTING_TO_SERVER
,
2459 &socketAddr
, sizeof(struct sockaddr_in
));
2461 if (connect(nsocket
, (struct sockaddr
*)&socketAddr
, sizeof(socketAddr
)) < 0)
2463 ERR("Unable to connect (%s)\n", strerror(errno
));
2464 INTERNET_SetLastError(ERROR_INTERNET_CANNOT_CONNECT
);
2465 closesocket(nsocket
);
2469 TRACE("Connected to server\n");
2470 lpwfs
->sndSocket
= nsocket
;
2471 SendAsyncCallback(&hIC
->hdr
, dwContext
, INTERNET_STATUS_CONNECTED_TO_SERVER
,
2472 &socketAddr
, sizeof(struct sockaddr_in
));
2474 sock_namelen
= sizeof(lpwfs
->socketAddress
);
2475 getsockname(nsocket
, (struct sockaddr
*) &lpwfs
->socketAddress
, &sock_namelen
);
2477 if (FTP_ConnectToHost(lpwfs
))
2479 TRACE("Successfully logged into server\n");
2485 if (lpwfs
) WININET_Release( &lpwfs
->hdr
);
2487 if (!bSuccess
&& handle
)
2489 WININET_FreeHandle( handle
);
2497 /***********************************************************************
2498 * FTP_ConnectToHost (internal)
2500 * Connect to a ftp server
2507 static BOOL
FTP_ConnectToHost(LPWININETFTPSESSIONW lpwfs
)
2510 BOOL bSuccess
= FALSE
;
2513 FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
2515 if (!FTP_SendCommand(lpwfs
->sndSocket
, FTP_CMD_USER
, lpwfs
->lpszUserName
, 0, 0, 0))
2518 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
2521 /* Login successful... */
2522 if (nResCode
== 230)
2524 /* User name okay, need password... */
2525 else if (nResCode
== 331)
2526 bSuccess
= FTP_SendPassword(lpwfs
);
2527 /* Need account for login... */
2528 else if (nResCode
== 332)
2529 bSuccess
= FTP_SendAccount(lpwfs
);
2531 FTP_SetResponseError(nResCode
);
2534 TRACE("Returning %d\n", bSuccess
);
2540 /***********************************************************************
2541 * FTP_SendCommandA (internal)
2543 * Send command to server
2550 static BOOL
FTP_SendCommandA(INT nSocket
, FTP_COMMAND ftpCmd
, LPCSTR lpszParam
,
2551 INTERNET_STATUS_CALLBACK lpfnStatusCB
, LPWININETHANDLEHEADER hdr
, DWORD_PTR dwContext
)
2555 DWORD nBytesSent
= 0;
2559 TRACE("%d: (%s) %d\n", ftpCmd
, lpszParam
, nSocket
);
2563 lpfnStatusCB(hdr
->hInternet
, dwContext
, INTERNET_STATUS_SENDING_REQUEST
, NULL
, 0);
2566 dwParamLen
= lpszParam
?strlen(lpszParam
)+1:0;
2567 len
= dwParamLen
+ strlen(szFtpCommands
[ftpCmd
]) + strlen(szCRLF
);
2568 if (NULL
== (buf
= HeapAlloc(GetProcessHeap(), 0, len
+1)))
2570 INTERNET_SetLastError(ERROR_OUTOFMEMORY
);
2573 sprintf(buf
, "%s%s%s%s", szFtpCommands
[ftpCmd
], dwParamLen
? " " : "",
2574 dwParamLen
? lpszParam
: "", szCRLF
);
2576 TRACE("Sending (%s) len(%d)\n", buf
, len
);
2577 while((nBytesSent
< len
) && (nRC
!= -1))
2579 nRC
= send(nSocket
, buf
+nBytesSent
, len
- nBytesSent
, 0);
2583 HeapFree(GetProcessHeap(), 0, (LPVOID
)buf
);
2587 lpfnStatusCB(hdr
->hInternet
, dwContext
, INTERNET_STATUS_REQUEST_SENT
,
2588 &nBytesSent
, sizeof(DWORD
));
2591 TRACE("Sent %d bytes\n", nBytesSent
);
2595 /***********************************************************************
2596 * FTP_SendCommand (internal)
2598 * Send command to server
2605 static BOOL
FTP_SendCommand(INT nSocket
, FTP_COMMAND ftpCmd
, LPCWSTR lpszParam
,
2606 INTERNET_STATUS_CALLBACK lpfnStatusCB
, LPWININETHANDLEHEADER hdr
, DWORD_PTR dwContext
)
2609 LPSTR lpszParamA
= lpszParam
?WININET_strdup_WtoA(lpszParam
):NULL
;
2610 ret
= FTP_SendCommandA(nSocket
, ftpCmd
, lpszParamA
, lpfnStatusCB
, hdr
, dwContext
);
2611 HeapFree(GetProcessHeap(), 0, lpszParamA
);
2615 /***********************************************************************
2616 * FTP_ReceiveResponse (internal)
2618 * Receive response from server
2621 * Reply code on success
2625 INT
FTP_ReceiveResponse(LPWININETFTPSESSIONW lpwfs
, DWORD_PTR dwContext
)
2627 LPSTR lpszResponse
= INTERNET_GetResponseBuffer();
2630 char firstprefix
[5];
2631 BOOL multiline
= FALSE
;
2633 TRACE("socket(%d)\n", lpwfs
->sndSocket
);
2635 SendAsyncCallback(&lpwfs
->hdr
, dwContext
, INTERNET_STATUS_RECEIVING_RESPONSE
, NULL
, 0);
2639 if (!INTERNET_GetNextLine(lpwfs
->sndSocket
, &nRecv
))
2646 if(lpszResponse
[3] != '-')
2649 { /* Start of multiline response. Loop until we get "nnn " */
2651 memcpy(firstprefix
, lpszResponse
, 3);
2652 firstprefix
[3] = ' ';
2653 firstprefix
[4] = '\0';
2658 if(!memcmp(firstprefix
, lpszResponse
, 4))
2666 rc
= atoi(lpszResponse
);
2668 SendAsyncCallback(&lpwfs
->hdr
, dwContext
, INTERNET_STATUS_RESPONSE_RECEIVED
,
2669 &nRecv
, sizeof(DWORD
));
2673 TRACE("return %d\n", rc
);
2678 /***********************************************************************
2679 * FTP_SendPassword (internal)
2681 * Send password to ftp server
2688 static BOOL
FTP_SendPassword(LPWININETFTPSESSIONW lpwfs
)
2691 BOOL bSuccess
= FALSE
;
2694 if (!FTP_SendCommand(lpwfs
->sndSocket
, FTP_CMD_PASS
, lpwfs
->lpszPassword
, 0, 0, 0))
2697 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
2700 TRACE("Received reply code %d\n", nResCode
);
2701 /* Login successful... */
2702 if (nResCode
== 230)
2704 /* Command not implemented, superfluous at the server site... */
2705 /* Need account for login... */
2706 else if (nResCode
== 332)
2707 bSuccess
= FTP_SendAccount(lpwfs
);
2709 FTP_SetResponseError(nResCode
);
2713 TRACE("Returning %d\n", bSuccess
);
2718 /***********************************************************************
2719 * FTP_SendAccount (internal)
2728 static BOOL
FTP_SendAccount(LPWININETFTPSESSIONW lpwfs
)
2731 BOOL bSuccess
= FALSE
;
2734 if (!FTP_SendCommand(lpwfs
->sndSocket
, FTP_CMD_ACCT
, szNoAccount
, 0, 0, 0))
2737 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
2741 FTP_SetResponseError(nResCode
);
2748 /***********************************************************************
2749 * FTP_SendStore (internal)
2751 * Send request to upload file to ftp server
2758 static BOOL
FTP_SendStore(LPWININETFTPSESSIONW lpwfs
, LPCWSTR lpszRemoteFile
, DWORD dwType
)
2761 BOOL bSuccess
= FALSE
;
2764 if (!FTP_InitListenSocket(lpwfs
))
2767 if (!FTP_SendType(lpwfs
, dwType
))
2770 if (!FTP_SendPortOrPasv(lpwfs
))
2773 if (!FTP_SendCommand(lpwfs
->sndSocket
, FTP_CMD_STOR
, lpszRemoteFile
, 0, 0, 0))
2775 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
2778 if (nResCode
== 150 || nResCode
== 125)
2781 FTP_SetResponseError(nResCode
);
2785 if (!bSuccess
&& lpwfs
->lstnSocket
!= -1)
2787 closesocket(lpwfs
->lstnSocket
);
2788 lpwfs
->lstnSocket
= -1;
2795 /***********************************************************************
2796 * FTP_InitListenSocket (internal)
2798 * Create a socket to listen for server response
2805 static BOOL
FTP_InitListenSocket(LPWININETFTPSESSIONW lpwfs
)
2807 BOOL bSuccess
= FALSE
;
2808 socklen_t namelen
= sizeof(struct sockaddr_in
);
2812 lpwfs
->lstnSocket
= socket(PF_INET
, SOCK_STREAM
, 0);
2813 if (lpwfs
->lstnSocket
== -1)
2815 TRACE("Unable to create listening socket\n");
2819 /* We obtain our ip addr from the name of the command channel socket */
2820 lpwfs
->lstnSocketAddress
= lpwfs
->socketAddress
;
2822 /* and get the system to assign us a port */
2823 lpwfs
->lstnSocketAddress
.sin_port
= htons(0);
2825 if (bind(lpwfs
->lstnSocket
,(struct sockaddr
*) &lpwfs
->lstnSocketAddress
, sizeof(struct sockaddr_in
)) == -1)
2827 TRACE("Unable to bind socket\n");
2831 if (listen(lpwfs
->lstnSocket
, MAX_BACKLOG
) == -1)
2833 TRACE("listen failed\n");
2837 if (getsockname(lpwfs
->lstnSocket
, (struct sockaddr
*) &lpwfs
->lstnSocketAddress
, &namelen
) != -1)
2841 if (!bSuccess
&& lpwfs
->lstnSocket
!= -1)
2843 closesocket(lpwfs
->lstnSocket
);
2844 lpwfs
->lstnSocket
= -1;
2851 /***********************************************************************
2852 * FTP_SendType (internal)
2854 * Tell server type of data being transferred
2860 * W98SE doesn't cache the type that's currently set
2861 * (i.e. it sends it always),
2862 * so we probably don't want to do that either.
2864 static BOOL
FTP_SendType(LPWININETFTPSESSIONW lpwfs
, DWORD dwType
)
2867 WCHAR type
[] = { 'I','\0' };
2868 BOOL bSuccess
= FALSE
;
2871 if (dwType
& INTERNET_FLAG_TRANSFER_ASCII
)
2874 if (!FTP_SendCommand(lpwfs
->sndSocket
, FTP_CMD_TYPE
, type
, 0, 0, 0))
2877 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
)/100;
2883 FTP_SetResponseError(nResCode
);
2891 #if 0 /* FIXME: should probably be used for FtpGetFileSize */
2892 /***********************************************************************
2893 * FTP_GetFileSize (internal)
2895 * Retrieves from the server the size of the given file
2902 static BOOL
FTP_GetFileSize(LPWININETFTPSESSIONW lpwfs
, LPCWSTR lpszRemoteFile
, DWORD
*dwSize
)
2905 BOOL bSuccess
= FALSE
;
2909 if (!FTP_SendCommand(lpwfs
->sndSocket
, FTP_CMD_SIZE
, lpszRemoteFile
, 0, 0, 0))
2912 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
2915 if (nResCode
== 213) {
2916 /* Now parses the output to get the actual file size */
2918 LPSTR lpszResponseBuffer
= INTERNET_GetResponseBuffer();
2920 for (i
= 0; (lpszResponseBuffer
[i
] != ' ') && (lpszResponseBuffer
[i
] != '\0'); i
++) ;
2921 if (lpszResponseBuffer
[i
] == '\0') return FALSE
;
2922 *dwSize
= atol(&(lpszResponseBuffer
[i
+ 1]));
2926 FTP_SetResponseError(nResCode
);
2936 /***********************************************************************
2937 * FTP_SendPort (internal)
2939 * Tell server which port to use
2946 static BOOL
FTP_SendPort(LPWININETFTPSESSIONW lpwfs
)
2948 static const WCHAR szIPFormat
[] = {'%','d',',','%','d',',','%','d',',','%','d',',','%','d',',','%','d','\0'};
2950 WCHAR szIPAddress
[64];
2951 BOOL bSuccess
= FALSE
;
2954 sprintfW(szIPAddress
, szIPFormat
,
2955 lpwfs
->lstnSocketAddress
.sin_addr
.s_addr
&0x000000FF,
2956 (lpwfs
->lstnSocketAddress
.sin_addr
.s_addr
&0x0000FF00)>>8,
2957 (lpwfs
->lstnSocketAddress
.sin_addr
.s_addr
&0x00FF0000)>>16,
2958 (lpwfs
->lstnSocketAddress
.sin_addr
.s_addr
&0xFF000000)>>24,
2959 lpwfs
->lstnSocketAddress
.sin_port
& 0xFF,
2960 (lpwfs
->lstnSocketAddress
.sin_port
& 0xFF00)>>8);
2962 if (!FTP_SendCommand(lpwfs
->sndSocket
, FTP_CMD_PORT
, szIPAddress
, 0, 0, 0))
2965 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
2968 if (nResCode
== 200)
2971 FTP_SetResponseError(nResCode
);
2979 /***********************************************************************
2980 * FTP_DoPassive (internal)
2982 * Tell server that we want to do passive transfers
2983 * and connect data socket
2990 static BOOL
FTP_DoPassive(LPWININETFTPSESSIONW lpwfs
)
2993 BOOL bSuccess
= FALSE
;
2996 if (!FTP_SendCommand(lpwfs
->sndSocket
, FTP_CMD_PASV
, NULL
, 0, 0, 0))
2999 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
3002 if (nResCode
== 227)
3004 LPSTR lpszResponseBuffer
= INTERNET_GetResponseBuffer();
3008 char *pAddr
, *pPort
;
3010 struct sockaddr_in dataSocketAddress
;
3012 p
= lpszResponseBuffer
+4; /* skip status code */
3013 while (*p
!= '\0' && (*p
< '0' || *p
> '9')) p
++;
3017 ERR("no address found in response, aborting\n");
3021 if (sscanf(p
, "%d,%d,%d,%d,%d,%d", &f
[0], &f
[1], &f
[2], &f
[3],
3024 ERR("unknown response address format '%s', aborting\n", p
);
3027 for (i
=0; i
< 6; i
++)
3030 dataSocketAddress
= lpwfs
->socketAddress
;
3031 pAddr
= (char *)&(dataSocketAddress
.sin_addr
.s_addr
);
3032 pPort
= (char *)&(dataSocketAddress
.sin_port
);
3040 nsocket
= socket(AF_INET
,SOCK_STREAM
,0);
3044 if (connect(nsocket
, (struct sockaddr
*)&dataSocketAddress
, sizeof(dataSocketAddress
)))
3046 ERR("can't connect passive FTP data port.\n");
3047 closesocket(nsocket
);
3050 lpwfs
->pasvSocket
= nsocket
;
3054 FTP_SetResponseError(nResCode
);
3062 static BOOL
FTP_SendPortOrPasv(LPWININETFTPSESSIONW lpwfs
)
3064 if (lpwfs
->hdr
.dwFlags
& INTERNET_FLAG_PASSIVE
)
3066 if (!FTP_DoPassive(lpwfs
))
3071 if (!FTP_SendPort(lpwfs
))
3078 /***********************************************************************
3079 * FTP_GetDataSocket (internal)
3081 * Either accepts an incoming data socket connection from the server
3082 * or just returns the already opened socket after a PASV command
3083 * in case of passive FTP.
3091 static BOOL
FTP_GetDataSocket(LPWININETFTPSESSIONW lpwfs
, LPINT nDataSocket
)
3093 struct sockaddr_in saddr
;
3094 socklen_t addrlen
= sizeof(struct sockaddr
);
3097 if (lpwfs
->hdr
.dwFlags
& INTERNET_FLAG_PASSIVE
)
3099 *nDataSocket
= lpwfs
->pasvSocket
;
3103 *nDataSocket
= accept(lpwfs
->lstnSocket
, (struct sockaddr
*) &saddr
, &addrlen
);
3104 closesocket(lpwfs
->lstnSocket
);
3105 lpwfs
->lstnSocket
= -1;
3107 return *nDataSocket
!= -1;
3111 /***********************************************************************
3112 * FTP_SendData (internal)
3114 * Send data to the server
3121 static BOOL
FTP_SendData(LPWININETFTPSESSIONW lpwfs
, INT nDataSocket
, HANDLE hFile
)
3123 BY_HANDLE_FILE_INFORMATION fi
;
3124 DWORD nBytesRead
= 0;
3125 DWORD nBytesSent
= 0;
3126 DWORD nTotalSent
= 0;
3127 DWORD nBytesToSend
, nLen
;
3129 time_t s_long_time
, e_long_time
;
3134 lpszBuffer
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(CHAR
)*DATA_PACKET_SIZE
);
3136 /* Get the size of the file. */
3137 GetFileInformationByHandle(hFile
, &fi
);
3142 nBytesToSend
= nBytesRead
- nBytesSent
;
3144 if (nBytesToSend
<= 0)
3146 /* Read data from file. */
3148 if (!ReadFile(hFile
, lpszBuffer
, DATA_PACKET_SIZE
, &nBytesRead
, 0))
3149 ERR("Failed reading from file\n");
3152 nBytesToSend
= nBytesRead
;
3157 nLen
= DATA_PACKET_SIZE
< nBytesToSend
?
3158 DATA_PACKET_SIZE
: nBytesToSend
;
3159 nRC
= send(nDataSocket
, lpszBuffer
, nLen
, 0);
3167 /* Do some computation to display the status. */
3169 nSeconds
= e_long_time
- s_long_time
;
3170 if( nSeconds
/ 60 > 0 )
3172 TRACE( "%d bytes of %d bytes (%d%%) in %d min %d sec estimated remaining time %d sec\n",
3173 nTotalSent
, fi
.nFileSizeLow
, nTotalSent
*100/fi
.nFileSizeLow
, nSeconds
/ 60,
3174 nSeconds
% 60, (fi
.nFileSizeLow
- nTotalSent
) * nSeconds
/ nTotalSent
);
3178 TRACE( "%d bytes of %d bytes (%d%%) in %d sec estimated remaining time %d sec\n",
3179 nTotalSent
, fi
.nFileSizeLow
, nTotalSent
*100/fi
.nFileSizeLow
, nSeconds
,
3180 (fi
.nFileSizeLow
- nTotalSent
) * nSeconds
/ nTotalSent
);
3182 } while (nRC
!= -1);
3184 TRACE("file transfer complete!\n");
3186 HeapFree(GetProcessHeap(), 0, lpszBuffer
);
3192 /***********************************************************************
3193 * FTP_SendRetrieve (internal)
3195 * Send request to retrieve a file
3198 * Number of bytes to be received on success
3202 static BOOL
FTP_SendRetrieve(LPWININETFTPSESSIONW lpwfs
, LPCWSTR lpszRemoteFile
, DWORD dwType
)
3208 if (!(ret
= FTP_InitListenSocket(lpwfs
)))
3211 if (!(ret
= FTP_SendType(lpwfs
, dwType
)))
3214 if (!(ret
= FTP_SendPortOrPasv(lpwfs
)))
3217 if (!(ret
= FTP_SendCommand(lpwfs
->sndSocket
, FTP_CMD_RETR
, lpszRemoteFile
, 0, 0, 0)))
3220 nResCode
= FTP_ReceiveResponse(lpwfs
, lpwfs
->hdr
.dwContext
);
3221 if ((nResCode
!= 125) && (nResCode
!= 150)) {
3222 /* That means that we got an error getting the file. */
3223 FTP_SetResponseError(nResCode
);
3228 if (!ret
&& lpwfs
->lstnSocket
!= -1)
3230 closesocket(lpwfs
->lstnSocket
);
3231 lpwfs
->lstnSocket
= -1;
3238 /***********************************************************************
3239 * FTP_RetrieveData (internal)
3241 * Retrieve data from server
3248 static BOOL
FTP_RetrieveFileData(LPWININETFTPSESSIONW lpwfs
, INT nDataSocket
, HANDLE hFile
)
3250 DWORD nBytesWritten
;
3256 lpszBuffer
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(CHAR
)*DATA_PACKET_SIZE
);
3257 if (NULL
== lpszBuffer
)
3259 INTERNET_SetLastError(ERROR_OUTOFMEMORY
);
3265 nRC
= recv(nDataSocket
, lpszBuffer
, DATA_PACKET_SIZE
, 0);
3268 /* other side closed socket. */
3271 WriteFile(hFile
, lpszBuffer
, nRC
, &nBytesWritten
, NULL
);
3275 TRACE("Data transfer complete\n");
3278 HeapFree(GetProcessHeap(), 0, lpszBuffer
);
3283 /***********************************************************************
3284 * FTPFINDNEXT_Destroy (internal)
3286 * Deallocate session handle
3288 static void FTPFINDNEXT_Destroy(WININETHANDLEHEADER
*hdr
)
3290 LPWININETFTPFINDNEXTW lpwfn
= (LPWININETFTPFINDNEXTW
) hdr
;
3295 WININET_Release(&lpwfn
->lpFtpSession
->hdr
);
3297 for (i
= 0; i
< lpwfn
->size
; i
++)
3299 HeapFree(GetProcessHeap(), 0, lpwfn
->lpafp
[i
].lpszName
);
3302 HeapFree(GetProcessHeap(), 0, lpwfn
->lpafp
);
3303 HeapFree(GetProcessHeap(), 0, lpwfn
);
3306 static DWORD
FTPFINDNEXT_FindNextFileProc(WININETFTPFINDNEXTW
*find
, LPVOID data
)
3308 WIN32_FIND_DATAW
*find_data
= data
;
3309 DWORD res
= ERROR_SUCCESS
;
3311 TRACE("index(%d) size(%d)\n", find
->index
, find
->size
);
3313 ZeroMemory(find_data
, sizeof(WIN32_FIND_DATAW
));
3315 if (find
->index
< find
->size
) {
3316 FTP_ConvertFileProp(&find
->lpafp
[find
->index
], find_data
);
3319 TRACE("Name: %s\nSize: %d\n", debugstr_w(find_data
->cFileName
), find_data
->nFileSizeLow
);
3321 res
= ERROR_NO_MORE_FILES
;
3324 if (find
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
3326 INTERNET_ASYNC_RESULT iar
;
3328 iar
.dwResult
= (res
== ERROR_SUCCESS
);
3331 INTERNET_SendCallback(&find
->hdr
, find
->hdr
.dwContext
,
3332 INTERNET_STATUS_REQUEST_COMPLETE
, &iar
,
3333 sizeof(INTERNET_ASYNC_RESULT
));
3339 static void FTPFINDNEXT_AsyncFindNextFileProc(WORKREQUEST
*workRequest
)
3341 struct WORKREQ_FTPFINDNEXTW
*req
= &workRequest
->u
.FtpFindNextW
;
3343 FTPFINDNEXT_FindNextFileProc((WININETFTPFINDNEXTW
*)workRequest
->hdr
, req
->lpFindFileData
);
3346 static DWORD
FTPFINDNEXT_QueryOption(WININETHANDLEHEADER
*hdr
, DWORD option
, void *buffer
, DWORD
*size
, BOOL unicode
)
3349 case INTERNET_OPTION_HANDLE_TYPE
:
3350 TRACE("INTERNET_OPTION_HANDLE_TYPE\n");
3352 if (*size
< sizeof(ULONG
))
3353 return ERROR_INSUFFICIENT_BUFFER
;
3355 *size
= sizeof(DWORD
);
3356 *(DWORD
*)buffer
= INTERNET_HANDLE_TYPE_FTP_FIND
;
3357 return ERROR_SUCCESS
;
3360 return INET_QueryOption(option
, buffer
, size
, unicode
);
3363 static DWORD
FTPFINDNEXT_FindNextFileW(WININETHANDLEHEADER
*hdr
, void *data
)
3365 WININETFTPFINDNEXTW
*find
= (WININETFTPFINDNEXTW
*)hdr
;
3367 if (find
->lpFtpSession
->lpAppInfo
->hdr
.dwFlags
& INTERNET_FLAG_ASYNC
)
3369 WORKREQUEST workRequest
;
3370 struct WORKREQ_FTPFINDNEXTW
*req
;
3372 workRequest
.asyncproc
= FTPFINDNEXT_AsyncFindNextFileProc
;
3373 workRequest
.hdr
= WININET_AddRef( &find
->hdr
);
3374 req
= &workRequest
.u
.FtpFindNextW
;
3375 req
->lpFindFileData
= data
;
3377 INTERNET_AsyncCall(&workRequest
);
3379 return ERROR_SUCCESS
;
3382 return FTPFINDNEXT_FindNextFileProc(find
, data
);
3385 static const HANDLEHEADERVtbl FTPFINDNEXTVtbl
= {
3386 FTPFINDNEXT_Destroy
,
3388 FTPFINDNEXT_QueryOption
,
3395 FTPFINDNEXT_FindNextFileW
3398 /***********************************************************************
3399 * FTP_ReceiveFileList (internal)
3401 * Read file list from server
3404 * Handle to file list on success
3408 static HINTERNET
FTP_ReceiveFileList(LPWININETFTPSESSIONW lpwfs
, INT nSocket
, LPCWSTR lpszSearchFile
,
3409 LPWIN32_FIND_DATAW lpFindFileData
, DWORD_PTR dwContext
)
3412 LPFILEPROPERTIESW lpafp
= NULL
;
3413 LPWININETFTPFINDNEXTW lpwfn
= NULL
;
3414 HINTERNET handle
= 0;
3416 TRACE("(%p,%d,%s,%p,%08lx)\n", lpwfs
, nSocket
, debugstr_w(lpszSearchFile
), lpFindFileData
, dwContext
);
3418 if (FTP_ParseDirectory(lpwfs
, nSocket
, lpszSearchFile
, &lpafp
, &dwSize
))
3421 FTP_ConvertFileProp(lpafp
, lpFindFileData
);
3423 lpwfn
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(WININETFTPFINDNEXTW
));
3426 lpwfn
->hdr
.htype
= WH_HFTPFINDNEXT
;
3427 lpwfn
->hdr
.vtbl
= &FTPFINDNEXTVtbl
;
3428 lpwfn
->hdr
.dwContext
= dwContext
;
3429 lpwfn
->hdr
.refs
= 1;
3430 lpwfn
->hdr
.lpfnStatusCB
= lpwfs
->hdr
.lpfnStatusCB
;
3431 lpwfn
->index
= 1; /* Next index is 1 since we return index 0 */
3432 lpwfn
->size
= dwSize
;
3433 lpwfn
->lpafp
= lpafp
;
3435 WININET_AddRef( &lpwfs
->hdr
);
3436 lpwfn
->lpFtpSession
= lpwfs
;
3437 list_add_head( &lpwfs
->hdr
.children
, &lpwfn
->hdr
.entry
);
3439 handle
= WININET_AllocHandle( &lpwfn
->hdr
);
3444 WININET_Release( &lpwfn
->hdr
);
3446 TRACE("Matched %d files\n", dwSize
);
3451 /***********************************************************************
3452 * FTP_ConvertFileProp (internal)
3454 * Converts FILEPROPERTIESW struct to WIN32_FIND_DATAA
3461 static BOOL
FTP_ConvertFileProp(LPFILEPROPERTIESW lpafp
, LPWIN32_FIND_DATAW lpFindFileData
)
3463 BOOL bSuccess
= FALSE
;
3465 ZeroMemory(lpFindFileData
, sizeof(WIN32_FIND_DATAW
));
3469 SystemTimeToFileTime( &lpafp
->tmLastModified
, &lpFindFileData
->ftLastAccessTime
);
3470 lpFindFileData
->ftLastWriteTime
= lpFindFileData
->ftLastAccessTime
;
3471 lpFindFileData
->ftCreationTime
= lpFindFileData
->ftLastAccessTime
;
3473 /* Not all fields are filled in */
3474 lpFindFileData
->nFileSizeHigh
= 0; /* We do not handle files bigger than 0xFFFFFFFF bytes yet :-) */
3475 lpFindFileData
->nFileSizeLow
= lpafp
->nSize
;
3477 if (lpafp
->bIsDirectory
)
3478 lpFindFileData
->dwFileAttributes
|= FILE_ATTRIBUTE_DIRECTORY
;
3480 if (lpafp
->lpszName
)
3481 lstrcpynW(lpFindFileData
->cFileName
, lpafp
->lpszName
, MAX_PATH
);
3489 /***********************************************************************
3490 * FTP_ParseNextFile (internal)
3492 * Parse the next line in file listing
3498 static BOOL
FTP_ParseNextFile(INT nSocket
, LPCWSTR lpszSearchFile
, LPFILEPROPERTIESW lpfp
)
3500 static const char szSpace
[] = " \t";
3508 lpfp
->lpszName
= NULL
;
3510 if(!(pszLine
= INTERNET_GetNextLine(nSocket
, &nBufLen
)))
3513 pszToken
= strtok(pszLine
, szSpace
);
3515 * <Permissions> <NoLinks> <owner> <group> <size> <date> <time or year> <filename>
3518 * drwx--s--- 2 pcarrier ens 512 Sep 28 1995 pcarrier
3520 if(!isdigit(pszToken
[0]) && 10 == strlen(pszToken
)) {
3521 if(!FTP_ParsePermission(pszToken
, lpfp
))
3522 lpfp
->bIsDirectory
= FALSE
;
3523 for(i
=0; i
<=3; i
++) {
3524 if(!(pszToken
= strtok(NULL
, szSpace
)))
3527 if(!pszToken
) continue;
3528 if(lpfp
->bIsDirectory
) {
3529 TRACE("Is directory\n");
3533 TRACE("Size: %s\n", pszToken
);
3534 lpfp
->nSize
= atol(pszToken
);
3537 lpfp
->tmLastModified
.wSecond
= 0;
3538 lpfp
->tmLastModified
.wMinute
= 0;
3539 lpfp
->tmLastModified
.wHour
= 0;
3540 lpfp
->tmLastModified
.wDay
= 0;
3541 lpfp
->tmLastModified
.wMonth
= 0;
3542 lpfp
->tmLastModified
.wYear
= 0;
3544 /* Determine month */
3545 pszToken
= strtok(NULL
, szSpace
);
3546 if(!pszToken
) continue;
3547 if(strlen(pszToken
) >= 3) {
3549 if((pszTmp
= StrStrIA(szMonths
, pszToken
)))
3550 lpfp
->tmLastModified
.wMonth
= ((pszTmp
- szMonths
) / 3)+1;
3553 pszToken
= strtok(NULL
, szSpace
);
3554 if(!pszToken
) continue;
3555 lpfp
->tmLastModified
.wDay
= atoi(pszToken
);
3556 /* Determine time or year */
3557 pszToken
= strtok(NULL
, szSpace
);
3558 if(!pszToken
) continue;
3559 if((pszTmp
= strchr(pszToken
, ':'))) {
3560 SYSTEMTIME curr_time
;
3563 lpfp
->tmLastModified
.wMinute
= atoi(pszTmp
);
3564 lpfp
->tmLastModified
.wHour
= atoi(pszToken
);
3565 GetLocalTime( &curr_time
);
3566 lpfp
->tmLastModified
.wYear
= curr_time
.wYear
;
3569 lpfp
->tmLastModified
.wYear
= atoi(pszToken
);
3570 lpfp
->tmLastModified
.wHour
= 12;
3572 TRACE("Mod time: %02d:%02d:%02d %04d/%02d/%02d\n",
3573 lpfp
->tmLastModified
.wHour
, lpfp
->tmLastModified
.wMinute
, lpfp
->tmLastModified
.wSecond
,
3574 lpfp
->tmLastModified
.wYear
, lpfp
->tmLastModified
.wMonth
, lpfp
->tmLastModified
.wDay
);
3576 pszToken
= strtok(NULL
, szSpace
);
3577 if(!pszToken
) continue;
3578 lpfp
->lpszName
= WININET_strdup_AtoW(pszToken
);
3579 TRACE("File: %s\n", debugstr_w(lpfp
->lpszName
));
3581 /* NT way of parsing ... :
3583 07-13-03 08:55PM <DIR> sakpatch
3584 05-09-03 06:02PM 12656686 2003-04-21bgm_cmd_e.rgz
3586 else if(isdigit(pszToken
[0]) && 8 == strlen(pszToken
)) {
3587 int mon
, mday
, year
, hour
, min
;
3588 lpfp
->permissions
= 0xFFFF; /* No idea, put full permission :-) */
3590 sscanf(pszToken
, "%d-%d-%d", &mon
, &mday
, &year
);
3591 lpfp
->tmLastModified
.wDay
= mday
;
3592 lpfp
->tmLastModified
.wMonth
= mon
;
3593 lpfp
->tmLastModified
.wYear
= year
;
3595 /* Hacky and bad Y2K protection :-) */
3596 if (lpfp
->tmLastModified
.wYear
< 70) lpfp
->tmLastModified
.wYear
+= 2000;
3598 pszToken
= strtok(NULL
, szSpace
);
3599 if(!pszToken
) continue;
3600 sscanf(pszToken
, "%d:%d", &hour
, &min
);
3601 lpfp
->tmLastModified
.wHour
= hour
;
3602 lpfp
->tmLastModified
.wMinute
= min
;
3603 if((pszToken
[5] == 'P') && (pszToken
[6] == 'M')) {
3604 lpfp
->tmLastModified
.wHour
+= 12;
3606 lpfp
->tmLastModified
.wSecond
= 0;
3608 TRACE("Mod time: %02d:%02d:%02d %04d/%02d/%02d\n",
3609 lpfp
->tmLastModified
.wHour
, lpfp
->tmLastModified
.wMinute
, lpfp
->tmLastModified
.wSecond
,
3610 lpfp
->tmLastModified
.wYear
, lpfp
->tmLastModified
.wMonth
, lpfp
->tmLastModified
.wDay
);
3612 pszToken
= strtok(NULL
, szSpace
);
3613 if(!pszToken
) continue;
3614 if(!strcasecmp(pszToken
, "<DIR>")) {
3615 lpfp
->bIsDirectory
= TRUE
;
3617 TRACE("Is directory\n");
3620 lpfp
->bIsDirectory
= FALSE
;
3621 lpfp
->nSize
= atol(pszToken
);
3622 TRACE("Size: %d\n", lpfp
->nSize
);
3625 pszToken
= strtok(NULL
, szSpace
);
3626 if(!pszToken
) continue;
3627 lpfp
->lpszName
= WININET_strdup_AtoW(pszToken
);
3628 TRACE("Name: %s\n", debugstr_w(lpfp
->lpszName
));
3630 /* EPLF format - http://cr.yp.to/ftp/list/eplf.html */
3631 else if(pszToken
[0] == '+') {
3632 FIXME("EPLF Format not implemented\n");
3635 if(lpfp
->lpszName
) {
3636 if((lpszSearchFile
== NULL
) ||
3637 (PathMatchSpecW(lpfp
->lpszName
, lpszSearchFile
))) {
3639 TRACE("Matched: %s\n", debugstr_w(lpfp
->lpszName
));
3642 HeapFree(GetProcessHeap(), 0, lpfp
->lpszName
);
3643 lpfp
->lpszName
= NULL
;
3650 /***********************************************************************
3651 * FTP_ParseDirectory (internal)
3653 * Parse string of directory information
3659 static BOOL
FTP_ParseDirectory(LPWININETFTPSESSIONW lpwfs
, INT nSocket
, LPCWSTR lpszSearchFile
,
3660 LPFILEPROPERTIESW
*lpafp
, LPDWORD dwfp
)
3662 BOOL bSuccess
= TRUE
;
3663 INT sizeFilePropArray
= 500;/*20; */
3664 INT indexFilePropArray
= -1;
3668 /* Allocate initial file properties array */
3669 *lpafp
= HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, sizeof(FILEPROPERTIESW
)*(sizeFilePropArray
));
3674 if (indexFilePropArray
+1 >= sizeFilePropArray
)
3676 LPFILEPROPERTIESW tmpafp
;
3678 sizeFilePropArray
*= 2;
3679 tmpafp
= HeapReAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY
, *lpafp
,
3680 sizeof(FILEPROPERTIESW
)*sizeFilePropArray
);
3689 indexFilePropArray
++;
3690 } while (FTP_ParseNextFile(nSocket
, lpszSearchFile
, &(*lpafp
)[indexFilePropArray
]));
3692 if (bSuccess
&& indexFilePropArray
)
3694 if (indexFilePropArray
< sizeFilePropArray
- 1)
3696 LPFILEPROPERTIESW tmpafp
;
3698 tmpafp
= HeapReAlloc(GetProcessHeap(), 0, *lpafp
,
3699 sizeof(FILEPROPERTIESW
)*indexFilePropArray
);
3703 *dwfp
= indexFilePropArray
;
3707 HeapFree(GetProcessHeap(), 0, *lpafp
);
3708 INTERNET_SetLastError(ERROR_NO_MORE_FILES
);
3716 /***********************************************************************
3717 * FTP_ParsePermission (internal)
3719 * Parse permission string of directory information
3726 static BOOL
FTP_ParsePermission(LPCSTR lpszPermission
, LPFILEPROPERTIESW lpfp
)
3728 BOOL bSuccess
= TRUE
;
3729 unsigned short nPermission
= 0;
3734 if ((*lpszPermission
!= 'd') && (*lpszPermission
!= '-') && (*lpszPermission
!= 'l'))
3740 lpfp
->bIsDirectory
= (*lpszPermission
== 'd');
3746 nPermission
|= (*(lpszPermission
+1) == 'r' ? 1 : 0) << 8;
3749 nPermission
|= (*(lpszPermission
+2) == 'w' ? 1 : 0) << 7;
3752 nPermission
|= (*(lpszPermission
+3) == 'x' ? 1 : 0) << 6;
3755 nPermission
|= (*(lpszPermission
+4) == 'r' ? 1 : 0) << 5;
3758 nPermission
|= (*(lpszPermission
+5) == 'w' ? 1 : 0) << 4;
3761 nPermission
|= (*(lpszPermission
+6) == 'x' ? 1 : 0) << 3;
3764 nPermission
|= (*(lpszPermission
+7) == 'r' ? 1 : 0) << 2;
3767 nPermission
|= (*(lpszPermission
+8) == 'w' ? 1 : 0) << 1;
3770 nPermission
|= (*(lpszPermission
+9) == 'x' ? 1 : 0);
3774 }while (nPos
<= nLast
);
3776 lpfp
->permissions
= nPermission
;
3781 /***********************************************************************
3782 * FTP_SetResponseError (internal)
3784 * Set the appropriate error code for a given response from the server
3789 static DWORD
FTP_SetResponseError(DWORD dwResponse
)
3795 case 425: /* Cannot open data connection. */
3796 dwCode
= ERROR_INTERNET_CANNOT_CONNECT
;
3799 case 426: /* Connection closed, transer aborted. */
3800 dwCode
= ERROR_INTERNET_CONNECTION_ABORTED
;
3803 case 530: /* Not logged in. Login incorrect. */
3804 dwCode
= ERROR_INTERNET_LOGIN_FAILURE
;
3807 case 421: /* Service not available - Server may be shutting down. */
3808 case 450: /* File action not taken. File may be busy. */
3809 case 451: /* Action aborted. Server error. */
3810 case 452: /* Action not taken. Insufficient storage space on server. */
3811 case 500: /* Syntax error. Command unrecognized. */
3812 case 501: /* Syntax error. Error in parameters or arguments. */
3813 case 502: /* Command not implemented. */
3814 case 503: /* Bad sequence of commands. */
3815 case 504: /* Command not implemented for that parameter. */
3816 case 532: /* Need account for storing files */
3817 case 550: /* File action not taken. File not found or no access. */
3818 case 551: /* Requested action aborted. Page type unknown */
3819 case 552: /* Action aborted. Exceeded storage allocation */
3820 case 553: /* Action not taken. File name not allowed. */
3823 dwCode
= ERROR_INTERNET_EXTENDED_ERROR
;
3827 INTERNET_SetLastError(dwCode
);