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

Question

dataModule包含一个dataset和query

Answer 1

/////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;

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

//可是这样都有地址错误，怎么回事？？？？？Function NodeDataProcess(pMyTerminal:PTerminal):boolean;stdCall;
var
  database1:TDataBase;
begin
   database1:=tdatabase.create(nil);
   database1.free;
end;