1、需求说明

在SAP中调用第三方文件服务器的HTTP请求，将文件保存在文件服务器上，并返回保存的文件地址。
SAP保存返回的文件地址，通过浏览器进行访问。

2、需求实现

2.1、POSTMAN测试

通过POSTMAN测试成功，获取返回的文件地址

并且可以看到请求对应编程语言的示例代码

2.2、代码示例

通过文件服务器URL创建http_client，设置类型为multipart/form-data，并传输请求参数

"-----------------------------@斌将军-----------------------------
TYPES: BEGIN OF ty_itab,

           raw(255) TYPE x,

         END OF ty_itab.

  DATA:lt_bin TYPE STANDARD TABLE OF ty_itab,

       ls_bin LIKE LINE OF lt_bin.

  DATA: lv_len         TYPE i, "发送报文长度

        lv_url         TYPE string, "接口地址

        lo_http_client TYPE REF TO if_http_client, "http客户端

        lo_part        TYPE REF TO if_http_entity,

        lv_value       TYPE string,

        lv_name        TYPE string,

        lv_file        TYPE string,

        lv_rec_json    TYPE string, "接收的JSON

        lv_code        TYPE i, "HTTP 返回状态

        lv_reason      TYPE string. " HTTP 状态描述

  DATA:lv_filelength TYPE  i,

       lv_xstring    TYPE xstring.

  DATA:lv_account TYPE string,

       lv_pass    TYPE string.


。。。。。。


"创建http客户端

  CALL METHOD 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

      pse_not_found              = 4

      pse_not_distrib            = 5

      pse_errors                 = 6

      oa2c_set_token_error       = 7

      oa2c_missing_authorization = 8

      oa2c_invalid_config        = 9

      oa2c_invalid_parameters    = 10

      oa2c_invalid_scope         = 11

      oa2c_invalid_grant         = 12

      OTHERS                     = 13.

  IF sy-subrc <> 0.

    e_return-type = 'E'.

    e_return-message = '无法创建http client'.

    RAISE error.

  ENDIF.

  "设置http method 为POST

  CALL METHOD lo_http_client->request->set_header_field

    EXPORTING

      name  = '~request_method'

      value = 'POST'.

  "SET protocol version

  CALL METHOD lo_http_client->request->set_version(

    if_http_request=>co_protocol_version_1_1 ).

  "content type

  CALL METHOD lo_http_client->request->set_content_type

    EXPORTING

      content_type = 'multipart/form-data'.

  "用户名

  CALL METHOD lo_http_client->request->set_form_field

    EXPORTING

      name  = 'accessKey'

      value = lv_account. 

  "文件夹名称

  CALL METHOD lo_http_client->request->set_form_field

    EXPORTING

      name  = 'bucketName'

      value = 'sap'.

  "密码

  CALL METHOD lo_http_client->request->set_form_field

    EXPORTING

      name  = 'secretKey'

      value = lv_pass. "
"-----------------------------@斌将军-----------------------------

浏览器对应的编码和语言设置，可以参考浏览器中测试时，真实发送的请求参数

"-----------------------------@斌将军-----------------------------
"浏览器支持的 MIME 类型

  CALL METHOD lo_http_client->request->set_header_field

    EXPORTING

      name  = 'Accept'

      value = '*/*'.

  "浏览器支持的压缩编码

  CALL METHOD lo_http_client->request->set_header_field

    EXPORTING

      name  = 'Accept-Encoding'

      value = 'gzip, deflate'.

  "浏览器支持的语言

  CALL METHOD lo_http_client->request->set_header_field

    EXPORTING

      name  = 'Accept-Language'

      value = 'zh-CN,zh;q=0.9,de;q=0.8,en;q=0.7'.
"-----------------------------@斌将军-----------------------------

添加上传的文件，其中文件名需要进行URL编码，可避免文件的中文乱码

其中name="file" 对应POSTMAN请求参数中的file

"-----------------------------@斌将军-----------------------------
CALL METHOD lo_http_client->request->if_http_entity~set_formfield_encoding

    EXPORTING

      formfield_encoding = cl_http_request=>if_http_entity~co_encoding_raw.

  lo_part = lo_http_client->request->if_http_entity~add_multipart( ).

  "拼接上传的文件名，并将文件名转码

  lv_name = i_filename.

  lv_name = cl_http_utility=>escape_url( lv_name ).

  lv_value = 'form-data; name="file"; filename="' && lv_name && '";'.

  CALL METHOD lo_part->set_header_field

    EXPORTING

      name  = 'content-disposition'

*     value = 'form-data; name="file"; filename="11.txt";'.

      value = lv_value.

  CALL METHOD lo_part->set_content_type

    EXPORTING

      content_type = 'application/x-www-form-urlencoded'.
"-----------------------------@斌将军-----------------------------

上传本地文件为二进制，并转为xstring格式

"-----------------------------@斌将军-----------------------------
CALL FUNCTION 'GUI_UPLOAD'

    EXPORTING

      filename                = lv_file

      filetype                = 'BIN'

    IMPORTING

      filelength              = lv_filelength

    TABLES

      data_tab                = lt_bin

    EXCEPTIONS

      file_open_error         = 1

      file_read_error         = 2

      no_batch                = 3

      gui_refuse_filetransfer = 4

      invalid_type            = 5

      no_authority            = 6

      unknown_error           = 7

      bad_data_format         = 8

      header_not_allowed      = 9

      separator_not_allowed   = 10

      header_too_long         = 11

      unknown_dp_error        = 12

      access_denied           = 13

      dp_out_of_memory        = 14

      disk_full               = 15

      dp_timeout              = 16

      OTHERS                  = 17.

  IF sy-subrc <> 0.

    e_return-type = 'E'.

    e_return-message = '读取文件失败'.

    RAISE error.

  ENDIF.

  CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'

    EXPORTING

      input_length = lv_filelength

    IMPORTING

      buffer       = lv_xstring

    TABLES

      binary_tab   = lt_bin

    EXCEPTIONS

      failed       = 1

      OTHERS       = 2.
"-----------------------------@斌将军-----------------------------

将文件流放入client中并发送，接收返回结果

"-----------------------------@斌将军-----------------------------
lv_len = xstrlen( lv_xstring ).

  CALL METHOD lo_part->set_data

    EXPORTING

      data   = lv_xstring

      offset = 0

      length = lv_len.

  "发送

  CALL METHOD lo_http_client->send

    EXCEPTIONS

      http_communication_failure = 1

      http_invalid_state         = 2

      http_processing_failed     = 3

      OTHERS                     = 4.

  IF sy-subrc <> 0.

    CALL METHOD lo_http_client->get_last_error

      IMPORTING

        message = DATA(lv_error_message).

    CALL METHOD lo_http_client->close.

    e_return-type = 'E'.

    e_return-message = '通信失败'.

    RAISE error.

  ENDIF.

  "接收

  CALL METHOD lo_http_client->receive

    EXCEPTIONS

      http_communication_failure = 1

      http_invalid_state         = 2

      http_processing_failed     = 3

      OTHERS                     = 9.

  IF sy-subrc <> 0.

    CALL METHOD lo_http_client->get_last_error

      IMPORTING

        message = lv_error_message.

    CALL METHOD lo_http_client->close.

    e_return-type = 'E'.

    e_return-message = '接收失败'.

    RAISE error.

  ENDIF.

  "提取返回字符串

  CLEAR:lv_code,lv_reason.

  CALL METHOD lo_http_client->response->get_status

    IMPORTING

      code   = lv_code

      reason = lv_reason.

  "获取返回的JSON

  CLEAR:lv_rec_json.

  lv_rec_json = lo_http_client->response->get_cdata( ).

  "关闭接口

  CALL METHOD lo_http_client->close.
"-----------------------------@斌将军-----------------------------

3、补充说明

3.1、文件类型

在设置上传文件的类型时需要注意

文件有对应的类型参数，例如：

TXT：text/plain

Excel：application/vnd.openxmlformats-officedocument.spreadsheetml.sheet

Word：application/vnd.openxmlformats-officedocument.wordprocessingml.document

PDF：application/pdf

PNG：image/png

应用程序：application/octet-stream

测试得出以下结论：（可能有出入，仅供参考）

1、如果上传文件时，设置了对应的参数，

1.1、且浏览器支持预览，则访问文件地址时，直接能在浏览器中显示文件的内容，比如：TXT、PDF、PNG等

1.2、如果浏览器不支持预览，则访问文件地址时，浏览器会自动下载对应的文件到本地，比如Excel、Word、应用程序等

2、如果上传文件时，没有设置对应的参数，比如直接设置application/x-www-form-urlencoded、application/octet-stream，就算是TXT文件，浏览器也不会支持预览，直接下载

3、如果上传文件时，没有设置正确的参数，比如Excel文件，设置了text/plain参数，则会导致文件识别失败，浏览器既不下载也不能正确预览

3.2、参数细节

关于参数中的q=0.8

q:相对品质因数。它指定用户喜欢哪种语言，范围从0到1，默认为1。

该质量值表示用户对由该范围指定的语言的偏好的估计

TRANSLATE with x

English

Arabic	Hebrew	Polish
Bulgarian	Hindi	Portuguese
Catalan	Hmong Daw	Romanian
Chinese Simplified	Hungarian	Russian
Chinese Traditional	Indonesian	Slovak
Czech	Italian	Slovenian
Danish	Japanese	Spanish
Dutch	Klingon	Swedish
English	Korean	Thai
Estonian	Latvian	Turkish
Finnish	Lithuanian	Ukrainian
French	Malay	Urdu
German	Maltese	Vietnamese
Greek	Norwegian	Welsh
Haitian Creole	Persian

TRANSLATE with

COPY THE URL BELOW

Back

EMBED THE SNIPPET BELOW IN YOUR SITE

Enable collaborative features and customize widget: Bing Webmaster Portal

Back

此页面的语言为英语

翻译为中文（简体）

中文（简体）
中文（繁体）
丹麦语
乌克兰语
乌尔都语
亚美尼亚语
俄语
保加利亚语
克罗地亚语
冰岛语
加泰罗尼亚语
匈牙利语
卡纳达语
印地语
印尼语
古吉拉特语
哈萨克语
土耳其语
威尔士语
孟加拉语
尼泊尔语
布尔语(南非荷兰语)
希伯来语
希腊语
库尔德语
德语
意大利语
拉脱维亚语
挪威语
捷克语
斯洛伐克语
斯洛文尼亚语
旁遮普语
日语
普什图语
毛利语
法语
波兰语
波斯语
泰卢固语
泰米尔语
泰语
海地克里奥尔语
爱沙尼亚语
瑞典语
立陶宛语
缅甸语
罗马尼亚语
老挝语
芬兰语
英语
荷兰语
萨摩亚语
葡萄牙语
西班牙语
越南语
阿塞拜疆语
阿姆哈拉语
阿尔巴尼亚语
阿拉伯语
韩语
马尔加什语
马拉地语
马拉雅拉姆语
马来语
马耳他语
高棉语

随时将英语翻译为中文（简体）PRO
一律不翻译英语
一律不翻译i.cnblogs.com

ABAP 调用HTTP上传附件的更多相关文章

黄聪：wordpress前台自定义用户，调用wp_editor上传附件提示【抱歉，出于安全的考虑,不支持此文件类型】错误。
1.直接禁用文件类型检测,在wp-config.php文件中,添加这样一句代码define('ALLOW_UNFILTERED_UPLOADS', true); 2.在functions.php里面, ...
修改WordPress中上传附件2M大小限制的方法/php+iis上传附件默认大小修改方法
在服务器上架设好WordPress后,使用过程中发现,上传附件大小有2M的限制话说服务器就是本机,可以直接把文件拖到附件存储文件夹下,然后在需要附件的地方引用链接可是这种落后的方法终究不是办法,还 ...
Dynamic CRM 2013学习笔记（十三）附件上传 / 上传附件
上传附件可能是CRM里比较常用的一个需求了,本文将介绍如何在CRM里实现附件的上传.显示及下载.包括以下几个步骤: 附件上传的web页面附件显示及下载的附件实体调用上传web页面的JS文件实体上 ...
webservice跨服务器上传附件
最近一个项目,用到文件上传功能,本来简单地使用upload控件直接post到服务器保存,简单实现了.后来考虑到分布是部署,静态附件.图片等内容要单独服务器(命名为B服务器,一台,192.168.103 ...
salesforce零基础学习（八十九）使用 input type=file 以及RemoteAction方式上传附件
在classic环境中,salesforce提供了<apex:inputFile>标签用来实现附件的上传以及内容获取.salesforce 零基础学习(二十四)解析csv格式内容中有类似的 ...
jeecms系统使用介绍——通过二次开发实现对word、pdf、txt等上传附件的全文检索
转载请注明出处:http://blog.csdn.net/dongdong9223/article/details/76912307 本文出自[我是干勾鱼的博客] 之前在文章<基于Java的门户 ...
Kindeditor编辑器上传附件，自动获取文件名显示。
大部分在线编辑器在上传附件之后都是会以路径的形式显示出来很不友好.类似这样..怎么样显示成这样用户上传的原始文件名呢.就是这样.是不是看着很友好. kindeditor编辑器上传文件是已插件的形式调用 ...
ng2-file-upload上传附件同时传参
由于业务需要,需要的场景是发某条公告的时候能够上传附件,不只是图片,图片的话可以直接用base64传给后台,但上传附件这个就不能这样干了, 与此同时,每条公告都有一个对应的唯一标识id, 附件以文件流 ...
httpclient 上传附件实例
httpclient 单附件上传实例 (扩展多附件上传实例,点我) /** * 上传附件 * @param host * @param uri * @param filePath 文件路径 * @p ...

随机推荐

算法模板：spfa
#include<iostream> #include<algorithm> #include<cstring> #include<string> #i ...
Python自学教程7：字典类型有什么用
字典是Python中的一个重要操作,如果字典玩得顺,很多其他的数据类型就可以一通百通. Python字典的定义字典使用一对大括号进行定义,键值对之间使用逗号隔开,键和值使用冒号分隔. 键必须是不可变 ...
【Java】学习路径57-TCP协议客户端与服务器端的关闭
在TCP协议中,如果发送端(客户端)关闭了,那么接收端(服务器端)端就会收到这个消息. 那么接收端(服务器端)怎么知道的呢? 我们进行实验: 首先在发送端中编写一段程序,当用户输入"end& ...
PostgreSQL 与 Oracle 访问分区表执行计划差异
熟悉Oracle 的DBA都知道,Oracle 访问分区表时,对于没有提供分区条件的,也就是在无法使用分区剪枝情况下,优化器会根据全局的统计信息制定执行计划,该执行计划针对所有分区适用.在分析利弊之前 ...
应用健康: Liveness 与 Readiness
文章转载自:https://www.kuboard.cn/learning/k8s-intermediate/workload/pod-health.html 介绍 Liveness 指针是存活指针, ...
Elasticsearch：Smart Chinese Analysis plugin
Smart Chinese Analysis插件将Lucene的Smart Chinese分析模块集成到Elasticsearch中,用于分析中文或中英文混合文本. 支持的分析器在大型训练语料库上使用 ...
kubepi访问
ko最新版本会默认安装kubepi,端口没有对外暴露,点击dashboard打开的就是默认安装的kubepi 如果安装了最新版本的ko,之前单独运行的kubepi就可以stop了
MySQL集群搭建(1)-主备搭建
数据库在任何业务中都是最重要的环节之一,这就对数据库架构提出的较高的要求.单点数据库永远不应该出现在生产环境,我们已经目睹过太多由于单点.备份缺失造成的损失,所以,搭建高可用 MySQL 集群是非常有 ...
PostgreSQL 模式（SCHEMA）
PostgreSQL 模式(SCHEMA)可以看着是一个表的集合. 一个模式可以包含视图.索引.据类型.函数和操作符等. 相同的对象名称可以被用于不同的模式中而不会出现冲突,例如 schema1 和 ...
220514 T1 查询（二分查找+vector）
用vector记录每个数出现的位置,对于要查询的X,要找他落在L~R的个数有几个,用lower_bound和upper_bound查找,相减就是答案. 1 #include<bits/stdc+ ...

ABAP 调用HTTP上传附件