WebService 服务端客户端 实例 HTTPRIO （一） SOAP WSDL

Delphi中WebService包含的组件解释(有7个)  
   (1) THTTPRIO-------:使用Http消息来调用远程使用SOAP的接口对象     (2) THTTPReqResp---:给服务器发送一个SOAP消息, THTTPReqResp在可调用接口上执行一个方法请求.    
   (3) TOPToSoapDomConvert ----:TOPToSoapDomConvert处理Soap方法请求的组合与分发  
   (4) TSoapConnection:TSoapConnection在客户端的多层数据库应用中创建并维护客户端和作为WebService 的远程应用服务器间的连接     (5) THTTPSoapDispatcher -----:通过将Soap消息转发给调用者,THTTPSoapDispatcher对Soap消息做出响应.  
   (6) TWSDLHTMLPublish -----:TWSDLHTMLPublish发布描叙webService应用的Wsdl文档 
    (7) THTTPSoapPascalInvoker -----:THTTPSoapPascalInvoker解释Soap的请求信息,并执行相应的可调用接口.

Webservice肯定有wsdl地址描述

一、服务端

1、File>New>WebService>Soap Server Application

2、Stand-alone vcl Application>VCL Application/FireMonkey Application我选VCL

3、8080 Test Port

4、Add New WebService  Service Name :soapTest

5、Add Function GetTime

soapTestIntf.pas

function echoEnum(const Value: TEnumTest): TEnumTest; stdcall;
    function echoDoubleArray(const Value: TDoubleArray): TDoubleArray; stdcall;
    function echoMyEmployee(const Value: TMyEmployee): TMyEmployee; stdcall;
    function echoDouble(const Value: Double): Double; stdcall;

soapTestImpl.pas

function TsoapTest.echoEnum(const Value: TEnumTest): TEnumTest; stdcall; begin   { TODO : Implement method echoEnum }   Result := Value; end;

function TsoapTest.echoDoubleArray(const Value: TDoubleArray): TDoubleArray; stdcall; begin   { TODO : Implement method echoDoubleArray }   Result := Value; end;

function TsoapTest.echoMyEmployee(const Value: TMyEmployee): TMyEmployee; stdcall; begin   { TODO : Implement method echoMyEmployee }   Result := TMyEmployee.Create; end;

function TsoapTest.echoDouble(const Value: Double): Double; stdcall; begin   { TODO : Implement method echoDouble }   Result := Value; end;

String TGetTimeImpl::GetTime(void)
{
 String str;
 str = Now();

}

Application后生成3个组件WebModuleUnit1.pas
一个是调用者组件:THTTPSoapPascalInvoker:完成Soap消息和....
一个是调度者组件:THTTPSoapDispatcher:自动响应送入的soap消息,并且把他们传递给调用者,可以使用他的WebDispatch属性来识别应用程序响应的http请求.
      包括设置PathInfo属性来指明指向应用程序的任何URL的路径部分,设置MethodType属性来指明请求消息的方法头.
一个是WSDL发布者:TWSDLHTMLPublisher:WSDL发布者发布描叙接口以及如何调用他们的wsdl文档,使用非delphi编写的客户端程序也可以调用WebService应用程序.
 

用open Browse打开就成功了

http://localhost:8080/

Project25 - PortTypes:

• IsoapTest [WSDL]
  • echoEnum
  • echoDoubleArray
  • echoMyEmployee
  • echoDouble
  • sum
  • GetTime

• IWSDLPublish [WSDL]

  Lists all the PortTypes published by this Service

  • GetPortTypeList
  • GetWSDLForPortType
  • GetTypeSystemsList
  • GetXSDForTypeSystem

WSIL:  Link to WS-Inspection document of Services here

二、客户端 Windows调用

方法一

1、New VCL Application

2、Add HTTPRIO Component

3、IDE Menu Component>Import WSDL XE下目前这一步到url地址不成功，导入服务段保存的wsdl文件成功了

导入后系统生成IsoapTest1.pas文件

调用sum函数

HTTPRIO1.URL := 'http://127.0.0.1:8080/'; 这样报错

HTTPRIO1.URL := 'http://127.0.0.1:8080/soap/IsoapTest';
//  HTTPRIO1.URL:='http://localhost:8080/soap/IsoapTest';

这两种方式都可以

Caption := FloatToStr((HTTPRIO1 as IsoapTest).sum(3, 6));

procedure TForm25.btnTimeClick(Sender: TObject);
begin
  HTTPRIO1.URL := 'http://127.0.0.1:8080/soap/IsoapTest';
  Caption := (HTTPRIO1 as IsoapTest).GetTime;
end;

返回服务器的时间了

方法二

1、File>New>Other>WebService>Stand alone Application>VCL Application> WSDL Importer ... >Next>Finish

2、Add Form ,Add HTTPRIO Component

三、客户端android调用

FireMonkey是跨平台，支持windows、android、ios

方法一、

1、New FireMonkey Application

2、IDE Menu Component >WSDL

3、输入URL地址OK啦

方法二、

1、File>New>Other>WebService>Stand alone Application>FireMonkey  Application> WSDL Importer ... >Next>Finish

2、Add Form ,Add HTTPRIO Component

2019.4.22

本机开发的Webservice，用2345浏览器打开就报错，服务端EXE闪退，用火狐浏览器打开地址正常。