中间层自定义函数调用

Question

我在中间层写了一个函数 须要 返回一个布尔型的值定义如下
type
  Tusertest = class(TRemoteDataModule, Iusertest)
    DataSetProvider1: TDataSetProvider;
    ADOQuery1: TADOQuery;
    function DataSetProvider1DataRequest(Sender: TObject;
      Input: OleVariant): OleVariant;
    function linking():boolean;//我定义的函数
**************函数体***************************
function Tusertest.linking():boolean;
begin
  linking:=form1.Linked;
end;
我想知道的是在客户端如何调用linking这个函数得到linked的布尔值   或者 有方法 让客户端的到linked 的值 都可以

Answer 1

if DCOMConnection{ScoketConnection or others}.Appserver.Linking then
begin
  // Do Somethg
end;

Answer 2

这个我不怎么看得懂，我想问一下楼主你的linking:=form1.Linked;中的
Linked是什么意思？

Answer 3

linked 是在form1里定义的全局变量public linked:boolean  用来判断 用户是否已经登陆用的

Answer 4

在菜單的  view - Type Library 中加你的的函數XXXX的聲明, 然後, 在 client 端就可用如:
DCOMConnection.Appserver.XXXX
這樣來調用了