点击此处--->
群内免费提供SAP练习系统（在群公告中）
加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）
专家您好，
我需要使用abap程序（POST方法）从SAP系统（SAP_BASIS 740 SP-杠杆9）调用外部REST API。
我不知道如何将pdf文件传输到API。 该API的参数为：文件（列表到pdf文件），收件人[名称]和收件人[电子邮件]。
数据：ls_xml TYPE字符串，
ls_respuesta_xml TYPE字符串，
ld_urlurl TYPE字符串，
lo_https_client TYPE REF TO if_http_client，
lo_http_entity TYPE REF TO if_http_entity，
lo_request TYPE REF to if_rest
lo_response类型引用到if_rest_entity，
lv_http_status类型字符串，
lv_status类型字符串，
lv_reason类型字符串，
lv_response类型字符串，
lv_content_length类型字符串，
lv_location类型字符串 ，
lv_content_type TYPE字符串，
lv_body TYPE字符串，
lt_tab_file TYPE CHAR表，
ls_xstring TYPE xstring，
lv_length TYPE i，
lv_string TYPE字符串，
lv_rfc_dest TYPE rfcdest，
lo_http_client TYPE REF到if_http_client，
lo_rest_client TYPE REF到cl_rest_http_client，
lo_request_entity TYPE REF到if_rest_entity，
lt_fields TYPE tihttpnvp，
ls_fields TYPE ihttp。 br>"上载PDF文件
调用方法cl_gui_frontend_services => gui_upload
导出
文件名='Z：\ file.pdf '
文件类型= 'BIN'IMPORTING
文件长度= lv_lengthCHANGING
data_tab = lt_tab_fileEXCEPTIONS
file_open_error = 01
file_read_error = 02
no_batch = 03
gui_refuse_filetransfer = 04
invalid_type = 05
no_authority = 06
未知错误= 07
bad_data_format = 08
header_not_allowed = 09
splitter_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
not_supported_by_gui = 17
error_no_gui =18。
"将PDF转换为XSTRING
CALL FUNCTION'SCMS_BINARY_TO_XSTRING'
导出
input_length = lv_length
IMPORTINGbuffer = ls_xstring
TABLES
binary_tab = lt_tab_file
EXCEPTIONS
失败= 1OTHERS =2。
" HTTPS
lv_rfc_dest ='RFC_DEST'。" api.xxxxxxxx.com/v3
cl_http_client => create_by_destination（
导出
目的地= lv_rfc_dest
IMPORTINGclient = lo_http_client
EXCEPTIONS
arguments_not_found = 1
destination_not_found = 2
destination_no_authority = 3
plugin_not_active = 4
internal_error = 5OTHERS = 6）。
"登录禁用
lo_http_client-> propertytype_logon_popup = lo_http_client-> co_disabled。
"其他客户端
创建对象lo_rest_client
导出
io_http_client = lo_http_client。
lo_request = lo_rest_client-> if_rest_client〜create_request_entity（）。
lo_request-> set_content_type（iv_media_type = if_rest_media_type => gc_appl_json）。
" JSON字符串
lv_body ='{" recipients [0] [name]"：" Test"，" recipients [0] [email]"："" test@gmail.com "}'。
lo_request-> set_string_data（lv_body）。
ld_urlurl ='/yyyyyyyyy.json'。
ls_fields-name = if_http_header_fields_sap => request_uri。
ls_fields-value = ld_urlurl.APPEND ls_fields到lt_fields。
ls_fields-name ='Author
ls_fields-value ='bearer xxxxxxxxxxxxxxxxxxx'。将ls_fields附加到lt_fields。
调用方法lo_rest_client-> if_rest_client〜set_request_headers
导出
it_header_fields = lt_fields。
* POST
lo_rest_client-> if_rest_resource〜post（lo_request）。
*响应
lo_response = lo_rest_client-> if_rest_client〜get_response_entity（）。
lv_http_status = lv_status = lo_response-> get_header_field（'〜status_code'）。
lv_reason =（head_response- '〜status_reason'）。
lv_content_length = lo_response-> get_header_field（'content-length'）。
lv_location = lo_response-> get_header_field（'location'）。
lv_content_type = lo_response-> get_header_field（'content -type'）。
lv_response = lo_response-> get_string_data（）。
lo_rest_client-> if_rest_client〜close（）。
写入：/lv_http_status，lv_reason，lv_response。
感谢和问候，
路卡
{var%20f='http://v.t.sina.com.cn/share/share.php?appkey=1515056452',u=z||d.location,p=['&url=',e(u),'&title=',e(t||d.title),'&source=',e(r),'&sourceUrl=',e(l),'&content=',c||'gb2312','&pic=',e(p||'')].join('');function%20a(){if(!window.open([f,p].join(''),'mb',['toolbar=0,status=0,resizable=1,width=440,height=430,left=',(s.width-440)/2,',top=',(s.height-430)/2].join('')))u.href=[f,p].join('');};if(/Firefox/.test(navigator.userAgent))setTimeout(a,0);else%20a();})(screen,document,encodeURIComponent,'','','http://www.easysap.com/data/attach/logo/logo.png', '推荐 CPLASF-自律 的问题《从ABAP程序调用外部REST API》','https://www.easysap.com/q-47760.html','页面编码gb2312|utf-8默认gb2312'));){kind=link}
卢卡，你好
尝试一下。
数据：lo_https_client类型参考if_http_client， lo_http_entity类型参考if_http_entity， lo_request类型参考if_rest_entity， lv_http_status TYPE字符串， lv_status TYPE字符串， lv_reason TYPE字符串， lv_offset TYPE i， lv_response TYPE字符串， lt_tab_file CHAR255类型表， ls_xstring TYPE xstring， lv_length TYPE i， lo_http_client类型参考if_http_client， lo_rest_client类型参考cl_rest_http_client， lo_response类型参考if_rest_entity， lo_post_file类型参考cl_rest_multipart_form_data， lt_headers TYPE tihttpnvp。 字段符号： tihttpnvp的类型行。
* ------------------------------------------------- ------------------- *
呼叫方法cl_http_client => create_by_url
出口
url ='http://httpbin.org/post'
输入
客户端= lo_http_client
例外情况
arguments_not_found = 1
plugin_not_active = 2
internal_error = 3
其他= 4。
如果sy-subrc是INITIAL。
" -----------------------------------------------"
卡尔加·德·费歇罗
" -----------------------------------------------"
呼叫方法cl_gui_frontend_services => gui_upload
出口
文件名='C：\ Users \ XXXX \ Desktop \ Test.pdf'
filetype ='BIN'
输入
文件长度= lv_length
改变
data_tab = lt_tab_file
例外情况
file_open_error = 01
file_read_error = 02
no_batch = 03
gui_refuse_filetransfer = 04
invalid_type = 05
no_authority = 06
unknown_error = 07
bad_data_format = 08
header_not_allowed = 09
spacer_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
not_supported_by_gui = 17
error_no_gui = 18。
"将PDF转换为XSTRING
通话功能'SCMS_BINARY_TO_XSTRING'
出口
input_length = lv_length
输入
缓冲区= ls_xstring
桌子
binary_tab = lt_tab_file
例外情况
失败= 1
其他= 2。
" -----------------------------------------------"
客户
" -----------------------------------------------"
创建对象lo_rest_client
出口
io_http_client = lo_http_client。
lo_request = lo_rest_client-> if_rest_client〜create_request_entity（）。
lo_request-> set_content_type（
iv_media_type = if_rest_media_type => gc_multipart_form_data
）。
" -----------------------------------------------"
"发布字段
" -----------------------------------------------"
创建对象lo_post_file
出口
io_entity = lo_request。
呼叫方法lo_post_file-> set_form_field
出口
iv_name ='收件人[0] [名称]'
iv_value ='测试'。
呼叫方法lo_post_file-> set_form_field
出口
iv_name ='收件人[0] [电子邮件]'
iv_value ='test@gmail.com'。
调用方法lo_post_file-> set_file
出口
iv_name ='PDF_File'
iv_filename ='file.pdf'
iv_type ='PDF'
iv_data = ls_xstring。
" -----------------------------------------------"
"发布请求
" -----------------------------------------------"
调用方法lo_post_file-> if_rest_entity_provider〜write_to
出口
io_entity = lo_request。
" -----------------------------------------------"
标题
" -----------------------------------------------"
呼叫方法lo_rest_client-> if_rest_client〜set_request_headers
出口
it_header_fields = lt_headers。
" -----------------------------------------------"
恩维奥
" -----------------------------------------------"
lo_rest_client-> if_rest_resource〜post（lo_request）。
" -----------------------------------------------"
pu
" -----------------------------------------------"
lo_response = lo_rest_client-> if_rest_client〜get_response_entity（）。
lv_http_status = lv_status = lo_response-> get_header_field（'〜status_code'）。
lv_reason = lo_response-> get_header_field（'〜status_reason'）。
lv_response = lo_response-> get_string_data（）。
lo_rest_client-> if_rest_client〜close（）。
" -----------------------------------------------"
萨利达
" -----------------------------------------------"
写：/lv_http_status，
/lv_reason。
做1000次。
尝试。
写/lv_response + lv_offset（100）。
捕获cx_root。
出口。
ENDTRY。
向lv_offset添加100。
ENDDO。
万一。
这也解决了我的问题。 我试图使用以下方法发布图像以保留API，但无法正常工作。 API无法识别图像文件
****************可以正常工作*********************************** ************* DATA（lo_mulipart）= lo_http_client-> request-> add_multipart（）。 lo_http_client-> request-> set_header_field（name ='Accept' 值='application/json'）。 lo_mulipart-> set_header_field（name ='Content-Disposition' 值= lv_file_form_data）。 lo_mulipart-> set_header_field（name ='Content-Type' 值='image/png'）。 lo_mulipart-> set_header_field（name ='Content-Transfer-Encoding' value ='binary'）。 lo_mulipart-> set_data（数据= lv_file_content 偏移量= 0 长度= lv_input_len）。
嗨Ajay，
我们有类似的要求，即使用REST API将PDF文件共享到AWS S3。 您能否让我知道您是否能够使用上面的代码来实现。 我们还能知道PDF是否支持图像吗？
预先感谢
一周热门 更多>