Delphi. Учимся на примерах

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;

Сначала мы предлагаем пользователю указать имя и путь размещения полученного файла. Затем мы загружаем файл и размещаем его по указанному пути.

Наконец, обработаем нажатие кнопки Загрузить файл на сервер:

procedure TForm1.Button3Click(Sender: TObject);
var
 i: integer;
 FName, temp: string; //для получения имени файла
begin
 if not Open1.Execute then ShowMessage('Файл не выбран!')
 else begin
 //очищаем переменные, которые содержат имя файла
 temp:= '';
 FName:= '';
//получаем имя файла
 for i: = Length(Open1.FileName) downto 1 do
 begin
 if Open1.FileName[i] = '\' then break;
 temp:= temp+ Open1.FileName[i];
 end;
 for i:=length(temp) downto 1 do
 fname:= fname + temp[i];
 ftp.Upload(Open1.FileName, FName); //загружаем файл
 end;
end;

Здесь мы сначала просим пользователя выбрать файл, который он хочет передать на сервер. Затем узнаем имя выбранного файла и загружаем его на сервер с таким же именем.

В общем, наш ftp-клиент уже полностью работоспособен и выполняет все необходимые функции. Единственное, что осталось сделать, — реализовать извещение пользователя о протекании всех операций и обо всех ошибках. Для этого следует создать несколько обработчиков событий компонента ftp.

Событие в случае возникновения ошибки при проверке имени и пароля — OnAuthеntiсatiоnFailed:

procedure TForm1.ftpAuthenticationFailed(var Handled: Boolean);
begin
 status1.Lines.Add('Неверное имя или пароль');
end;

Событие при подключении — OnConnect:

procedure TForm1.ftpConnect(Sender:tobject);
begin
 status1.Lines.Add('Подключено');
 //локальный ip-адрес
 status1Lines.Add('IP клиента: ' + ftp.LocalIP);
 //удаленный ip-адрес
 status1Lines.Add('IPсервера: ' + ftp.RemoteIP);
end;

Событие в случае возникновения ошибки при подключении — OnConnectionFailed:

procedure TForm1.ftpConnectionFailed(Sender: TObject);
begin
 status1.Lines.Add('He удалось подключиться к серверу');
end;

Событие при отключении от сервера — OnDisconnect:

procedure TForm1.ftpDisconnect(Sender: TObject);
begin
 status1.Lines.Add('Отключено');
end;

Событие в случае возникновения некоторой ошибки — OnError:

procedure TForml.ftpError(Sender: TComponent; Errno: Word; Errmsg: String);
begin
 status1.Lines.Add('Ошибка: ' + errmsg);
end;

Событие в случае возникновения ошибки при подключении к серверу — OnInvaIidHost:

procedure TForm1.ftpInvalidHost(var Handled: Boolean);
begin