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,用你那種方法當然可行.

但這種方法控制起來比較容易.運行是沒有問題,

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