如何实现dcom的调用方式dispatch table(100分)

F

fishhz

Unregistered / Unconfirmed
GUEST, unregistred user!
各位大哥 小弟有2个问题急需解答 :
1 ado/mts/dcom模式的:
procedure TForm1.Button2Click(Sender: TObject);
var
adisp: Idcom_adotestDisp;// sever 的dispatch 接口类
begin
randomize;
i:=random(4);
adisp:= Idcom_adotestDisp(idispatch(DCOMConnection1.appserver));
adisp.test(i);
application.ProcessMessages;
end;
提示 [Error] Uclient.pas(54): Undeclared identifier: 'Idcom_adotestDisp';
好象是未声明的变量类 应该怎样解决?
2 小弟因为需要 通过DCOMConnection.appserver.test(x) 方法取得远程应用服务器
的方法 但如何返回变动的数据到客户端? 如果是 mts/dcom 的话就没问题 但用ado/mts/dcom
的话就会出错 adoquery1 commandtextdo
not return a result
 
各位大哥 help me!
 
问题1:
你的这段代码应该是客户端的,客户端中间怎么会有服务端的接口说明呢,所以语法无法
通过,如果你的服务端是IDispatch的,你只要Server接口中有这个方法,你可以直接调用,
不需要再将接口转换一次了
问题2:
你的叙述不是很清楚,你的目的如果是想让客户端动态的取服务端的数据的话,你可以用
ClientDataSet邦定到服务端的某个Query控件,然后通过客户端通过某个方法将服务端的
Query激活,这个方法中你就可以动态地要求Query取数据了
 
顶部