>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.

Разработать 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=windows-1251">');

> WriteLn('');

> WriteLn('');

> WriteLn('

Это мой первый CGI-сценарий'

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

> WriteLn('');

> WriteLn('');

>end.

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

Теперь необходимо создать Web-страницу, которая будет обращаться к этому сценарию. Создайте файл с расширением .html следующего содержимого: