На этом шаге мы рассмотрим возможности, имеющиеся в 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-приложения.
На следующем шаге надо добавить в прикладную программу код, выполняющий нужные действия. Для этого, выполняются следующие шаги:
Рис.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;
Рис.4. Результат работы приложения
На следующем шаге мы рассмотрим процесс преобразования CGI-приложения в DLL.