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打开就成功了
Project25 - PortTypes: | |||
|
|||
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闪退,用火狐浏览器打开地址正常。
WebService 服务端客户端 实例 HTTPRIO (一) SOAP WSDL的更多相关文章
- eclipse使用CXF3.1.*创建webservice服务端客户端以及客户端手机APP(二)
eclipse使用CXF3.1.*创建webservice服务端客户端以及客户端手机APP(二) 接上篇博客,本篇博客主要包含两个内容: 4.使用Android studio创建webservice客 ...
- eclipse使用CXF3.1.*创建webservice服务端客户端以及客户端手机APP(一)
eclipse使用CXF3.1.*创建webservice服务端客户端以及客户端手机APP(一) 本篇博客主要包含五个内容: 1.CXF换将搭建以及eclipse配置CXF. 2.eclipse创建w ...
- JAVA WEBSERVICE服务端&客户端的配置及调用(基于JDK)
前言:我之前是从事C#开发的,因公司项目目前转战JAVA&ANDROID开发,由于对JAVA的各种不了解,遇到的也是重重困难.目前在做WEBSERVICE提供数据支持,看了网上相关大片的资料也 ...
- DelphiXE7中创建WebService(服务端+客户端)
相关资料: http://www.2ccc.com/news/Html/?1507.html http://www.dfwlt.com/forum.php?mod=viewthread&tid ...
- DelphiXE7中创建WebService(服务端+客户端) good
相关资料:http://www.2ccc.com/news/Html/?1507.html DelphiXE7新建WebService具体操作:1.打开“DelphiXE7”->“File”-& ...
- 一个PHP写的简单webservice服务端+客户端
首先是服务端,服务端有一个主要的class组成:apiServer.php <?php /** * apiServer.php * * webservice主类 * * @filename ap ...
- [精华][推荐]CAS SSO单点登录服务端客户端实例
1.修改server.xml文件,如下: 注意: 这里使用的是https的认证方式,需要将这个配置放开,并做如下修改: <Connector port="8443" prot ...
- 基于JAX-WS的Web Service服务端/客户端 ;JAX-WS + Spring 开发webservice
一.基于JAX-WS的Web Service服务端/客户端 下面描述的是在main函数中使用JAX-WS的Web Service的方法,不是在web工程里访问,在web工程里访问,参加第二节. JAX ...
- myeclipse-建立webservice服务端和客户端
一.建立webservice服务端: 1.新建一个web service project,名称为webservice_server截图如下,点击finish. 2.选择工程,点击右键,选择new-&g ...
随机推荐
- ppt正文排版
- 将string str中的str转换成字符数组
#include <iostream> #include <map> #include <string.h> using namespace std; int ma ...
- vulcanjs schemas&& collections
一张参考图 说明 从上图我们可以方便的看出schmea 能做的事情 Generate a GraphQL equivalent of your schema to control your Graph ...
- StreamSets sdc rpc 测试
一个简单的参考图 destination pipeline 创建 pipeline flow sdc destination 配置 origin sdc rpc pipeline pipeline f ...
- POJ_2299 Ultra-QuickSort【归并排序】
版权声明:本文为博主原创文章,未经博主同意不得转载. https://blog.csdn.net/u013912596/article/details/35655703 题目链接:http://poj ...
- 什么是Asp.net Core?和 .net core有什么区别?(转)
什么是Asp.Net core 我相信很多C# Developer已经对于.net core不算陌生了,就算没有正式使用相信也应该有所了解.微软在推出来.net core的同时为了方便一些原有的项目可 ...
- JZ2440 裸机驱动 第12章 I2C接口
本章目标: 了解I2C总线协议: 掌握S3C2410/S3C2440中I2C接口的使用方法: 12.1 I2C总线协议及硬件介绍 12.1.1 I2C总线协议 1 I2C总线的概念 2 I2C总线的信 ...
- opencv中的滤波
以前的时候,为了过滤图像中的一些噪点,学过一些简单的滤波,比如中值滤波,均值滤波,也是自己实现的. 在opencv中有现成的函数可以调用,实现滤波的操作. 函数的原型如下: CVAPI(void) c ...
- python之BeautifulSoup4的例子
仅作演示用 from bs4 import BeautifulSoup import urllib.request webfile = urllib.request.urlopen('http://w ...
- android 自定义radiogroup的两种方式
这里先备注下 listview+radiobutton实现 浅显易懂 http://www.haolizi.net/example/view_3312.html 在radiogoup原生态源码的基础 ...