Шаг 33.
Создание 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.




Предыдущий шаг Содержание Следующий шаг