ABAP 发送企微消息封装方法

谢图图

于 2022-05-03 22:49:30 发布

阅读量603

点赞数 1

分类专栏： ABAP 速食文章标签： abap

本文链接：https://blog.csdn.net/xiefireworks/article/details/124529813

版权

ABAP 同时被 2 个专栏收录

61 篇文章 13 订阅

订阅专栏

速食

14 篇文章 0 订阅

订阅专栏

参数：

IV_ID	Importing	Type	STRING	                                                                                                                                    	ID
IV_SECRET	Importing	Type	STRING	                                                                                                                                    	Secret
IV_USRID	Importing	Type	STRING	                                                                                                                                    	接受者 
IV_AGENTID	Importing	Type	STRING	                                                                                                                                    	应用ID
IV_CONTENTTEXT	Importing	Type	STRING	                                                                                                                                    	内容
ES_RETURN	Exporting	Type	BAPI_CORU_RETURN

代码：

  " Token 
    TYPES:
      BEGIN OF ty_token,
        errcode      TYPE string,
        errmsg       TYPE string,
        access_token TYPE string,
        expires_in   TYPE string,
      END OF ty_token.
      
    " 消息
    TYPES: BEGIN OF ty_text,
             content TYPE string,
           END OF ty_text.
    TYPES: BEGIN OF ty_send_body,
             touser                   TYPE string,
             toparty                  TYPE string,
             totag                    TYPE string,
             msgtype                  TYPE string,
             agentid                  TYPE string,
             text                     TYPE ty_text,
             safe                     TYPE string,
             enable_id_trans          TYPE string,
             enable_duplicate_check   TYPE string,
             duplicate_check_interval TYPE string,
           END OF ty_send_body.
    " 接口返回
    TYPES:
      BEGIN OF ty_return,
        errcode       TYPE string,            "错误码
        errmsg        TYPE string,            "错误消息
        userid        TYPE string,            "用户ID
        invaliduser   TYPE string,
        invalidparty  TYPE string,
        msgid         TYPE string,
        response_code TYPE string,
      END OF ty_return.

    DATA:lv_url        TYPE string,                           " 接口地址
         lv_cdata      TYPE string,                           " 请求体
         lv_ret_result TYPE string,                           " 返回字符串
         ls_return     TYPE ty_return,                        " 消息返回结构
         ls_send_body  TYPE ty_send_body,                     " 请求体结构
         ls_token      TYPE ty_token.                         " Token 结构

    DATA: ls_message  TYPE bapi_conf_return.

    " Token 地址
    CONCATENATE 'https://qyapi.weixin.qq.com/cgi-bin/gettoken'
                '?corpid='
                iv_id
                '&corpsecret='            "密钥
                iv_secret
           INTO lv_url.

    CONDENSE lv_url NO-GAPS.

    " 获取token
    me->send_request(
      EXPORTING
        iv_url    = lv_url
       IMPORTING
         ev_result = lv_ret_result
         es_return = ls_message
           ).

    IF ls_message-type <> 'E'.
      "  Token
      CALL METHOD /ui2/cl_json=>deserialize
        EXPORTING
          json = lv_ret_result
  "       assoc_arrays  = assoc_arrays
        CHANGING
          data = ls_token.

      CLEAR: lv_url,lv_cdata,lv_ret_result,ls_message.

      " 企微消息发送
      CONCATENATE 'https://qyapi.weixin.qq.com/cgi-bin/message/send?access_token='                  "token
                  ls_token-access_token
             INTO lv_url.
      CONDENSE lv_url NO-GAPS.

      ls_send_body-touser                   = iv_usrid.
      ls_send_body-msgtype                  = 'text'.
      ls_send_body-agentid                  = iv_agentid.
      ls_send_body-text-content             = iv_contenttext.
      ls_send_body-safe                     = '0'.
      ls_send_body-enable_id_trans          = '0'.
      ls_send_body-enable_duplicate_check   = '1'.
      ls_send_body-duplicate_check_interval = '1800'.

      lv_cdata = /ui2/cl_json=>serialize(
          data             = ls_send_body
          pretty_name      = /ui2/cl_json=>pretty_mode-low_case
             ).
      
      " abap2json时换行符\n会转换为\\\\n,官方api中换行为\n
      REPLACE ALL OCCURRENCES OF '\\n' IN lv_cdata WITH '\n'.

      me->send_request(
        EXPORTING
       iv_cdata     = lv_cdata
          iv_url    = lv_url
         IMPORTING
           ev_result = lv_ret_result
           es_return = ls_message
             ).
             
      IF ls_message-type <> 'E'.
        CALL METHOD /ui2/cl_json=>deserialize
          EXPORTING
            json = lv_ret_result
          CHANGING
            data = ls_return.
        IF ls_return-errcode = 0.
          es_return-type = 'S'.
        ELSE.
          es_return-type = 'E'.
        ENDIF.
        es_return-message = ls_return-errmsg.
      ELSE.
        es_return = ls_message.
      ENDIF.
    ELSE.
      es_return = ls_message.
    ENDIF.

调用方法send_request

参数：

IV_CDATA	Importing	Type	STRING	                                                                                                                                   Json data
IV_URL	Importing	Type	STRING	                                                                                                                                    	url
EV_RESULT	Exporting	Type	STRING	                                                                                                                                    	Return Result
ES_RETURN	Exporting	Type	BAPI_CORU_RETURN

代码：

 METHOD send_request.

    DATA: lv_sysubrc    TYPE sy-subrc,
          lv_error_text TYPE string,
          lv_result     TYPE string,
          lv_len        TYPE i.

    DATA: http_client TYPE REF TO if_http_client.

    DATA: ls_return  TYPE bapi_conf_return.

    CLEAR:lv_result,
          lv_len,
          lv_sysubrc,
          lv_error_text.

    lv_len = strlen( iv_cdata ) .
    "创建请求
    CALL METHOD cl_http_client=>create_by_url
      EXPORTING
        url                = iv_url
      IMPORTING
        client             = http_client
      EXCEPTIONS
        argument_not_found = 1
        plugin_not_active  = 2
        internal_error     = 3
        OTHERS             = 4.

    http_client->propertytype_logon_popup = http_client->co_disabled.

    http_client->request->set_header_field(
      EXPORTING
        name  = 'Content-Type'
        value = 'application/json; charset=utf-8' ).

    http_client->request->set_header_field(
      EXPORTING
        name  = 'Accept'
        value = 'application/json' ).

    http_client->request->set_cdata(
      EXPORTING
        data   = iv_cdata
        offset = 0
        length = lv_len ).

    "设置http method 
    http_client->request->set_method( if_http_request=>co_request_method_post ).

    "发送
    CALL METHOD http_client->send
      EXCEPTIONS
        http_communication_failure = 1
        http_invalid_state         = 2
        http_processing_failed     = 3
        http_invalid_timeout       = 4
        OTHERS                     = 5.
    IF sy-subrc <> 0.
      CALL METHOD http_client->get_last_error
        IMPORTING
          code    = lv_sysubrc
          message = lv_error_text.
      es_return-type    = 'E'.
      es_return-message = 'SEND DATA ERROR:' && lv_error_text.
    ENDIF.

    "接收
    CALL METHOD http_client->receive
      EXCEPTIONS
        http_communication_failure = 1
        http_invalid_state         = 2
        http_processing_failed     = 3.

    IF sy-subrc <> 0.
      CALL METHOD http_client->get_last_error
        IMPORTING
          code    = lv_sysubrc
          message = lv_error_text.
      es_return-type    = 'E'.
      es_return-message = 'RECEIVE DATA ERROR:' && lv_error_text.
    ENDIF.

    ev_result = http_client->response->get_cdata( ).
    CALL METHOD http_client->close( ).

  ENDMETHOD.