客户专线:400-641-8864 | 在线QQ:987837344
首页 易当家培训 鼎捷ERP 易当家ERP 行业方案 实施方法 联系我们  
 

用Delphi 7实现Web Service最简单的案例


Web Service 应用简例

在Delphi 7中建立的、运行在IIS中的Web Service应用程序。

1 建立服务端
  1.1 打开Delphi 7,File->New->Other->WebServices->SOAP Server Application->OK;
  1.2 在弹出的对话框中选择ISAPI那项->OK;
  1.3 向导会询问“Create Interface for SOAP moudule?”->Yes->在弹出的“Add New WebService”对话框的“Service name”中录入你想要的名称,在此录入“IHelp”;
  1.4 找到IHelpIntf.pas,在接口声明体内增加方法:
      function sayHello(name:String):String;stdcall;
  1.5 找到IHelpImpl.pas,在类声明体内增加方法:
      function sayHello(name:String):String;stdcall;
  1.6 在IHelpImpl.pas中实现sayHello的方法
      function TIHello.sayHello(name: String): String; stdcall;
      begin
        Result := '您好 '+name+'这是最简单的WebService程序';
      end;
  1.7 编译成Hello.dll。

2 部署Hello.dll服务到IIS中
  2.1 确保系统中安装了IIS,并且网站的执行权限设为“脚本和可执行文件”;
  2.2 将Hello.dll拷贝到某个网站目录下,在此拷贝到默认网站的根目录下;
  2.3 在IE地址栏输入http://localhost/Hello.dll/,应该可以看到Hello-Service Info Page,点击IIHelo后面的WSDL链接,会显示一堆的XML内容,复制地址栏中的地址,在此是“http://localhost/Hello.dll/wsdl/IIHello”,后面编写客户端时用得到此地址。

3 编写客户端
  3.1 打开Delphi 7,建立普通的应用程序,在Form上拖放一个文本框和一个按钮;
  3.2 File->New->Other->WebServices->WSDL Importer->OK;
  3.3 在打开的“WSDL Import Wizard”对话框的Location of WSDL File or URL”中录入刚才复制的地址“http://localhost/Hello.dll/wsdl/IIHello”->Next->Finish;
  3.4 在Form中引用此单元,然后在Form的按钮的onclick中写入以下代码:
      edit1.Text := GetIIHello(false,'',nil).sayHello(edit1.Text);
  3.5 运行此程序,应该能成功。


猜您喜欢:     易当家ERP简介     E8ERP系统含进销存、生产、财务     软件定制及其流程

ERP,ERP系统,ERP软件
ERP软件 | 深圳网络公司 | 易助ERP | 鼎捷软件 | 神州数码 | 力高ERP |
Copyright© 2008-2016 深圳市易当家软件开发有限公司. All Rights Reserved. 粤ICP备14043283号