如何在DDL与应用程序间传递TADOQuery对象

Question

问题： 如何在DDL与应用程序间传递TADOQuery对象，
       也即，如何拷贝与传递自动化对象（Automation Object: 
       带有IDispatch接口的Object）。我尝试使用指针但其只能传递并引用该对象中的属性值，而对于对象的方法似乎不太灵。
例如：经过指针传递到DLL中后
      PointertoTADOQuery^.FieldValue['Field1']    有效
      PointertoTADOQuery^.FieldByName('Field2').asstring  无效

Answer 1

用integer传递
var i:integer;
i:=Integer(TADOQuery);
ADOQuery:=TADOQuery(i);