Delphi多层C/S的客户端调用服务器端的方法

我在APPLICATION SERVER中声明一个方法，

PROCEDURE GETQUERYPARA(VAR CPARA:OLEVARIANT);
BEGIN
QUERY.CLOSE;
QUERY.PARAMBYNAME[CODE].ASSTRING:=CPARA;
END;

客户端调用:

PROCEDURE TFORM1.FORMSHOW(SENDER:TOBJECT);
BEGIN
CLIENTDATASET1.CLOSE;
DATAMODULE1.REMOOTESERVER1.APPSERVER.GETQUERYPARA(参数);
CLIENTDATASET1.OPEN;
END;

因为我SERVER中有多个QUERY,但只有一个PROVIDER,用你那种方法当然可行.

但这种方法控制起来比较容易.运行是没有问题,

只不过不知上面的方法是否"合法",请多指教.