[代码]创建.ZIP压缩文件[CL_ABAP_ZIP]详解编程语言

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 ).