Компонент TSocketConnection обеспечивает соединение клиента с сервером приложений за счет использования сокетов 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;
которое содержит имя компьютера GUID зарегистрированного
сервера, задается автоматически, хотя его можно задать и вручную.
Метод
function GetServerList:
OleVariant; virtual;
возвращает список зарегистрированных серверов
Автоматизации. Открытие и закрытие соединения осуществляется свойством
property Connected:
Boolean;
или методами
procedure Open;
procedure
Close;
соответственно.
Канал сокета TCP/IP может быть зашифрован. Для
этого используется свойство
property InterceptName:
string;
содержащее программный идентификатор объекта
СОМ, обеспечивающего шифрование/дешифрование данных в канале, и свойство
property InterceptGUID:
string;
содержащее имя компьютера GUID этого объекта.
Этот объект СОМ перехватывает данные в канале
и осуществляет их обработку, предусмотренную собственным программным кодом.
Это может быть шифрование, сжатие, обработка шумов и т. д.
Примечание
Создание объекта СОМ, обеспечивающего дополнительную
обработку данных в канале, ложится на плечи разработчика. Объект-перехватчик
должен поддерживать стандартный интерфейс IDataintercept.
Естественно, на стороне сервера должен быть
зарегистрирован объект СОМ, выполняющий обратную операцию. Для этого также используется
сокет-сервер (рис. 20.5). Строка Interceptor на странице должна содержать
имя компьютера GUID объекта-перехватчика СОМ.
Рис. 20.5. Регистрация
объекта-перехватчика СОМ в сокет-сервере
Метод
function GetlnterceptorList:
OleVariant; virtual;
возвращает список зарегистрированных на сервере
объектов-перехватчиков.
Для организации передачи данных между клиентом
и сервером компонент TSocketConnection
предоставляет интерфейс IAppServer
property AppServer:
Variant;
который также может быть получен методом
function GetServer:
lAppServer; override;
Свойство
property ObjectBroker:
TCustomObjectBroker;
позволяет использовать экземпляр компонента
TSimpieObjectBroker для получения списка
доступных серверов во время выполнения (см. ниже).
Методы-обработчики событий компонента
TSocketConnection полностью совпадают с методами-обработчиками компонента
TDCOMConnection (см. табл. 20.1).
Знаете ли Вы, что cогласно релятивистской мифологии "гравитационное линзирование - это физическое явление, связанное с отклонением лучей света в поле тяжести. Гравитационные линзы обясняют образование кратных изображений одного и того же астрономического объекта (квазаров, галактик), когда на луч зрения от источника к наблюдателю попадает другая галактика или скопление галактик (собственно линза). В некоторых изображениях происходит усиление яркости оригинального источника." (Релятивисты приводят примеры искажения изображений галактик в качестве подтверждения ОТО - воздействия гравитации на свет) При этом они забывают, что поле действия эффекта ОТО - это малые углы вблизи поверхности звезд, где на самом деле этот эффект не наблюдается (затменные двойные). Разница в шкалах явлений реального искажения изображений галактик и мифического отклонения вблизи звезд - 1011 раз. Приведу аналогию. Можно говорить о воздействии поверхностного натяжения на форму капель, но нельзя серьезно говорить о силе поверхностного натяжения, как о причине океанских приливов. Эфирная физика находит ответ на наблюдаемое явление искажения изображений галактик. Это результат нагрева эфира вблизи галактик, изменения его плотности и, следовательно, изменения скорости света на галактических расстояниях вследствие преломления света в эфире различной плотности. Подтверждением термической природы искажения изображений галактик является прямая связь этого искажения с радиоизлучением пространства, то есть эфира в этом месте, смещение спектра CMB (космическое микроволновое излучение) в данном направлении в высокочастотную область. Подробнее читайте в FAQ по эфирной физике.
