Delphi 7 中使用Indy创建独立的 Web Services/SOAP 服务器（二）

最新推荐文章于 2017-01-07 11:47:40 发布

螃蟹就是横着走

最新推荐文章于 2017-01-07 11:47:40 发布

阅读量3.1k

点赞数

分类专栏： Delphi

Delphi 专栏收录该内容

143 篇文章

订阅专栏

本文详细介绍如何使用Visual Studio创建一个SOAP客户端应用程序，包括设置环境、导入WSDL文件、配置HTTPRIO组件以及编写调用WebService的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

创建客户端MySOAPClient.exe

确保之前的MySOAPServer.exe已经运行，在IE中打开地址http://localhost:1024/wsdl/IMySOAPWebService进行确认。

点击菜单File --> New --> Application,在窗体从标准控件中上放一个Button，一个Label，从WebServices控件中放一个HTTPRIO到窗体上。

排列一下Button1与Label1的位置，让它看起来漂亮一点。

点击菜单View --> Project Manager打开项目管理器，展开Project(n).exe目录

展开Unit1，双击Form1，按F11激活对象观察器，将Name属性由Form1改为MySOAPClientForm。

点击菜单File --> New --> Other,选WebServices标签，选中WSDL Importer图标，点OK

在WSDL Import向导窗口中输入WSDL文件的URL：http://localhost:1024/wsdl/IMySOAPWebService

然后点击下一步，最后点击Finish.

点击菜单View --> Project Manager打开项目管理器，双击Unit1.pas，在interface部分uses单元IMySOAPWebService1

uses
     Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
     Dialogs, IMySOAPWebService1;

点击菜单View --> Project Manager打开项目管理器，双击MySOAPClientForm，选中HTTPRIO1对象，按F11激活对象观察器

对于 WSDLLocation属性，从下拉列表中选择 http://localhost:1024/wsdl/IMySOAPWebService

对于 Service属性，从下拉列表中选择 IMySOAPWebServiceservice

对于 Port 属性，从下拉列表中选择 IMySOAPWebServicePort

点击菜单View --> Project Manager打开项目管理器，双击MySOAPClientForm，再双击Button1

在 Button1Click方法中输入：

  begin
    Label1.Caption :=(HTTPRIO1 as IMYSOAPWebService).HelloWorld('Worked!');
  end;

现在你可以保存文件:

点菜单File --> Save Project As,

将Unit1保存为MySOAPClientFormU.pas

IMySOAPWebService1保存为MySOAPWebServiceClientIntf.pas

Project1保存为MySOAPClient.dpr

点击菜单View --> Project Manager打开项目管理器，展开MySOAPClientForm，双击MySOAPClientFormU.pas，

将引用IMySOAPWebService1改为MySOAPWebServiceClientIntf。

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, MySOAPWebServiceClientIntf, InvokeRegistry, Rio, SOAPHTTPClient,
    StdCtrls;

点菜单File --> Save，保存文件。现在你可以运行程序，点击Button1调用Web Service。