ABAP利用HTTP调用要用户验证的web service

ABAP调用web service的常用方式有两种，

一、采用proxy object调用，步骤如下：

1.sm59创建remote destination

2.sproxy创建proxy object

3.创建端口

4.代码调用

配置参见：http://saphelp.me/abap-proxy-client-server/

调用参见：http://2006057145.blog.163.com/blog/static/174722202201142810414591/

二、采用http方式调用

1.sm59创建remote destination

2.代码调用

REPORT ZWS_HTTPCLIENT_TEST.


DATA:p_client TYPE REF TO IF_HTTP_CLIENT.
DATA:p_data TYPE string.


CALL METHOD cl_http_client=>CREATE_BY_DESTINATION
EXPORTING
  DESTINATION = 'TEST'
IMPORTING CLIENT = p_client
EXCEPTIONS ARGUMENT_NOT_FOUND = 1
DESTINATION_NOT_FOUND = 2
DESTINATION_NO_AUTHORITY = 3
INTERNAL_ERROR = 5.

rem 此处是传递身份认证的信息
CALL METHOD p_client->request->set_header_field
EXPORTING name = 'Username' VALUE = '3'
.


CALL METHOD p_client->request->set_header_field
EXPORTING
name = 'Password' VALUE = '1'
.


CALL METHOD p_client->request->set_header_field
EXPORTING
name = 'soapAction' VALUE = ''.

rem 此处为关键点，有些ws服务端只限制提交text/xml的请求，这与服务端的content-type定义有关
CALL METHOD p_client->request->set_header_field
EXPORTING
name = 'Content-Type' VALUE = 'text/xml'
.



rem 此处允许采用soap header方式进行验证，用户验证取决于ws服务端
CONCATENATE
'<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:bar="http://barcode.wsservices.com.cn/">'
'   <soapenv:Header>'
'      <wse:CredentialSoapHeader xmlns:wse="http://handler.sws.com/">'
'         <wse:Username>3</wse:Username>'
'         <wse:Password>1</wse:Password>'
'      </wse:CredentialSoapHeader>'
'   </soapenv:Header>'
'   <soapenv:Body>'
'      <bar:test>'
'         <Criteria>'
'            <barcodeType>01</barcodeType>'
'            <numbers>11</numbers>'
'         </Criteria>'
'      </bar:test>'
'   </soapenv:Body>'
'</soapenv:Envelope>'
into p_data.


CALL METHOD p_client->request->SET_CDATA
EXPORTING DATA = p_data.
CALL METHOD cl_http_utility=>set_request_uri
EXPORTING
  request = p_client->request
  uri = '/WSServer/WS-Security/barcode/BarcodeService'.
CALL METHOD p_client->request->set_header_field
EXPORTING
  name = '~server_protocol'
  VALUE = 'HTTP/1.0'.


CALL METHOD p_client->send
EXPORTING
  timeout = 30
EXCEPTIONS
http_communication_failure = 1
http_invalid_state = 2
http_processing_failed = 3
http_invalid_timeout = 4
OTHERS = 5.
CALL METHOD p_client->receive
EXCEPTIONS
  http_communication_failure = 1
http_invalid_state = 2
http_processing_failed = 3
OTHERS = 4.
CALL METHOD p_client->response->GET_CDATA
receiving DATA = p_data.
CALL METHOD p_client->close.


WRITE : p_data.

调用参见：http://wenku.baidu.com/view/ab3fd83e5727a5e9856a6170.html