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



         

Создание серверного приложения


web-браузер посылает в качестве запроса URL-адрес серверного приложения, а Web-сервер запускает это приложение и передает ему параметры запроса. Сформированная в результате выполнения серверного приложения HTML-страница возвращается WEB-браузеру web-сервером.

Для того, чтобы создать серверное приложение (например CGI), следует:

  1. Создать новый проект (команда меню File|New|Other, вкладка New, пиктограмма Web Server Application).
  2. В диалоге New Web Server Application указать тип создаваемого проекта (например CGI Stand-alone executable).

В результате будет создан проект, содержащий главный файл приложения и модуль Unit1, имеющий следующий код:

{Модуль Unit1.pas} unit Unit1; interface uses SysUtils, Classes, HTTPApp; type TWebModule1 = class(TWebModule) private { Private declarations } public { Public declarations } end; var WebModule1: TWebModule1; implementation {$R *.DFM} end.

Для того чтобы добавить код, формирующий HTML-страницу, следует:

  1. Для объекта TWebModule1 выполнить двойной щелчок мышью на свойстве Action.
  2. В диалоге Editing WebModule1.Actions создать новый элемент (кнопка Add New).
  3. Создать для объекта WebActionItem1 обработчик события OnAction. При этом автоматически будет сформирован следующий код: procedure TWebModule1.WebModule1WebActionItem1Action( Sender: TObject; Request: TWebRequest; // Объект запроса - // позволяет получать данные о выполняемом запросе Response: TWebResponse; // Объект ответа - // используется для формирования ответа // (HTML-страницы var Handled: Boolean); begin

    end;

  4. Сформировать в созданном обработчике события код, формирующий текст HTML-страницы. Этот текст должен быть записан в свойство Content объекта Response.

    Свойству Content можно присваивать значение, оформленное как массив строк. Это может быть реализовано следующимспособом:

    • посредством конкатенаций нескольких строковых значений;

      Например:

      Response.Content:='<I><База данных MyDB </I> '+ <P> <B> Таблица TBL1 </B></P>;

    • с применением переменной типа TStringList, реализующей работу с массивом строк.


      Содержание  Назад  Вперед