M
Minor
Unregistered / Unconfirmed
GUEST, unregistred user!
我在中间层建立了一个Mts数据模块MyMts,然后在类接口下定义了
一个方法GetList(var vDatas: OleVariant).
在客户端用两种方法调用这个接口:
第一种不用TRemoteconnetion:
var
Itemp:Imymts;
vDatas:Olevariant;
begin
Itemp:=Comymts.CreatRemote('机器名');
Itemp.GetList(vDatas);
end;
这种方法顺利通过。
第二种用TSocketConnetion:
SocketConnetion1的Server属性为Applicaion.MyMts.
var
vDatas:Olevariant;
begin
SocketConnetion1.open;
SocketConnetion1.appserver.GetList(vDatas);
end;
这时发生异常“interface do
es not supported by automation Object"
请各位大侠指教。
一个方法GetList(var vDatas: OleVariant).
在客户端用两种方法调用这个接口:
第一种不用TRemoteconnetion:
var
Itemp:Imymts;
vDatas:Olevariant;
begin
Itemp:=Comymts.CreatRemote('机器名');
Itemp.GetList(vDatas);
end;
这种方法顺利通过。
第二种用TSocketConnetion:
SocketConnetion1的Server属性为Applicaion.MyMts.
var
vDatas:Olevariant;
begin
SocketConnetion1.open;
SocketConnetion1.appserver.GetList(vDatas);
end;
这时发生异常“interface do
es not supported by automation Object"
请各位大侠指教。