Delphi 7编写的Webservice生成的DLL部署到IIS上（续）

接上篇，Delphi编写的WebService已经部署在IIS上，下面是在DELPHI中进行调用，

方式有两种：直接调用与使用HTTPRIO控件，步骤如下：

1.在原有的BPG包中新建一个应用程序，命名为WebServiceTS，单元窗体命名为WebServiceDY

2.直接调用，需引用Webservice实现单元文件webServiceDemoImpl，代码如下：

procedure TForm2.Button1Click(Sender: TObject);
var
  wsb:TWebserviceDemo;
  s:WideString;
begin
  wsb:=TWebserviceDemo.Create;
  s:= wsb.getText;
  ShowMessage(s);
end;

效果如图：

3.使用HTTPRIO控件，需引用WebService定义单元文件webServiceDemoIntf，设置HTTPRIO控件的

WSDLLocation属性值为http://localhost/webserviceDemo/Project2.dll/wsdl/IwebServiceDemo，代码如下：

procedure TForm2.Button2Click(Sender: TObject);
var
  s:WideString;
begin
  s:= (HTTPRIO1 as IwebServiceDemo).getText;
  ShowMessage(s);
end;

效果图如下：