开发组件MTS，怎样返回Recordset(100分)

1

12345yy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-07

• #1

返回OleVariant类型不认

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-07

• #2

说详细些，最好贴点代码。

 

G

GanQuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-08

• #3

要返回RecordSet，可以结合MIDAS技术来使用从服务端存取数据。
RecordSet怎样转换Variant我也想知道。
不知那位大虾来谈谈！

 

H

Hongjiang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-08

• #4

recordset是IDispatch型，你可以这样:
var
rs: Recordset;
begin
rs:=IDispatch(obj.GetRS) as Recordset;
//do anything you want
end;

 

天

天真

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-08

• #5

也听一下，学点东西！

 

A

addie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-08

• #6

http://www.delphibbs.com/delphibbs/dispq.asp?lid=287963

 

1

12345yy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-11

• #7

我个人认为Delphi的Midas提供的接口把很多东西都封装起来，又不支持事物，不如
舍弃它，用MTS

 

硕

硕鼠

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-15

• #8

function TTree_Info.Get_Children(father_id, Max_Row,
Min_Id: Integer): OleVariant;
var
obj:IDMTree;
ps:TParams;
op:OleVariant;
p:TParam;
recs:integer;
od:OleVariant;
begin
obj:=CoDMTree.Create;
ps:=TParams.Create;
p:=ps.Add as tparam;
p.AsInteger:=father_id;
p:=ps.Add as tparam;
p.AsInteger:=Min_Id;
op:=PackageParams(ps);
od:='';
result:=obj.AS_GetRecords('DSPTree',Max_Row,Recs,MetaDataOption+ResetOption,'',op,od);
end;

 

1

12345yy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-04-15

• #9

多人接受答案了。