property AppServer: Variant;

который также может быть получен методом

function GetServer: IÄppServer;
override;
Свойство ргсрэггу Окоес±Вгокег: TCustomOЬjectBroker;

позволяет использовать экземпляр компонента тзгтр1е0^е^Вгокег для получения списка доступных серверов по время выполнения (см. ниже).

Методы-обработчики компонента ТЛЭсоМСоппесйоп представлены в табл. 20.1. _Таблищ20.1.Методы-обработчикисобьтийкомпонента ТРсоМСоппесйоп

Объявление

Описание

property AfterConnect:

Вызывается после установления

TNotifyEvent;

соединения

property AfterDisconnect:

Вызывается после разрыва

TNotifyEvent;

соединения

property BeforeConnect:

Вызывается перед установлением

TNotifyEvent;

соединения

property BeforeDisconnect:

Вызывается перед разрывом соединения

TNotifyEvent;

type TGetOsernameEvent =

Вызывается непосредственно перед

procedure(Sender: TObject;

появлением диалога удаленной авториза-

var Username: string) of object;

ции полвзователя. Для зтого свойство

property OnGetUsername:

LoginPrompt должно иметв значение

TGetOsernameEvent;

True. Параметр Username может содер-

жатв имя полвзователя по умолчанию,

которое появится в диалоге

type TLoginEvent =

Вызывается после открытия соединения,

procedure(Sender:TObject;

если свойство LoginPrompt имеет

Username, Password: string)

значение True. Параметры Username

of object;

и Password содержат имя полвзователя

property OnLogin: TLoginEvent;

и паролв, введенные при авторизации

Компонент TSocketConnection

Компонент TSocketeonnection обеспечивает соединение клиента с сервером приложений за счет использования сокетов TCP/IP. Для успешного открытия соединения на стороне сервера должен работать сокет-сервер (приложение ScktSrvr.exe, рис. 20.4).

Для успешного соединения свойство

property Host: String;

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

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

Рис. 20.4. Сокет-сервер ScktSrvr.exe

Дополнительно, свойство

property Address: String;

должно содержать IP-адрес сервера.

Для открытия соединения должны быть заданы оба этих свойства. Свойство

property Port: Integer;

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

После правильного выбора компьютера в списке свойства

property ServerName: string;

в Инспекторе объектов появляется перечень доступных серверов Автоматизации. И после выбора сервера свойство

property ServerGUID: string;

которое содержит имя компьютера güid зарегистрированного сервера, задается автоматически, хотя его можно задать и вручную.

Метод

function GetServerList: OleVariant;
virtual;

возвращает список зарегистрированных серверов Автоматизации.

Открытие и закрытие соединения осуществляется свойством

property Connected: Boolean;

или методами

procedure Open;
procedure Close;

соответственно.

Канал сокета TCP/IP может быть зашифрован. Для этого используется свойство

property InterceptName: string;

содержащее программный идентификатор объекта СОМ, обеспечивающего шифрование/дешифрование данных в канале, и свойство


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

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



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

  • Декабрь
    2017
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс