如何创建和调用包还DataModule的dll?急

[thyong]

dataModule包含一个dataset和query

[michael_king]

把你的导出函数铁出来

[thyong]

/////dll中
Function NodeDataProcess():boolean;stdCall;
begin
with moddata.query1 do
begin
close;
sql.clear;
sql.Add('select * from Comm_Terminal');
open;
showmessage(fieldbyname('name').asstring);
result:=true;
end;
end;
//调用
Function NodeDataProcess():boolean;stdCall;
external 'NodeProcess.dll';

procedure TForm1.Button1Click(Sender: TObject);
var
dataModule:TDataModule;
begin
dataModule:=TdataModule.Create(form1);
NodeDataProcess;
dataModule.Free;
end;

[michael_king]

NodeDataProcess():
这个函数中应该有所有的组件的创建和销毁过程

[michael_king]

创建组件，传递handle，销毁组件，看看书把，很多

[thyong]

好，我试试，谢谢指点

[thyong]

谢谢 michael_king(戴着戒指) ，我模拟已经跑通了，接下来应该不会有什么问题。谢谢指点，等会给分。

[thyong]

//可是这样都有地址错误，怎么回事？？？？？

Function NodeDataProcess(pMyTerminal:PTerminal):boolean;stdCall;
var
database1:TDataBase;
begin
database1:=tdatabase.create(nil);
database1.free;
end;