DLL对象类型转换

//以下代码是错误的！！！
//这一节主要告诉大家，以这种方式进行开发dll是不对的以及错误原因，正确的方式是什么！
//DLL内创建对象，并把对象返回
function GetDataSet(str,conn:PChar): TADODataSet;stdcall; 
begin 
  Result:=TADODataSet.Create(nil); 
  Result.Close; 
  Result.ConnectionString:=conn; 
  Result.CommandText:= str; 
  try 
      Result.Open; 
  except 
    on E:Exception do 
    begin 
        ShowMessage(E.Message); 
        GetDataSet:=nil; 
    end; 
  end; 
end; 
//主调程序
var 
  datas:TADODataSet; 
  sql,conn:string; 
  i:Integer; 
begin 
  sql:='select ....'; 
  conn:='Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=Master'; 
    datas:=GetDataSet(PChar(sql),PChar(conn));//如果单纯返回一个对象，这样没问题，但要注意的是不要进行类型转换(这里的类型转换包括显式或隐式类型转换)
    try 
        DBGridEh1.DataSource.DataSet:=datas； 
//上面这句话就出错了，原因如下：
//导致错误的原因为RTTI转换导致地址不一致的问题！
dbgrid.datasource.dataset:=datas;
datas是TADODataset类型，由于是一个的地址是从dll传出至主调中，在赋值前是一个隐式的向上转型的过程(Dataset<--TADODataSet)，这时会调用Is 、As等System单元的函数,仔细看一下Is与As的实现(IsClass、InheritedFrom)，不难发现在转换过程中把dll中的RTTI转换为application中的RTTI,造成地址不一致，转换错误！
为什么地址不一致呢？
因为dll与exe维护着各自的的RTTI表，位于PE文件头下方的的Code段(不清楚的朋友可看一下Win32的进程布局)，如主调与dll中都有Dataset对象，在进程装载时先将主进程中的RTTI载入，地址为ox00611000,而dll载入时dll内的dataset类层次不可能为ox00611000,可能是ox00722000，而这时在主调或dll中转换时，Delphi是对RTTI中记录的各个类进行地址判断，如果相同，则直接将地址赋值，如果不同，则递归性地找其父类地址，如果其父类地址还是找不到，则会提示错误，很显然，地址肯定是不一样的！
解决方法：
如果实在想共享对象，并有可能在主调或dll中进行转型怎么办？
答：用bpl,当使用bpl时，bpl与主调共用一个RTTI,这样就没有转型的问题了！
    except 
      on E:Exception do 
      begin 
        ShowMessage(E.Message); 
      end; 
  end;