ABAP使用HTTP POST FORM二进制文件

首先，我们将一个文件，读入到参数p_file中，
然后：定义
DATA:
lo_http_client TYPE REF TO if_http_client,

创建HTTP连接。
cl_http_client=>create_by_url(
EXPORTING
url = lv_url
IMPORTING
client = lo_http_client
EXCEPTIONS
argument_not_found = 1
plugin_not_active = 2
internal_error = 3
OTHERS = 4 ).
然后设置HEAD参数。
CALL METHOD lo_http_client->request->set_header_field
EXPORTING
name = ‘appid’
value = lv_appid.

CALL METHOD lo_http_client->request->set_header_field
EXPORTING
name = ‘timestamp’
value = lv_timestamp.
设置FORM参数。
CALL METHOD lo_http_client->request->set_form_field
EXPORTING
name = ‘companyCode’
value = lv_bukrs.

• 业务系统标识(必填)
  CALL METHOD lo_http_client->request->set_form_field
  EXPORTING
  name = ‘systemTag’
  value = ‘FUND’.

CALL METHOD lo_http_client->request->set_form_field
EXPORTING
name = ‘fileType’
value = ‘pdf’.
设置多从文件类型。
CALL METHOD lo_http_client->request->set_content_type
EXPORTING
content_type = ‘multipart/form-data’.
”
DATA: part TYPE REF TO if_http_entity.
part = lo_http_client->request->if_http_entity~add_multipart( ).

CALL METHOD part->set_header_field
EXPORTING
name = ‘content-type’
value = ‘application/pdf’.

CALL METHOD part->set_header_field
EXPORTING
name = ‘content-disposition’
value = ‘form-data; name=“files”;filename=“rwrwrwrr.pdf”;’.

DATA(lv_len) = xstrlen( p_file ).

• CALL METHOD lo_http_client->request->set_cdata
  CALL METHOD part->set_data
  EXPORTING
  data = p_file.
  offset = 0
  length = lv_len.

lo_http_client->send(
EXCEPTIONS
http_communication_failure = 1
http_invalid_state = 2 ).

这样二进制数据，就传输到了request得BODY里。