Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема при закрытии формы MDI из DLL [D7, Win2k, WinXP]

Jakudza © (2007-04-10 13:11:00)
Если во время закрытия основной MDIForm'ы была активна MDI форма вызванная из DLL ругается на 'Acces violation at adress ...', если же была активна форма (MDI) не из Dll, то все закрывается нормально, в чем может быть проблема ?!

DLL
---------
procedure CreateFormIm1(App: TApplication; Scr: TScreen);stdcall;
begin
DLLScr := Screen;
Screen := TScreen(Scr);
DLLApp := Application;
Application := TApplication(App);
TFormIm1.Create(Application);
end;

procedure CloseFormIm1;stdcall;
begin
Screen := DLLScr;
Application := DLLApp;
FormIm1.Free;;
end;

exports CreateFormIm1, CloseFormIm1;

---------------
MDI_Form
---------------
procedure CreateFormIm1(Apl: TApplication; Scr: TScreen);stdcall; external 'Pravila 21\Pravila_21.dll';
procedure CloseFormIm1;stdcall; external 'Pravila 21\Pravila_21.dll';

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i: integer;
begin
with Form1 do
for I := MDIChildCount-1 downto 0 do
MDIChildren[I].Close;
CloseFormIm1;
end;

Jakudza (2007-04-11 09:43:00) [1]
Fredy314 © (10.04.07 16:44) [14]
Спасибо, помогло :)

Fredy314 (2007-04-10 16:44:00) [2]
> [9] Jakudza (10.04.07 15:33)

Я и не говорил что будет работать.
смотри http://helpstudio.h1.ru/books/d4/d4_19/_dll_9.htm
Искать надо уметь.
только надо-ж понимать что копируешь.

DrPass (2007-04-10 16:30:00) [3]

> в чем может быть проблема ?!

Например, в отсутствии ShareMem. Или, что более вероятно, в концепции. Уже миллион раз говорили - НЕ ПОМЕЩАЙТЕ ФОРМЫ В DLL, стабильной работы таких приложений добиться практически невозможно.

Сергей М. (2007-04-10 16:21:00) [4]

> что нашел, то и использовал
>

Малацца.
ПРодолжай в том же духе.
Думать своейголовой ты не желаешь. как я понял.

Jakudza (2007-04-10 16:19:00) [5]
С cdecl таже ситуация

Эт потому что ты код содрал.
Бездумно.

Зачем изобретать колесо, что нашел, то и использовал

Сергей М. (2007-04-10 15:39:00) [6]
Эт потому что ты код содрал.
Бездумно.

Вот скажи, зачем тебе stdcall ?
Почему, к примеру, не cdecl ?

Jakudza (2007-04-10 15:33:00) [7]
не помогло

Fredy314 (2007-04-10 15:18:00) [8]
> procedure CloseFormIm1;stdcall;
> begin
> Screen := DLLScr;
> Application := DLLApp;
> FormIm1.Free;;
> end;

попробуй
procedure CloseFormIm1;stdcall;
begin
FormIm1.Free;;
Application := DLLApp;
Screen := DLLScr;
end;
разницу видишь?

Сергей М. (2007-04-10 14:39:00) [9]
Ну тогда отладчик тебе в руки - и вперед, с песней.

Jakudza (2007-04-10 14:37:00) [10]
Причем здесь бред, есть главная форма, с помощью меню выбираются разделы, каждому разделу в меню соответствует форма (MDI), часть этих форм вызывается из dll, и проблема не в цикле, потому что и без него всеравно выкидывает ошибку при закрытии.

Сергей М. (2007-04-10 14:32:00) [11]

> переходит с формы на формы, чтобы лишние формы не болтались,
> закрываю

Бред какой-то..

Jakudza (2007-04-10 14:29:00) [12]
Когда переходит с формы на формы, чтобы лишние формы не болтались, закрываю

Сергей М. (2007-04-10 14:24:00) [13]
а начерта тебе вообще этот цикл ?

Jakudza (2007-04-10 14:21:00) [14]
Пробовал и без этого
with Form1 do
for I := MDIChildCount-1 downto 0 do
MDIChildren[I].Close;
тот же результат, остальные формы ведь закрывает нормально

Сергей М. (2007-04-10 13:14:00) [15]

> в чем может быть проблема ?

В том что одну и ту же форму ты пытаешься уничтожить дважды

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »