Добавим в проект новый удаленный модуль данных, используя для этого Репозиторий Delphi (см. рис. 20.3). Затем в появившемся диалоге (см. рис. 21.1) зададим имя модуля —
simpleRDM и его параметры:
способ создания — singleinstance
— для каждого клиента создается собственный модуль данных;
способ обработки запросов — Free
(см. выше).
Метод класса updateRegistry для модуля данных создается автоматически и обеспечивает регистрацию и аннулирование регистрации сервера Автоматизации (см. листинг 21.1).
Одновременно с удаленным модулем данных автоматически создается библиотека типов и в ней дуальный интерфейс
isimpleRDM и интерфейс диспетчеризации
ISimpleRDMDisp (см. Листинг 21.2).
Примечание
Для каждого вновь созданного интерфейса автоматически
назначается GUID.
Разместим в модуле simpleRDM компоненты для доступа к файлам демонстрационной базы данных (\Program Files\Common Files\Borland Shared\Data) через драйвер BDE и псевдоним
DBDEMOS, который создается автоматически при инсталляции Delphi. Это компонент
TDatabase, обеспечивающий соединение и три табличных компонента
TTаblе, инкапсулирующих наборы данных из таблиц
Orders.db, Customer.db, Employee.db.
Компонент соединения настроен на псевдоним
DBDEMOS (свойство AliasName). В параметрах соединения заданы имя пользователя и пароль, а свойство
LoginPrompt = False запрещает отображение диалога регистрации при открытии соединения. Каждый табличный компонент связан с компонентом-провайдером
TDataSetProvider. Свойство провайдера ResolveToDataSet = False
запрещает передачу изменений, полученных от клиента, в набор данных связанного
компонента. Вместо этого данные напрямую сохраняются в базе данных. Это увеличивает быстродействие приложения.
Знаете ли Вы, что такое "усталость света"? Усталость света, анг. tired light - это явление потери энергии квантом электромагнитного излучения при прохождении космических расстояний, то же самое, что эффект красного смещения спектра далеких галактик, обнаруженный Эдвином Хабблом в 1926 г. На самом деле кванты света, проходя миллиарды световых лет, отдают свою энергию эфиру, "пустому пространству", так как он является реальной физической средой - носителем электромагнитных колебаний с ненулевой вязкостью или трением, и, следовательно, колебания в этой среде должны затухать с расходом энергии на трение. Трение это чрезвычайно мало, а потому эффект "старения света" или "красное смещение Хаббла" обнаруживается лишь на межгалактических расстояниях. Таким образом, свет далеких звезд не суммируется со светом ближних. Далекие звезды становятся красными, а совсем далекие уходят в радиодиапазон и перестают быть видимыми вообще. Это реально наблюдаемое явление астрономии глубокого космоса. Подробнее читайте в FAQ по эфирной физике.
