cl_http_client FOR 404'请求的资源不可用'

2020-09-24 01:35发布

SPAN { 字体家族：" Courier New"；字体大小：10pt；颜色：#000000; 背景：#FFFFFF; } .L0S31 { 字体样式：斜体；颜色：#808080; } .L0S32 { 颜色：#3399FF; } .L0S33 { 颜色：#4DA619; } .L0S52 { 颜色：#0000FF; } .L0S55 { 颜色：#800080; } .L0S70 { 颜色：#808080; } 表格GET_DATA_FROM_URL使用P_L_URL P_I_PERNR 更改P_O_TYPE P_O_MESSAGE 。数据：http_client TYPE REF IF_HTTP_CLIENT， gv_cdata TYPE字符串。数据：loc_conv类型参考cl_abap_conv_in_ce， l_xstr TYPE xstring， l_str TYPE字符串， l_result TYPE字符串。 "返回数据 DATA：L_CODE TYPE C，"返回码 L_MESSAGE TYPE STRING， L_DATA TYPE STRING， L_SCORE TYPE STRING， L_PASS TYPE STRING， L_STRING_TEMP TYPE STRING， L_STRING_TEMP1 TYPE STRING 。数据：L_LENGTH I型。 DATA：L_LOOP_INDEX TYPE I，"循环Deinx l_INDEX_TEMP TYPEI。"索引和数据：L_TABIX类型SY-TABIX。 DATA：L_LINE_MESSAGE TYPE I，"味精的索引 L_LINE_CODE TYPE I，" CODE的索引 L_LINE_PASS TYPE STRING，" PASS的索引 L_LINE_SCORE TYPEI。" SCORE的索引呼叫方法cl_http_client => create_by_url 出口网址= P_L_URL 输入客户端= http_client 例外情况 arguments_not_found = 1 plugin_not_active = 2 internal_error = 3 其他= 4。 **将请求方法设置为GET或POST http_client-> request-> set_method（if_http_request => co_request_method_post）。 *呼叫方法http_client-> request-> set_header_field *出口 *名称="内容" *值="测试"。 *呼叫方法http_client-> request-> set_header_field *出口 *名称="目标" *值='18961701938'。 * *呼叫方法http_client-> request-> set_header_field *出口 *名称="内容类型" ** value ='application/json'。 " * value ='text/html; charset = utf-8'。 " utf-8 呼叫方法http_client-> SEND 例外情况 http_communication_failure = 1 http_invalid_state = 2。呼叫方法http_client-> receive 例外情况 http_communication_failure = 1 http_invalid_state = 2 http_processing_failed = 3。清除l_result。 l_xstr = http_client-> response-> get_data（）。如果sy-subrc = 0。 http_client-> close（）。万一。呼叫方法cl_abap_conv_in_ce =>建立出口输入= l_xstr 编码='UTF-8' 替换='？' ignore_cerr = abap_true 接收转换= loc_conv。尝试。调用方法loc_conv-> read 输入数据＝ l_str。捕获cx_sy_conversion_codepage。捕获cx_sy_codepage_converter_init。捕获cx_parameter_invalid_type。捕获cx_parameter_invalid_range。 ENDTRY。用空格替换l_str中正则表达式'\ {*'的所有出现。用''替换l_str中所有正则表达式'\} *'的出现。用''替换l_str中正则表达式'\ [*'的所有出现。用''替换l_str中所有正则表达式'\] *'的出现。用l替换l_str中所有正则表达式'\" *'的出现。将l_str AT'，'拆分到表数据（LT_RESULT_TEMP）中。描述表LT_RESULT_TEMP LINES DATA（L_LINE）。 L_LINE_CODE = 1。 L_LINE_MESSAGE = 2。 "码读取表LT_RESULT_TEMP到数据（LS_RESULT_TEMP）索引L_LINE_CODE。如果SY-SUBRC EQ 0。分割LS_RESULT_TEMP AT'：'INTO L_STRING_TEMP P_O_TYPE。万一。 "信息读取表LT_RESULT_TEMP INTO LS_RESULT_TEMP INDEX L_LINE_MESSAGE。如果SY-SUBRC EQ 0。将LS_RESULT_TEMP AT分割为'：'INTO L_STRING_TEMP P_O_MESSAGE。万一。 ENDFORM。