Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Вниз

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


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.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.033 c
14-91064          Sergo                 2002-02-15 08:25  2002.03.28  
Насчет здоровья


1-90927           us                    2002-03-14 04:15  2002.03.28  
Номер версии


3-90787           Вадим Андреевич       2002-03-04 08:36  2002.03.28  
DBTable_lock record


3-90740           ASM                   2002-02-27 20:40  2002.03.28  
Ребята Хэлп нужен


1-90895           Света                 2002-03-18 10:06  2002.03.28  
Выход из цикла