第二章 abap 文件上传下载例子.docx

结果截图代码：*---------------------------------------------------------------------**?Report??Z_HANDLE_LOCAL_FILE*?wangfupeng---------------------------------------------------------------------**服务器文件与本地文件之间的上传下载*---------------------------------------------------------------------*REPORT??Z_HANDLE_LOCAL_FILE.SELECTION-SCREEN?BEGIN?OF?BLOCK?BLK1?WITH?FRAME?TITLE?TEXT-001.PARAMETERS:P_UP???RADIOBUTTON?GROUP?GP1?DEFAULT?X,???????????P_DOWN?RADIOBUTTON?GROUP?GP1.SELECTION-SCREEN?BEGIN?OF?LINE.PARAMETERS?P_FILE?TYPE?STRING.SELECTION-SCREEN?POSITION?50.SELECTION-SCREEN?COMMENT?(20)?P_COMM?FOR?FIELD?P_FILE.SELECTION-SCREEN?END?OF?LINE.SELECTION-SCREEN?END?OF?BLOCK?BLK1.AT?SELECTION-SCREEN?ON?VALUE-REQUEST?FOR?P_FILE?.??PERFORM?FRM_GETFILEPATH.*??PERFORM?FRM_GETFILEPATH2.AT?SELECTION-SCREEN?.??PERFORM?FRM_CHECKFILE.??PERFORM?FRM_GETFILE_SIZE.INITIALIZATION.??P_COMM?=?.START-OF-SELECTION.??IF?P_UP?=?X.????PERFORM?FRM_UPLOAD_FILE.??ELSEIF?P_DOWN?=?X.????PERFORM?FRM_DOWN_FILE.??ENDIF.*---------------------------------------------------------------------**??????Form??FRM_UPLOAD_FILE*---------------------------------------------------------------------**???????上传文件到服务器*----------------------------------------------------------------------*FORM?FRM_UPLOAD_FILE?.??TCODE?CG3Z?上传文件到服务器?CG3Y?下载文件到本地??上传文件的文件路径必须是服务中已经存在的文件??AL11查看服务器中的文件??上传文件中有汉字可能会出现乱码??CALL?FUNCTION?C13Z_FILE_DOWNLOAD_ASCII??CALL?FUNCTION?C13Z_FILE_UPLOAD_ASCII????EXPORTING??????I_FILE_FRONT_END???=?P_FILE????????????本地文件路径??????I_FILE_APPL????????=?C:\usr\sap\1.txt服务器路径??????I_FILE_OVERWRITE???=?ESP1_TRUE?????????是否覆盖????EXCEPTIONS??????FE_FILE_NOT_EXISTS?=?1??????FE_FILE_READ_ERROR?=?2??????AP_NO_AUTHORITY????=?3??????AP_FILE_OPEN_ERROR?=?4??????AP_FILE_EXISTS?????=?5??????AP_CONVERT_ERROR???=?6??????OTHERS?????????????=?7.??IF?SY-SUBRC?=?0.????MESSAGE?UPLOAD?SUCCESS?TYPE?S.??ELSE.????MESSAGE?UPLOAD?FAILURE?TYPE?S?DISPLAY?LIKE?E.??ENDIF.ENDFORM.?????????????????????FRM_UPLOAD_FILE*-------------------------