ИюНь - Xakep Online

coding
По нажатию на кнопку «Настройки» будет вызываться дополнительная
форма, в которой нужно будет ввести имя пользователя, пароль, сервер
и порт.
Кодинг
Простенький дизайн нашего FTP-клиента готов, поэтому приступаем к
приготовлению горячей начинки — написанию кода. Первым делом не
забудь подключить к нашему проекту модуль Winsock.pas, иначе вызов
сетевых функций будет невозможен. Теперь надо объявить все необходимые
переменные в разделе private:
_wsaData:TWSADATA;
_clientSocket:TSocket;
_serverSocket:TSocket;
_clientAddr:sockaddr_in;
_serverAddr:sockaddr_in;
_mode:integer;
_tempSocket:TSocket;
Об их предназначении ты узнаешь по ходу рассмотрения примера. При
описании сетевых функций я говорил, что перед их использованием
нужно инициализировать сетевую библиотеку. Инициализацию сетевой
библиотеки я делаю во время создания формы, а ее освобождение
— во время закрытия окна. Если при этом у тебя возникли проблемы,
то открывай исходник на нашем DVD и сравнивай. После инициализации
сетевой библиотеки можно попытаться соединиться с удаленным
сервером. По нажатию кнопки «Соединиться» у меня вызывается
самописная процедура _connect(), которой нужно передать все необходимые
для подключения данные (адрес сервера, логин, пароль,
порт). Код этой процедуры ты можешь увидеть во врезке «Соединяемся
с сервером».
Давай-ка подробно рассмотрим содержимое кода установки соединения
с удаленным сервером, отображенного в этой врезке. В самом
начале я создаю новый сокет. Ты уже знаешь, для того чтобы создать
новый сокет, нужно воспользоваться функцией SOCKET, которая после
выполнения возвратит указатель на созданный сокет. После вызова
функции SOCKET, я проверяю, а не возникла ли ошибка. Если да, то
я запускаю самописную процедуру GetError, передав ей название
вызываемой функции. Процедура GetError попытается получить код
ошибки и в конце концов проинформирует пользователя, напечатав в
TRichEdit соответствующий текст. Код процедуры GetError ты можешь
посмотреть, открыв исходник примера, любезно дожидающийся тебя
на нашем диске. Если ошибки не возникло, то можно начинать готовиться
к соединению с удаленным сервером. Как ты должен помнить,
чтобы установить соединение с сервером, нужно вызвать функцию
connect, которой необходимо передать структуру типа sockaddr_in.
Ну а чтобы ее передать, ее нужно заполнить, что я и делаю. После
заполнения структуры, я вызываю функцию WSAAsyncSelect(). Эта
функция устанавливает асинхронный режим для выбранного сокета и
заставляет Windows генерировать сообщения для сетевых событий.
Таким образом, нам достаточно указать сообщение, которое должно
приходить окну нашего приложения при возникновении события на
определенном сокете.
На первый взгляд может показаться, что этот метод сложен в реализации.
На самом деле это не так, и через несколько минут ты в этом убедишься, но
сначала давай взглянем на параметры, которые нужно передать функции:
1) s — сокет, за событиями которого необходимо наблюдать; 2) hWindow
— окно, которое будет принимать сообщения; 3) wMsg — системное
xàêåð 06 /102/ 07
/
событие, которое нужно генерировать; 4) lEvent — сетевые события, за
которыми мы будем наблюдать. В качестве событий ты можешь указать:
FD_READ (возникает, когда пришли данные), FD_WRITE (проявляется,
когда можно передавать данные), FD_OOB (когда прибыли срочные данные),
FD_ACCEPT (когда в очереди сокета есть новое подключение), FD_
CONNECT (при соединении с сервером). В качестве третьего параметра я
указал лишь FD_READ. Когда на наш сокет придут данные, главное окно
нашего приложения получит сообщение WM_MYSOCKMESS. Чтобы его не
прозевать, нам нужно написать процедуру, которая будет перехватывать
нужное сообщение.
Перед тем как привести код процедуры, я хотел бы объяснить тебе, что
собой представляет WM_MYSOCKMESS. В нашем примере это константа,
которая объявлена мной и равна WM_USER+1. Что такое WM_USER Это
число. Все числа, меньше этого, могут уже использоваться системой,
поэтому, чтобы не было конфликтов, нужно просто использовать это
число +1.
Немного отвлечемся от рассмотрения функции WSAAsyncSelect() и
вернемся к разбору кода установки соединения с удаленным сервером.
После WSAAsyncSelect() вызывается функция Connect, которая начинает
устанавливать соединение с удаленным сервером. По окончанию выполнения
функции Connect я приступаю к отправке данных для прохождения
авторизации (вспоминай теорию). Отправка данных реализована в самописной
функции _send(). В качестве параметров ей нужно передать сокет,
через который будут отправлены данные, и сами данные.
Теперь вернемся к интересной функции WSAAsyncSelect(). Я уже говорил,
что для перехвата нужного события необходимо объявить специальную
процедуру. В примере я объявил ее в разделе private следующим образом:
procedure NetMSG (var M:TMessage); message WM_
MYSOCKMESS;
Код тела процедуры ты можешь увидеть в примере на диске. Как видно
из описания, в процедуру передается структура типа TMessage. В этой
структуре имеется несколько параметров, но нас будут интересовать
только два: WParam и LParam. В первом хранится дескриптор сокета, на
котором произошло событие, а во втором — его тип. Для проверки типа я
использую управляющую структуру CASE, в которой и проверяю интересующие
меня события.
При возникновении события FD_READ вызывается процедура _recv, которая
и выполняет чтение данных с определенного сокета. Код процедур _recv
и _send (для отправки данных) ты можешь увидеть в исходнике примера.
Тестирование
Наш пример наполовину готов, теперь самое время протестировать его
работоспособность. Попробуем скомпилить наше приложение и подцепиться
к какому-нибудь ftp-серверу. Результаты моего тестирования ты
можешь увидеть на рисунке. Для теста я подцепился к серверу своего
хостера и успешно прошел авторизацию.
Disconnect
Рассмотреть весь код FTP-клиента в рамках одной статьи просто невозможно.
Поэтому разбираться с установлением второго соединения (для
передачи данных) тебе придется самостоятельно. Сильно по этому поводу
не переживай. Ты всегда можешь заглянуть на наш диск и посмотреть
исходник FTP-клиента, в котором я уже реализовал получения списка
файлов определенной директории. Весь исходник я постарался максимально
прокомментировать, поэтому с пониманием возникнуть проблем
не должно. z
113