如何调用服务器的方法_在线等待。。。。

Question

我想在做三层的应用程序。想在服务器或远程数据模块中加入一些公共方法。并返回一些值或记录。然后在客户端调方法得到值或执行功能。这些方法在哪里建立比较好。如果能有源码就更好了。

Answer 1

在view\type library里面建立啊。
建立之后可以用_TLB文件中生成的接口调用。

Answer 2

to :eboywy(飞影)
能说得详细点吗?
建立倒是可以建立.但不知道在客户端怎么样调用.
给段代码吧.

Answer 3

tmpdisp:i你的接口名;
 tmpdisp:=i你的接口名(idispath(你的连接.appserver));
 tmpdisp.接口中的方法();

Answer 4

客户端加入中间层_TLB文件引用。
_TLB文件后端有类似代码如下：
class function Coasasasas.Create: Iasasasas;//
begin
  Result := CreateComObject(CLASS_asasasas) as Iasasasas;
end;class function Coasasasas.CreateRemote(const MachineName: string): Iasasasas;
begin
  Result := CreateRemoteComObject(MachineName, CLASS_asasasas) as Iasasasas;
end;用以上方法创建对象。推荐用第一个。
var
   aa:Iasasasas;
begin
   aa:=Coasasasas.Create;
   aa.wy();
 end;

Answer 5

to :eboywy(飞影)
"客户端加入中间层_TLB文件引用。"
是在Uses处加入吗?? 提示错误啊.var
   aa:Iasasasas;
begin建立对象的时候也提示错误.!

Answer 6

要根据你自己的三层程序生成的_TLB文件来加啊。我给的只是一个例子。
uses里加，还要把_TLB文件路径加入到search path中，或放到同一目录下。
打开你的_TLB文件看看最后部分的create方法返回的接口是什么（这个接口是你在创建中间层程序时自己定义的）。用这个接口创建对象调用方法。