Задачи по Python с решениями

   
На этом шаге мы рассмотрим возможности, имеющиеся в 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-приложения.

   
На следующем шаге надо добавить в прикладную программу код, выполняющий нужные действия.
Для этого, выполняются следующие шаги:

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;

По итогам работы приложения получаем HTML-страницу следующего вида:
Рис.4. Результат работы приложения

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