ABAP URL は、Form-data With キーを使用して内部テーブル (Json) データを転送するための POST リクエストを送信します

SAP が外部 URL を呼び出す場合、一部の URL の受信パラメーターはキー付きのフォームデータであり、受信データ形式は JSON です。

現時点でABAPプログラムを介してパラメータを渡すにはどうすればよいですか?

 ABAP実装プロセス:

1. HTTP 接続を確立します。

URL = '192.168.0.0/test'.

CALL METHOD CL_HTTP_CLIENT=>CREATE_BY_URL
EXPORTING
URL                = URL
*     PROXY_SERVICE      = '443'
IMPORTING
CLIENT             = HTTP_CLIENT
EXCEPTIONS
ARGUMENT_NOT_FOUND = 1
PLUGIN_NOT_ACTIVE  = 2
INTERNAL_ERROR     = 3
OTHERS             = 4.

2. リクエストのヘッダーパラメータを設定します

*设置内容格式为Form-data
  CALL METHOD HTTP_CLIENT->REQUEST->SET_HEADER_FIELD
    EXPORTING
      NAME  = 'Content-Type'
      VALUE = 'multipart/form-data'.

  CALL METHOD HTTP_CLIENT->REQUEST->SET_HEADER_FIELD
    EXPORTING
      NAME  = '~request_method'
      VALUE = 'POST'.

3. フォームデータパラメータ名を追加してバインドします

4. 内部テーブルデータを JSON 形式のオブジェクトにシリアル化します。

5. 値を渡す

*定义Form-data value
  DATA: IT_FORMULARIO TYPE TIHTTPNVP,
        WA_FORMULARIO LIKE LINE OF IT_FORMULARIO,
        PART          TYPE REF TO IF_HTTP_ENTITY.

  PART = HTTP_CLIENT->REQUEST->IF_HTTP_ENTITY~ADD_MULTIPART( ).

*传入Value
  CALL METHOD PART->APPEND_CDATA
    EXPORTING
      DATA = V_RESPONSE.
*设置内容格式和name
  CALL METHOD PART->SET_HEADER_FIELD
    EXPORTING
      NAME  = 'content-disposition'
      VALUE = 'form-data;name="budgetList"'.

完全なコードは次のとおりです。参考にしてください。

DATA: LEN         TYPE        I , "发送报文长度
LEN_STRING  TYPE        STRING,
URL         TYPE        STRING , "接口地址
HTTP_CLIENT TYPE REF TO IF_HTTP_CLIENT , "http客户端
POST_STRING TYPE        STRING,
RESULT      TYPE        STRING.

DATA: IT_HEADER TYPE TIHTTPNVP.

***系统传参

TYPES: BEGIN OF TY_MATERIAL,  "Para
MATNR      TYPE STRING,
WERKS TYPE STRING,
END OF TY_MATERIAL.
DATA LS_MATERIAL    TYPE   TY_MATERIALT.
DATA LT_MATERIAL    LIKE TABLE OF   LS_MATERIAL.

TYPES: BEGIN OF TY_CODEMSG,  "Para
         CODE TYPE STRING,
         MSG  TYPE STRING,
       END OF TY_CODEMSG.

DATA LS_CODEMSG    TYPE   TY_CODEMSG.
DATA LT_CODEMSG    LIKE TABLE OF   LS_CODEMSG.

START-OF-SELECTION.


" Form-data  参数传值定义

LS_MATERIAL-MATNR= 'TEST001'.
LS_MATERIAL-WERKS = '1000'.


APPEND LS_MATERIAL TO LT_MATERIAL.

URL = '192.168.0.0/TEST'.

CALL METHOD CL_HTTP_CLIENT=>CREATE_BY_URL
EXPORTING
URL                = URL
*     PROXY_SERVICE      = '443'
IMPORTING
CLIENT             = HTTP_CLIENT
EXCEPTIONS
ARGUMENT_NOT_FOUND = 1
PLUGIN_NOT_ACTIVE  = 2
INTERNAL_ERROR     = 3
OTHERS             = 4.

*设置内容格式为Form-data
  CALL METHOD HTTP_CLIENT->REQUEST->SET_HEADER_FIELD
    EXPORTING
      NAME  = 'Content-Type'
      VALUE = 'multipart/form-data'.

  CALL METHOD HTTP_CLIENT->REQUEST->SET_HEADER_FIELD
    EXPORTING
      NAME  = '~request_method'
      VALUE = 'POST'.

*将内表序列化为JSON格式
  CLEAR V_RESPONSE .
  V_RESPONSE = ZUI2_JSON=>SERIALIZE( DATA = LT_MATERIAL
                                  COMPRESS = ABAP_FALSE
                               PRETTY_NAME = /UI2/CL_JSON=>PRETTY_MODE-LOW_CASE
                                 ASSOC_ARRAYS = ABAP_TRUE
                                    ) .


*定义Form-data value
  DATA: IT_FORMULARIO TYPE TIHTTPNVP,
        WA_FORMULARIO LIKE LINE OF IT_FORMULARIO,
        PART          TYPE REF TO IF_HTTP_ENTITY.

  PART = HTTP_CLIENT->REQUEST->IF_HTTP_ENTITY~ADD_MULTIPART( ).

*传入Value
  CALL METHOD PART->APPEND_CDATA
    EXPORTING
      DATA = V_RESPONSE.
*设置内容格式和name
  CALL METHOD PART->SET_HEADER_FIELD
    EXPORTING
      NAME  = 'content-disposition'
      VALUE = 'form-data;name="budgetList"'.

  "发送
  CALL METHOD HTTP_CLIENT->SEND
    EXCEPTIONS
      HTTP_COMMUNICATION_FAILURE = 1
      HTTP_INVALID_STATE         = 2
      HTTP_PROCESSING_FAILED     = 3
      HTTP_INVALID_TIMEOUT       = 4
      OTHERS                     = 5.

  "接收
  CALL METHOD HTTP_CLIENT->RECEIVE
    EXCEPTIONS
      HTTP_COMMUNICATION_FAILURE = 1
      HTTP_INVALID_STATE         = 2
      HTTP_PROCESSING_FAILED     = 3.

  "获取接口返回的数据
  RESULT = HTTP_CLIENT->RESPONSE->GET_CDATA( ).

*反序列化传值到内表或结构
  ZUI2_JSON=>DESERIALIZE( EXPORTING JSON = RESULT
                                 ASSOC_ARRAYS = ABAP_TRUE
                                PRETTY_NAME = /UI2/CL_JSON=>PRETTY_MODE-LOW_CASE
                              CHANGING DATA = LS_CODEMSG
                            )
                            .
*

WRITE: 'code:', LS_CODEMSG-CODE , 'message:' ,LS_CODEMSG-MSG.