Пример простого сервера приложения
Дочерний удаленный модуль данных
Дополнительно к основному модулю данных создадим дочерний модуль данных secondary. Для того чтобы связать главный модуль данных с дочерним, необходимо добавить к интерфейсу isimpleRDM метод, возвращающий ссылку на интерфейс дочернего модуля данных. В нашем примере это метод Get_Secondary.
Для его создания воспользуемся библиотекой типов сервера (рис. 21.3).
Рис. 21.3. Библиотека типов сервера приложения SimpleAppSrvr
В дереве в левой части окна выберем интерфейс isimpleRDM и создадим для него новое свойство только для чтения, переименуем его в secondary. Одновременно со свойством будет создан метод, обеспечивающий чтение свойства. Переименуем его в Get_secondary. Метод должен возвращать тип secondary. Для его установки воспользуемся списком Type на странице Attributes в правой части панели окна библиотеки типов (см. рис. 21.3).
После обновления исходного кода библиотеки типов (кнопка Refresh Implementation) описание нового свойства и метода интерфейса isimpleRDM появится в файле SimpleAppSrvr_TLB.pas. Теперь объявление интерфейса isimpieRDM выглядит так:
ISimpleRDM = interface(lAppServer)
['{Е2СВЕВСВ-1950-4054-В823-62906306Е840}']
function Get_Secondary: Secondary; safecall;
property Secondary: Secondary read Get_Secondary;
end;