Цепочка наследований и регистрация классов

← →
harisma © (2008-10-30 17:29) [0]

У меня есть набор dll. Для каждого понятия системы есть своя dll. Для каждого из понятий есть базовый класс. Он объявляются в общем юните:
TDsgnMeanClass = class( TComponent )
...
end;

В юните в блоке initialization есть команда RegisterClasses([TDsgnMeanClass]);

Поскольку таких понятий в системе много и они похожи по структуре, я хочу сделать один базовый класс, типа TMeanClassBase, от которого уже будут порождены остальные базовые классы понятий.

Проблема в том, что когда класс понятия порожден от TComponent - то при загрузке все нормально, но когда я вставляю в эту цепочку еще свой базовый класс, то если от него порожден базовый класс только для одного понятия - то все нормально, а если таких классов 2 и больше, при загрузке программа ругается следующим образом:

EFillerError: A class name TMeanClassBase already exists.

Как решить такую проблему?

← →
Kolan © (2008-10-30 17:35) [1]

Видимо TMeanClassBase попал в несколько длл. Как быть при работе с длл — незнаю, а вот с пакетами, которые по сути теже длл, только борландовские, решается вынесением TMeanClassBase в отдельный пакет, а затем подключение этого общего пакета всезде где надо.

← →
harisma © (2008-10-30 17:49) [2]

Действительно. Я юнит с этим базовым классом подключаю к каждой из dll.
А как это: "вынесением в отдельный пакет"? Что это даст? Ведь юнит с исходным кодом класса все равно надо будет подключать в моих dll.

← →
Kolan © (2008-10-30 18:01) [3]

Четко объяснить механизм не могу, но, имхо, модуль с TMeanClassBase вкомпилируется в каждую длл — отсюда и ошибка. Надо сделать так, чтобы TMeanClassBase был только в одной длл, а остальные бы ей пользовались. Как сделать это с длл — не знаю.

Кстати, а почему длл? Знаете ли вы о существовании bpl пакетов и их приимуществах?

← →
Leonid Troyanovsky © (2008-10-30 18:07) [4]

> Kolan © (30.10.08 18:01) [3]

> Как сделать это с длл — не знаю.

Да и не надо.
Надо просто помнить, что длл для этого не предназначена.

--
Regards, LVT.

← →
harisma © (2008-10-30 18:37) [5]

Все что вы написали - прекрасно. В нашем проекте используются и dll и bpl. Причем bpl у нас как стандартные дельфийские, так и наши собственные.
Прошу уточнения, что я должен сделать с этим моим базовым классом, который, вы говорите, надо добавить в bpl, кроме того, что добавить юнит с его объявлением и реализацией в пакет?

← →
Kolan © (2008-10-30 18:43) [6]

Юнит с базовым классом кладется в отдельный пакет. Дальше, этот пакет подключается в Requries всех пакетов где он нужен.

← →
Leonid Troyanovsky © (2008-10-30 18:46) [7]

> harisma © (30.10.08 18:37) [5]

> В нашем проекте используются и dll и bpl.

Вот и прекрасно.
Выкиньте dll в пользу bpl и станет еще лучше.

--
Regards, LVT.

> Юнит с базовым классом кладется в отдельный пакет. Дальше,
> этот пакет подключается в Requries всех пакетов где он
> нужен.

А надо ли для этого базового класса в пакете в блоке initialization вызывать
RegisterClasses([TMeanClass]);?

Полагаю, да, если ты хочешь, чтобы твой скупой или злой класс (странное название получается) был зарегистрирован.

Спасибо - все получилось. Спасибо Kolan!

Цепочка наследований и регистрация классов Найти похожие ветки