ABAP-文件的上传下载以及存表

  1 REPORT zfile.
  2 
  3 DATA : lv_url TYPE string.
  4 
  5 CALL METHOD cl_gui_frontend_services=>execute
  6   EXPORTING
  7 *   document = 'https://123.sogou.com/'
  8     document = 'C:\Users\HP\Desktop\接口测试.doc'
  9   EXCEPTIONS
 10     OTHERS   = 1.
 11 *data:code TYPE i .
 12 *CALL METHOD cl_gui_frontend_services=>file_delete
 13 *  EXPORTING
 14 *    filename = 'C:\Users\HP\Desktop\接口测试.doc'
 15 *  CHANGING
 16 *    rc       = code.
 17 
 18 DATA: it_data   TYPE xstring,
 19       it_string TYPE string,
 20       fichero   TYPE string.
 21 fichero = 'C:\Users\HP\Desktop\神功增强.xlsx'.
 22 
 23 TYPES: BEGIN OF ty_pic,
 24          pic_data(1024) TYPE x,
 25        END OF ty_pic.
 26 
 27 DATA: pic_tab TYPE TABLE OF ty_pic.
 28 
 29 DATA: wa_pic TYPE ztest.
 30 
 31 **zpictable为自定义table，设置一个主键字段，再设置一个或者多个RAWSTRING类型的字段存储图片数据
 32 
 33 DATA: c_pic  TYPE REF TO cl_gui_custom_container,
 34       go_pic TYPE REF TO cl_gui_picture.
 35 
 36 DATA: len         TYPE i,
 37       url(256),
 38       resu        TYPE i VALUE 123,
 39       path_string TYPE string.
 40 
 41 DATA lv_content TYPE xstring.
 42 
 43 * 上载PIC文件
 44 CALL FUNCTION 'GUI_UPLOAD'
 45   EXPORTING
 46     filename   = fichero
 47     filetype   = 'BIN'
 48   IMPORTING
 49     filelength = len
 50   TABLES
 51     data_tab   = pic_tab[].
 52 
 53 CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
 54   EXPORTING
 55     input_length = len
 56   IMPORTING
 57     buffer       = lv_content
 58   TABLES
 59     binary_tab   = pic_tab[]
 60   EXCEPTIONS
 61     failed       = 1
 62     OTHERS       = 2.
 63 
 64 wa_pic-key1    = '20221114'.
 65 wa_pic-field1 = lv_content.
 66 MODIFY ztest FROM wa_pic.
 67 IF sy-subrc = 0 .
 68   COMMIT WORK .
 69 ELSE .
 70   ROLLBACK WORK .
 71 ENDIF .
 72 
 73 SELECT SINGLE *
 74   FROM ztest
 75   INTO @DATA(gs_file)
 76   WHERE key1 = '20221205'.
 77 REFRESH pic_tab .
 78 CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
 79   EXPORTING
 80     buffer     = gs_file-field1
 81   TABLES
 82     binary_tab = pic_tab.
 83 
 84 CALL FUNCTION 'GUI_DOWNLOAD'
 85   EXPORTING
 86 *   BIN_FILESIZE            =
 87     filename                = 'C:\Users\HP\Desktop\接口测试.doc'
 88     filetype                = 'BIN'
 89 *   APPEND                  = ' '
 90 *   WRITE_FIELD_SEPARATOR   = ' '
 91 *   HEADER                  = '00'
 92 *   TRUNC_TRAILING_BLANKS   = ' '
 93 *   WRITE_LF                = 'X'
 94 *   COL_SELECT              = ' '
 95 *   COL_SELECT_MASK         = ' '
 96 *   DAT_MODE                = ' '
 97 *   CONFIRM_OVERWRITE       = ' '
 98 *   NO_AUTH_CHECK           = ' '
 99 *   CODEPAGE                = ' '
100 *   IGNORE_CERR             = ABAP_TRUE
101 *   REPLACEMENT             = '#'
102 *   WRITE_BOM               = ' '
103 *   TRUNC_TRAILING_BLANKS_EOL       = 'X'
104 *   WK1_N_FORMAT            = ' '
105 *   WK1_N_SIZE              = ' '
106 *   WK1_T_FORMAT            = ' '
107 *   WK1_T_SIZE              = ' '
108 *   WRITE_LF_AFTER_LAST_LINE        = ABAP_TRUE
109 *   SHOW_TRANSFER_STATUS    = ABAP_TRUE
110 *   VIRUS_SCAN_PROFILE      = '/SCET/GUI_DOWNLOAD'
111 * IMPORTING
112 *   FILELENGTH              =
113   TABLES
114     data_tab                = pic_tab
115 *   FIELDNAMES              =
116   EXCEPTIONS
117     file_write_error        = 1
118     no_batch                = 2
119     gui_refuse_filetransfer = 3
120     invalid_type            = 4
121     no_authority            = 5
122     unknown_error           = 6
123     header_not_allowed      = 7
124     separator_not_allowed   = 8
125     filesize_not_allowed    = 9
126     header_too_long         = 10
127     dp_error_create         = 11
128     dp_error_send           = 12
129     dp_error_write          = 13
130     unknown_dp_error        = 14
131     access_denied           = 15
132     dp_out_of_memory        = 16
133     disk_full               = 17
134     dp_timeout              = 18
135     file_not_found          = 19
136     dataprovider_exception  = 20
137     control_flush_error     = 21
138     OTHERS                  = 22.