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; 

View Code