三层系统中,在中间层写接口,后在客户端中调用,怎么写成函数?

Question

中间层:
procedure getdata(const tablecaption: WideString); safecall;procedure Ttest.getdata(const tablecaption: WideString);
var
ads:TADODataSet;
adsp:TDataSetProvider;
begin
                ads:=TADODataSet.Create(self);
                ads.Connection:=adocon;
                ads.CommandText:='select * from '+tablecaption+'';
                adsp:=TDataSetProvider.Create(self);
                adsp.DataSet:=ads;
                adsp.Options:=[poAllowCommandText];
               //这里不能用adsp.name:=tablecaption,表名有时可能是中文
end;在三层中接口能写成函数的嘛?这样就能返回我创建的DataSetProvider.
因我在客户端还要用刚才创建的DataSetProvider,请问怎么才能使用呢?在线等

Answer 1

1。DCOM（SOCKET）.Appserver.getdata();2.  var TempDisp:TtestDisp;
    begin
    TempDisp:=TtestDisp(DCOM（SOCKET）.Appserver);
    TempDisp.GetData();
    .......

Answer 2

to: Erice(白雪公猪)  
我不是很明白,看不懂