说明.txt

用Delphi实现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 运行此程序，应该能成功。