如何从COM传入的参数得到TADOConnection，大侠快帮忙！

[zzyx]

我想完成跨COM传递ADOConnection对象
我使用这个方法的原因是，可以在客户端打开一个TADOConnection，然后把这个连接
传递给COM组件，在组件中，可以继续使用这个连接而不必建立新的连接。


也就是说，我想做这样一个COM
方法为（IDL）：
SetAdo(IDispatch* pAdo)

在delphi中对应的就是
procedure SetAdo(const adoConn: IDispatch)

在函数实现中，有一个TADOConnection 变量
想要从传入的指针中重新得到一个ADO对象
简单表示为：
var adoInner:TADOConnection;
adoInner:=adoConn;
//这个语句肯定编译不过去，但我要达到的就是类似效果

请大家帮忙！
或提供其他类似的解决思路
谢谢

[zzyx]

回 itren(火神)：是的。

如 Focus(老鱼) 所说方法，是可以把TADOConnection对象转换为一个COM接口指针，传递给
另外一个COM接口方法

现在的重点是在该COM接口方法的实现中
如何把传递来的指针再重新构造为TADOConnection？

这样做的目的是
1。避免再次连接数据库
2。在COM中还可以方便地使用TADOConnecction

还请各位dx继续关注！

[76liujing]

我觉得应该把数据库操作放在com组件中，
而不是传回到前台处理

[outer2000]

1,传递CONNTIONSTRING可以吗？

[Linux2001]

传递一个ADOConnection组件本身就证明了你COM组件设计就有严重的缺陷！

[上海老李]

应该不行,因为那样做会损失以前已得到的数据集!也许你就传传连接串吧!

[zzyx]

各位，传递Ado对象到另外一个COM组件中是非常正常的做法！
而且，在某些情况下是有效的做法……避免了再次数据库连接

在COM中，使用IUnknown指针就是了。
从IUnknown指针重新构造一个ADO对象是比较简单的

传递ConnectString重新构造当然可以，但这就涉及到重新打开数据库连接了

当然，还有一个办法肯定可以避免再次连接，就是在COM中
直接使用ADO的COM接口，可以操作数据，而不使用TADOConnection
但这个方法存在的问题是，我就不能利用TADOConnection提供的和控件界面的相关性了

所以，俺希望的结果是能够把TADOConnection传递给另外一个COM。

俺delphi刚刚接触几天（连语法都每没有明白呢，手边也没有书，只能看help），
所以，如果问题比较愚蠢的话，请原谅。

Focus(老鱼)的办法俺明天试验！

[itren]

是不是要用已经创建了的ADOCONNECTION ??

[citytramper]

up

[westfly]

adoInner := adoConn.ConnectionObject;

[zzyx]

俺现在已经能把一个TADOConnection传递给COM的接口方法了
在该接口方法中，能从传递来的指针参数中重新构造出一个TADOConnection对象
并且能够调用其方法
现在的问题是，俺只能把传递来的指针转换为一个临时的TADOConnection中
还不能把它转换给位于Form中的已经存在的TADOConnection中

俺继续...

[zzyx]

问题已经解决，谢谢各位关注！
俺笨，Focus(老鱼)的方法基本就可以用的了。

请Focus(老鱼) 到俺的另外一个帖子领分。

http://expert.csdn.net/Expert/topic/1849/1849379.xml?temp=.9240381

[zzyx]

把解决办法说说，
俺走了许多弯路，其实最简单的就是直接把指针赋值给TADOConnect对象，只是
赋值前要转换一下类型
俺还做了临时的TADOConnect对象，使用了QueryInterface，等等麻烦的做法


function TComAdoX.SetAdo(const pAdo: IUnknown;
out strRet: WideString): HResult;
var frmX:TfrmCOM;
begin

// 从IUnknwon接口查询ADOConnection接口，到ic
// hr:= pAdo.QueryInterface(IID__Connection,ic);
// adoConn:=TADOConnection.Create(nil);
// adoConn.ConnectionObject :=ic;

// 创建窗口
frmX:=TFrmCom.Create(nil);
// 创建adoCN
frmX.adoCN.Create(nil);
// frmX.adoCN.ConnectionObject :=ic;
frmX.adoCN.ConnectionObject :=pAdo as _Connection;
// 测试
// frmX.adoCN.Execute('select * from t_user');
// 打开窗体，显示数据
frmX.ShowModal ;

SetAdo:=S_OK;
end;