WebService 服务端客户端 实例 HTTPRIO (一) SOAP WSDL
2014-08-02 16:46
459 查看
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/
二、客户端 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
(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]
GetWSDLForPortType GetTypeSystemsList GetXSDForTypeSystem | |||
WSIL: Link to WS-Inspection document of Services here | |||
方法一
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
相关文章推荐
- WebService 服务端客户端 实例 HTTPRIO (一) SOAP WSDL
- wsdl生成Webservice客户端和服务端C#代码
- 编写webservice服务端和客户端实例(2)
- WebService发布与调用问题:expected: {http://schemas.xmlsoap.org/soap/envelope/}Envelope but found: {http://schemas.xmlsoap.org/wsdl/}def
- 通过wsdl文件或者xml文件生成WebService接口的客户端或者服务端的指令
- 通过wsdl与xsd编写webservice服务端,并通过服务端的wsdl地址生产客户端
- WebService之WSDL和SOAP实例(基于JAVA)
- webService(php)的soap与nusoap服务端与客户端的通信
- WebService发布与调用问题:expected: {http://schemas.xmlsoap.org/soap/envelope/}Envelope but found: {http://schemas.xmlsoap.org/wsdl/}definitions
- webservice 服务端例子+客户端例子+CXF整合spring服务端测试+生成wsdl文件 +cxf客户端代码自动生成
- CXF写SOAP WebService服务端与客户端
- Java网络编程实例---------------------------------基本HTTP客户端及服务端多线程
- webservice soap脱离客户端代码单独http调试
- 使用CXF 开发SOAP webservice 服务端实例
- 【工作记录0022】C#(.NET)调用Java开发的WebService(wsdl),客户端传递非string类型参数(int,double,bool等),而服务端无法获取到参数值的解决方案
- WebService之WSDL和SOAP实例(基于JAVA)
- 编写webservice服务端和客户端实例(1)
- axis2客户端调用免费的webservice服务的实例之一通过wsdl生成客户端程序并本地调用
- 对已提供WSDL文件的webservice服务端和客户端的整理
- php创建一个最简单的soap服务端与客户端测试的实例