如何将一个ADO记录集从Com Server中传递出来?(100分)

delphi中ADotable,adoquery的 Recordset 就是ado得原生数据集啊。
所以 我们经常在编asp组件的时候就是用它来和asp里面的ado对象进行通讯 赋值的。
只要理解了这一点 那么和其他使用ado的基本上都可以进行通讯了。

to xeen

more detail in email

To roshui:一个简单的错误,你应该用override覆盖虚方法，而不是重新定义一个.
TFrameServices = class(TComObject,IFrameServices)
private
ADOConn:TADOConnection;
ADOQuery:TADOQuery;
function initConn(const DBPath:String):Boolean;
protected
//IFrameServices
function GetTypeName(const TypeCode:WideString):WideString;stdcall;
function GetCodeSet(const TypeCode:WideString;var CodeSet:Variant):WordBool ;stdcall;
public
procedure Initialize; [red]virtual;[/red]
destructor Destroy; override;
end;
改为rocedure Initialize; [red]override;[/red],然后就OK了.

传_Recordset智能指针

接受答案了.