SAP 发布简易REST 一：login验证详解编程语言

  METHOD if_http_extension~handle_request. 
    TYPES:BEGIN OF ty_login, 
            username TYPE string, 
            password TYPE string, 
          END OF ty_login, 
          BEGIN OF ty_retu, 
            success      TYPE string, 
            access_token TYPE string, 
            message      TYPE string, 
          END OF ty_retu. 
    DATA: lo_json_ser TYPE REF TO zcl_trex_json_serializer, 
          lo_json_des TYPE REF TO zcl_trex_json_deserializer. 
    DATA: lt_fields TYPE tihttpnvp, 
          lv_data   TYPE string, 
          lv_retu   TYPE string, 
          gw_login  TYPE ty_login, 
          gw_retu   TYPE ty_retu, 
          lv_guid   TYPE crmt_object_guid. 
 
    FIELD-SYMBOLS: <fs_field>       LIKE LINE OF lt_fields. 
 
*""GET HTTP MESSAGE BODY 
    lv_data = server->request->if_http_entity~get_cdata( ). 
 
    zprocessjson=>deserialize( 
    EXPORTING 
      json        = lv_data 
    CHANGING 
      data        = gw_login 
         ). 
 
    "CHECK AUTH ADN SET RETURN MESSGAE 
    IF gw_login-username = 'andy' AND gw_login-password = '123456'. 
      gw_retu-success = 'true'. 
      CALL FUNCTION 'CRM_GUID_CREATE' 
        IMPORTING 
          ev_guid = lv_guid. 
 
      gw_retu-access_token = lv_guid. 
    ELSE. 
      gw_retu-success = 'E'. 
      gw_retu-message = 'ERROR'. 
    ENDIF. 
 
    lv_retu = /ui2/cl_json=>serialize( 
      data        = gw_retu 
      pretty_name = 'L' 
      compress    = abap_true ). 
 
    "SET RETURN DATA 
    server->response->set_cdata( 
            EXPORTING 
              data   = lv_retu    " Character data 
          ). 
 
  ENDMETHOD.