ABAP调用外部接口

ABAP调用外部接口DATA:lc_http_clientTYPEREFTOif_http_client,LENTYPEI,”发送报文长度l_json_dataTYPEstring,l_json_stringTYPEstring,l_result_dataTYPEstring,l_urlTYPEstring.DATAlc_jsonTYP..

大家好,又见面了,我是你们的朋友全栈君。

  DATA: lc_http_client TYPE REF TO if_http_client,
        LEN         TYPE        I, "发送报文长度 l_json_data TYPE string, l_json_string TYPE string, l_result_data TYPE string, l_url TYPE string. DATA lc_json TYPE REF TO cl_fdt_json_serializer. "json格式转换
  DATA l_result   TYPE ZMSG02.


  l_url = 'http://xxx.xxx'.   "访问地址 l_json_string = '{"userid":"65509","message":"Hello"}'. *****创建http服务 CALL METHOD cl_http_client=>create_by_url EXPORTING url = l_url IMPORTING client = lc_http_client EXCEPTIONS argument_not_found = 1 plugin_not_active = 2 internal_error = 3 OTHERS = 4. IF sy-subrc <> 0. EXIT. ENDIF. *****转换json格式 CREATE OBJECT lc_json. CALL METHOD lc_json->serialize_int EXPORTING data = IS_INPUT RECEIVING r_json = l_json_data. LEN = STRLEN( l_json_data ). TRANSLATE l_json_data TO LOWER CASE. "设定传输请求内容格式以及编码格式

CALL METHOD lc_http_client->request->set_header_field
  EXPORTING
    name  = 'Content-Type'
    value = 'application/JSON; charset=utf-8'.


  CALL METHOD lc_http_client->request->set_method( 'POST' ).


*****设置传入字符串
  CALL METHOD lc_http_client->REQUEST->SET_CDATA
    EXPORTING
      DATA   = l_json_data
      OFFSET = 0
      LENGTH = LEN.


*****发送http服务
  CALL METHOD lc_http_client->send
    EXCEPTIONS
      http_communication_failure = 1
      http_invalid_state         = 2
      http_processing_failed     = 3
      http_invalid_timeout       = 4
      OTHERS                     = 5.

  IF sy-subrc <> 0.
   " EXIT. ENDIF. "接收
  CALL METHOD lc_http_client->RECEIVE
    EXCEPTIONS
      HTTP_COMMUNICATION_FAILURE = 1
      HTTP_INVALID_STATE         = 2
      HTTP_PROCESSING_FAILED     = 3.
  IF sy-subrc = 0.

  ENDIF.

l_result_data = lc_http_client->response->get_cdata( ).

*****解析JSON数据
  CALL METHOD lc_json->deserialize_int
    EXPORTING
      json = l_result_data
    CHANGING
      data = l_result.

  IF sy-subrc = 0.
    ES_RET-CODE = l_result-errcode.
    ES_RET-MSG  = l_result_data.
  ENDIF.
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/142368.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • delphi 进程通信_多线程实现java

    delphi 进程通信_多线程实现java多线程总体认识当前程序是一个进程,进程只是一个工作环境,线程是工作者; 每个进程都会有一个启动线程(或叫主线程),也就是说:大量的编码都是写给这个主线程的; ExitThread(0);退出主线程; 系统不允许一个没有线程的进程存在,所以程序就退出了. ExitThread函数的参数是一个退出码,这个退出码是给之后的其他函数用的,这里随便给个无符号整数即可….

  • 17 -Flask构建弹幕微电影网站- 电影播放及评论弹幕收藏实现

    17 -Flask构建弹幕微电影网站- 电影播放及评论弹幕收藏实现

  • 内核态与用户态_linux内核态和用户态通信

    内核态与用户态_linux内核态和用户态通信1、高位地址:栈(存放着局部变量和函数参数等数据),向下生长   (可读可写可执行)2、           堆(给动态分配内存是使用),向上生长             (可读可写可执行)3、           数据段(保存全局数据和静态数据)                    (可读可写不可执行)4、低位地址:代码段(保存代码)

  • windows10搭建nas详细(docker搭建开发环境)

    Windows下ODrive固件开发环境搭建以下内容适用于希望修改ODrive固件的开发人员。因此,它假定您了解诸如如何使用Git,什么是编译器之类的知识。如果这听起来很陌生,以下内容对您来说可能不适合。文章目录Windows下ODrive固件开发环境搭建1准备要用到的开发工具2安装Python3安装ST-Link/V2Drivers4安装GitforWindo…

  • mysql数据库去重[通俗易懂]

    mysql数据库去重[通俗易懂]2019独角兽企业重金招聘Python工程师标准>>>…

  • 从零开始搭二维激光SLAM — 前言[通俗易懂]

    从零开始搭二维激光SLAM — 前言[通俗易懂]我眼中的SLAM从最开始接触SLAM已经3年了,从二维激光SLAM到三维激光SLAM,再到视觉SLAM,都有一些接触,现将简单梳理一下SLAM的各个模块的功能以及实现方式,为本系列文章起到个总领作用。1SLAM是什么SLAM(simultaneouslocalizationandmapping)的中文翻译为同步定位与地图构建。目的有2个,一个是进行定位,一个是进行周围环境的地图的构建,二者相互依赖,只有同时进行求解才能够解决这个问题。为什么一定要同时进行求解呢?人通过眼睛,通过手部等肢体

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号