Форум: "Основная";
Поиск по всему сайту: 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.028 c
3-9411            Анатолий              2002-03-13 11:51  2002.04.04  
Импорт данных из таблиц Excel таблицы формата *.dbf


7-9663            DDD                   2001-12-13 16:33  2002.04.04  
СОМ-порт и устройство


3-9420            DeNNiss               2002-03-13 14:12  2002.04.04  
Подскажите, плиз...


6-9592            OGR                   2002-01-23 11:09  2002.04.04  
Как проконтролировать полную загрузку страницы в TWebBrowser?


1-9562            Man-In-Red            2002-03-23 18:20  2002.04.04  
Как из любого файла (директория и имя его находятся в Edit`e1), вытащить его значок и поместить в Image1?