Delphi调用WebService

2017-10-16 20:20:06来源:CSDN作者:shenbin6830人点击

分享

至于怎么把webservice发布到服务器上,我就省略不说了。有需要的可以在评论区留言

发布到服务器上之后我们得到这样一个页面;
这里写图片描述

这个webservice下有两个函数Add和HelloWorld。
我们以Add来示范。

第一步,File->New->Applicaiton
在这个页面简单的放一个按钮
如图:
这里写图片描述

第二部,File->New->Other
选择webservice标签页,选择WSDLImporter
这里写图片描述

在这个页面,要注意后面的?wsdl是我们自己加上去的
这里写图片描述
然后点击next然后finsh,delphi会自动给我们生成一个单元
由于我们是Service1.asmx所以会给我们生成Service1.pas

在生成的单元底部我们需要修改一下代码

InvRegistry.RegisterInterface(TypeInfo(Service1Soap), 'http://tempuri.org/', 'utf-8');InvRegistry.RegisterInvokeOptions(TypeInfo(Service1Soap),ioDocument);//此处必须手动添加,delphi无法自动生成 这边的Service1Soap你要改成你对应的名字InvRegistry.RegisterDefaultSOAPAction(TypeInfo(Service1Soap),'http://tempuri.org/%operationName%');

然后在我们一开始创建的application中引用这个service1单元就可以调用了,具体代码如下:

unit WebService;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,Service1;type  TWbsTest = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  WbsTest: TWbsTest;implementation{$R *.dfm}procedure TWbsTest.Button1Click(Sender: TObject);var  _Soap : Service1Soap;  _Result : Double;begin  _Soap := Service1.GetService1Soap;  _Result := _Soap.Add(2,3);  ShowMessage(floattostr(_Result));end;end.

这里写图片描述

搞定!

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台