请问不能在动态连接库中访问数据并且得到数据呢(dll)

Question

写关键部分function Login(UID,PWD,cnStr:PChar):integer;stdcall;
var
  Ado1:TADODataSet;
begin
  Ado1:=TADODataSet.Create(Application);
  ……
  ……
  Ado1.commandtext:='select * from MyTable where UID='''+StrPas(UID)+''' and PWD='''+StrPas(PWD)+'';
  Ado1.active:=true;//开始出错??
  if not Ado1.eof then
   ……
end

Answer 1

在创建动态连接库时,最好带上主程序的Application.Handle作为一个参数传给动态库的的Application.Handle,否则，如果用到Application全局变量时，可能会出错。