Работа с FTP протоколом на Visual Basic
Перевод статьи Joacim Andersson "Using FTP in VB" (Работа с FTP протоколом на Visual Basic)
В моей последней разработке нужно было использовать функции работы с FTP. Сначала для этой цели я использовал Internet Transfer Controls, но вскоре понял, что этот компонент заточен более на работу с Http. У ITC были проблемы с серверами, на которых было установлено не Микрософтовское ПО (ну, например Apache). Тогда я решил написать собственный FTP компонент в виде класса (совокупности объектов или функций в группе по их свойству и поведению). После часов поиска в MSDN я обнаружил очень интересные функции FtpPutFile, FtpGetFile, FtpCreateDirectory. Работа этих функций становилась возможной при получении данных (хендла) от функции InternetConnect, которая используется для обращения к определенным портам адреса (IP). Но и ей нужна информация от функции InternetOpen. Таким образом, для использования каких-либо FTP команд необходимо последовательно вызвать эти функции. При завершении работы нужно вызвать функцию InternetCloseHandle два раза, чтобы закрыть FTP и Internet сессии.
Правильная последовательность функций:
- Инициализируем работу с интернет функциями через InternetOpen
- Коннектимся к хосту через InternetConnect
- Используем FTP команды
- Закрываем хендлы
Пожалуй, настало время подтвердить теоретическую часть статьи примерами. Для начала самое основное - функция FTPGetFile для получения файла от сервера. Вот так эта функция объявляется:
Private Declare Function FtpGetFile _ Lib "wininet.dll" Alias "FtpGetFileA" ( _ ByVal hFtpSession As Long, _ ByVal lpszRemoteFile As String, _ ByVal lpszNewFile As String, _ ByVal fFailIfExists As Boolean, _ ByVal dwFlagsAndAttributes As Long, _ ByVal dwFlags As Long, _ ByVal dwContext As Long) As Boolean
Как я уже писал, нам понадобятся функции InternetOpen и InternetConnect. Они объявляются так:
Private Declare Function InternetOpen _ Lib "wininet.dll" Alias "InternetOpenA" ( _ ByVal sAgent As String, _ ByVal nAccessType As Long, _ ByVal sProxyName As String, _ ByVal sProxyBypass As String, _ ByVal nFlags As Long) As Long Private Declare Function InternetConnect _ Lib "wininet.dll" Alias "InternetConnectA" ( _ ByVal hInternetSession As Long, _ ByVal sServerName As String, _ ByVal nServerPort As Integer, _ ByVal sUserName As String, _ ByVal sPassword As String, _ ByVal nService As Long, _ ByVal dwFlags As Long, _ ByVal dwContext As Long) As Long
Рассмотрим каждый из четырех шагов в отдельности.
Сначала Шаг первый: Подключение к Интернет.
hINetSession = InternetOpen("MyFTPClient", 0, vbNullString, vbNullString, 0)
Первый параметр (sAgent) указывает на имя программы, которая вызывает функцию. Видимо, здесь можно писать все, что угодно. Второй параметр (nAccessType) может принимать всего три значения - 0,1 и 3. Он определяет, используем ли мы прокси или нет. При значении равном 1 мы коннектимся напрямую. При 3-х мы используем прокси. При этом адрес прокси нужно задать в параметре sProxyName и порт в параметре sProxyBypass. В данном примере для соединения я установил значение 0, при котором функция берет всю информацию из реестра (то есть использует настройки IE). Т.к. мы не определяем прокси-сервер напрямую, то третий и четвертый параметры принимают значение vbNullString. Последний параметр dwFlags определяет работу функции. Ничего нестандартного в этом случае нам не требуется, поэтому просто ставим 0.
Если вызов функции прошел удачно, то переменной hINetSession присвоится ненулевое значение, представляющее собой хендл функции, который мы используем чуть позже.
Шаг второй: производим коннект.
hSession = InternetConnect(hINetSession, "ftp.microsoft.com", "21", "anonymous", "guest", INTERNET_SERVICE_FTP, 0, 0)
Первый параметр InternetConnect представляет собой хендл, полученный при выполнении InternetOpen. Второй - урл или Ip хоста, к которому мы присоединяемся (при этом ftp:// опускается). Следующим параметром идет порт. Я выставил значение порта равное 21, но если вы поставите 0, то ничего страшного не произойдет. Просто программа будет коннектиться через порт по умолчанию (как раз 21). Далее мы передаем логин и пароль. Будьте осторожны! При дизассмеблировании все ваши пароли могут попасть в руки особо старательных крякеров. Следующим параметром мы определяем тип используемого сервиса. Я использовал зарезервированную константу INTERNET_SERVICE_FTP, которая имеет значение 1. Также могут быть использованы следующие значения:
Private Const INTERNET_SERVICE_FTP = 1 Private Const INTERNET_SERVICE_GOPHER = 2 Private Const INTERNET_SERVICE_HTTP = 3
Сейчас нас интересует только FTP. Если выставить 0, то функция сама определит, что нам требуется. В этом случае в параметре sServerName следует указать полный урл (ftp://ftp.pesh.com)
Параметр dwFlags мы могли установить на &H8000000 (или INTERNET_FLAG_PASSIVE), если бы нам потребовалось работать в FTP в пассивном режиме. Здесь мы просто пишем 0. Последний параметр dwContext определяет необходимость возврата функцией значений. Нам это не нужно, поэтому 0.
Шаг третий: вызов FTP функций (например, FTPGetFile)
Сначала мы объявим эту функцию:
Private Declare Function FtpGetFile _ Lib "wininet.dll" Alias "FtpGetFileA" ( _ ByVal hFtpSession As Long, _ ByVal lpszRemoteFile As String, _ ByVal lpszNewFile As String, _ ByVal fFailIfExists As Boolean, _ ByVal dwFlagsAndAttributes As Long, _ ByVal dwFlags As Long, _ ByVal dwContext As Long) As Boolean
Потом нам остается только вызвать ее:
If FtpGetFile(hSession, "dirmap.htm", "c:\dirmap.htm", False, 0, 1, 0) = False Then MsgBox "Call to FtpGetFile Failed!" End If
Первым идет хендл от функции InternetConnect. Далее имя (или полный путь) до файла на удаленном сервере. Третий параметр - путь до места назначения. Параметр №4 fFailExists определяет, как будет вести себя программа, если она обнаружит, что файл с таким именем уже существует. Значение false указывает на то, что такие файлы будут перезаписываться. Атрибуты, присваиваемые локальному файлу, задаются в параметре dwFlagAttributes. Это можно сделать и после. За формат передачи данных отвечает параметр dwFlags: ASCII = 1, Binary = 2. Последний параметр также отвечает за возврат значений.
Пункт четвертый, заключительный: закрываем хендлы
Хендлы закрываются в порядке, противоположном их открытию. Сначала закроем hSession, а потом InetSession. Для этого используем функцию InternetCloseHandle.
Private Declare Function InternetCloseHandle _ Lib "wininet.dll" (ByVal hInet As Long) As Integer
Так она вызывается:
Call InternetCloseHandle(hSession) Call InternetCloseHandle(hINetSession)
Готово! Мы скачали файл. Теперь разберемся с другими функциями.
Для отправки файла на сервер выполняем шаги 1 и 2 и вызываем функцию FTPPutFile, которая выглядит так:
Private Declare Function FtpPutFile _ Lib "wininet.dll" Alias "FtpPutFileA" ( _ ByVal hFtpSession As Long, _ ByVal lpszLocalFile As String, _ ByVal lpszRemoteFile As String, _ ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
Как видите, очень похоже на FTPGetFile.
Сначала идет хендл от InternetConnect, путь и имя локального и "удаленного" файлов. Параметр dwFlags задает тип передачи ASCII = 1, Binary = 2; последний аргумент опускаем.
If FtpPutFile(hSession, "c:\MyFile.txt", "shared.txt", 1, 0) = False Then MsgBox "The call to FtpPutFile failed." End If
Вызов функции может оказаться неуспешным, если у пользователя нет прав закачивать файлы на сервер.
УДАЛЯЕМ ФАЙЛ
Private Declare Function FtpDeleteFile _ Lib "wininet.dll" Alias "FtpDeleteFileA" ( _ ByVal hFtpSession As Long, _ ByVal lpszFileName As String) As Boolean
Здесь просто выставляем хендл и имя удаляемого файла. Опять может не сработать при отсутствии прав на удаление.
ПЕРЕИМЕНОВАНИЕ
Private Declare Function FtpRenameFile _ Lib "wininet.dll" Alias "FtpRenameFileA" ( _ ByVal hFtpSession As Long, _ ByVal lpszExisting As String, _ ByVal lpszNewName As String) As Boolean
Снова требуется только хендл и имена файлов(старое и новое)
ПОЛУЧАЕМ СПИСОК ФАЙЛОВ и ДИРЕКТОРИЙ НА СЕРВЕРЕ
Как вы могли заметить, все вышеописанные функции очень просты. Вот пример посложнее. Значения функции могут выводится в Листбокс или его аналог. Нам потребуются две функции FtpFindFirstFile и InternetFindNextFile:
Private Declare Function FtpFindFirstFile _ Lib "wininet.dll" Alias "FtpFindFirstFileA" ( _ ByVal hFtpSession As Long, _ ByVal lpszSearchFile As String, _ ByRef lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, _ ByVal dwContent As Long) As Long Private Declare Function InternetFindNextFile _ Lib "wininet.dll" Alias "InternetFindNextFileA" ( _ ByVal hFind As Long, _ ByRef lpvFindData As WIN32_FIND_DATA) As Long
Эти функции возвращают ненулевое значение при обнаружении файла и 0, если произошла ошибка. Для того чтобы определить реальная ли это ошибка или просто больше нет файлов нужно, проверить значение Err.LastDllError. Если оно равно ERROR_NO_MORE_FILES (=18), то все нормально, если нет, то дело наше плохо.
Обе этих функции имеют параметр WIN32_FIND_DATA, который представляет собой тип или структуру, определяемую юзером.
Private Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * 260 cAlternate As String * 14 End Type
Подструктура FILENAME:
Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type
Далее я привожу пример заполнения ListBox файлами и директориями с сервера. Считаем, что вы уже получили FTP хендл c именем hSession.
Private Sub ListFiles() Dim hFile As Long ' This is a file handle Dim fd As WIN32_FIND_DATA hFile = FtpFindFirstFile(hSession, "*.*", fd, 0, 0) If hFile = 0 Then If Err.LastDLLError = ERROR_NO_MORE_FILES Then MsgBox "No files found" Exit Sub Else MsgBox "Some error occurred" Exit Sub End If End If Do List1.AddItem fd.cFileName Loop While InternetNextFile(hFile, fd) <> 0 'Close the file handle Call InternetCloseHandle(hFile) End Sub
Заключение.
Как вы видите, описывать FTP функции очень просто. Конечно, есть ещё много разных функций, типа создания директории, но их также легко написать, главное не забывайте закрывать хендлы.
Оставить комментарий
Комментарии
Подскажите, пожалуйста, где подсмотреть значения констант, например INTERNET_FLAG_RESYNCHRONIZE для параметра dwFlags?
В этом цикле:
Do
List1.AddItem fd.cFileName
Loop While InternetNextFile(hFile, fd) <> 0
'Close the file handle
Call InternetCloseHandle(hFile)
End Sub
вместо InternetNextFile должно быть InternetFindNextFile от функции
Private Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" (ByVal hFind As Long, ByRef lpvFindData As WIN32_FIND_DATA) As Long
ошибка
надо InternetFindNextFile
Но, все-равно, Афтар - ЗАЧОТ!