Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

А не накроется что-нибудь, если.. [D5, Win2k]


Alx2 ©   (2002-03-15 13:44:00) 

Если в модуле Forms вместо

finalization
if Application <> nil then DoneApplication;
if HintDoneEvent <> 0 then CloseHandle(HintDoneEvent);


написать

finalization
if Application <> nil then DoneApplication;
if HintDoneEvent <> 0 then CloseHandle(HintDoneEvent);
Application := Nil;


Вопрос возник, когда я загрузился порождением форм из DLL (навеяно обсуждавшимися здесь вопросами). В DLL переменную Application "в лоб" присвоил Application из основного приложения. Все окна (в т.ч. и модальные) корректно порождались, но при закрытии программы был AV. Убрал его указанным выше дополнением. Это сработало, так как сначала вызывалась секция Forms.finalization основного приложения, которая Application хоронила раньше, но не обнуляла. Но что-то мне боязно :)
Есть ли на то основания?


digitman   (2002-03-15 14:24:00) [1]

Ничего подобного ! У хост-приложения и у DLL - собственные, совершенно отдельные сегменты данных, в которых находятся две совершенно независимых переменных типа TApplication.


Alx2   (2002-03-15 14:15:00) [2]

А также не будет вызвана Application.Free из controls :(


digitman   (2002-03-15 14:10:00) [3]

Что же мешает тебе написать Application := Nil в секции finalization собственного модуля (а не модуля Forms) ? Ведь при закрытии приложения сначала "выгружаются" все задействованные библ.модули, для каждого из выгружаемых модулей вызываются секции финализации unit"ов в порядке, обратном вызову секций инициализации. Т.е. если при загрузке библ.модуля иниц-ся сначала Forms, затем твой unit, то при выгрузке - unit, затем Forms. Так вот и помести Application := Nil в секцию finalization этого самого unit ! Тогда в DoneApplication в библиотечном экземпляре модуля Forms никогда не будет вызвана !


digitman   (2002-03-15 14:10:00) [4]

Что же мешает тебе написать Application := Nil в секции finalization собственного модуля (а не модуля Forms) ? Ведь при закрытии приложения сначала "выгружаются" все задействованные библ.модули, для каждого из выгружаемых модулей вызываются секции финализации unit"ов в порядке, обратном вызову секций инициализации. Т.е. если при загрузке библ.модуля иниц-ся сначала Forms, затем твой unit, то при выгрузке - unit, затем Forms. Так вот и помести Application := Nil в секцию finalization этого самого unit ! Тогда DoneApplication в библиотечном экземпляре модуля Forms никогда не будет вызвана !


Alx2   (2002-03-15 13:56:00) [5]

Сорри. Вопрос снят. Такой подход аукнится...


Наверх

Титульная страница Поиск, карта сайта Написать письмо