在COM的类型库中，如何传递Delphi自己的数据类型的参数。(200分)

hxg · 2001-03-22

在建立COM服务器时，添加某接口的方法时，我发现只能传递微软的
那一套参数，而无法传递Delphi自己的数据类型作为参数，如传递
TColor、或TQuery的数据类型的参数。请教高手，有无解决办法。

boy_zyz · 2001-03-22

不是可以封装在变体(ole)Variant里面吗?

蛮牛野蛮牛 · 2001-03-22

怎么装呀？

wrench · 2001-03-22

这个就复杂了
好象要自己实现marshing之类的东西

hzbl · 2001-03-28

先将数据转换成流。然后用TDataPacket和DataPacketToVariant压缩成Variant。传递后
还原，这样可传递任何东东。有转换代码可Mail我。

hxg · 2001-03-30

hzbl:
就劳驾给我寄一份吧。谢谢。
xianguoh@163.net

hubdog · 2001-04-08

easy,用类型库编辑器来new record,
比如
创建下面这样的record
tdemo=record
i:integer;
d:double;
end;

然后,新建对象方法,这时你就会在参数列表中发现Tdemo了,delphi利用类型库的信息
会自动marshal新的类型参数的

guqs · 2001-04-16

试试：
装入Variant:
MyQuery:TQuery;
V:Variant;
P

ointer;

V:=VarArrayCreate([0,Sizeof(TQuery)],varByte);
P:=VarArrayLock(V);
Move(MyQuery,P^,Sizeof(TQuery));
VarArrayUnLock(V);

取出 V:variant：
var P

ointer;
MyQuery:TQuery;
begin
P:=VarArrayLock(V);
Move(P^,MyQuery,Sizeof(TQuery));
VarArrayUnLock(V);

对了就发分结束。

liguang · 2001-04-29

我想如果是类的话,则可以采用上面那位老兄提供的缓存到Variant变量中的方法来实现.
如果是结构的话,则可以采用将其转换为Delphi COM支持类型的方法来实现.比如说要传递
tmyclass结构的变量i则可以先将i转换为整型然后再传统即integer(i)

hxg · 2001-04-30

看来，用Com仍有一定的限制。