Основы разработки приложений Internet

Предполагается, что пользователь имеет базовые понятия об языке раз­метки гипертекстa HTML [8] (этот пункт подготовлен А. Кочетовым).

Протокол HTTP, язык HTML и универсальный локатор ресурса URL составляют основу WWW [4]. HTTP (HyperText Transfer Protocol) - протокол передачи гипертекста, основанный на идее «ссылки», реали­зо­ванной в универсальном идентификаторе ресурса (URL) и уни­вер­сальном имени ресурса (URN). Второй основной частью протокола HTTP является идея запроса-ответа.

Динамически формируемые Web‑документы создаются сервером в процессе обработки клиентского запроса. Серверные программы, выполняющие эту функцию, подразделяются на два типа: Web-сервер может вызывать исполняемую программу или поручить это дело вызываемой процедуре из библиотеки динамической загрузки (DLL). Delphi поддерживает все четыре интерфейса приложений, выполняемых на сервере и позволяющих создавать динамические документы HTML: ISAPI и NSAPI (использует.DLL), CGI и Win-CGI (использует.EXE). Исходный текст для всех интерфейсов может быть один. Различия лишь при создании «проекта», т.е. имея исходный код приложения CGI, вы можете получить приложение интерфейса ISAPI, лишь создав таковое (File/New/Web Server application/ISAPI) и перенеся код. Никаких изменений не требуется.

Пример создания Web-приложения типа CGI вывода текущего времени (рис. 4.10.6.1):

Рис. 4.10.6.1. Окно приложения

1. Выберите пункт меню File/New/Web Server application/CGI. Мастер создаст для вас приложение и WebModule, который является потомком TDataModule и наследует его свойства, и если вы имели проект по работе с базами данных с использованием TDataModule, то вы можете произвести публикацию данных в Internet, лишь добавив в DataModule компонент WebDispatcher. Он же и встроен в TWebModule.

2. Дважды щелкните в Инспекторе Объектов на свойстве Actions. Добавьте новую строку в таблицу действий кнопкой Add New.

3. Дважды щелкните на событии OnAction. Отредактируйте текст обработчика так, как он представлен ниже:

Procedure TWebModule1WebActionItem1Action(Sender:TObject;

Request:TwebRequest; Response:TwebResponse; var Handled:Boolean);

Дата добавления: 2014-12-08