Короче говоря, собрал требуемый DLL. Перед этим повозился с трассировкой Kernel (поюзал Beep и WinApi.ShowMessage
). Попутно открыл для себя много интересных вещей. Значительную часть выше уже сказали, но я позволю себе все это обобщить:
1) Link и LinkDynDll собирают бинарник динамического формата. Одно его отличие, как уже говорилось, в том, что инициализация модулей автоматически не выполняется, управление просто передается на BEGIN главного модуля, помеченного $, а уже этот модуль вызывается секции BEGIN остальных модулей в правильном порядке. Кроме того, должен быть некий модуль ядра (помечается +). Как описано в документации, Kernel должен экспортировать процедуры для выделения памяти. Другая особенность динамического формата (о которой документация скромно молчит) в том, что к моменту передачи управления на BEGIN главного модуля регистр EBX содержит в себе указатель на список всех линкованных модулей в формате Kernel.Module. Kernel BEGIN помещает этот указатель в переменную Kernel.modList - потом в этот список добавляются динамически подгружаемые модули, и на основе этой информации работает ДЗАГР и метапрограммирование.
Посему если мы используем Run-Time Блэкбокса, то обязаны использовать динамический формат компоновщика, иначе Kernel просто не сможет работать.
2) Затем Kernel BEGIN передает управление на Kernel.Init, который проходит по modList и вызывает их секции инициализации. (Секция BEGIN главного модуля будет вызываться дважды - второй раз в процессе инициализации, поэтому главный модуль должен проверять, первый ли раз он вызыван).
Ошибка при загрузке вашей DLL возникала при инициализации модуля TextModels, когда тот обращался к Fonts. Но Fonts, как и многие другие модули System, всего лишь объявляет абстрактные переносимые типы, а реализацию под них (dir'ы) предоставляет подсистема Host, которая в вашем списке модулей почти полностью отсутствовала. Ее модули ниоткуда не импортируется (поэтому явно не требуются), но при своей инициализации они подставляют конкретную реализацию в модули System (чаще всего через их SetDirectory). Я попробовал не включать кое-какие модули, однако в конечном счете оказывается, что весь System и Host настолько тесно связано, что исключить нельзя (почти) ничего, список модулей, приведенный в DevLinker, действительно минимален (ну, кроме пары-тройки модулей):
DevLinker.LinkDynDll
MyDll.dll := National Init Kernel$+ Files HostFiles StdLoader Math Strings Dates Meta Dialog Services
Fonts Ports Stores Log Converters Sequencers Models Printers Views
Controllers Properties Printing Mechanisms Containers
Documents Windows StdCFrames Controls
StdDialog StdApi StdCmds StdInterpreter
HostRegistry HostFonts HostPorts OleData HostMechanisms HostWindows
HostPrinters HostClipboard HostCFrames HostDialog HostCmds
HostMenus HostPictures
TextModels TextRulers TextSetters TextViews TextMappers
IniFile FuzzyFIS FuzzySets FuzzyModel MyIni#
При таком списке модулей получаем работающую наконец-то DLL размером 900Кб.
3) При инициализаци модуля StdLoader он подставляет в Kernel конкретную реализацию загрузчика модулей (тип LoaderHook), вызывая Kernel.SetLoaderHook. Затем он загружает в память модуль Init. При своей инициализации Init производит запуск GUI среды. GUI нам не нужен (да я и не уверен, что в виде DLL он будет работать, у меня возникла ошибка). Поэтому сделаем новый Init-пустышку:
MODULE Init;
END Init.
откомпилируем его и прилинкуем статически, выше в список модулей я его уже включил, можно в любое место, я засунул даже перед Kernel для наглядности. После этого можно удалить из корневой ББ папки Code и Sym - новая версия Init успешно прибьется, будет рабоать снова старая, из System/Code.
Все, рабочий DLL получили. У меня успешно открылся ваш диалог открытия файла.
4) И последнее - в вашем списке не было National, т.е. Вы используете чистый ББ, без Service Pack. Советую их поставить, иначе рано или поздно налетите на уйму проблем с русскими кодировками.
Вроде все...
Вход
FAQ
Поиск
