SAP提供了一个类CL_ABAP_ZIP来创建.zip扩展名的压缩文件。
代码：
先将文件通过cl_gui_frontend_services=>gui_upload以BIN的文件类型上载，然后通过cl_abap_zip中的方法add()
save()压缩，最后下载到本地。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 |
REPORT ztest_zip. TYPES: BEGIN OF bin_file, name TYPE string, size TYPE i, data TYPE solix_tab, END OF bin_file . DATA: lv_filename TYPE string, wa_bindata TYPE bin_file, it_bindata TYPE STANDARD TABLE OF bin_file, oref_zip TYPE REF TO cl_abap_zip, lv_zip_xstring TYPE xstring, lv_xstring TYPE xstring, lv_path TYPE string, it_filetab TYPE filetable, lv_retcode TYPE i, v_usr TYPE i, v_zip_size TYPE i, it_zip_bin_data TYPE STANDARD TABLE OF raw255, v_dest_filepath TYPE string. DATA lv_filesize TYPE i. DATA wa_filetab LIKE LINE OF it_filetab. "create object CREATE OBJECT oref_zip. "upload cl_gui_frontend_services=>file_open_dialog( EXPORTING window_title = 'Select files that you want to ZIP' multiselection = 'X' CHANGING file_table = it_filetab rc = lv_retcode user_action = v_usr ). LOOP AT it_filetab INTO wa_filetab. lv_filename = wa_filetab-filename. cl_gui_frontend_services=>gui_upload( EXPORTING filename = lv_filename filetype = 'BIN' IMPORTING filelength = wa_bindata-size CHANGING data_tab = wa_bindata-data ). CALL FUNCTION 'SO_SPLIT_FILE_AND_PATH' EXPORTING full_name = lv_filename IMPORTING stripped_name = wa_bindata-name EXCEPTIONS x_error = 1 OTHERS = 2. APPEND wa_bindata TO it_bindata. ENDLOOP. LOOP AT it_bindata INTO wa_bindata. CALL FUNCTION 'SCMS_BINARY_TO_XSTRING' EXPORTING input_length = wa_bindata-size IMPORTING buffer = lv_xstring TABLES binary_tab = wa_bindata-data. oref_zip->add( name = wa_bindata-name content = lv_xstring ). ENDLOOP . lv_zip_xstring = oref_zip->save( ). CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' EXPORTING buffer = lv_zip_xstring IMPORTING output_length = v_zip_size TABLES binary_tab = it_zip_bin_data. cl_gui_frontend_services=>file_save_dialog( EXPORTING window_title = 'SELECT THE LOCATION TO SAVE THE FILE' file_filter = '(*.ZIP)|*.ZIP|' CHANGING filename = lv_filename path = lv_path fullpath = v_dest_filepath ). cl_gui_frontend_services=>gui_download( EXPORTING bin_filesize = v_zip_size filename = v_dest_filepath filetype = 'BIN' IMPORTING filelength = lv_filesize CHANGING data_tab = it_zip_bin_data ). |
以上。
发表评论