В состав компонентов Ба1а8пар входит ряд дополнительных компонентов, облегчающих работу с соединениями удаленных клиентов с сервером приложений. Рассмотрим их.

Компонент Гв/тр/е ОЬ]ес1Вгокег

Компонент ТБітріеСЬде^вгокег инкапсулирует список серверов, доступных для клиентов данного многозвенного распределенного приложения. Список серверов создается на этапе разработки. При необходимости (отключение сервера, его перегрузка и т. д.) компонент соединения клиентского ПО может использовать один из запасных серверов из списка компонента TSimpleObjectBroker непосредственно во время выполнения.

Для этого необходимо заполнить список серверов компонента TSimpleObjectBroker и указать ссылку на него в свойстве objectBroker компонента соединения (см. выше). И тогда при "переоткрытии" соединения имя сервера будет запрашиваться ИЗ СПИСКа Компонента TSimpleObjectBroker.

Список серверов задается свойством

property Servers: TServerCollection;

На этапе разработки список серверов заполняется специализированным редактором (рис. 20.6), который вызывается при щелчке на кнопке свойства в Инспекторе объектов.

Программирование в Delphi 7

Рис. 20.6. Редактор списка серверов компонента TSimpleObjectBroker

Свойство servers представляет собой коллекцию (см. гл. 7) объектов класса TServeritem. Этот класс имеет несколько свойств, позволяющих описать основные параметры сервера (табл. 20.3). При использовании в соединении значения этих свойств подставляются в соответствующие свойства компонента соединения.

Таблица 20.3. Свойства класса TServeritem

Объявление

Описание

property

ComputerName: string;

Имя компьютера, на котором функционирует сервер

property

DisplayName: String;

Содержит имя сервера для представления в списке серверов

property

Enabled: Boolean;

Управляет доступностью записи о сервере для выбора при подключении. При значении True компоненты соединений могут использовать данную запись списка для подключения

Таблица20.3( окончание)

Объявление

Описание

property HasFailed: Boolean;

После неудачной попытки использовать дан-

ную запись списка при подключении свойству

присваивается значение True и в дальнейшем

эта запись не используется

property Port: Integer;

Содержит номер порта, используемого при

подключении ксерверу

Помимо списка серверов компонент имеет лишь несколько вспомогательных свойств и методов.

Метод

function GetComputerForGOID(GOID: TGUID) : string;
override;

возвращает имя компьютера, на котором зарегистрирован сервер с guid, заданным параметром.

Метод

function GetComputerForProgID(const ProgID): string;
override;

возвращает имя компьютера, на котором зарегистрирован сервер с именем, заданным параметром ProgID.

Свойство

property LcadBalanced: Boolean;

управляет выбором сервера из списка. При значении True запись о сервере выбирается случайным образом, иначе для соединения предлагается первая доступная запись о сервере.

Компонент TLocalConnection

Компонент TLocalConnection используется локально для получения доступа к существующим компонентам-провайдерам.

Свойство

property Providers[const ProviderName: string]: TCustomProvider;

⇐ Предыдущая страница| |Следующая страница ⇒

Программирование в Delphi 7



Новости за месяц

  • Октябрь
    2017
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс