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開發(fā)'? 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.

總結(jié)

以上是生活随笔為你收集整理的ABAP 生成ZIP压缩文件的代码的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。