Книга: 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('<HTML>'); //начало страницы
 WriteLn('<HEAD>');
 //заголовок
 WriteLn('<TITLE>Первый cgi-сценарий на Delphi</TITLE>');
 //кодировка и тип содержимого
 WriteLn('<МЕТА http-equiv="Content-Type" ' +
   'content="text/html; charset=windows-1251">');
 WriteLn('</HEAD>');
 WriteLn('<BODY>');
 WriteLn('<H1><CENTER>Это мой первый CGI-сценарий</CENTER>'
   +'</Н1>'); //выводим текст большими жирными буквами
 WriteLn('</BODY>');
 WriteLn('</HTML>');
end.

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

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

<HTML>
<HEAD>
<ТIТLE>Первый cgi-сценарий на Delphi</TITLE>
</HEAD>
<BODY>
<FORM method="POST" action="cgi/cgi_test.cgi" method="POST">
 <input type="submit" value= "Выполнить">
</FORM>
<р><b>Также вы можете выполнять сценарии, просто делая на них
ссылку: </b><a href="cgi/cgi_test.cgi">ссылка на cgi-сценарий</а>
</BODY>
</HTML>

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


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

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

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


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

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

Оглавление книги

Оглавление статьи/книги

Генерация: 0.557. Запросов К БД/Cache: 2 / 0
поделиться
Вверх Вниз