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



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

  • Июнь
    2020
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс
  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31