在COM中使用ADO——急

Question

你可以导入Ms Ado RecordSet 2.x类库啊！记住delphi 的ado 中的recordset
和原生的不可以浑用的，如果你喜欢的话，多给点分呵呵！我可以告诉你浑用的方法这样呢就可以使用你熟悉的东东了呵呵！
关于导入的做法是在类型库编辑界面上选择insert类库,就是在类库的开始的第一个项目的选项卡中！

Answer 1

传递对象？ 你为什么不用olevariant;
假设 param1为所提供的接口方法里的一个参数，为 olevariant类型，传递的的AdoQuery的指针,这是调用端的使用方法；
AdoQuery1 := TAdoQuery(dword(param1));

Answer 2

to manboo(横刀:
   可能我没说清楚。
   比如：我在COM中定义了CONNECTDATABASE方法，我需要在该方法返回ADO对象。而类型库中定义该方法时，则在返回参数中找不到这种数据类型。我必须在该方法的返回值中用ADO对象。
   试过即给分，可以多给。
  谢谢

Answer 3

qiubolecn(来自差生市) :
  试了你的方法，但编译过不了。下面是我的COM中方法的代码：其中连接成功后，我想把ADOConnection对象传回去，但编译是提示类型转换出错：procedure TConnDbSrv.ConnectDB(const AuserName, Apassword: WideString; out ADbName: OleVariant);
var
  bConnected : boolean;
begin
  bConnected := ConnectDatabase(AUserName,APassword);
  if bConnected then
    showmessage('Connected')
  else
    showmessage('No Connected');
  AdbName := ADOConnection;  --直接付对象不行
--AdbName := ·ADOConnection;--付对象的地址也不行end;
 怎么办？

Answer 4

导入ado 的原生的对象接口也就是AdoConnection 实现的那个接口
将它返回不就成了！

Answer 5

unction Ta.Get_Property1(out Value: _Collection): HResult;
begin
 Value:= AdoConnection1.ConnectionObject  as ADODB_TLB._Connection
end;function Ta.Set_Property1(const Value: _Connection): _Collection;
beginend;
搞定呵呵