• Постановка задачи
  • Разработка проекта
  • Глава 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('<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.





     

    Главная | В избранное | Наш E-MAIL | Добавить материал | Нашёл ошибку | Наверх