delphi调用webservice 转

 

 

如今 Web Service 已越来越火了，在DotNet已开发的Web Service中，Delphi 7如何方便的调用DotNet写的Web Service呢？
方法有两种，一种是在Delphi 7中WSDLImp工具将DotNet写的Web Service转化为Interface 单元文件，另一种方法是用MS 提供的 Microsoft Soap Toolkit(MSST) 工具。
下面是用WSDLImp工具调用C# 写一个简单的 Web Service：
启动 VS.Net工具，在C#项目中，选择 ASP.Net Web服务，在代码中写入
[WebMethod]
  public double add(double s1, double s2)
  {
    return s1+s2;
  }
生成配件后，在IE 中输入  http://localhost/ASPNETWS/Service1.asmx
会看到 有一个 add 的链接，点击进入，并调用测试：
如，输入 s1为 34, s2为 235.34 调用后为
<?xml version="1.0" encoding="utf-8" ?>
  <double xmlns="http://tempuri.org/">269.34000000000003</double>
输入 http://localhost/ASPNETWS/Service1.asmx?WSDL，可看到WSDL单元
测试成功后，在Delphi 7的Bin目录找到 WSDLImp.exe工具，并拷到一处，
在 命令提示符 中输入 WSDLImp http://localhost/ASPNETWS/Service1.asmx?WSDL
会在当前目录中生成一个 Service.pas 文件，这就是要在Delphi中使用的Interface文件。
启动Delphi 7，新建 Application工程，放入一个TButton组件；
在uses 中加入 InvokeRegistry, Rio, SOAPHTTPClient, Service1;
procedure TForm1.btn_CShapWSClick(Sender: TObject);
var
    WSResult: Double;
    WSIServer: Service1Soap;
begin
  WSIServer:= GetService1Soap(true,'',HTTPRIO1);
  WSResult:= WSIServer.add(23,342.234);
  showmessage('WSResult: '+ FloatToStr(WSResult));
end;