ABAP:下载服务器文件到本机
生活随笔
收集整理的這篇文章主要介紹了
ABAP:下载服务器文件到本机
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
對服務器的文件進行讀寫操作,SAP提供了OPEN DATASET語句。而下載文件到本地,則可以調用GUI_DOWNLOAD函數。
由于我們只需要將文件原原本本地進行復制,所以采用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時設置IN BINARY MODE,GUI_DOWNLOAD時也是以'BIN'模式,從而實現二進制的直接傳送。 (2)buf的大小決定了每次讀取服務器文件中多大量的數據,如果是NON-UNICODE系統,則我們每次讀取1000 BYTE(leng=1000); 如果是UNICODE系統則每次讀取2000 BYTE (leng = 2000)。 (3)要注意READ DATASET語句的返回值sy-subrc,它代表的并非本次讀取到了數據與否,而是代表本次讀取是否已到達文件結束符。換言之,它代表的是下次是否需要繼續讀取該文件。
????? 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時設置IN BINARY MODE,GUI_DOWNLOAD時也是以'BIN'模式,從而實現二進制的直接傳送。 (2)buf的大小決定了每次讀取服務器文件中多大量的數據,如果是NON-UNICODE系統,則我們每次讀取1000 BYTE(leng=1000); 如果是UNICODE系統則每次讀取2000 BYTE (leng = 2000)。 (3)要注意READ DATASET語句的返回值sy-subrc,它代表的并非本次讀取到了數據與否,而是代表本次讀取是否已到達文件結束符。換言之,它代表的是下次是否需要繼續讀取該文件。
總結
以上是生活随笔為你收集整理的ABAP:下载服务器文件到本机的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: ABAP:List中回写CheckBox
- 下一篇: ABAP算法:找出递归的物料