sap 调用Http 服务

REPORT ZMJ_GETAPI.

DATA: LEN         TYPE        I, "发送报文长度

      LEN_STRING  TYPE        STRING,

      URL         TYPE        STRING, "接口地址

      HTTP_CLIENT TYPE REF TO IF_HTTP_CLIENT, "http客户端

      POST_STRING TYPE        STRING,

      RESULT      TYPE        STRING.

DATA: IT_HEADER  TYPE TIHTTPNVP,

      GV_JSON_IN TYPE STRING VALUE '{"IT_INPUT":[{"CUSTOMER":"12345678","PERNR":"00190935"}]}'.

START-OF-SELECTION.

  URL = 'http://10.*.*.*:8001/api_sapnew/ZIF_DATA'.

  "'http://10.X.X.X:8081/api/test/gettest'.

  "创建http客户端

  CALL METHOD CL_HTTP_CLIENT=>CREATE_BY_URL

    EXPORTING

      URL                = URL

    IMPORTING

      CLIENT             = HTTP_CLIENT

    EXCEPTIONS

      ARGUMENT_NOT_FOUND = 1

      PLUGIN_NOT_ACTIVE  = 2

      INTERNAL_ERROR     = 3

      OTHERS             = 4.

  "设定传输请求内容格式以及编码格式

  HTTP_CLIENT->REQUEST->SET_CONTENT_TYPE( CONTENT_TYPE = 'application/json; charset=utf-8' ).

  "设置http method 为Get

  HTTP_CLIENT->REQUEST->SET_METHOD( IF_HTTP_REQUEST=>CO_REQUEST_METHOD_POST ).

  "IF_HTTP_ENTITY~CO_REQUEST_METHOD_GET

  "设置待传输内容长度

  LEN = STRLEN( GV_JSON_IN ).

  "设置调用方法

  CALL METHOD HTTP_CLIENT->REQUEST->SET_HEADER_FIELD

    EXPORTING

      NAME  = '~request_method'

      VALUE = 'POST'.

  "设置传入字符串

  CALL METHOD HTTP_CLIENT->REQUEST->SET_CDATA

    EXPORTING

      DATA   = GV_JSON_IN

      OFFSET = 0

      LENGTH = LEN.

  "发送

  CALL METHOD HTTP_CLIENT->SEND

    EXCEPTIONS

      HTTP_COMMUNICATION_FAILURE = 1

      HTTP_INVALID_STATE         = 2

      HTTP_PROCESSING_FAILED     = 3

      HTTP_INVALID_TIMEOUT       = 4

      OTHERS                     = 5.

  "接收

  CALL METHOD HTTP_CLIENT->RECEIVE

    EXCEPTIONS

      HTTP_COMMUNICATION_FAILURE = 1

      HTTP_INVALID_STATE         = 2

      HTTP_PROCESSING_FAILED     = 3.

  "提取返回字符串

  RESULT = HTTP_CLIENT->RESPONSE->GET_CDATA( ).

  "将字符串中的回车符替换，否则abap将会识别为#

  REPLACE ALL OCCURRENCES OF REGEX '\n' IN RESULT WITH SPACE.

  "获取接口返回的数据

*  RESULT = HTTP_CLIENT->RESPONSE->GET_CDATA( ).

  WRITE: RESULT.