Главная страница Случайная страница
КАТЕГОРИИ:
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
Связь с сервером приложений по протоколу HTTP
|
|
Технологии DCOM и TCP/IP требуют установки прямой связи между клиентом и сервером, что в перегруженных сетях может вызвать большие задержки в установке такой связи. В таких случаях лучше использовать компонент WebConnection с панели Midas, который организует связь с сервером по протоколу передачи гипертекста HTTP в Интернете со средствами защиты данных. При отсутствии реального Web‑ сервера можно создать для отладки собственный Web‑ сервер на локальном компьютере. Для этого нужно присвоить уникальное сетевое имя компьютеру:
1. Выполним команду Пуск/Настройка/Панель управления/Сеть.
2. На странице Конфигурация выберем протокол TCP/IP и нажмем кнопку Свойства.
3. На странице Конфигурация DNS установим флажок Включить DNS. В поле Имя компьютера установим, например, MyHost, а в поле Домен ‑ MyDomain.ru. Перегрузим компьютер.
Изменим в клиентском приложении (п. 4.10.2) установку связи с сервером по протоколу DCOM на протокол HTTP.
1. Разместим компонент WebConnection. В свойстве ServerGUID этого компонента указывается идентификационный номер GUID сервера приложений (п. 4.10.1). Скопируем его одноименное свойство компонента DCOMConnection1 через буфер, предварительно указав для него свойство Connected =False. После этого свойству ServerName присвоится имя сервера Project1.IStroiki.
2. Запустим Web‑ сервер, если он еще не запущен. Скопируем библиотеку Delphi5\Bin\httpsrvr.dll в виртуальный каталог Web‑ сервера, допускающий вызов серверных приложений, например: Cgi-Bin. В свойстве URL компонента WebConnection1 укажем полный адрес этой библиотеки, например, https://myhost/cgi-bin/httpsrvr.dll и Connected=True. Произойдет запуск сервера приложений.
3. Для компонента ClientDataSet1 установим свойства RemoteServer =WebConnection1 и Active =True и выполним клиентское приложение.