Delphi调用WebService

至于怎么把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.

搞定！