CL_ABAP_ZIP 创建压缩文件_SAP刘梦_新浪博客

闲看的时候发现一个好玩儿的demo，生成压缩文件的。

效果

代码

 
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 ,
      ret_code         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