| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Проблемы с MDI и DLL [D6, Win2k]

alexts ©   (2002-03-20 15:21:00) 

Привет всем мастерам. Есть такая проблема:
Есть MDI приложение и DLLки в которых формы описаны.
Не выходит эти формы показать. Что делать?

---

Alx2   (2002-03-20 17:39:00) [1]

Странно. Где-то глюки....
У меня пример, который я написал, полностью работает. Попробуй на нем что-то поэкспериментировать.

---

alexts   (2002-03-20 17:38:00) [2]

Всеравно тоже самое. Главная форма пропадает, но перед этим мерцает та форма которую вызываю?????????

---

Alx2   (2002-03-20 17:24:00) [3]

На всякий случай: воткни sharemem на первом месте в dll-овский uses и uses основного модуля программы.

---

alexts   (2002-03-20 17:20:00) [4]

чет не выходит. главное окно исчезает и все..делаю так:
Dll

library spr;
{$R *.res}
uses
Forms,
SysUtils,
Classes,DBTables,
u_add_group in "u_add_group.pas" {add_group},
dm_tov in "Dm_tov.pas" {DM_Tovar: TDataModule},
main_tovar in "main_tovar.pas" {f_sprtov},
u_add_food in "u_add_food.pas" {add_food},
add_param in "add_param.pas" {f_hartov};

function spr_foods(App:TApplication;Scr:TScreen;DB:TDataBase):TForm;
begin
Application:=App;
Screen:=Scr;
DM_Tovar:=TDM_Tovar.Create(app);
DM_Tovar.Database1:=DB;
f_sprtov:=Tf_sprtov.Create(App);
Result:=f_sprtov;
end;

exports
spr_foods;
begin
end.


Вызов из DLL

LAssort:=loadlibrary(PChar(spr_menundll.AsString));
if LAssort<>0 then
begin
@MyProc:=GetProcAddress(LAssort,PChar(spr_menunproc.AsString));
if @MyProc <> nil
then MyProc(Application,Screen,Intro.Database1)
else ShowMessage("

---

Alx2   (2002-03-20 16:19:00) [5]

Короче говоря, делали так:
В DLL переаем контекст Application и Screen. После этого - почти работает. :)
Вот, "на скорую руку" набросал:

DLL:

uses
sharemem,
SysUtils,
Classes,
Forms,
aUnit1 in "aUnit1.pas" {MDIForm1}; // Там сидит обычная форма
Var Save : TApplication;
{$R *.RES}
procedure ClearMdiApp; stdcall;
begin
if Save<>Nil then
Application := Save
end;

function createMDIChild(app : tApplication):Tform; stdcall;
begin
if Save = Nil
then Save := Application;
Application:=app;
Result := TMDIform1.create(app);
end;

exports createMDIChild, ClearMdiApp;

begin
Save := Nil;
end.


Вот основной модуль:

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
NewMDI1: TMenuItem;
procedure NewMDI1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
function createMDIChild(app : tapplication):tForm; stdcall; external "mdi.dll";
procedure ClearMdiApp; stdcall; external "mdi.dll";
implementation

{$R *.DFM}

procedure TForm1.NewMDI1Click(Sender: TObject);
begin
CreateMDIChild(Application).FormStyle:=fsMDIChild;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
ClearMdiApp;
end;

end.


---

MAxiMum   (2002-03-20 16:08:00) [6]

А ты сделал внешним в DLL функцию построения Form?
Типа, function(...): TMDIForm;
И получай сслыку на форму.

---

alexts   (2002-03-20 16:07:00) [7]

Ну дык дайте хоть где почитать.

---

Alx2   (2002-03-20 15:49:00) [8]

Сорри, линк на этот вопрос уже уплыл за пределы активности :(

---

Alx2   (2002-03-20 15:43:00) [9]

Искать в форуме. Уже четвертый раз за две недели этот вопрос всплывает.

---

Наверх