记一次 ABAP 调用 HTTP_CLIENT 的问题

gavin_gxh

于 2024-05-30 16:32:39 发布

阅读量183

点赞数 3

分类专栏： ABAP 文章标签：经验分享其他

gavin-gxh

本文链接：https://blog.csdn.net/xiaofei2008gxh/article/details/139328094

版权

ABAP 专栏收录该内容

235 篇文章 17 订阅

订阅专栏

原来是自己忘记再调用后close了

记录一下

CALL METHOD HTTP_CLIENT->CLOSE.

FORM FRM_SYNOBJ USING URL TYPE STRING SQLSTR TYPE STRING
CHANGING LJSONNODE TYPE REF TO ZCL_MDP_JSON_NODE.
  DATA:LTOKEN TYPE STRING.
  DATA: LL_LINES(10),"行数
        LL_TABIX(10),"循环标号
        LL_PECNT     TYPE P LENGTH 6 DECIMALS 2, "百分比
        LL_PECET(6),"百分数
        LL_TEXT(40)."消息
  CLEAR: LL_LINES,LL_TABIX,LL_PECNT,LL_PECET,LL_TEXT.

  DATA: LEN            TYPE        I, "发送报文长度
        LEN_STRING     TYPE        STRING,
        LV_URL         TYPE AGR_URL,
        LV_URL_STR     TYPE STRING,
        HTTP_CLIENT    TYPE REF TO IF_HTTP_CLIENT, "http客户端
        LV_SERVER_NAME TYPE ZE_SERVER_NAME,
        POST_STRING    TYPE        STRING,
        RESULT         TYPE        STRING,
        LTIMEEND       TYPE STRING, "时间戳结束
        LTIMEST        TYPE STRING. "时间戳开始

  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 ).

  DATA:LVJSON TYPE STRING.
  DATA:L_UUID32 TYPE SYSUUID_C32,
       ILOGS    LIKE ZRFCLOGS OCCURS 0 WITH HEADER LINE.

  DATA:ITEM TYPE I. "行项目
  ITEM = 0.
  LVJSON = '{"SQL":" ' && SQLSTR && ' "}'.
  LEN = STRLEN( LVJSON ).
  ILOGS-CALPARMI =  LVJSON.
  CALL METHOD HTTP_CLIENT->REQUEST->SET_HEADER_FIELD
    EXPORTING
      NAME  = '~request_method'
      VALUE = 'POST'.
  "设置传入字符串
  CALL METHOD HTTP_CLIENT->REQUEST->SET_CDATA
    EXPORTING
      DATA   = LVJSON
      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( ).

  CALL METHOD HTTP_CLIENT->CLOSE.

  DATA: L_JSON_ROOT_OBJECT TYPE REF TO ZCL_MDP_JSON_NODE.
  LJSONNODE = ZCL_MDP_JSON_NODE=>DESERIALIZE( JSON = RESULT ).
  free HTTP_CLIENT.
ENDFORM.