ABAP 生成ZIP压缩文件的代码

来源：互联网发布：淘宝店铺视频制作编辑：程序博客网时间：2024/05/16 03:38

DATA: IZIP       TYPE REF TO CL_ABAP_ZIP,
      CONT       TYPE XSTRING,
      XZIP_FILE  TYPE XSTRING,
      BINARY_TAB TYPE STANDARD TABLE OF X255.

DATA: ITAB TYPE STANDARD TABLE OF SDOKCNTASC .

START-OF-SELECTION.

  DO 20 TIMES.
    APPEND 'ABAP开发' TO ITAB.
  ENDDO.

  CALL FUNCTION 'SCMS_TEXT_TO_XSTRING'
    EXPORTING
      MIMETYPE = 'text/html;charset=gb2312'
    IMPORTING
      BUFFER   = CONT
    TABLES
      TEXT_TAB = ITAB
    EXCEPTIONS
      FAILED   = 1
      OTHERS   = 2.

  CREATE OBJECT IZIP.

  CALL METHOD IZIP->ADD
    EXPORTING
      NAME    = 'ITAB.TXT'
      CONTENT = CONT.

  CALL METHOD IZIP->SAVE
    RECEIVING
      ZIP = XZIP_FILE.

  CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
    EXPORTING
      BUFFER     = XZIP_FILE
    TABLES
      BINARY_TAB = BINARY_TAB.

  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
      FILENAME = 'C:\sf.zip'
      FILETYPE = 'BIN'
    TABLES

DATA_TAB = BINARY_TAB.

0 0