Web Service有两种方式,一是SOAP方式,二是REST方式。SOAP是基于XML的交互,WSDL也是一个XML文档,可以使用WSDL作为SOAP的描述文件;REST是基于HTTP协议的交互,支持JSON、XML、ATOM、RSS等交互,不需要WSDL。
使用SOAP封装的Web Service,通用性和安全性都高于Rest风格的Web Service,但效率较后者低。
对于SOAP方式实现的Web Service,SAP可以通过企业服务功能直接创建Service Consumer来进行配置和调用;而对于Rest方式实现的Web Service则需要使用PI或者PO等SAP组件,网上也有通过一些配置,直接将Rest方式的Web Service配置成Service Consumer的那里,本文不做介绍。如果没有这些配置和PI的话,我们可以通过SAP的一个标准类CL_HTTP_CLIENT 来实现对Rest风格的Web Service的调用。
先调用CL_HTTP_CLIENT的CREATE_BY_URL方法,根据传入的URL生成一个IF_HTTP_CLIENT对象,然后根据这个对象不同方法来传递不同的参数,从而实现发送和接收数据的交互。
本例中的URL包含了三部分,rest的根链接以及一些Head参数和Body参数,可以通过根链接先创建IF_HTTP_CLIENT客户端对象,然后再设置Head和Body的传输参数,也可以将这些参数拼接成一个完整的URL字符串,直接创建IF_HTTP_CLIENT客户端对象,然后再通过该对象的SEND和RECEIVE方法进行数据交互。
CALL METHOD CL_HTTP_CLIENT=>CREATE_BY_URL
EXPORTING
URL = LV_URL
IMPORTING
CLIENT = LO_HTTP_CLIENT.
这里的LV_URL就是用来生成IF_HTTP_CLIENT对象的URL;这里的LO_HTTP_CLIENT则表示生成的IF_HTTP_CLIENT对象。
上一步生成的IF_HTTP_CLIENT对象的属性PROPERTYTYPE_LOGON_POPUP(显示登录框)。这个属性是一个I类型的变量,值可以为0,1,2,也可以引用这个对象的另外两个属性进行赋值,分别是:
IF_HTTP_CLIENT->CO_DISABLED:值为0,表示不显示认证框;
IF_HTTP_CLIENT->CO_ENABLED:值为1,表示显示认证框;
IF_HTTP_CLIENT->CO_PROMPT:值为2,表示以弹出框形式显示认证框。
设置的语法如下:
LO_HTTP_CLIENT->PROPERTYTYPE_LOGON_POPUP = LO_HTTP_CLIENT->CO_DISABLED.
设置认证信息
当提供Web Service 的URL来自一个SAP系统,则可以使用IF_HTTP_CLIENT对象的一个方法叫做AUTHENTICATE,可以用来设置登录信息,调用方法如下:
CALL METHOD LO_HTTP_CLIENT1->AUTHENTICATE
EXPORTING
PROXY_AUTHENTICATION = '' "可选,是否使用代理
CLIENT = '200' "可选,SAP客户端号
USERNAME = LV_USERNAME "必输,用户名
PASSWORD = LV_PASSWORD "必输,密码
LANGUAGE = SY-LANGU. "可选,登录语言代码
设置HEADER参数
IF_HTTP_CLIENT对象有两个重要的属性,分别为:REQUEST和RESPONSE,这两个属性本身的类型又是类,也拥有自己的属性和方法。我们可以通过设置REQUEST的SET_HEADER_FIELD方法来传递一些Web Service的Head属性,比如Content-Type等。调用方法为:
CALL METHOD LO_HTTP_CLIENT1->REQUEST->SET_HEADER_FIELD
EXPORTING
NAME = 'Content-Type'
VALUE = 'application/x-www-form-urlencoded'.
设置BODY参数
如果URL并没有传入全部链接,而是将Body部分的参数单独传入的话,则需要调用REQUEST的SET_CDATA方法,传入body中的数据。本例中rest_data的值就是一个json格式的数据。因此在传入所需要的数据之前,需要先通过SAP系统的中的JSON类来将数据转换成JSON类型的字符串(具体转换方法将在1.3节中详细讲述),并且有时候需要先调用REQUEST的SET_CONTENT_TYPE申明封装方式。
CALL METHOD LO_HTTP_CLIENT1->REQUEST->SET_CONTENT_TYPE
EXPORTING
CONTENT_TYPE = 'application/x-www-form-urlencoded; charset=utf-8'.
CALL METHOD LO_HTTP_CLIENT1->REQUEST->SET_CDATA
EXPORTING
DATA = LV_BODY
OFFSET = 0
LENGTH = LV_LEN.
这里的LV_BODY就是上面REST_DATA中传递的数据转换成了JSON之后的字符串(不包括“rest_data=”),LV_LEN就是LV_BODY的字符串长度。
调用发送和接收方法通讯
当所有的传输的参数准备完毕后,就可以调用IF_HTTP_CLIENT对象的SEND和RECEIVE方法进行数据交互了。具体语法如下:
CALL METHOD LO_HTTP_CLIENT->SEND
* EXPORTING
* TIMEOUT = 15 "超时时间:15秒
EXCEPTIONS
HTTP_COMMUNICATION_FAILURE = 1
HTTP_INVALID_STATE = 2.
CALL METHOD LO_HTTP_CLIENT->RECEIVE
EXCEPTIONS
HTTP_COMMUNICATION_FAILURE = 1
HTTP_INVALID_STATE = 2
HTTP_PROCESSING_FAILED = 3.
返回处理信息
当调用完RECEIVE方法后,就可以通过调用IF_HTTP_CLIENT对象的RESPONSE属性来获取一些执行结果,其中几个比较常用的方法有:
GET_STATUS:接收当前处理状态码,可根据该状态码判断接口调用成功与否,其中200表示成功;
GET_CDATA:接收BODY的字符串;
GET_DATA:接收BODY的二进制数据;
GET_RAW_MESSAGE:接收返回的完整的二进制的HTML数据。
具体调用示范如下:
DATA: LV_HTTP_RETURN_MESSAGE TYPE STRING,
LV_HTTP_RETURN_MESSAGE_RAW TYPE XSTRING,
LV_RESULT TYPE STRINIG.
DATA: LV_HTTP_RETURN_CODE TYPE I.
LO_HTTP_CLIENT->RESPONSE->GET_STATUS( IMPORTING CODE = LV_HTTP_RETURN_CODE ).
LO_HTTP_CLIENT->RESPONSE->GET_STATUS( IMPORTING REASON = LV_HTTP_RETURN_MESSAGE ).
LV_HTTP_RETURN_MESSAGE_RAW = LO_HTTP_CLIENT->RESPONSE->GET_RAW_MESSAGE( ).
LV_RESULT = LO_HTTP_CLIENT->RESPONSE->GET_CDATA( ).
关闭接口连接
当已经获取到接口的调用结果后,为节省宽带资源,应该要关闭HTTP的链接,可以使用IF_HTTP_CLIENT对象的CLOSE方法,该方法没有传入传出参数,直接调用即可。示例代码如下:
LO_HTTP_CLIENT->CLOSE( ). 或者 CALL METHOD LO_HTTP_CLIENT1->CLOSE.
ABAP数据与JSON数据转换
数据转换