Delphi 开发简易的WebService客户端

Delphi 开发简易的WebService客户端

一、获得服务端的wsdl文件

二、开发
启动Delphi7新建一个工程，然后选择新建webservices中WSDL importer向导，将刚才发布的webservice描述文件WSDL导入（我的地址是：http://localhost:8080/webservicetest/services/HelloWorld?wsdl）自动生成一个单元HelloWorld1，在Unit1中使用单元HelloWorld1，在窗体上放置两个button，在button1的Click事件中写如下测试代码：

procedure TForm1.Button1Click(Sender: TObject);

var

  test:HelloWorld;

  str:String;

begin

  test := GetHelloWorld;（得到webservice提供的远程接口）

  str := test.sayHello;

  ShowMessage(str);

  test := nil;

end;

运行测试程序， 弹出“hello,world”说明成功。

procedure TForm1.Button2Click(Sender: TObject);
var

  test:HelloWorld;

  str:String;

begin

  test := GetHelloWorld;//（得到webservice提供的远程接口）

  str := test.echo(Edit1.Text);

  ShowMessage(str);

  test := nil;
end;

运行测试程序， 弹出“hello Edit1”说明成功。