matinal：SAP ABAP 发布HTTP RestFul服务全过程解析（二）

最新推荐文章于 2024-12-17 11:05:16 发布

原创最新推荐文章于 2024-12-17 11:05:16 发布 · 396 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#http #restful #网络协议 #开发语言 #服务器 #servlet #自动化

ABAP技术专栏收录该内容

1038 篇文章

订阅专栏

本文详细描述了如何在SE24中实现IF_HTTP_EXTENSION接口，处理请求并进行JSON数据的序列化和内表查询，以及通过SICF发布服务并配置登录选项，最后测试使用POSTMAN。

1.SE24建立处理类

2.实现接口 IF_HTTP_EXTENSION

3.实现方法IF_HTTP_EXTENSION~HANDLE_REQUEST

METHOD if_http_extension~handle_request.
   DATA : lr_json_ser TYPE REF TO cl_trex_json_serializer,
          lr_json_des TYPE REF TO cl_trex_json_deserializer.
   DATA : lv_json_string TYPE string.
   DATA : lv_request TYPE string.
   DATA : BEGIN OF lw_request,
            werks TYPE werks_d,
          END  OF lw_request.
   DATA lt_request LIKE TABLE OF lw_request.
   CLEAR lt_request.
   "获取传入JSON
   lv_json_string = server->request->get_cdata( ).
   "#JSON->ABAP内表
   CALL METHOD /ui2/cl_json=>deserialize
     EXPORTING
       json = lv_json_string
     CHANGING
       data = lt_request.
   "#返回JSON数据格式
   CALL METHOD server->response->if_http_entity~set_content_type
     EXPORTING
       content_type = 'applicaion/json'.
   "#获取数据
   SELECT
     matnr,
     werks
     INTO TABLE @DATA(lt_response)
     FROM marc
     UP TO 100 ROWS
     FOR ALL ENTRIES IN @lt_request
     WHERE werks = @lt_request-werks.
   CLEAR lv_json_string.
   "#返回内表数据ABAP转JSON
   CREATE OBJECT lr_json_ser
     EXPORTING
       data = lt_response.
   CALL METHOD lr_json_ser->serialize( ).
   CALL METHOD lr_json_ser->get_data
     RECEIVING
       rval = lv_json_string.
   "#返回JSON数据
   server->response->set_cdata(
   EXPORTING
   data = lv_json_string ).
 ENDMETHOD.