Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.28;
Скачать: CL | DM;

Вниз

А не накроется что-нибудь, если..   Найти похожие ветки 

 
Alx2 ©   (2002-03-15 13:44) [0]

Если в модуле 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 хоронила раньше, но не обнуляла. Но что-то мне боязно :)
Есть ли на то основания?


 
Alx2 ©   (2002-03-15 13:56) [1]

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


 
digitman ©   (2002-03-15 14:10) [2]

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


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

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


 
Alx2 ©   (2002-03-15 14:15) [4]

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


 
digitman ©   (2002-03-15 14:24) [5]

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



Страницы: 1 вся ветка

Текущий архив: 2002.03.28;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.016 c
1-90988
DPetrovich
2002-03-11 15:30
2002.03.28
TreeView


1-90930
VOROT
2002-03-04 10:52
2002.03.28
StringGrid


4-91102
Mirovodin
2002-01-28 12:38
2002.03.28
Таблица импорта


3-90790
ev
2002-02-22 21:05
2002.03.28
IB или MS SQL Server


14-91077
MystiX
2002-02-12 21:15
2002.03.28
Help!!!