property AppServer: Variant;
который также может быть получен методом
function GetServer: IÄppServer;
override;
Свойство ргсрэггу Окоес±Вгокег: TCustomOЬjectBroker;
позволяет использовать экземпляр компонента тзгтр1е0^е^Вгокег для получения списка доступных серверов по время выполнения (см. ниже).
Методы-обработчики компонента ТЛЭсоМСоппесйоп представлены в табл. 20.1. _Таблищ20.1.Методы-обработчикисобьтийкомпонента ТРсоМСоппесйоп
Объявление |
Описание |
property AfterConnect: |
Вызывается после установления |
|
соединения |
property AfterDisconnect: |
Вызывается после разрыва |
|
соединения |
property BeforeConnect: |
Вызывается перед установлением |
|
соединения |
property BeforeDisconnect: |
Вызывается перед разрывом соединения |
|
|
type TGetOsernameEvent = |
Вызывается непосредственно перед |
|
появлением диалога удаленной авториза- |
|
ции полвзователя. Для зтого свойство |
property OnGetUsername: |
LoginPrompt должно иметв значение |
|
True. Параметр Username может содер- |
жатв имя полвзователя по умолчанию, |
|
которое появится в диалоге |
|
type TLoginEvent = |
Вызывается после открытия соединения, |
|
если свойство LoginPrompt имеет |
Username, Password: string) |
значение True. Параметры Username |
|
и Password содержат имя полвзователя |
|
и паролв, введенные при авторизации |
Компонент TSocketConnection
Компонент TSocketeonnection обеспечивает соединение клиента с сервером приложений за счет использования сокетов TCP/IP. Для успешного открытия соединения на стороне сервера должен работать сокет-сервер (приложение ScktSrvr.exe, рис. 20.4).
Для успешного соединения свойство
property Host: String;
должно содержать имя компьютера сервера.
Рис. 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;
содержащее программный идентификатор объекта СОМ, обеспечивающего шифрование/дешифрование данных в канале, и свойство