SAP发布REST/HTTP接口详解编程语言

  METHOD IF_HTTP_EXTENSION~HANDLE_REQUEST. 
    DATA: LT_FIELDS       TYPE TIHTTPNVP, 
          LV_HEADER_QUERY TYPE STRING, 
          LV_DATA         TYPE STRING, 
          LV_HTML         TYPE STRING. 
 
    FIELD-SYMBOLS: <FS_FIELD>       LIKE LINE OF LT_FIELDS. 
 
*" get HEADER fields 
    SERVER->REQUEST->GET_HEADER_FIELDS( 
        CHANGING 
          FIELDS = LT_FIELDS    " Header fields 
      ). 
    LV_DATA = SERVER->REQUEST->IF_HTTP_ENTITY~GET_CDATA( ). 
 
    " Read the fields table and look for name "~query_string" -- this will contain the URL query 
    READ TABLE LT_FIELDS 
      WITH KEY NAME = '~query_string' 
      ASSIGNING <FS_FIELD>. 
    IF SY-SUBRC EQ 0. 
      CONCATENATE '{"message": "You have entered' 
                  <FS_FIELD>-VALUE 
                  'as query parameter."}' 
             INTO LV_HTML SEPARATED BY SPACE. 
 
*" Output to HTML 
      SERVER->RESPONSE->SET_CDATA( 
        EXPORTING 
          DATA   = LV_HTML    " Character data 
*        offset = 0    " Offset into character data 
*        length = -1    " Length of character data 
      ). 
    ENDIF. 
  ENDMETHOD.

REPORT zlytest_rest. 
DATA: lo_http_client   TYPE REF TO if_http_client, 
      lv_service       TYPE string, 
      lv_request       TYPE string, 
      lv_len           TYPE i, 
      lv_result        TYPE string, 
      lx_result        TYPE xstring, 
      lo_ixml          TYPE REF TO if_ixml, 
      lo_streamfactory TYPE REF TO if_ixml_stream_factory, 
      lo_istream       TYPE REF TO if_ixml_istream, 
      lo_document      TYPE REF TO if_ixml_document, 
      conv             TYPE REF TO cl_abap_conv_in_ce, 
      lo_parser        TYPE REF TO if_ixml_parser. 
lv_service = 'http://gjyxcrmdev.crm.hisense.com:8000/sap/zrest'. 
 
lv_request = '<Request><Id>2912744</Id><Notes>testaskldjasd123</Notes><FaultSource>consumer</FaultSource>' && 
'<FaultBattery>no</FaultBattery>' && 
'<FaultScreen>no</FaultScreen>' && 
'<FaultFirmware>no</FaultFirmware>' && 
'<FaultLogicboard>no</FaultLogicboard>' && 
'<FaultKeyboard>no</FaultKeyboard>' && 
'<FaultSpeaker>no</FaultSpeaker>' && 
'<FaultHdd>no</FaultHdd>' && 
'<FaultPowersupply>no</FaultPowersupply>' && 
'<FaultOtherDescription>123</FaultOtherDescription>' 
 && '</Request>'. 
lv_len = strlen( lv_request ). 
 
cl_http_client=>create_by_url( 
  EXPORTING 
    url                = lv_service 
  IMPORTING 
    client             = lo_http_client 
  EXCEPTIONS 
    argument_not_found = 1 
    plugin_not_active  = 2 
    internal_error     = 3 
    OTHERS             = 4 ). 
 
*lo_http_client->authenticate( 
*    username             = [email protected]' 
*    password             = 'pass' ). 
 
CALL METHOD lo_http_client->request->set_cdata 
  EXPORTING 
    data   = lv_request 
    offset = 0 
    length = lv_len. 
 
lo_http_client->send( 
  EXCEPTIONS 
    http_communication_failure = 1 
    http_invalid_state         = 2 ). 
 
lo_http_client->receive( 
  EXCEPTIONS 
    http_communication_failure = 1 
    http_invalid_state         = 2 
    http_processing_failed     = 3 ). 
 
CLEAR lv_result . 
lx_result = lo_http_client->response->get_data( ). 
CALL METHOD lo_http_client->close. 
CHECK 1 = 1.

    DATA: lo_json_ser TYPE REF TO cl_trex_json_serializer, 
          lo_json_des TYPE REF TO cl_trex_json_deserializer. 
    DATA: json_string TYPE string. 
    DATA:gt_t005u TYPE TABLE OF t005u. 
"设置返回数据格式 
CALL METHOD server->response->if_http_entity~set_content_type 
      EXPORTING 
        content_type = 'application/json'. 
SELECT * INTO TABLE gt_t005u FROM t005u UP TO 5 ROWS WHERE spras = '1' AND land1 = 'CN'. 
 
      CREATE OBJECT lo_json_ser 
        EXPORTING 
          data = gt_t005u[]. 
 
      CALL METHOD lo_json_ser->serialize. 
      CALL METHOD lo_json_ser->get_data 
        RECEIVING 
          rval = json_string. 
server->response->set_cdata( 
        EXPORTING 
          data   = json_string    " Character data 
      ).

  METHOD IF_HTTP_EXTENSION~HANDLE_REQUEST. 
    DATA: LO_JSON_SER TYPE REF TO CL_TREX_JSON_SERIALIZER, 
          LO_JSON_DES TYPE REF TO CL_TREX_JSON_DESERIALIZER. 
    DATA: JSON_STRING TYPE STRING. 
    DATA:GT_T005U TYPE TABLE OF T005U. 
    DATA:GW_T005U TYPE T005U. 
    DATA:LV_METHOD TYPE STRING. 
 
    LV_METHOD = SERVER->REQUEST->GET_HEADER_FIELD( NAME = '~request_method' ). 
 
    CASE LV_METHOD. 
      WHEN 'GET'. 
        SELECT * INTO TABLE GT_T005U FROM T005U UP TO 5 ROWS WHERE SPRAS = '1' AND LAND1 = 'CN'. 
 
        CREATE OBJECT LO_JSON_SER 
          EXPORTING 
            DATA = GT_T005U[]. 
 
        CALL METHOD LO_JSON_SER->SERIALIZE. 
 
        CALL METHOD LO_JSON_SER->GET_DATA 
          RECEIVING 
            RVAL = JSON_STRING. 
 
        CALL METHOD SERVER->RESPONSE->SET_CDATA( 
          EXPORTING 
            DATA = JSON_STRING ). 
        SERVER->RESPONSE->SET_STATUS( CODE = 200 REASON = 'OK' ). 
      WHEN 'POST' OR 'PUT'. 
        JSON_STRING = SERVER->REQUEST->IF_HTTP_ENTITY~GET_CDATA( ). 
        CREATE OBJECT LO_JSON_DES. 
        CALL METHOD LO_JSON_DES->DESERIALIZE( 
          EXPORTING 
            JSON = JSON_STRING 
          IMPORTING 
            ABAP = GW_T005U ). 
        SERVER->RESPONSE->SET_STATUS( CODE = 200 REASON = 'OK' ). 
 
*        MODIFY GT_T005U FROM GW_T005U. 
 
      WHEN 'DELETE'. 
      WHEN OTHERS. 
    ENDCASE. 
 
    CALL METHOD SERVER->RESPONSE->IF_HTTP_ENTITY~SET_CONTENT_TYPE 
      EXPORTING 
        CONTENT_TYPE = 'application/json'. 
 
 
  ENDMETHOD.

"拼接后续要使用的tken 
  CONCATENATE 'Bearer' re_login-access_token INTO re_login-access_token SEPARATED BY space. 
  lo_http_client->request->if_http_entity~set_content_type( content_type = 'application/json' ). 
  lo_http_client->request->if_http_entity~set_header_field( name = 'Accept' value = 'application/json' ). 
  lo_http_client->request->set_method( if_http_request=>co_request_method_post ). 
 
 
  lo_http_client->request->if_http_entity~set_header_field( name   = 'Authorization' value = re_login-access_token ).