//удаленный ip-адрес

status1Lines.Add('IPсервера: ' + ftp.RemoteIP);

end;

procedure TForm1.ftpConnectionFailed(Sender: TObject);

begin

status1.Lines.Add('He удалось подключиться к серверу');

end;

procedure TForm1.ftpInvalidHost(var Handled: Boolean);

begin

status1.Lines.Add('Ошибка при подключении к серверу');

end;

procedure TForm1.ftpSuccess(Trans_Type: TCmdType);

begin

status1.Lines.Add('Успешно');

end;

procedure TForm1.ftpTransactionStart(Sender: TObject);

begin

status1.Lines.Add('Начало передачи данных');

end;

procedure TForm1.ftpTransactionStop(Sender: TObject);

begin

statusl.Lines.Add('Конец передачи данных');

end;

procedure TForm1.ftpAuthenticationFailed(var Handled: Boolean);

begin

status1.Lines.Add('Неверное имя или пароль');

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if ftp.Connected then//если соединен

ftp.Disconnect;//отключиться от сервера

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;

procedure TForm1.FormDestroy(Sender: TObject) ;

begin

if ftp.Connected then ftp.Disconnect;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

ftp.ChangeDir(cd.Text); //изменяем каталог

end;

procedure TForm1.Button4Click(Sender : TObject);

begin

ftp.Delete(del.text); //удалить файл

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

ftp.DoCommand(cmd.Text); //выполнение команды

end;

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;

end.

⊚ Все файлы проекта и исполняемый файл рассмотренной программы находятся на прилагаемом к книге компакт-диске в папке Chapter_18.

Разработать CGI-сценарий на Delphi. В качестве примера, при активации через форму сценарий будет выводить определенную фразу.

К удивлению некоторых программистов, в Delphi можно разрабатывать CGI-сценарии. Для примера, разработаем сценарий, при обращении к которому будет создаваться HTML-страница с текстом "Это мой первый CGI-сценарий".

Поскольку это будет не обычная выполняемая программа, то стандартный проект, который по умолчанию предлагает нам Delphi, не подходит. Выполните команду меню File→New→Other, в результате чего откроется диалоговое окно New Items(рис. 19.1).

Рис. 19.1. Диалоговое окно New Items

Выберите тип программы Console Applicationи нажмите кнопку OK. В появившемся окне сотрите весь текст и введите следующий код:

program cgi_test;//название сценария

{$APPTYPE CONSOLE}

{$Е cgi}//расширение приложения будет .cgi

begin

//способ отображения – text/html

WriteLn('Content-Type: text/html');

WriteLn;

WriteLn;

WriteLn(''); //начало страницы

WriteLn('

//заголовок

WriteLn('');

//кодировка и тип содержимого

WriteLn('<���МЕТА http-equiv="Content-Type" ' +

'content="text/html; charset=UTF-8">');

WriteLn('');

WriteLn('

WriteLn('

+'</Н1>');//выводим текст большими жирными буквами

WriteLn('

WriteLn('

end.

Откомпилируйте приложение и присвойте ему имя cgi_test.cgi. Этот CGI-сценарий при обращении к нему создает страницу с заголовком "Первый cgi-сценарий на Delphi" и большим текстом на странице: "Это мой первый CGI-сценарий".