dll中ado的问题

[blueshu]

http://www.delphibbs.com/delphibbs/DispQ.asp?LID=2135256

[blueshu]

我现在要用delphi为其它程序做个数据处理的dll。
我新建了一个dll,并新建了一个数据模块，在数据模块中用的是ado,在数据模块中引用了此数据模块。在library中引用了comobj及activex，在数据模块的create及destroy中处理了
coInitialize(nil);及counInitialize();。
此时我新建了一个小程序应用调试此dll,发现在用到ado控件时都是不能访问。
有这方面的经验的朋友给点见议，最好给个demo
谢了先
unit Udata;
....

procedure Tdata.DataModuleCreate(Sender: TObject);
begin
coInitialize(nil);
end;

procedure Tdata.DataModuleDestroy(Sender: TObject);
begin
counInitialize();
end;

library khlwdata;
uses
SysUtils,windows,strutils,db,adodb,forms,Classes,comobj,activex,Udata in 'Udata.pas' {data: TDataModule};
.....
function ConnDatabase:integer;
begin
data.adoconnection.connected:=false;//到此处就跳出了
data.adoconnection.ConnectionString:='Provider=MSDAORA.1;Password=khlw;User ID=khlw;Data Source=cskhlw;Persist Security Info=True';
try
data.adoconnection.Connected:=true;
ConnDatabase:=1;
except
ConnDatabase:=0;
end;
end;

...

[大健]

不会，UP

[yoisyois]

我一般这样用

function ConnectedToDB: Boolean;
var
ADOConnection: TADOConnection;
begin
Result := true;
ADOConnection := TADOConnection.Create(Application);
try
with ADOConnection do begin
ConnectionString := 。。。。。。。。。。。。。。;
ConnectionTimeout := 10;
LoginPrompt := false;
try
Connected := true;
except
Result := false;
end;
end;
finally
ADOConnection.Free;
end;
end; { ConnectedToDB }

[blueshu]

请版主将分还我！！！