Главная | Обратная связь | Поможем написать вашу работу!

Основы разработки приложений 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);

Begin

{ Sender - определяет вызвавший его объект.

Request- содержит запрос пользователя.

Response- содержит ответ сервера.

Handled - флаг, определяющий обработано или нет событие.

}

Response.Content:=’<HTML> <H1> Пример приложения CGI</H1>’+

‘<B> Текущее время: ‘+ TimeToStr(SysUtils.Time) +’</B></HTML>’;

End;

4. Сохраните проект и откомпилируйте (^F9).

5. Поместите EXE-файл приложения в «исполняемый каталог» вашего Web-сервера (Wins2000)

6. Выполните EXE-файл приложения, указав его имя в поле Адрес проводника Интернета.

Одна из популярных задач Internet ‑ это получение каких-либо данных от клиента, обработка на сервере и отправка клиенту документа-ответа. В HTML-документах это обычно решается при помощи формы. Сервер обрабатывает события OnAction, которые, в свою очередь, получают два параметра-объекта Response и Request. Если форма использует метод Post, то данные помещаются в свойство ContentFields. Если в запросе применяется метод Get, то данные запроса будут находиться в свойстве QueryFields.

Рассмотрим общую структуру приложения Web-сервера. Когда приложение получает от Web-клиента запрос, оно создает объекты TwebRequest и TWebResponse для размещения в них HTTP-запроса и ответа сервера соответственно. Затем эти объекты передаются диспетчеру Web, встроенному в Web-модуль или компоненту TWebDispatcher. Диспетчер поддерживает набор объектов-действий классов TwebActionItem,каждый из которых выполняет обработку различных видов запросов. Этот класс имеет свойство MethodType, предоставляющее различные варианты обработки запроса: mtGet, mtHead, mtPost, mtPut, mtAny. Запрос считается обработанным, если возвращается значение true через параметр Handled; также возможна обработка событий BeforeDispatch, AfterDispatch.

На инструментальной панели Internet имеется три компонента, предназначенные для работы с базами данных в приложениях для Web-серверов:

TqueryTableProducer‑ используется для представления в виде HTML-таблицы результата SQL-запроса к базе данных. Этот объект может получать параметры SQL-запроса из HTTP-запроса. Если запрос использует метод Post, то параметры запроса по SQL помещаются в свойство ContentFields. Если в запросе применяется метод Get, то данные запроса будут находиться в свойстве QueryFields.

TdataSetTableProducer‑ занимается аналогичным делом, но используя объект TDataSet.

TdataSetPageProducer ‑ заменяет шаблоны в заготовке HTML-документа на значения соответствующих полей базы данных. При этом используются значения полей текущей записи базы данных.

Пример создания Web-приложения просмотра таблицы базы данных (рис. 4.10.6.2):

Рис. 4.10.6.2. Окно просмотра таблицы базы данных

1. Создадим для базы данных алиас средствами Администратора BDE непосредственно на сервере.

2. Создадим новое Web-приложение.

3. Поместим в модуль компонент TTable и подключим его к заранее созданной таблице базы данных (установим свойства Database и TableName соответствующие значения). В свойстве Database укажем алиас БД или ее полный путь, а в TableName соответственно имя таблицы.

4. Добавим на форму компонент TDataSetTableProducer.

5. Создадим объект-действие со свойствами PathInfo =’’, Enabled = true.

6. Редактором столбцов компонента TDataSettableProducer проведем настройку оформления таблицы, заголовков (рис. 4.10.6.3). Изменения видны непосредственно в этом же редакторе.

Рис. 4.10.6.3. Окно редактора столбцов таблицы базы данных

7. Свяжем объекты DataSetTableProducer1 и Table1. Для этого укажем имя Table1 в свойстве DataSet поставщика данных. В свойствах Footer и Header задаются необходимые заголовочные и заключительные теги, чтобы получить корректный HTML-документ, понятный броузеру Web. В нашем случае можно использовать следующий фрагмент:

Для Header:

<!DOCTYPE HTML PUBLIC «-//W3C//DTD HTML 3.2//EN»>

<HTML> <HEAD><TITLE> Пример 2 </TITLE> </HEAD> <BODY>

Для Footer:

</ BODY > </ HTML >

8. Затем щелкнем на свойстве Columns. Отбираем нужные поля для вывода в таблицу. Кроме этого можно дать имена для выводимых колонок и настроить цвет и обрамление. Заметим, что компонент TqueryTableProducer работает и настраивается аналогично.

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

procedure TwebModule1WebActionItem1Action(Sender:TObject;

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

Begin

Response.Content:=DataSetTableProducer1.Content;

{Содержимому ответа сервера присваивается содержимое компонента типа TDataSetTableProducer}

Response.SendResponse; //отправляет ответ пользователю

End;

В этом примере клиент может отправить запрос к базе данных на наш сервер и получить всю информацию базы данных в окне броузера.

Однако наше приложение посылает всегда одно и то же и никакого диалога с пользователем не ведет. Это можно исправить, используя публикацию данных в стиле навигатора: пользователь сможет перемещаться по таблице, используя ссылки «вперед», «назад» и т.д. Все это и многое другое мы можем реализовать при помощи компонента TdataSetPageProducer. Этот компонент работает с компонентами TDataSet и имеет свойство HTMLDoc формата Tstrings. Он заполняется текстом вашего документа, а также шаблонами (<#шаблон>), которые, если и имеют одинаковые имена с полями таблицы/запроса, указанные в свойстве DataSet, то они заменяются на значение соответствующего поля текущей записи источника данных или чем-либо иным при условии, что вы это запрограммировали в обработчике события OnHTMLTag.

Пример создания Web-приложения типа CGI просмотра таблицы базы данных (рис. 4.10.6.4):

Рис. 4.10.6.4. Окно просмотра таблицы базы данных

1. Помещаем в WebModule объект TTable.

2. Создадим объекты-действия с именем first, next, previous и с соответствующими значениями PathInfo и свойством Enabled =true, также объект-действие initial с пустым значением PathInfo.

3. Свяжем объекты DataSetPageProducer1 и Table1. Для этого укажем свойство DataSet =Table1.

4. Теперь сформируем вышеупомянутое свойство HTMLDoc.

<HTML>

<BODY>

<TR><TH ALIGN="RIGHT">Наименование</TH>

первая </A> </TD>

<TD><#CCC>предыдущая</A> </TD>

<TD><#BBB>следующая</A> </TD></TR>

</TABLE>

</BODY>

</HTML>

Шаблоны <#CCC> и <#BBB> используются, чтобы динамически указать ссылку на приложение с указанием пути и информации о текущей записи отображаемой базы данных.

5. Далее для объектов initial и first создаем обработчик:

procedureTWebModule1. WebModule1firstAction (Sender: TObject;

Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

Begin Table1.First; //переходит на первую запись таблицы,

//соответствующей компоненту Table1

Response.Content:=DataSetPageProducer1.Content;

Response.SendResponse; //отправляется ответ сервера

end;

procedure TWebModule1.WebModule1initialAction(Sender: TObject;

Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

Begin

Table1.First;

Response.Content:=DataSetPageProducer1.Content;

Response.SendResponse;

end;

6. С объектом first,конечно, все понятно. Но как быть с next и previous? Необходимо дать знать серверу значение текущего поля. Тут‑то мы и используем событие OnHTMLTag и шаблоны. Обратите внимание на шаблоны, определенные в свойстве HTMLDoc <#BBB> и <#CCC>. Они‑то нам и понадобятся. Добавим обработчик события OnHTMLTag (будем считать, что поле KOD является первичным ключом):

procedure TWebModule1.DataSetPageProducer1HTMLTag(Sender: TObject;

Tag: TTag; const TagString: String; TagParams: TStrings;

var ReplaceText: String);

{ Обработчик содержит 4 параметра, определяющие текущий HTML тег.

TagString типа string содержит строковое представление тега. ReplaceText

также типа string используется при замене тега динамически}

var s:string; //строка содержащая текущее значение поля KOD

Begin

s:=IntToStr(Table1.FieldValues['KOD']);

if CompareText(TagString,'BBB')=0 then

Replacetext:='<a href="http://wins2000.usue.ru\pleshev\’+

‘ваше приложение\next?KOD='+s+'">'; //ссылка на ваше приложение с

//информацией о текущей записи

else if CompareText(TagString,'BBB')=0 then

Replacetext:='<a href="http://wins2000.usue.ru\pleshev\’+

‘ваше приложение\previous?KOD='+s+'">'; //ссылка на ваше

//приложение c информацией о текущей записи

end;

7. Теперь приложение формирует законченный HTML документ, и осталось лишь добавить обработчики для next, previous:

procedure TWebModule1.WebModule1nextAction(Sender: TObject;

Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

var q1:string; opt:TLocateOptions;

Begin

q1:=Request.QueryFields.Values['KOD'];

Table1.Locate('KOD',q1,opt);

Table1.Next; //переход на следующую запись

Response.Content:=DataSetPageProducer1.Content;

Response.SendResponse;

end;

procedure TWebModule1.WebModule1previousAction(Sender: TObject;

Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);

var q1:string; opt:TLocateOptions;

Begin

q1:=Request.QueryFields.Values['KOD'];

Table1.Locate('KOD',q1,opt);

Table1.Prior; // переход на предыдущую запись

Response.Content:=DataSetPageProducer1.Content;

Response.SendResponse;

end;

Теперь мы имеем законченное CGI приложение публикации данных в форме навигатора.

В Delphi имеется компонент Web-броузер (TWebBrowser). Работа с ним интуитивна и вполне доступна пользователю Delphi.

Пример создания собственного Web‑броузера компонентом TwebBrowser (рис. 4.10.6.4):

1. Создаем обычное приложение Delphi.

2. Помещаем на форму компоненты TEdit, TStatusBar, TWebBrowser.

3. Введем следующий код в обработчик события Edit1.OnKeyDown:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

Begin

if Key=13 then WebBrowser1.Navigate(Edit1.Text); //клавиша Enter

end;

Рис. 4.10.6.5. Окно Web‑броузера

4. Добавим Panel кнопкой с троеточием в свойстве Panels и затем кнопкой Add New. Для Statusbar1 укажем Width =150 и Text =‘Status: ‘.

5. Добавим следующий код в обработчик события WebBrowser1.OnTitleChange:

procedure TForm1.WebBrowser1TitleChange(Sender: TObject;

const Text: WideString);

Begin

Form1.Caption:='Пример Web Browser''р ['+Text+']';

end;

6. Добавим следующий код в обработчик события WebBrowser1.OnProgressChange:

procedure TForm1.WebBrowser1ProgressChange(Sender: TObject; Progress, ProgressMax: Integer);

Begin

if ProgressMax<>0 then

StatusBar1.Panels.Items[0].Text:='Status:'+

IntToStr(Progress*100 div ProgressMax)+'%'

else StatusBar1.Panels.Items[0].Text:='Status: Готово';

end;

7.Теперь осталось откомпилировать, и получим Web‑броузер.

⇐ Предыдущая 45 46 47 48 495051 52 53 54 Следующая ⇒
Поделиться:

Воспользуйтесь поиском по сайту: