0
点赞
收藏
分享

微信扫一扫

CL_ABAP_ZIP 创建压缩文件_SAP刘梦

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

效果 ​CL_ABAP_ZIP <wbr>创建压缩文件


代码

 

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            


举报

相关推荐

0 条评论