abap 調用Http --“Get”

調試中的結果如圖:

 

代碼：

DATA: http_client TYPE REF TO if_http_client.

  "URL填全部，帶參數
  CALL METHOD cl_http_client=>create_by_url
    EXPORTING
      url    = 'http://www.baidu.com'
    IMPORTING
      client = http_client.

  http_client->propertytype_logon_popup = http_client->co_enabled .
  http_client->propertytype_redirect = http_client->co_disabled .

  CALL METHOD http_client->request->set_header_field
    EXPORTING
      name  = '~request_method'
      value = 'GET'.                 "如果用POST  status code為302  不懂啥意思

  CALL METHOD http_client->request->set_header_field
    EXPORTING
      name  = '~request_protocol'     "http請求則改為'~service_protocol'   好像兩個都可以
      value = 'HTTPS/1.1'.            "           'HTTP/1.1'

  CALL METHOD http_client->request->set_header_field
    EXPORTING
      name  = 'Content-Type'
      value = 'text/html'. " text/html 看情況填application/json   可能用POST

*  "set body
*  CALL METHOD HTTP_CLIENT->REQUEST->SET_CDATA
*    EXPORTING
*      DATA   = LV_PARAM
*      OFFSET = 0
*      LENGTH = LV_LEN.

  CALL METHOD http_client->send
    EXCEPTIONS
      http_communication_failure = 1
      http_invalid_state         = 2.
  CALL METHOD http_client->receive
    EXCEPTIONS
      http_communication_failure = 1
      http_invalid_state         = 2
      http_processing_failed     = 3.
  IF sy-subrc <> 0.
    DATA:l_sysubrc TYPE sysubrc,
         l_error_text TYPE string.
    l_sysubrc = sy-subrc.
    CALL METHOD http_client->get_last_error
      IMPORTING
        code    = l_sysubrc
        message = l_error_text.
  ENDIF.
"Read HTTP RETURN CODE
DATA:http_status_code TYPE i,
     status_text      TYPE string.
  CALL METHOD http_client->response->get_status
    IMPORTING
      code   = http_status_code
      reason = status_text
      .
  WRITE: / 'HTTP_STATUS_CODE = ',
          http_status_code,
         / 'STATUS_TEXT = ',
         status_text.
"READ RESPONSE DATA
DATA:w_result TYPE string.
  CALL METHOD http_client->response->get_cdata
    RECEIVING data = w_result .
  BREAK-POINT.

* 獲取返回的數據
  DATA: r_value    TYPE string,
        r_value1   TYPE string,
        r_fields   TYPE tihttpnvp,
        r_h_fields TYPE tihttpnvp.
  http_client->response->get_header_fields( CHANGING fields =  r_h_fields ). "返回表數據
  BREAK-POINT.

****注意：
****1.url必須帶"http://"或者“https://”。
****2. http_client->propertytype_redirect = http_client->co_disabled .這一行是設置是否允許重定向，是為“co_enabled”，否為“co_disabled”。
****3. 可能出現的錯誤 404 Hostname Unknow，是因為服務器未配置該url的dns
****4. 可能出現的錯誤 401 refused，可能是被防火牆擋住了，以上兩個問題可以找basis協助解決