主程序框架exe+子模块dll,dll共享exe的数据窗口中的adoconnection和公用函数。
dll的出口函数: MainDllForm(DM:TGlobalData,hd:Thandle);主程序中的数据窗口类TGlobalData,我在dll中也申明了。Var aDM:TGlobalData;然后我dll中这样写的,大家看看问题在哪里。
procedure MainDllForm(DM:TGDataFrm;hd:Thandle);
begin
try
application.Handle:=hd;
Form1:=TForm1.Create(application);
aDM:=DM;
Form1.DataSource1.DataSet:=aDM.ADOQuery1;
Form1.ShowModal;
finally
Freeandnil(Form1);
end;
但是aDM不能直接拿去用,一用就报错。
end;
dll的出口函数: MainDllForm(DM:TGlobalData,hd:Thandle);主程序中的数据窗口类TGlobalData,我在dll中也申明了。Var aDM:TGlobalData;然后我dll中这样写的,大家看看问题在哪里。
procedure MainDllForm(DM:TGDataFrm;hd:Thandle);
begin
try
application.Handle:=hd;
Form1:=TForm1.Create(application);
aDM:=DM;
Form1.DataSource1.DataSet:=aDM.ADOQuery1;
Form1.ShowModal;
finally
Freeandnil(Form1);
end;
但是aDM不能直接拿去用,一用就报错。
end;
这里有个例子
真不知道现在的马上是个什么概念