dll中adoquery.Parameters.AddParameter 提示错误，

Question

环境: xp+d7+sql2k
代码在原程序中执行正确，抽取到dll中后执行错误，提示：invalid class typecast错误经查看估计是adodb中下面这里转换错误，为什么呢
function TParameters.AddParameter: TParameter;
begin
  Result := Add as TParameter;
end;附加部分代码；
function dotest(var adoTemp : TAdoQuery):ShortString;stdcall;export;
var
  par : TParameter;
begin
  adotemp.close;
  adotemp.sql.text := 'select aa from tbtest';
  adotemp.open;
  par := adoTemp.Parameters.AddParameter; //这里提示错误
  ....
end;窗体中调用
  dotest(adoquery1);

Answer 1

应该是你还有其他的UNIT里也定义了一个CLASS 叫TParameter. 你可以在你的代码中把ADODB单元有用放到最前面