Создание Internet-приложений в среде Delphi. Пример использования компонентов страницы InternetExpress

   
На этом шаге мы рассмотрим пример использования рассмотренных компонентов.

   
Для нашего примера нам понадобится какой-нибудь сервер приложений, который мы создадим на скорую руку. Это будет сервер DCOM.
Для этого начнем новое приложение, на форму которого с помощью команд File | New выберем со страницы Multitier (многоуровневые
приложения) модуль Remote Data Module (удаленный модуль данных). Появится окно Мастера (см. рисунок 1), в котором нужно
указать имя для нашего сервера, например, DCOMforXML.


Рис.1. Окно Мастера создания удаленного модуля данных

   
После этого в модуль данных нашего серверного приложения нужно добавить
компонент ТТаble, поскольку мы собираемся работать с данными. К этому компоненту можно подключить уже известную нам базу данных
DBDEMOS, указав это имя в свойстве DatabaseName. В свойстве TableName нужно выбрать из списка одну из таблиц этой базы,
например, events.db. После этого таблицу можно активизировать, установив свойство Active в True. Теперь со страницы
Data Access добавим компонент TDataSetProvider. В свойстве DataSet этого компонента нужно указать имя нашей таблицы -
Table1. Наш сервер готов.


Рис.2. Внешний вид сервера

   
Теперь его надо зарегистрировать, что можно сделать с помощью команд меню Run | Parameters....


Рис.3. Регистрация сервера DCOM

   
Из рисунка видно, что программу нужно запустить с параметром /regserver. Регистрация произойдет без каких-либо заметных эффектов.
В результате в реестр Windows будет добавлена информация о новом сервере DCOM. Запускается сервер без параметров.
На этом знакомство с сервером мы закончим, поскольку он нужен нам не сам по себе, а как инструмент для создания приложения Web, к чему мы сейчас и перейдем.

   
Итак, начнем с создания нового приложения сервера Web. Выберите одну из моделей, например, CGI Stand-alone Executable (смотри 5 шаг).
На страницу Components нового приложения добавьте с панели DataSnap компонент TDCOMConnection. В свойстве ServerName этого компонента
нужно указать имя сервера приложений, в нашем случае это будет имя Project1.DCOMforXML. При этом автоматически заполнится свойство ServerGUID.


Рис.4. Добавление TDCOMConnection

   
Теперь добавьте компонент TXMLBroker и в его свойстве RemoteServer укажите имя объекта, отвечающего за связь с сервером приложений, - DCOMConnection1.
В свойстве ProviderName (имя поставщика) укажите имя DataSetProvider1. Это имя появится там, когда вы щелкнете на этом свойстве, в результате чего загрузится наш сервер
приложений (появится его пустая форма). Когда вы выберите это имя, сервер выгрузится из памяти. Теперь у вас установлена связи сервером приложений, и можно
перейти к организации пользовательского интерфейса. Для этого нужно добавить в приложение компонент TInetXPageProducer. В свойстве IncludePathURL этого компонента
нужно указать полный путь к библиотекам JavaScript. Этот путь может выглядеть так:

  C:/Program Files/Borland/Delphi6/Source/WebMidas/

   
Delphi может быть установлена на вашей машине в другом каталоге, тогда к имени этого каталога вам нужно добавить подкаталоги Source/WebMidas/.

   
Теперь в наше приложение нужно добавить новый объект-действие, что вы уже умеете делать. Очевидно, надо присвоить свойству PathInfo этого действия какое-нибудь значение,
например, /MIDASPP. А в свойстве Producer выбрать MidasPageProducer1.


Рис.5. Добавленное действие с установленными параметрами

   
Теперь нужно вызвать меню, щелкнув на поставщике страниц правой кнопкой, и выбрать в нем команду Web Page Editor.


Рис.6. Выбор Web Page Editor

   
Когда Редактор загрузится, щелкните на кнопке New Item. В появившемся окне выберем тип экранной формы, например, DataForm.


Рис.7. Выбор типа экранной формы

   
В эту форму будут выводиться поля базы данных и будут добавлены кнопки для навигации по базе данных. Другой вариант экранной формы - QueryForm - предоставляет пользователю
поля и кнопки для организации запросов к базе данных. Если вы выбрали форму DataForm, то после этого надо, по щелчку правой кнопки мыши
в экранную форму нужно добавить объекты DataGrid и DataNavigator.


Рис.8. Добавление DataGrid и DataNavigator

   
У первого объекта в свойстве XMLBroker нужно указать объект XMLBroker1, а у второго в свойстве XMLComponent нужно указать объект DataGrid1.
Теперь можно откомпилировать наше приложение, перенести полученный ЕХЕ-файл в каталог исполняемых файлов Web-сервера, запустить браузер и обратиться к этому
приложению, указав выбранное нами имя пути - /MIDASPP. Окно браузера с результатами запроса приведено на рисунке 9. Нужно еще сказать, что с помощью
Инспектора Объектов вы можете настроить внешний вид экранной формы.


Рис.9. Окно браузера с результатами запроса к приложению

   
Текст сервера DCOM можно взять здесь.

   
Текст приложения Web-сервера можно взять здесь.

   
Со следующего шага мы начнем рассматривать компоненты с вкладки FastNet.



Вы можете оставить комментарий, или Трекбэк с вашего сайта.

Оставить комментарий