ABAP 发送企微消息封装方法

95 阅读 0 评论 63 点赞

我是靠谱客的博主耍酷鸵鸟，最近开发中收集的这篇文章主要介绍ABAP 发送企微消息封装方法，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

参数：

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.