ABAP:下载服务器文件到本机
生活随笔
收集整理的這篇文章主要介紹了
ABAP:下载服务器文件到本机
小編覺得挺不錯的,現(xiàn)在分享給大家,幫大家做個參考.
對服務(wù)器的文件進(jìn)行讀寫操作,SAP提供了OPEN DATASET語句。而下載文件到本地,則可以調(diào)用GUI_DOWNLOAD函數(shù)。
由于我們只需要將文件原原本本地進(jìn)行復(fù)制,所以采用BINARY MODE才是比較好的辦法,可以支持TXT、PDF、WORD以及任意形式的文件下載。
DATA: dset TYPE string,
????? subrc LIKE sy-subrc,
????? leng TYPE i,
????? fsize TYPE i VALUE 0,
????? buf TYPE c LENGTH 1000,
????? tblob LIKE TABLE OF buf. dset = '/home/comp/data/test.pdf'.
OPEN DATASET dset FOR INPUT IN BINARY MODE.
IF sy-subrc <> 0.
? MESSAGE 'Error: open dataset.' TYPE 'E'.
ENDIF. WHILE subrc = 0.
? leng = 0.
? READ DATASET dset INTO buf ACTUAL LENGTH leng.
? subrc = sy-subrc.
??CHECK leng > 0.
? fsize = fsize + leng.
? APPEND buf TO tblob.
ENDWHILE.
CLOSE DATASET dset. CALL FUNCTION 'GUI_DOWNLOAD'
? EXPORTING
??? bin_filesize = fsize
??? filename???? = 'c:\test.pdf'
??? filetype???? = 'BIN'
? TABLES
??? data_tab???? = tblob
? EXCEPTIONS
??? OTHERS?????? = 9. 說明: (1)OPEN DATASET時設(shè)置IN BINARY MODE,GUI_DOWNLOAD時也是以'BIN'模式,從而實現(xiàn)二進(jìn)制的直接傳送。 (2)buf的大小決定了每次讀取服務(wù)器文件中多大量的數(shù)據(jù),如果是NON-UNICODE系統(tǒng),則我們每次讀取1000 BYTE(leng=1000); 如果是UNICODE系統(tǒng)則每次讀取2000 BYTE (leng = 2000)。 (3)要注意READ DATASET語句的返回值sy-subrc,它代表的并非本次讀取到了數(shù)據(jù)與否,而是代表本次讀取是否已到達(dá)文件結(jié)束符。換言之,它代表的是下次是否需要繼續(xù)讀取該文件。
????? subrc LIKE sy-subrc,
????? leng TYPE i,
????? fsize TYPE i VALUE 0,
????? buf TYPE c LENGTH 1000,
????? tblob LIKE TABLE OF buf. dset = '/home/comp/data/test.pdf'.
OPEN DATASET dset FOR INPUT IN BINARY MODE.
IF sy-subrc <> 0.
? MESSAGE 'Error: open dataset.' TYPE 'E'.
ENDIF. WHILE subrc = 0.
? leng = 0.
? READ DATASET dset INTO buf ACTUAL LENGTH leng.
? subrc = sy-subrc.
??CHECK leng > 0.
? fsize = fsize + leng.
? APPEND buf TO tblob.
ENDWHILE.
CLOSE DATASET dset. CALL FUNCTION 'GUI_DOWNLOAD'
? EXPORTING
??? bin_filesize = fsize
??? filename???? = 'c:\test.pdf'
??? filetype???? = 'BIN'
? TABLES
??? data_tab???? = tblob
? EXCEPTIONS
??? OTHERS?????? = 9. 說明: (1)OPEN DATASET時設(shè)置IN BINARY MODE,GUI_DOWNLOAD時也是以'BIN'模式,從而實現(xiàn)二進(jìn)制的直接傳送。 (2)buf的大小決定了每次讀取服務(wù)器文件中多大量的數(shù)據(jù),如果是NON-UNICODE系統(tǒng),則我們每次讀取1000 BYTE(leng=1000); 如果是UNICODE系統(tǒng)則每次讀取2000 BYTE (leng = 2000)。 (3)要注意READ DATASET語句的返回值sy-subrc,它代表的并非本次讀取到了數(shù)據(jù)與否,而是代表本次讀取是否已到達(dá)文件結(jié)束符。換言之,它代表的是下次是否需要繼續(xù)讀取該文件。
總結(jié)
以上是生活随笔為你收集整理的ABAP:下载服务器文件到本机的全部內(nèi)容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: ABAP:List中回写CheckBox
- 下一篇: ABAP算法:找出递归的物料