DELPHI里面的webservices编程Client端实现

apusic

1、file-new-application

2、在webservice 页标签把控件THTTPRIO放到窗体里面来

3、把服务器CGI程序用IIS发布出去需要建虚拟目录

4、在浏览器里面输入http://ip/虚拟目录/cgi.exe/wsdl

5、点击里面的任意的wsdl，浏览器打开地址，把地址拷贝下来

6、THTTPRIO控件的wsdllocation属性赋值5里的地址

7、把服务器端的intf引用进来

       uses IdemoIntf;

8、写代码调用webservices里面的方法；

var
IdemoIntf : IIdemo ;
begin
 IdemoIntf := htpr1 as  IIdemo;
 ShowMessage(IdemoIntf.hellworld('123'));
end;

这样的好处是客户端不需安装数据库的客户端，不用关心业户代码，只需要调用服务器端的接口函数就可以了。

到这delphi里面如何简单创建和使用webservice的例子写完了。

转载注明出处：http://www.blogjava.net/badboyryan/archive/2007/06/11/123304.html

版权所有：坏男孩







坏男孩 2007-06-11 10:19 发表评论