怎样调用dll里的窗体，高手进，在线等..........

Question

如题：
dll里有form1窗体和datamodule1数据模块，datamodule1里有ado数据集组件，form1窗体里有ado查询，问题是：当调用dll里的form1时，查询功能不能用了，就是数据模块里的ado出错，请问怎样解决呀？？？？？？？

Answer 1

好像要初始化，怎样初始化呀，下面是我的代码：
library P_tnbjk_dll;uses
  windows,
  SysUtils,
  Classes,
  Forms,
  ComObj,  Unit1 in 'Unit1.pas' {Form1},
  U_DM in 'U_DM.pas' {DM: TDataModule},
  U_bjzd in 'U_bjzd.pas' {Frm_bjzd};{$R *.res} function ShowForm(aHandle:THandle;acaption:pchar):Boolean;stdcall;
var
  form1:tform1;
begin
  Application.Handle:=aHandle;
  form1:=tform1.Create(Application);
  try
    form1.ShowModal;
  finally
    form1.Free;
  end;
  Result:=true;
end;exports showform;begin
end.  

Answer 2

在创建form1时创建了：
procedure TForm1.FormCreate(Sender: TObject);
begin
  dm:=tdm.create(self);
end;
运行时会有：---------------------------
Project1
---------------------------
尚未调用 CoInitialize。.
---------------------------
确定   
---------------------------

Answer 3

回复：
原因是没有Application.initialize,即没有对COM对象初始化。如果在Delphi的Dll里面使用了ADO组件，那么需要在使用之前调用ActiveX的CoInitialize方法。
例如：CoInitialize();
      query := TADOQuery.Create(nil);

Answer 4

在调用DLL中的DELPHI组件是要注册的！

Answer 5

dll里有form1窗体和datamodule1数据模块，datamodule1里有adodataset1数据集组件，adodataset1的onbeforepost事件里有 adodataset1.fieldbyname('abc').value:=form1.memo1.text;问题是：当调用dll里的form1时，保存录入memo1的内容到表时为空，明明memo1里有内容呀，是adodataset1写入前事件里form1.memo1.text引用错了？大侠帮忙！！！

Answer 6

加几个ShowMessage调试一下吧。
最好把代码贴出来。

Answer 7

library P_tnbjk_dll;uses
  windows,
  SysUtils,
  Classes,
  Forms,
  ComObj,  Unit1 in 'Unit1.pas' {Form1},
  U_DM in 'U_DM.pas' {DM: TDataModule},
  U_bjzd in 'U_bjzd.pas' {Frm_bjzd};{$R *.res} 
procedure ExitDLL(Reason: Integer);
begin
  if Reason = DLL_PROCESS_DETACH then
  begin
    //写释放数据源的代码
    //
    CoUnInitialize;
    Application := DLLApp;
    Screen := DLLScr;
  end;
end;
begin
  CoInitialize(nil);
  SaveExit:=ExitProc;
  DLLApp := Application;
  DLLScr := Screen;
  ExitProc:=@ExitDLL;
end.