На этом шаге мы рассмотрим возможности, имеющиеся в Delphi, по созданию интерфейса Web-сервера.
Трудно сразу сделать правильный выбор между CGI-приложением и динамически загружаемой
библиотекой DLL (ISAPI и NSAPI). Однако, в Delphi, этот выбор
можно заранее и не делать, а компилировать готовый проект в любой тип приложения: CGI, WIN-CGI, ISAPI или NSAPI.
Если выбранный тип приложения по каким-то причинам не устроит, всегда можно пересобрать проект
в другой тип приложения.
Можно переписать простое CGI-приложение, сообщающее текущее время, используя интерфейс Delphi Web-сервера;
для чего необходимо выполнить следующие действия:
Выбрать команду меню File | New | Other..., которая выведет на экран диалоговое окно
New Items. В закладке New выбрать приложение Web-сервера и нажать ОК.
Рис.1. Выбор приложения Web-сервера
Далее необходимо указать тип серверного приложения CGI Stand-alone executable (автономная исполняемая программа CGI).
Рис.2. Выбор типа сервера
В результате получится новый пустой проект с модулем Web и соответствующими установками,
необходимыми для создания CGI-приложения.
На следующем шаге надо добавить в прикладную программу код, выполняющий нужные действия.
Для этого, выполняются следующие шаги:
На экран выведется новое окно диалога, озаглавленное как "Editing WebModulel.Actions".
Диалоговое окно будет иметь имеет пять столбцов: Name (Имя), Pathlnfo (Путь),
Enabled (Активен), Default (Используется по умолчанию) и
Producer (Поставщик):
Рис.3. Результат двойного щелчка по свойству Actions
созданию прототипа для обработчика события. Этот код будет выполняться при вызове программы
из браузера клиента.
procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); begin Response.Content:= '<H1> Привет! </Н1> <HR>' + '<B>Приложение CGI </B><HR>'+'Текущее время:'+ TimeToStr(SysUtils.Time); end;
Текст этого приложения можно взять здесь (99,6 Кб).
вызовем эту прикладную программу CGI точно так, как это делали прежде,
чтобы выполнить CGI-приложение сервера.

Рис.4. Результат работы приложения
На следующем шаге мы рассмотрим процесс преобразования CGI-приложения в DLL.