Создание ASP-компонентов в Delphi 6

Сергей Трепалин

Что такое ASP

SP (Active Server Pages) — технология, которая позволяет создавать Web-страницы, содержащие код, выполняемый Web-сервером, и динамически формировать Web-страницы.  Вместе с Microsoft Internet Information Services поставляется несколько COM-объектов, выполняющих серверный код. Современная версия этой технологии позволяет использовать в ASP-страницах произвольные серверные компоненты. Клиентское приложение, использующее  ASP-объекты, представляет собой HTML-документ (куда могут также входить клиентский и серверный коды  на скриптовых языках), который можно прочесть практически с помощью любого Web-браузера. Обычно эти HTML-документы размещаются на каком-либо Web-сервере (как правило, это Microsoft Internet Information Server версии  3.0 и выше). Web-сервер, получив требование о предоставлении документа, считывает его из локального хранилища и передает клиенту, при этом часть информации вносится в документ Web-сервером динамически; сам же Web-сервер в этом случае может обращаться к ASP-объектам (входящим в комплект поставки Internet Information Server или созданным сторонними разработчиками). Как правило, Web-документы, содержащие обращения к ASP-объектам, имеют расширение *.asp. Примеры подобных документов можно найти в каталогах, создаваемых при установке Internet Information Server.

Ранее (см. Компьютер Пресс, №2’2001, c. 169) мы рассказывали о создании простейших ASP-приложений, в том числе для работы с базами данных. Настоящую публикацию следует рассматривать как продолжение той статьи.

Объекты, используемые в ASP

ерархию объектов, используемых в технологии ASP, можно увидеть на рис. 1.

Рис. 1. Иерархия объектов ASP-сервера

Объект Request

Объект Request используется для доступа к данным, которые формируются клиентом при обращении к ASP-серверу. Доступ к объекту Request получают с помощью интерфейса IRequest, которому присущи следующие основные свойства и методы:

• свойство ClientSertificate — содержит значения всех полей клиентного сертификата, которые пересылаются в http-сообщении;
• свойство Cookies — содержит значения всех заголовков Cookie в HTTP-запросе. Cookie — небольшие текстовые файлы, которые запоминаются на компьютере конечного пользователя и передаются на сервер в каждом запросе. С их помощью можно создать «сессию» для клиента: когда клиент обращается первоначально  к одной, затем к другой странице и т.д. (при этом клиент не имеет права перейти к следующей странице, не обратившись к предыдущей);
• свойство Form — если клиент осуществляет обращение к ASP-серверу с помощью формы, то можно получить значения заполненных полей в форме при обращении к свойству Form с добавлением имени поля;
• свойство ServerVariables — содержат большинство переменных, необходимых для формирования HTTP-заголовков;
• свойство TotalBytes — суммарное число байт, которые передаются клиентом на сервер. Реальное число байт может быть меньше, так как протокол HTTP  не позволяет пересылать пакеты, размер которых превышает  8 Kбайт;
• свойство QueryString — содержит имена и значения полей запроса при использовании метода GET;
• свойство  Body — содержит имена и значения полей запроса при использовании метода POST;
• метод BinaryRead — используется для получения содержимого всего запроса, посылаемого клиентом,  если размер запроса превышает  8 Kбайт. Вызов этого метода позволяет получить следующие 8 Kбайт данных HTTP-запроса. Вызов следует повторять до тех пор, пока не будет прочитан весь запрос; при этом размер последнего пакета может быть менее 8 Kбайт. Результаты вызова метода запоминаются в двоичном массиве. Следует обратить внимание на то, что после вызова этого метода нельзя обращаться к свойству Form.

Объект Response

В этом классе формируется отклик ASP-сервера, который передается клиенту. Доступ к этому объекту осуществляется через интерфейс IResponse. Основные свойства и методы данного интерфейса таковы:

• свойство Cookies — позволяет создать коллекцию параметров вместе с их значениями. К этой коллекции также добавляется время, в течение которого данную коллекцию следует сохранять в клиентском приложении. При успешном получении отклика клиент запоминает эти параметры на диске в виде файла. При следующем обращении к серверу эти данные будут переданы в запросе и их можно будет получить при использовании свойства Request.Cookie. Анализ этих данных позволяет определить, обращался ли клиент к серверу ранее и если обращался,  то с какими запросами. Cookie используются для создания «сессии» с клиентом в CGI-приложениях, поскольку IP-адреса клиента могут изменяться Proxy-серверами во время сессии. В ASP-приложениях возможно также создание сессии для клиента (это мы обсудим ниже);
• свойство Buffer — если значение этого свойства равно  True, то осуществляется буферизация отклика. При этом значении параметра отклик клиенту не отправляется до тех пор, пока не будет вызван метод Request.End (этот метод автоматически вызывается после обработки всего ASP-документа, то есть когда сформированы отклики от всех ASP-серверов) или Flush;
• свойство CacheControl — определяет, может ли клиент кэшировать отклик;
• свойство Charset — определяет имя шрифта для содержимого отклика ContentType=”text/html”;
• свойство ContentType — указывает содержимое отклика. По умолчанию это свойство имеет значение text/html. Это значение необходимо изменять, например, при передаче картинок (image/jpeg или image/gif и т.д);
• свойство Expires — при значении CacheControl=True определяет, сколько времени хранится отклик на клиентском месте;
• свойство ExpiresAbsolute — то же самое, что Expires, только определяет абсолютную дату и время хранения отклика;
• свойство IsClientConnected — указывает, был ли клиент отсоединен от сервера;
• свойство Status — нормальное значение статуса «200 OK»  означает успешную генерацию отклика. При невозможности создать отклик следует изменять значение статуса. Так, «401 Unauthorized» означает, что пользователю запрещено обращаться к данной странице по соображениям безопасности, например в случае неправильно введенного пароля;
• метод AddHeader — добавляет заголовок в отклик. Заголовки добавляются в виде <ИМЯ ПАРАМЕТРА>=”<ЗНАЧЕНИЕ>”;
• метод AppendToLog — добавляет строку в Log-файл Web-сервера. Эта строка не передается клиенту;
• метод BinaryWrite — формирует двоичный отклик. Чаще всего используется для передачи клиенту картинок;
• метод Clear — полностью очищает отклик. После этого его требуется формировать заново с самого начала;
• метод  End — прекращает обработку ASP-документа и немедленно возвращает результат клиенту. Вызывается автоматически после завершения обработки ASP-документа, но может быть вызван явно из кода ASP-сервера. После его вызова вызовы методов Write или BinaryWrite запрещены;
• метод Flush — отправляет текущее содержимое буфера клиенту. Формирование отклика может продолжаться дальше;
• метод Write — используется для записи текстовой информации в отклик;
• метод  Redirect — позволяет переадресовать запрос на другой URL. При этом можно поменять параметры запроса в объекте Request.

Объект Server

Этот объект позволяет обращаться к Internet Information Services и экспонирует ряд его методов и свойств:

• свойство ScriptTimeout — время в минутах, в течение которого  сессия существует без генерации нового запроса или без вызова команды Refresh со стороны клиента;
• метод CreateObject — вызов этого метода используется для запуска COM-сервера, который будет принимать скрипты с ASP-документа и генерировать отклик, который вставляется вместо скрипта;
• метод Execute — выполняет скрипт в указанном ASP-файле;
• метод  GetLastError — возвращает объект ASPError, в котором можно получить полную информацию о последней ошибке;
• метод HTMLEncode — заменяет зарезервированные символы в HTML-документе подходящим набором символов, которые интерпретируются браузером и позволяют клиенту увидеть на экране зарезервированные символы. Например, дизайнер Web-сайта хочет, чтобы клиент увидел на экране следующее сочетание символов: <BR>. Если эту последовательность вставить в HTML-документ, то она будет интерпретирована как разрыв строки. Для этой последовательности символов метод HTMLEncode вернет: %3CBR%3E. При помещении этой последовательности символов в HTML-документ клиент увидит на экране <BR>;
• метод MapPath — конвертирует путь, выраженный в терминах виртуальных каталогов (абсолютный или относительный), в путь к физическому каталогу на данном компьютере;
• метод  Transfer — пересылает весь текущий отклик к другому ASP-серверу для продолжения формирования отклика;
• метод URLEncode — перекодирует URL, включая специальные символы, в строку.

Объект Session

Этот объект создается во время первого обращения клиента к ASP-серверу. Замечательная особенность этого объекта — его способность сохраняется в течение некоторого времени после генерации отклика клиенту. Если в течение этого времени клиент вновь обратится к серверу, то сможет работать внутри ранее созданной сессии. Если внутри этого объекта объявить переменные, то в них можно запоминать состояние клиента. Этот факт значительно облегчает проведение сессий с клиентом по сравнению с CGI-приложениями, где постоянно приходится анализировать Cookie. Основные свойства и методы объекта Session:

• свойство StaticObjects — коллекция всех объектов, добавленных к сессии при помощи тэга <OBJECT>. Можно прочитать или изменить все значения свойств этих объектов. Вызов метода Remove удаляет данный объект. Вызов метода RemoveAll удаляет все объекты;
• свойство Contents — коллекция всех динамически создаваемых объектов. Эти объекты можно создавать во время выполнения и использовать их при последующих обращениях клиентов к Web-серверу;
• свойство CodePage — указывает страницу кодировки символов, которая может изменяться в зависимости от локальных настроек;
• свойство LCID — языковой идентификатор, используемый для интерпретации текстовых строк;
• свойство SessionID — идентификатор сессии для данного клиента. Генерируется автоматически и является  постоянным для всех запросов данного клиента;
• свойство Timeout — время в минутах, в течение которого существует сессия без генерации нового запроса или без вызова команды Refresh со стороны клиента;
• метод Abandon — разрушает сессию и возвращает все ресурсы;
• событие Session_OnStart — генерируется в момент создания сессии. Оно генерируется после события Application_OnStart, но до начала выполнения кода. Все переменные в сессии уже являются доступными, и к ним можно обращаться. Обработчик этого события должен быть написан на языке VBScript или JavaScript;
• событие Session_OnEnd — наступает перед разрушением сессии по истечении времени TimeOut или после вызова метода Abandon. В обработчике событий можно работать с объектами Application, Server и Session, но не с Request и Response. Обработчик этого события должен быть написан на языке VBScript или JavaScript.

Для сохранения состояния клиента (это главная особенность) используется следующий синтаксис:

Session.Value[<имя параметра>]: = <значение параметра>;

Рассмотрим в качестве примера Интернет-магазин. Предположим, пользователь на первой Web-странице выбирает наименование товара (например, Intel Processor), на второй странице — количество этого товара (например, 5), на третьей странице отображается цена, после чего ожидается подтверждение заказа. Ясно, что для генерации третьей страницы необходимо знать значения параметров с первых двух страниц. Поэтому после возвращения отклика с первой страницы используется команда:

Session.Value['GoodName']:=' Intel Processor ';

Имя выбранного товара можно получить после анализа свойств объекта Request. После второй страницы используем команду:

Session.Value['TotalAmount']:='5';

Перед генерацией третьей страницы можно узнать имя товара и, следовательно, цену за единицу продукции, а также количество единиц товара. Далее посредством простых арифметических операций вычисляется общая стоимость, и клиенту предлагается сделать заказ.

В объекте Session можно также запоминать динамически создаваемые объекты (об этом будет рассказано ниже).

Объект Application

Этот объект используется для хранения и обработки данных, которые являются общими для всех сессий. При помощи объекта Application можно передавать данные от одного клиента к другому. Основные свойства и методы объекта Application:

• свойство Contents – содержит список всех объектов, которые были добавлены при выполнении скриптов из ASP-документов. Объект Contents имеет два метода: Remove удаляет данный объект, а RemoveAll удаляет все объекты. Сюда же можно помещать ссылки на динамически создаваемые объекты при выполнении кода ASP-сервера;
• свойство StaticObjects — список всех объектов, которые были добавлены при помощи тэга <OBJECT>;
• метод Lock. Клиенты работают в многопоточном режиме, а переменные в объекте Application являются общими для всех клиентов. Поэтому если надо обратиться к свойствам объекта Application или к методам, которые работают с переменными данного объекта, то обязательно требуется вызов метода Lock. Это дает возможность безопасно работать с переменными Application, в то время как остальные клиенты будут ожидать окончания работы с этим объектом. После чтения или записи свойства (либо окончания работы метода) требуется вызов метода Unlock, и только после этого переменные (методы) будут доступны для других клиентов;
• метод Unlock — делает доступными переменные или методы объекта Application другим клиентам;
• событие Appliation_OnStart — наступает в момент первого старта приложения и продолжается до создания сессии. Из обработчика этого события можно обращаться только к объектам Server и Application. Обработчик этого события должен быть написан на языке VBScript или JavaScript;
• событие Application_OnEnd — вызывается в момент завершения ASP-приложения, после разрушения всех сессий. Доступные объекты и языки для описания обработчика те же, что и у обработчика Application_OnStart.

Использование объекта Session для хранения состояния

втоматическая обработка полей Cookie в ASP-технологии позволяет определить, обращался ли ранее клиент к данному Web-серверу. При первом обращении клиента для него  создается объект Session. При последующих обращениях этого же клиента для него назначается ранее созданный объект Session. Объект Session разрушается либо при отсутствии в течение интервала времени Session.TimeOut новых запросов от клиентов, либо при вызове метода Session.Abandon из кода. В объекте Session можно хранить переменные и объекты, которые динамически создаются или изменяются. Эти изменения видны при каждом последующем обращении клиента. Таким образом, объект Session может хранить состояние клиента. Данная возможность, реализованная на уровне технологии, обеспечивает ASP-приложениям существенные преимущества по сравнению   с  CGI- и ISAPI-приложениями, где для хранения состояния необходимо писать трудоемкий код для работы с Cookie.

Для тестирования прежде всего требуется настроить Microsoft Internet Information Services (IIS). Для этого создадим виртуальную директорию IIS, которая обязательно должна иметь разрешение как на чтение  (из нее будут читаться данные), так и на выполнениe скриптов (из нее будет загружен *.asp-документ). Директория должна быть доступна с помощью протокола HTTP. Поэтому в первую очередь нужно обратиться к Web-сервису Internet Information Server, просмотреть список доступных директорий и при необходимости создать новые с соответствующими правами доступа.

В нашем примере на компьютере, который имеет IP-адрес 192.168.0.2, была создана виртуальная директория /Test, соответствующая физическому адресу на компьютере C:\ASPTest. В директорию, имеющую права доступа Read и Script, был скопирован файл Test.asp. Сам файл ASP01.dll (COM-сервер) можно поместить в произвольную директорию. Главное — чтобы он был зарегистрирован в системном реестре. Для этого после выполнения команды Save As в Delphi 6 выберем команду меню Run/Register ActiveX server и выполним ее.

Продолжим работу с сессией. Воспользуемся проектом, создание которого было описано ранее (см. КомпьютерПресс, № 2’2001, c. 196). Исходный код проекта можно найти на нашем CD-ROM. Сначала разберемся, каким образом можно сохранять и изменять переменные. Для этого в секции private класса TTest модуля ASP01_U1 обьявим метод:

  TTest = class(TASPObject, ITest)  
  private  
   …  
    procedure IncrementCallCount(const Name:string);  
   
и реализуем этот метод в секции implementaton:  
   
procedure TTest.IncrementCallCount(const Name: string);  
var  
  S:string;  
  N,I:integer;  
begin  
  S:=Session.Value[Name];  
  if length(S)=0 then S:='0';  
  Val(S,N,I);  
  Inc(N);  
  Session.Value[Name]:=N;  
end;  

В каждом методе модуля ASP01_U1 вызовем метод IncrementCallCount с параметром Name=<имя метода>. Например, в ранее объявленном методе GetPicture (см. КомпьютерПресс, № 2’2001, с.196) обратимся к IncrementCallCount следующим образом:

  IncrementCallCount('GetPicture'); 

Далее добавим в библиотеку типов новый метод GetCallCount, как было описано выше. Реализуем этот метод следующим образом:

procedure TTest.GetCallCount; 
var  
  S,S1:string;  
begin  
  IncrementCallCount('GetCallCount');  
  S1:=Session.Value['RequestProp'];  
  S:='RequestProp '+S1+'<BR>';  
  S1:=Session.Value['TestSession'];  
  S:=S+'TestSession '+S1+'<BR>';  
  S1:=Session.Value['GetPicture'];  
  S:=S+'GetPicture '+S1+'<BR>';  
  S1:=Session.Value['ShowCopyright'];  
  S:=S+'ShowCopyright '+S1+'<BR>';  
  S1:=Session.Value['QueryResponse'];  
  S:=S+'QueryResponse '+S1+'<BR>';  
  S1:=Session.Value['RequestProp'];  
  S:=S+'RequestProp '+S1+'<BR>';  
  S1:=Session.Value['GetCallCount'];  
  S:=S+'GetCallCount '+S1+'<BR>';  
  S1:=Session.Value['ScriptContent'];  
  S:=S+'ScriptContent '+S1;  
  Response.Write(S);  
end;  

И наконец, создадим ASP-документ с вызовом метода GetCallCount:

…  
<% Set DelphiASPObj = Server.CreateObject("ASP01.Test")   
   DelphiASPObj.GetCallCount  
%>  
…  

Сохраним этот документ в файле Test3.asp в директории C:\ASPTest (напомним, что она зарегистрирована в Internet Information Server и имеет разрешения на чтение и выполнение кода). Далее, обращаясь к ранее созданным ASP-документам, будем обращаться к объявленным ранее методам ASP-сервера в произвольной последовательности и произвольное число раз, пока, наконец, не дойдем до страницы Test3.asp. В результате получим примерно следующий отклик, какой представлен на рис. 2.

Рис. 2. Результат выполнения  метода GetCallCount в ASP-сервере

Напротив названия каждого метода стоит число обращений к нему клиента в текущей сессии. Если вызвать команду Refresh в браузере, то можно заметить, что число напротив надписи GetCallCount увеличится на 1.

Данные в коллекции Session.Value хранятся в виде вариантных переменных; иными словами, они могут принадлежать любому типу, конвертируемому  в OleVariant: integer, single, double, WideString и т.д. Можно хранить и массивы — для этого вызывается функция VarArrayCreate. Доступ к переменным осуществляется по имени. Коллекция Session.Value возвращает пустое значение (null), если ранее переменная с данным именем не была добавлена к коллекции. Добавление новой переменной осуществляется в случае присвоения значения элемента коллекции с уникальным именем.

Однако ссылки на экземпляры классов (объекты) в этой коллекции хранить нельзя. Точнее говоря, хранить их можно: например привести указатель к типу integer и сохранить в коллекции Session.Value. Далее можно получать доступ к объекту приведением типа и таким образом при каждом следующем обращении клиента получать ссылку на объект и работать с ним. Казалось бы, все хорошо, однако при разрушении сессии по истечении TimeOut деструкторы объектов вызваны не будут. Это означает, что при работе такого сервера постепенно будут исчерпываться доступные системные ресурсы  и в конце концов Web-сервер просто «рухнет». Если бы существовала возможность создать обработчик события Session_OnEnd в коде Delphi, то деструкторы можно было бы вызвать явно. Однако этот обработчик может быть создан только в ASP-документе на языках VBScript или JavaScript.

Выход из создавшейся ситуации заключается в использовании коллекции Session.Contents, которая предназначена для хранения объектов. В принципе, коллекция Session.StaticObjects также используется для хранения объектов, но ее нельзя модифицировать во время выполнения приложения. Идея хранения объектов в коллекции Session.Contents заключается в следующем: объекты, которые необходимо хранить, поддерживают интерфейс IUnknown (или его потомок). Именно ссылка на этот интерфейс и помещается в коллекцию Session.Contents. При закрытии сессии для всех интерфейсов, хранящихся в этой коллекции, вызывается метод Release. Соответственно из этого обработчика событий можно вызвать деструктор класса при равенстве нулю числа ссылок на интерфейс.

Для проверки вышесказанного попробуем решить следующую задачу: мы хотим помещать содержимое одной записи в базе данных на отдельную Web-страницу, давая пользователю возможность передвигаться по записям вперед и назад. В этом случае требуется запоминать положение указателя текущей записи в наборе данных, что будет выполняться в компоненте Session. Наиболее простой способ запомнить положение указателя текущей записи — не закрывать набор данных после формирования отклика пользователю.

Первоначально создадим ASP-документ, содержащий форму с двумя кнопками: Back и Next. В данном документе вызовем новый метод ASP-сервера, который назовем, например, TestSession. В этом методе будем анализировать запрос и смещать текущую запись вперед или назад. Сохраним документ в файле Test4.asp. Окончательный вид документа следующий:

<HTML> 
<BODY>  
<TITLE> Testing Delphi ASP </TITLE>  
<CENTER>  
<H3> Database navigation </H3>  
</CENTER>  
<form action="http://192.168.0.2/Test/Test4.asp"   
 method="POST" name="Navigate">  
<p>  
<input type="submit" name="B1" value="Prior">  
<input type="submit" name="B1" value="Next">  
</p>  
</form>  
<HR>  
<% Set DelphiASPObj = Server.CreateObject("ASP01.Test")   
   DelphiASPObj.TestSession  
%>  
<HR>  
</BODY>  
</HTML>  

Далее создадим новый модуль данных и поместим на него компоненты TADOConnection и TADOTable. В ADOConnection1 сошлемся на базу данных Northwind. В компоненте ADOTable1 сошлемся на ADOConnection1, свойству TableName присвоим значение Alphabetical list of products, а его свойство Active установим равным True. Это означает, что немедленно после отработки конструктора будет установлена связь с сервером баз данных. Объявим новый интерфейс ISessionObject — потомок IUnknown. Полезно к этому интерфейсу добавить метод, который будет возвращать указатель на модуль данных. Несмотря на то что использовать указатели в интерфейсах запрещено вследствие необходимости осуществлять маршалинг для разных модулей, в нашем случае это оправданно, поскольку данный метод будет использоваться только внутри модуля ASP01. Все внешние приложения (в том числе Internet Information Services) будут работать с этим интерфейсом как с Iunknown, не «зная» о существовании метода, возвращающего указатель.

Окончательный код выглядит следующим образом:

unit ASP01_U3; 
interface  
uses  
  SysUtils, Classes, DB, ADODB;  
   
type  
  ISessionObject=interface(IUnknown)  
    ['{3F5F10ED-5556-4D9B-B05B-7A0014D0D629}']  
    function getDataModule:pointer; stdcall;  
  end;  
   
  TDataModule2 = class(TDataModule,ISessionObject)  
    ADOConnection1: TADOConnection;  
    ADOTable1: TADOTable;  
  private  
    FRefCount:integer;  
    function getDataModule:pointer; stdcall;  
    function ISessionObject.QueryInterface =   
      ObjQueryInterface;  
    function ISessionObject._AddRef = ObjAddRef;  
    function ISessionObject._Release = ObjRelease;  
  public  
    function ObjAddRef: Integer; virtual; stdcall;  
    function ObjQueryInterface(const IID: TGUID; out Obj):   
      HResult; virtual; stdcall;  
    function ObjRelease: Integer; virtual; stdcall;  
  end;  
   
implementation  
   
{$R *.dfm}  
   
function TDataModule2.getDataModule: pointer;  
begin  
  Result:=Self;  
end;  
   
function TDataModule2.ObjQueryInterface(const IID: TGUID;   
  out Obj): HResult;  
begin  
  if GetInterface(IID, Obj) then   
    Result := S_OK   
  else   
    Result := E_NOINTERFACE;  
end;  
   
function TDataModule2.ObjAddRef: Integer;  
begin  
  Inc(FRefCount);  
  Result:=FRefCount;  
end;  
   
function TDataModule2.ObjRelease: Integer;  
begin  
  Dec(FRefCount);  
  Result:=FRefCount;  
  if Result = 0 then Destroy;  
end;  
   
end.  

Данный код прост и не требует комментариев. Ключевой метод — ObjRelease — уменьшает число ссылок и при их равенстве нулю вызывает деструктор класса. Некоторые изменения потребуются и в классе TTest модуля ASP01_U1. Прежде всего необходимо вызвать конструктор класса TDataModule2. Наиболее подходящее место для вызова конструктора — событие Session_OnStart — недоступно из кода Delphi. Метод AfterConstruction также подходит мало — при обращении к нему не определены ссылки на объекты Session, Application, Server. Необходимо, чтобы эти объекты были инициализированы из интерфейса IScriptingContext —  именно это и делает метод OnStartPage. Поэтому будем вызывать конструктор из метода TTest.OnStartPage. При этом следует учитывать, что конструктор мог быть вызван раньше — во время предыдущего запроса клиента. Следовательно, необходима предварительная проверка существования экземпляра класса TTest. Окончательно код будет выглядеть следующим образом:

procedure TTest.OnStartPage( 
  const AScriptingContext: IUnknown);  
var  
  V:OleVariant;  
  FD:TDataModule2;  
  Iu:ISessionObject;  
begin  
  inherited OnStartPage(AScriptingContext);  
  V:=Session.Contents.Item['DataModule'];  
  if varIsEmpty(V) then begin  
    FD:=TDataModule2.Create(nil);  
    FD.GetInterface(ISessionObject,Iu);  
    V:=Iu;  
    Session.Contents.Item['DataModule']:=V;  
  end;  
end;  

Первоначально в переменную V пытаемся копировать переменную с именем DataModule, которая хранится в объекте Session. Если это не удается (что происходит, когда пользователь обращается к ASP-серверу в первый раз), то создаем экземпляр класса TDataModule2, получаем от него ссылку на интерфейс ISessionObject и запоминаем ее в объекте Session под именем DataModule. Теперь поведение экземпляра класса TDataModule2 будет корректным: он будет существовать, пока существует объект Session для данного клиента, и разрушаться с окончанием сессии. Чтобы убедиться в этом, достаточно переписать деструктор TDataModule2 и поместить туда оператор Beep (визуальные элементы управления в ASP-приложениях показывать запрещено). Если после этого вновь обратиться к ASP01 и затем выгрузить ASP-сервер, как было описано выше, то можно услышать звук динамика.

Осталось реализовать метод TestSession в классе TTest — он формирует отклик для клиента. В этом методе необходимо получить доступ к хранящемуся в объекте Session экземпляру класса TDataModule2, проанализировать запрос и при нажатии кнопки Next переместить курсор на следующую запись, а при нажатии кнопки Prior — на предыдущую. Окончательный код выглядит следующим образом:

procedure TTest.TestSession; 
var  
  V:OleVariant;  
  I:integer;  
  FD:TDataModule2;  
  S:string;  
  Iu:IUnknown;  
begin  
  S:='';  
  if Request.Body.Count>0 then   
    if Request.Body.Item[1].Count>0 then   
      S:=Request.Body.Item[1].Item[1];  
  IncrementCallCount('TestSession');  
  V:=Session.Contents.Item['DataModule'];  
  Iu:=IUnknown(V);  
  FD:=(Iu as ISessionObject).getDataModule;  
  if Assigned(FD) then begin  
    if length(S)>0 then begin  
      if ANSICompareText(S,'PRIOR')=0 then   
        FD.ADOTable1.Prior else FD.ADOTable1.Next;  
    end;  
    S:='';  
    for I:=0 to FD.ADOTable1.FieldCount-1 do   
      S:=S+FD.ADOTable1.Fields[I].AsString+'<BR>';  
    Response.Write(S);  
  end;  
end;  

В нем используется определенный ранее метод ISessionObject.getDataModule для получения ссылки на экземпляр класса TDataModule2. Скомпилировав этот проект и обратившись к созданной ранее странице Test4.asp, можно получить отклик, который представлен на рис. 3.

Рис. 3. Навигация по набору данных в ASP-приложении

При нажатии клавиши Next получаем страницу со следующей записью; Prior — с предыдущей.

В заключение следует отметить, что объект Application также имеет аналогичные свойства для хранения переменных и объектов. Эти свойства имеют те же самые названия, что и в объекте Session. Существует два отличия использования аналогичных свойств объекта Application:

1. Переменные и объекты, хранящиеся в объекте Application, доступны всем клиентам, работающим с данным ASP-сервером. Если бы описанный выше проект хранился в объекте Application и если к серверу обращались бы два клиента; а первый клиент нажал бы кнопку Next, то второй клиент при нажатии кнопки Next увидел бы, что указатель текущей записи сместился не на одну, а на две записи вперед.
2. Разные клиенты обращаются к объекту Application из разных потоков, поэтому необходимо вызывать метод Application.Lock перед началом обращения к данным, хранящимся в Application. Игноирование этого требования приведет к периодическим невоспроизводимым ошибкам. По окончании работы с данными необходимо вызывать метод Application.Unlock — в противном случае остальные клиенты не смогут получить доступ к данным, хранящимся в объекте Application.

КомпьютерПресс 4'2002