Форум: "Основная";
Поиск по всему сайту: 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.74 MB
Время: 0.045 c
7-9656            XM-AD                 2002-01-09 15:52  2002.04.04  
Получить список установленного ПО???


1-9436            DikobraZ              2002-03-25 09:02  2002.04.04  
RichEdit


1-9518            _xiod (sorry? forg.o  2002-03-23 02:34  2002.04.04  
пиплы! нужен хэлп по таймерам под виндой!


1-9521            wal                   2002-03-22 14:40  2002.04.04  
---|Ветка была без названия|---


1-9571            snoup                 2002-03-24 22:25  2002.04.04  
Мне для звонилки нужна статистика (когда считает сколько ты времени провел в интернете)