ABAP-HTTP发送JSON详解编程语言

function zap_01_url_sap_to_c3 . 
*"---------------------------------------------------------------------- 
*"*"本地接口： 
*"  IMPORTING 
*"     VALUE(I_FLAG) TYPE  STRING OPTIONAL 
*"     VALUE(I_TITLE) TYPE  STRING 
*"     VALUE(I_MESSAGE) TYPE  STRING 
*"  EXPORTING 
*"     VALUE(E_RETURN) TYPE  STRING 
*"  TABLES 
*"      IT_REVEIVER 
*"---------------------------------------------------------------------- 
 
  data: lv_url type string."http 服务接口地址 
  data: lo_http_client  type ref to if_http_client. 
  data: lv_respon type string. 
  data: lv_subrc type sy-subrc. 
  data: lv_json_str type string. "发送报文 
  data: lv_msgty type c, 
        lv_msgtx type string. 
 
  data: lt_json type standard table of zscma_dyjg, 
        ls_json type zscma_dyjg. 
 
* 设置报文内容 
  ls_json-source        = 'ERP' . "来源 订阅号的英文名 
  ls_json-sender        = 'ERP' .  "发送者 
  ls_json-sender_type   = 'S' . "默认个人  P为个人  S为系统 
 
  data:lv_reveiver type string. 
 
  loop at it_reveiver. 
    if sy-tabix eq 1. 
      lv_reveiver = it_reveiver. 
    else. 
      lv_reveiver = lv_reveiver && ',' && it_reveiver. 
    endif. 
  endloop. 
 
  ls_json-title    = i_title . "发送标题 
  ls_json-content  = i_message. 
  ls_json-message  = 'message'. " 
  ls_json-channel  = 'SUBSCRIPTION'. " 
  ls_json-messagedata = i_message. " 
 
  if i_flag is initial. 
 
    concatenate 'http://XXX.XXX.XXX.XXX:XXXX/mc/core/message/sendMessageUnitForCode?source=' ls_json-source 
                '&sender='ls_json-source'&sender_type=S&receiver='lv_reveiver'&title='ls_json-title 
                '&content='ls_json-content'&message='ls_json-message 
                '&channel=SUBSCRIPTION&messageData=%7B%22type%22%3A%2210002%22%2C%22createTime%22%3A%22%22%2C%22remarkUrl%22%3A%22http%3A%2F%2Fwww.baidu.com%22%7D' 
                into lv_url . 
 
*    /mc/core/message/sendMessageUnitForCode 
*    /mc/core/message/sendMessageUnit 
 
  elseif i_flag eq 'X'. 
    concatenate 'http://XXX.XXX.XXX.XXX:XXXX/mc/core/message/sendMessageUnitForCode?source=' ls_json-source 
              '&sender='ls_json-source'&sender_type=S&receiver='lv_reveiver'&title='ls_json-title 
              '&content='ls_json-content'&message='ls_json-message 
              '&channel=SUBSCRIPTION&messageData=%7B%22type%22%3A%2210002%22%2C%22createTime%22%3A%22%22%2C%22remarkUrl%22%3A%22http%3A%2F%2Fwww.baidu.com%22%7D' 
              into lv_url . 
  endif. 
 
  "创建客户端请求 
  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. 
 
 
  "设定传输请求内容格式以及编码格式 
  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 ). 
 
  "发送请求 
  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 ). 
 
  e_return = lo_http_client->response->get_cdata( ). 
 
  e_return = e_return+9(1). 
 
  translate e_return to upper case. 
 
endfunction.

CALL METHOD cl_http_client=>create 
  EXPORTING 
    host    = 'api15.sapsf.cn' 
    service = '443'                        
    scheme  = '2'                         
    ssl_id  = 'ANONYM'              
*   proxy_host    = wf_proxy 
*   proxy_service = wf_port 
  IMPORTING 
    client  = lo_http_client. 
 
lo_http_client->propertytype_logon_popup = lo_http_client->co_disabled. 
CALL METHOD lo_http_client->authenticate( 
  EXPORTING 
*   client               = '110' 
*    proxy_authentication = 'X' 
    username             = '' 
    password             = '' 
*   LANGUAGE             = 'E' 
                           ). 
CALL METHOD lo_http_client->request->set_header_field 
  EXPORTING 
    name  = '~request_protocol' 
    value = 'HTTPS/1.0'. 
CALL METHOD lo_http_client->request->set_header_field 
  EXPORTING 
    name  = '~request_uri' 
    value = '/odata/v2/......'. 
CALL METHOD lo_http_client->request->set_header_field 
  EXPORTING 
    name  = 'Content-Type' 
    value = 'application/json; charset=utf-8'. 
CALL METHOD lo_http_client->request->set_method( 'POST' ).