SAP与企业微信集成—-DEMO详解编程语言

FUNCTION z_common_send_to_wechat. 
*"---------------------------------------------------------------------- 
*"*"本地接口： 
*"  IMPORTING 
*"     VALUE(OS_IN) TYPE  ZSCOMMON_WECHAT_IN 
*"---------------------------------------------------------------------- 
 
  DATA: lo_http_client TYPE REF TO if_http_client, 
        gv_json_out    TYPE string, 
        lv_url         TYPE string, 
        lv_head        TYPE string, 
        lv_len         TYPE i, 
        iv_json_input  TYPE string, 
        ev_json_output TYPE string, 
        l_content      TYPE char1024, 
        l_value        TYPE savwctxt-fieldcont. 
 
   MOVE os_in-content TO l_value. 
 
    CALL FUNCTION 'WWW_URLENCODE' 
      EXPORTING 
        value         = l_value 
      IMPORTING 
        value_encoded = l_content. 
* 
*    BREAK-POINT. 
 
  lv_url =  'http://oa.luxshare-ict.com/wxinterface/push_operation_kp.jsp?workcodes=' 
           && os_in-receiver && '&msgtype=text&pass=luxshare888..&content=' && l_content. 
 
 
  "创建客户端请求 
  CALL METHOD cl_http_client=>create_by_url 
    EXPORTING 
      url                = lv_url 
    IMPORTING 
      client             = lo_http_client 
    EXCEPTIONS 
      argument_not_found = 1 
      plugin_not_active  = 2 
      internal_error     = 3 
      OTHERS             = 4. 
 
  IF sy-subrc <> 0. 
    "lv_subrc = sy-subrc. 
*    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH 
*               sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. 
    EXIT. 
  ENDIF. 
 
  "设定传输请求内容格式以及编码格式 
  lo_http_client->request->set_content_type( content_type = 'application/json; charset=utf-8' ). 
 
  "设定调用服务 
  lo_http_client->request->set_method( if_http_request=>co_request_method_post ). 
 
  "设置待传输内容长度 
  lv_len = strlen( iv_json_input ). 
 
  "设置调用方法 
  CALL METHOD lo_http_client->request->set_header_field 
    EXPORTING 
      name  = '~request_method' 
      value = 'POST'. 
 
  "设置传入字符串 
 
  CALL METHOD lo_http_client->request->set_cdata 
    EXPORTING 
      data   = iv_json_input 
      offset = 0 
      length = lv_len. 
 
  "发送数据 
 
  lo_http_client->send( 
 
    EXCEPTIONS 
 
      http_communication_failure = 1 
 
      http_invalid_state         = 2 ). 
 
  "接收返回 
 
  lo_http_client->receive( 
 
    EXCEPTIONS 
 
      http_communication_failure = 1 
 
      http_invalid_state         = 2 
 
      http_processing_failed     = 3 ). 
 
  "提取返回字符串 
 
  ev_json_output = lo_http_client->response->get_cdata( ). 
 
  "将字符串中的回车符替换，否则abap将会识别为# 
 
  REPLACE ALL OCCURRENCES OF REGEX '/n' IN ev_json_output WITH space. 
 
 
ENDFUNCTION.