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

Парижский Сергей Михайлович

Глава 19

Написание CGI-приложений

 

 

Постановка задачи

Разработать 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('Первый cgi-сценарий на Delphi ');

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

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

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

В WriteLn('');

В WriteLn('');

В WriteLn('

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

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

В WriteLn('');

В WriteLn('');

end.

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

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

<ТIТLE>Первый cgi-сценарий на Delphi

В 

<р>Также вы можете выполнять сценарии, просто делая на них

ссылку: ссылка на cgi-сценарий

Это форма с кнопкой, которая активизирует CGI-сценарий (рис. 19.2).

Рис. 19.2. Web-страница для вызова CGI-сценария

Для того чтобы протестировать сценарий, необходимо переписать рассмотренные выше файлы на сервер с поддержкой CGI или установить и настроить собственный Web-сервер (например, Apache). Открыв показанную Web-страницу, следует нажать кнопку Выполнить или щелкнуть мышью на ссылке.

В ответ должна быть отображена новая страница с текстом "Это мой первый CGI-сценарий" (рис. 19.3).

Рис. 19.3. Страница, выданная CGI-сценарием cgi_test.cgi

⊚ Р’СЃРµ файлы рассмотренного проекта находятся РЅР° прилагаемом Рє РєРЅРёРіРµ компакт-РґРёСЃРєРµ РІ папке Chapter_19.