matinal：SAP ABAP 关于SAP系统中如何集成HTTPS的若干功能总结篇【第一篇】

🚀欢迎来到本文🚀 🍉个人简介：matinal，目前职业是IT行业，一个正在慢慢前行的普通人。 🏀系列专栏：涵盖SAP各模块，Python，Excel，人工智能等 💡 其他专栏：一些平时学习的技术，感兴趣的小伙伴可以看看。 🍔公众号：matinal 🎁希望各位→点赞👍 + 收藏⭐️ + 留言📝 ⛱️万物从心起，心动则万物动🏄‍♂️
前言：SAP ABAP 关于SAP系统中如何集成HTTPS的若干功能总结篇，这是第一篇。本篇主要介绍SAP中创建http服务，所以，如果你了解并熟知，请略过本篇。 🦙（工作遇到傻逼，千万要远离。道路千万条，远离傻逼第一条）

1990年互联网诞生之初，就已经开始用超文本传输协议 HTTP 传输数据，这也是为什么现在网页地址都是以 http 开头的原因。但是HTTP协议传输数据是明文传输，任意的人抓包就能看到传输的数据，这显然不安全。1994年，Netscape 公司用加密协议增加了 HTTP，开始在 HTTP 的基础上加入 SSL 即安全套接层（Secure Socket Layer）。称为 "HTTP over SSL" 或者 "HTTP Secure"，也就是我们现在熟知的 HTTPS。

HTTPS 其实是一个“非常简单”的协议，RFC 文档很小，只有短短的 7 页，里面规定了新的协议名“https”，默认端口号 443，至于其他的什么请求 - 应答模式、报文结构、请求方法、URI、头字段、连接管理等等都完全沿用 HTTP，没有任何新的东西。

也就是说，除了协议名“http”和端口号 80 这两点不同，HTTPS 协议在语法、语义上和 HTTP 完全一样，优缺点也“照单全收”（当然要除去“明文”和“不安全”）。

HTTP 协议一般指 HTTP（超文本传输协议）。

超文本传输协议（英语：HyperText Transfer Protocol，缩写：HTTP）是一种用于分布式、协作式和超媒体信息系统的应用层协议，是因特网上应用最为广泛的一种网络传输协议，所有的 WWW 文件都必须遵守这个标准。

HTTP 是为 Web 浏览器与 Web 服务器之间的通信而设计的，但也可以用于其他目的。

HTTP 是一个基于 TCP/IP 通信协议来传递数据的（HTML 文件、图片文件、查询结果等）。

下面进入正文

一、创建类

1、进入SE24

2、类->接口添加IF_HTTP_EXTENSION

3、实现接口的HANDLE_REQUEST方法，并在源代码里编写代码，然后激活

代码语言：javascript

复制

  METHOD if_http_extension~handle_request.
    TYPES: BEGIN OF ty_data,
             matnr TYPE matnr,
             maktx TYPE maktx,
           END OF ty_data,
           BEGIN OF ty_mat,
             matnr TYPE matnr,
           END OF ty_mat.
DATA: lt_data TYPE TABLE OF ty_data,
      lt_mat  TYPE TABLE OF ty_mat,
      ls_mat  TYPE ty_mat.

DATA: lr_mat  TYPE RANGE OF matnr,
      lrs_mat LIKE LINE OF lr_mat.

DATA: lt_form_fields   TYPE tihttpnvp, &#34;请求url参数
      lt_header_fields TYPE tihttpnvp, &#34;请求头部数据
      lv_method        TYPE string,    &#34;请求类型
      lv_request       TYPE string,    &#34;请求json数据
      lv_response      TYPE string.    &#34;返回json数据

&#34;请求类型
lv_method = server-&gt;request-&gt;get_header_field( name = &#39;~request_method&#39; ).

&#34;请求url参数
server-&gt;request-&gt;get_form_fields( CHANGING fields = lt_form_fields ).

&#34;请求头部数据
server-&gt;request-&gt;get_header_fields( CHANGING fields = lt_header_fields ).

&#34;请求json数据
lv_request = server-&gt;request-&gt;get_cdata( ).

&#34;json转abap
/ui2/cl_json=&gt;deserialize( EXPORTING json = lv_request
                           CHANGING data = lt_mat ).

&#34;将内表数据转成range用作查询条件
LOOP AT lt_mat INTO ls_mat.
  lrs_mat-sign = &#39;I&#39;.
  lrs_mat-option = &#39;EQ&#39;.
  lrs_mat-low = ls_mat-matnr.
  APPEND lrs_mat TO lr_mat.
ENDLOOP.

CASE lv_method.
  WHEN &#39;GET&#39;.

    SELECT matnr maktx INTO CORRESPONDING FIELDS OF TABLE lt_data
           FROM makt
           UP TO 20 ROWS
           WHERE spras = sy-langu
           AND matnr IN lr_mat.

    &#34;abap转换json
    /ui2/cl_json=&gt;serialize( EXPORTING data   = lt_data
                             RECEIVING r_json = lv_response ).

    &#34;返回json数据给调用端
    server-&gt;response-&gt;set_cdata( EXPORTING data = lv_response ).

    &#34;请求响应
    server-&gt;response-&gt;set_status( code = 200 reason = &#39;OK&#39; ).
  WHEN OTHERS.

    &#34;如果不是get请求，则返回错误
    server-&gt;response-&gt;set_status( code = 405 reason = &#39;ERROR&#39; ).

ENDCASE.

ENDMETHOD.