有关将ADOConnection 传至DLL里的窗体里的问题

Question

dll内定义了var
  tmp:tADOConnection;
  fm_tmp:TForm1;  //TForm1为DLL内定义的窗体function showf(adocon:TADOConnection):boolean;stdcall;
begin
  tmp:=TADOConnection.Create(nil);
  fm_tmp:=TForm1.Create(nil);  
  try
    tmp:=adocon;
    fm_tmp.showmodula;
  finally
    tmp.free;
    fm_tmp.free;
  end;
end;form1里定义了adoquery,为何下执行到Show不行,
以下是的show内出错的地方:begin
  ADOQuery1.Connection:=tmp;  //为何无法通过全局变量将主程序里的 
end;                          //ADOConnection传递给DLL内的窗体//如果不行,那应如何才可把DLL内的ADO连接连至主程序的ADOConnection上,
//不要通过传递ConnectionString的方法实现,因为如果通过多个连接器的话会产
//生多个连接器并发的问题,哪位高手有办法解决这个问题,在线等

Answer 1

tmp:=TADOConnection.Create(nil);最起码应删了这句。报什么错

Answer 2

fm_tmp.showmodula;应改成fm_tmp.showmodal

Answer 3

这个是我刚才发帖的时候打错了，ADOQuery1.Connection:=tmp; 出错的是这句，高手啊，快来帮我啊，不然明天开不了工了啊

Answer 4

真的没人知道如何将ADOConnection 做为参数传递到DLL里去吗

Answer 5

把tmp.free;也删掉
我就这么传过，没有发现问题

Answer 6

不是ADOCONN的问题，//DLL显示模式窗体是要传HANDLE
function showf(h :thandle;adocon:TADOConnection):boolean;stdcall;
begin
  application.handle := h;////////////////
  tmp:=TADOConnection.Create(nil);
  fm_tmp:=TForm1.Create(application); //////////// 
  try
    tmp:=adocon;
    fm_tmp.showmodula;
  finally
    tmp.free;
    fm_tmp.free;
  end;
end;

Answer 7

我试过了 ,可以了,多谢了,其实我刚才也试过句柄,但不怎么的一直出错,现在可以了
function  showf(h  :thandle;adocon:TADOConnection):boolean;stdcall;  
begin  
   application.handle  :=  h;//////////////// 
   tmp:=TADOConnection.Create(nil);  
   fm_tmp:=TForm1.Create(application);  ////////////    
   try  
       tmp:=adocon;  
       fm_tmp.showmodula;  
   finally  
       fm_tmp.free;
        tmp.free;  ///////这里释放的顺序也要换一下
         
   end;  
end;