>begin
> ftp.Host:= ftpserver.Text; //ftp-сервер
> ftp.UserID:= name.Text;//логин
> ftp.Password:= pass.Text;// пароль
> ftp.Port:= StrToInt(port.Text); //порт для подключения
> //соединяемся с сервером
> if not ftp.Connected then ftp.Connect;
>end;
Здесь мы считываем все данные, которые необходимы для соединения с сервером. После этого мы пытаемся соединиться с сервером. Об успешности этой операции можно будет узнать в поле состояния.
Обработаем нажатие кнопки Отключиться:
>procedure TForm1.Button2Click(Sender: TObject);
>begin
> if ftp.Connected then//если соединен
> ftp.Disconnect;//отключиться от сервера
>end;
Если при нажатии кнопки Отключиться установлено соединение с сервером, то мы разрываем его.
Теперь обработаем нажатие кнопок, которые служат для работы с сервером. Обработчик события OnClick для кнопки Удалить:
>procedure TForm1.Button4Click(Sender : TObject);
>begin
> ftp.Delete(del.text); //удалить файл
>end;
Здесь мы удаляем файл, имя которого пользователь ввел в поле рядом с кнопкой.
Обработаем нажатие кнопки Изменить каталог:
>procedure TForm1.Button5Click(Sender: TObject);
>begin
> ftp.ChangeDir(cd.Text); //изменяем каталог
>end;
Устанавливаем текущим тот каталог, который указан в поле cd.
Обработаем нажатие кнопки Выполнить команду:
>procedure TForm1.Button6Click(Sender: TObject);
>begin
> ftp.DoCommand(cmd.Text); //выполнение команды
>end;
При работе с сервером мы предоставляем пользователю возможность работать не только с помощью команд, предусмотренных в интерфейсе, но и выполнять на сервере любые произвольные команды. Для этого у нас есть поле cmd, в котором пользователь вводит команду, и кнопка Выполнить команду, по нажатию которой введенная команда выполняется.
Обработаем нажатие кнопки Создать каталог:
>procedure TForm1.Button7Click(Sender: TObject);
>begin
> ftp.MakeDirectory(md.Text); //создать каталог
>end;
Обработаем нажатие кнопки Удалить каталог:
>procedure TForm1.Button8Click(Sender: TObject);
>begin
> ftp.RemoveDir(rd.Text); //удалить каталог
>end;
Обработаем нажатие кнопки Скачать файл:
>procedure TForm1.Button9Click(Sender: TObject);
>begin
> //открытие диалогового окна сохранения файла
> if Save1.Execute
> then //скачиваем указанный файл
> ftp.Download(download.Text, save1.FileName)
> else ShowMessage('File not saved!'); {если пользователь отказался сохранять файл}
>end;
Сначала мы предлагаем пользователю указать имя и путь размещения полученного файла. Затем мы загружаем файл и размещаем его по указанному пути.
