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




Вниз

опять MDI и DLL 


SergeyDon   (2002-03-20 19:56) [0]

Почему при создании формы из DLL (MDIChild естественно) в параметре MainForm.MDIChildCount:=0;
вырезки прилагаю:
в DLL -

library paket;
var
OldApp:TApplication;
{$R *.RES}
function CreateDLLini(App: TApplication):boolean;
begin
{инициализация DLL для программы}
OldApp:=Application;
Application := App;
Result:=True;
end;
function DestroyDLLini():boolean;
begin
{инициализация DLL для уничтожения}
Application:=OldApp;
Result:=True;
end;
function CreateChildFormGraph(ShNumber:cardinal; ShName:string; ShDate:TDateTime):TFormGraph;
begin
Result := TFormGraph.Create(Application);
with Result do begin
Height:=280;
Width:=700;
...
end;
end;
exports CreateChildFormGraph, CreateDLLini, DestroyDLLini;

begin
end.
////////////////////////////////////////////////////////////

в проекте главного модуля -
...
function CreateDLLini(App: TApplication):boolean; external "paket.dll";
function DestroyDLLini():boolean; external "paket.dll";
function CreateChildFormGraph(ShNumber:cardinal; ShName:string; ShData:TDateTime):TForm; external "paket.dll";

procedure TMainForm.N301Click(Sender: TObject);
begin
CreateChildFormGraph(SelSh.IDSh, SelSh.NameSh, DateSel.Date);
end;
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
var i:byte;
begin
i:=MainForm.MDIChildCount; {тут i=0}
{тут по идеи надо бы удалить созданные формы иначе приложение не будет закрыто так как оно не может удалить формы созданные из DLL, причем если использовать массив указателе на формы например
описать ТТ:array of TForm; и в процедуре создания сделать
SetLength(TT,Length(TT)+1);
TT[high(TT)]:=CreateChildFormGraph(SelSh.IDSh, SelSh.NameSh, DateSel.Date);
и закрывать
for i:=0 to high(TT) do TT[i].Destriy;
работает на 99% - 100%
}
{инициализация DLL для уничтожения}
if not(DestroyDLLini()) then raise Exception.Create("DLL не удалена!");
end;



McSimm   (2002-03-21 10:43) [1]

Проблема исчезнет, если вместе с переназначением Apllication, таким же образом переназначать переменную Screen.
function CreateDLLini(App: TApplication; Scr: TScreen):boolean;
и далее, все аналогично.

Дело в том, что при создании формы, она добавляется в список:
Screen.AddForm(Self);
а у тебя Screen в DLL и программе - разные



deleon   (2002-03-21 10:51) [2]

А что мешает уничтожать MDIForms в Dll ?



SergeyDon   (2002-03-22 09:35) [3]

//deleon

когда это надо делать?

А если прогу снимают Ctrl+Alt+Del?



deleon   (2002-03-22 10:07) [4]

Я не думаю что програмист обязан обеспечивать корректное поведение программы при закрытии ее по C-A-D, так как по своей сути такое закрытие является ненормальным и в этом случае об освобождении ресурсов должна заботиться сама система. А MDI Child нужно создавать в dll от объекта dll, и тогда описания в OnClose: Action:=caFree будет достаточно! И еще: для нормальной работы, тебе нужно иметь один Application для приложения и dll.



Alx2   (2002-03-22 10:11) [5]

>А если прогу снимают Ctrl+Alt+Del?
Прога получит от системы уведомление, что ее хотят похоронить. Осталось его обработать.



McSimm   (2002-03-22 10:30) [6]

>SergeyDon (22.03.02 09:35)
Разве проблема осталась?



SergeyDon   (2002-03-22 22:02) [7]

> McSimm

под WinXP все работае даже без Tscreen а под 98 ни вкаую ни идёт!
-----------------
ПОМОГИТЕ КТО может (маленький рабочий примерчик) по работе MDIChild в DLL.

надо из DLL создавать MDIChild формы содержащие TChart которые можно закрывать и показывать снова для разных значений (эта часть работает) и после закрытия программы корректно выгрузится из памяти.
Избегаю ощибки типа project1 вызвало ошибку при обращении к DLL в в памяти по адресу...
и тому подобного.



SergeyDon   (2002-03-22 22:02) [8]

> McSimm

под WinXP все работае даже без Tscreen а под 98 ни вкаую ни идёт!
-----------------
ПОМОГИТЕ КТО может (маленький рабочий примерчик) по работе MDIChild в DLL.

надо из DLL создавать MDIChild формы содержащие TChart которые можно закрывать и показывать снова для разных значений (эта часть работает) и после закрытия программы корректно выгрузится из памяти.
Избегаю ощибки типа project1 вызвало ошибку при обращении к DLL в в памяти по адресу...
и тому подобного.

можно на мыло SergeyDon@mail.ru




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




Наверх





Память: 0.73 MB
Время: 0.016 c
14-9610           novomod               2002-02-21 23:44  2002.04.04  
Математика.Функция.Алгоритм.Help.


1-9468            FiGr_                 2002-03-25 16:40  2002.04.04  
Кнопки окна


7-9666            AlexBeliy             2002-01-06 11:48  2002.04.04  
Поиск в реестре


1-9550            Atrem                 2002-03-23 12:38  2002.04.04  
Мастера,как можно перебрать в цикле все узлы и всех потомков всех узлов и т.д. в TTreeView?


3-9372            Valentin2             2002-03-11 11:16  2002.04.04  
Здравствуйте, уважаемые коллеги!