尝试使用ABAP代码从Webservice Rest获取数据时出错。

2020-08-20 10:57发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)我有下一个问题: 1) ...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


我有下一个问题:

1) 我有一个适用于Chrome的下一个网址:(今天是8月1日有效)

https://junjitest。 mineduc.cl/api-doc-parv/v1/docente/35605/rut/17878912?apikey=SpfBRV2HHyxAyaWcorai777RubbFGpYg

,结果可以在附件" fig1.jpg ";

2)的目的是使用ABAP代码,而我正在使用下一个代码,结果您可以在附件" 图2_R.jpg ";

 cl_http_client => create_by_url(导出
  url ='https://junjitest.mineduc.cl/api-doc-parv/v1/docente/35605/rut/17878912?apikey = SpfBRV2HHyxAyaWcorai777RubbFGpYg'IMPORTINGclient = lo_http_client
  例外情况
  arguments_not_found = 1
  plugin_not_active = 2
  internal_error = 3
  其他= 4。

 如果sy-subrc <> 0。 返回。 万一。
 *我更改了使用GET方法的逻辑:
 lo_http_client-> request-> set_method('GET')。
 lo_http_client-> request-> set_content_type('application/json')。
 *发送请求
 lo_http_client->发送(
 例外情况
 http_communication_failure = 1
 http_invalid_state = 2)。
 *收到回复
 lo_http_client-> receive(
 例外情况
  http_communication_failure = 1
  http_invalid_state = 2
  http_processing_failed = 3)。
 *检查响应。 希望您能返回JSON response.DATA lv_response TYPE字符串。
 lv_response = lo_http_client-> response-> get_cdata()。

我使用ABAP代码进行了其他测试,以管理 junjitest.mineduc.cl 取决于opc值变量(1或2)。 opc = 1到 junjitest.mineduc.cl 或opc = 2到时间和天气网站(它 使用有效期至2019年8月2日明天的APIKEY。

结果是:

a)附件 fig3-r.jpg junjitest.mineduc.cl ),与 Fig2_R.jpg

b)附件 fig4-wr.jpg ( 时间和天气网站)从哪里获得结果(我的意思是,ABAP代码有效!)

 REPORT Z_TEST_MINEDUC_REST。

 数据:客户端类型引用到if_http_client,
       路径TYPE字符串,
       方案类型TYPE i,
       关闭TYPE I,
       主机类型TYPE字符串,
       porttype TYPE字符串,
       contenttype TYPE字符串。


 数据ld_request类型参考if_http_request。
 数据:lv_host TYPE字符串。
 数据:OPC TYPE C长度01。

 opc ='1'。  " --- <简报中的junjitest.mineduc.cl
 案例OPC。
   当为" 1"时。  "" ---  request-> set_header_field(name ='〜request_method'value ='GET')。
 * client-> request-> set_header_field(name ='Content-Type'value ='application/x-www-form-urlencoded')。
 client-> request-> set_header_field(name ='Content-Type'value ='application/json; charset = UTF-8')。
 *发送和接收

 ld_request =客户端->请求。
 呼叫方法client-> request-> set_method(
   if_http_request => co_request_method_get)。

 客户端->发送()。
 客户端->接收()。

 DATA:内容类型字符串。
 数据:lt_itab TYPE TABLE OF字符串,
       ls_itab TYPE字符串。

   内容=客户端->响应-> get_cdata()。
   在cl_abap_char_utilities => newline INTO TABLE lt_itab中拆分内容。
 *在"#"到表lt_itab中分割内容。


   循环至lt_itab INTO ls_itab。
 *将ls_itab中所有出现的" <"替换为" <"。
 *将ls_itab中所有出现的'>'替换为'>'。
     写:/ls_itab。
 *写:/内容。
   结束。
   BREAK-POINT。
   client-> close()。
 

如果需要设置其他内容(证书等),您能否发表评论?

WS是REST,目标是从mineduc服务器获得结果。

我将不胜感激。

此致

何塞

fig1.jpg (136.0 kB)