0x01-ABAP 创建一个简单的 RESTful 接口

" ZCL_HTTP_RESTFUL_TEST
CLASS zcl_http_restful_test DEFINITION
  PUBLIC
  FINAL
  CREATE PUBLIC .

  PUBLIC SECTION.

    INTERFACES if_http_extension .
  PROTECTED SECTION.
  PRIVATE SECTION.
ENDCLASS.

CLASS ZCL_HTTP_RESTFUL_TEST IMPLEMENTATION.

* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZCL_HTTP_RESTFUL_TEST->IF_HTTP_EXTENSION~HANDLE_REQUEST
* +-------------------------------------------------------------------------------------------------+
* | [--->] SERVER                         TYPE REF TO IF_HTTP_SERVER
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD if_http_extension~handle_request.

    DATA lv_json_string TYPE vbi_json.
    DATA lt_data TYPE STANDARD TABLE OF zmdg006.
    DATA ls_data TYPE zmdg006.
    DATA lv_data TYPE string.
    DATA lt_fields TYPE tihttpnvp.

    lv_data = server->request->if_http_entity~get_cdata( ).

    " 获取 query
    server->request->if_http_entity~get_form_fields(
      CHANGING fields = lt_fields
    ).

    CASE server->request->get_header_field( name = '~request_method' ).
      WHEN `GET` OR `POST`.
        SELECT *
          FROM zmdg006
          INTO TABLE @lt_data
          UP TO 20 ROWS.

        lv_json_string = /ui2/cl_json=>serialize(
          data        = lt_data
          compress    = abap_true
          pretty_name = /ui2/cl_json=>pretty_mode-camel_case
          numc_as_string = abap_false
        ).

        server->response->set_cdata(
         EXPORTING
           data = lv_json_string
        ).
        server->response->set_status(
          code = 200
          reason = `OK`
        ).
    ENDCASE.

    server->response->if_http_entity~set_content_type(
      EXPORTING
        content_type =  'application/json'
    ).

  ENDMETHOD.
ENDCLASS.