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

Разработать 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 следующего содержимого:

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

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

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