import microsoft activex data object library ....
這樣你會有一個ADODB_TLB.pas
在com 物件的实现单元中
use ADODB_TLB
....
然後在實做的函數中, 用類似下面的語句.
function TSTOCK.GetRecorset: _Recordset;
begin
try
Result:=ADODB_TLB._RecordSet(ADOQuery1.Recordset);
//注意这里一定要ADODB_TLB._RecordSet進行類型轉換, 不然由
//delphi 自己的adoexpress 包裝的_recordset , asp 可能不認識.
SetComplete;
except
SetAbort;
end;
end;
=========================
wish this willdo
some help to u, and good luck