上传下载文件 .

转载 2013年12月05日 16:54:48
  1. *&---------------------------------------------------------------------*  
  2. *&  包括                ZUPLOAD_DOWNLOAD  
  3. *&---------------------------------------------------------------------*  
  4. *&---------------------------------------------------------------------*  
  5. *&      Form  ws_filename_get  
  6. *&---------------------------------------------------------------------*  
  7. FORM WS_FILENAME_GET USING  P_FILE.  
  8.   CALL FUNCTION 'WS_FILENAME_GET'  
  9.     EXPORTING  
  10.       DEF_FILENAME     = '*.txt'  
  11.       DEF_PATH         = 'C:\'  
  12.       MASK             = ',*.txt.'  
  13.       MODE             = 'O'  
  14.       TITLE            = TEXT-004  
  15.     IMPORTING  
  16.       FILENAME         = P_FILE  
  17.     EXCEPTIONS  
  18.       INV_WINSYS       = 1  
  19.       NO_BATCH         = 2  
  20.       SELECTION_CANCEL = 3  
  21.       SELECTION_ERROR  = 4  
  22.       OTHERS           = 5.  
  23. ENDFORM.                    " ws_filename_get  
  24. *&---------------------------------------------------------------------*  
  25. *&      Form  UPLOAD_FILE  
  26. *&---------------------------------------------------------------------*  
  27. FORM UPLOAD_FILE  TABLES IT_UPLOAD  
  28.                   USING P_FILE.  
  29.   DATA: FSIZEIN  TYPE I,  
  30.         W_REJECT TYPE I,  
  31.         IJIR     TYPE I VALUE 0,  
  32.         W_TYPE   LIKE DD01V-DATATYPE.  
  33.   DATA: P_TYPE LIKE RLGRAP-FILETYPE VALUE 'DAT'.  
  34. *-- Upload the Main Material Master file using Function 'WS_UPLOAD'  
  35.   CALL FUNCTION 'WS_UPLOAD'  
  36.     EXPORTING  
  37.       FILENAME            = P_FILE  
  38.       FILETYPE            = P_TYPE  
  39.     IMPORTING  
  40.       FILELENGTH          = FSIZEIN  
  41.     TABLES  
  42.       DATA_TAB            = IT_UPLOAD  
  43.     EXCEPTIONS  
  44.       CONVERSION_ERROR    = 1  
  45.       FILE_OPEN_ERROR     = 2  
  46.       FILE_READ_ERROR     = 3  
  47.       INVALID_TABLE_WIDTH = 4  
  48.       INVALID_TYPE        = 5  
  49.       NO_BATCH            = 6  
  50.       UNKNOWN_ERROR       = 7  
  51.       OTHERS              = 8.  
  52. *-- If error, display the necessary Error Message.  
  53.   CASE SY-SUBRC.  
  54.     WHEN 1. PERFORM MSG USING '转换错误' 'E'.  
  55.     WHEN 2. PERFORM MSG USING '文件打开错误' 'E'.  
  56.     WHEN 3. PERFORM MSG USING '文件读取错误' 'E'.  
  57.     WHEN 4. PERFORM MSG USING '表宽不对' 'E'.  
  58.     WHEN 5. PERFORM MSG USING '文件类型不对' 'E'.  
  59.     WHEN 6. PERFORM MSG USING '不是批处理' 'E'.  
  60.     WHEN 7. PERFORM MSG USING '不知名的错误' 'E'.  
  61.     WHEN 8. PERFORM MSG USING '其他错误' 'E'.  
  62.   ENDCASE.  
  63.   DELETE IT_UPLOAD INDEX 1.  
  64.   IF IT_UPLOAD[] IS INITIAL.  
  65.     MESSAGE E315 WITH '上载文件错误,请检查'.  
  66.     STOP.  
  67.   ENDIF.  
  68. ENDFORM.                    " UPLOAD_FILE  
  69.   
  70. *&---------------------------------------------------------------------*  
  71. *&      Form  MSG  
  72. *&---------------------------------------------------------------------*  
  73. *       text  
  74. *----------------------------------------------------------------------*  
  75. *      -->MSGTXT     text  
  76. *      -->MSGTYPE    text  
  77. *----------------------------------------------------------------------*  
  78. FORM MSG USING MSGTXT MSGTYPE.  
  79.   CASE MSGTYPE.  
  80.     WHEN 'E'.  MESSAGE E315 WITH MSGTXT.  
  81.     WHEN 'I'.  MESSAGE I315 WITH MSGTXT.  
  82.     WHEN 'S'.  MESSAGE S315 WITH MSGTXT.  
  83.     WHEN 'W'.  MESSAGE W315 WITH MSGTXT.  
  84.     WHEN 'A'.  MESSAGE A315 WITH MSGTXT.  
  85.   ENDCASE.  
  86. ENDFORM.                    "MSG  
  87. *&---------------------------------------------------------------------*  
  88. *&      Form  DOWN_LOAD  
  89. *&---------------------------------------------------------------------*  
  90. FORM DOWN_LOAD  TABLES IT_ERROR  
  91.                 USING  P_DOWN.  
  92.   CONCATENATE P_DOWN '_' SY-DATUM '_' SY-UZEIT '.txt'  
  93.     INTO P_DOWN.  
  94.   CONDENSE P_DOWN.  
  95.   CALL FUNCTION 'WS_DOWNLOAD'  
  96.     EXPORTING  
  97.       FILENAME            = P_DOWN  
  98.       FILETYPE            = 'DAT'  
  99.     TABLES  
  100.       DATA_TAB            = IT_ERROR  
  101.     EXCEPTIONS  
  102.       CONVERSION_ERROR    = 1  
  103.       FILE_OPEN_ERROR     = 2  
  104.       FILE_READ_ERROR     = 3  
  105.       INVALID_TABLE_WIDTH = 4  
  106.       INVALID_TYPE        = 5  
  107.       NO_BATCH            = 6  
  108.       UNKNOWN_ERROR       = 7  
  109.       OTHERS              = 8.  
  110.   IF SY-SUBRC = 0.  
  111.     MESSAGE I999 WITH TEXT-S01 P_DOWN.  
  112.     STOP.  
  113.   ENDIF.  
  114. ENDFORM.                    " DOWN_LOAD  

java实现文件上传下载的三种方法

一、文件上传下载原理 在TCP/IP中,最早出现的文件上传机制是FTP。它是将文件由客户端发送到服务器的标准机制。但是在jsp编程中不能使用FTP方法来上传文件,这是由jsp的运行机制所决定的。 通过...
  • gplihf
  • gplihf
  • 2016年08月05日 13:31
  • 11627

Java web文件上传下载

本文主要从javaweb上传文件到服务器中,并且在服务器端进行数据文件存储,主要分享了文件上传原理、使用第三方开源工具进行上传以及一些文件上传时需要注意的地方,文件的优化处理,还有简易分享了从我们刚才...
  • sdksdk0
  • sdksdk0
  • 2016年07月27日 19:37
  • 2935

Jsp 实现文件上传下载

JavaWeb学习总结——文件上传和下载 在Web应用系统开发中,文件上传和下载功能是非常常用的功能,今天上课老师讲了文件上传和下载功能的实现,为了便于以后使用做个总结。对于文件上传,浏览器在上传...
  • sxc1414749109
  • sxc1414749109
  • 2017年05月08日 22:03
  • 550

SpringMvc文件上传和下载

springmvc文件上传下载
  • qq_32953079
  • qq_32953079
  • 2016年08月23日 13:46
  • 8710

文件上传和下载

文件上传,页面不跳转的两种方式:第一种:通过form表单提交,使用Iframe来上传不跳转 上传文件 ...
  • jc540218955
  • jc540218955
  • 2015年10月08日 15:55
  • 2001

java实现文件上传与下载

感谢:孤傲苍狼,JavaWeb学习总结(五十)——文件上传和下载            JAVA中文件上传下载知识点整理,            东风化宇,文件上传 一、对于文件上传,浏览器在上传的过...
  • u011728105
  • u011728105
  • 2015年08月08日 13:59
  • 7290

Android文件的上传和下载

在安卓中实现文件的多线程下载和断点续传,通过一些开源的功率类实现文件的上传操作...
  • jinhuoxingkong
  • jinhuoxingkong
  • 2016年07月21日 16:09
  • 3712

文件上传下载

文件下载只需要四步: 1.设置文件ContentType类型 2.设置文件头 3.通过response获取ServletOutputStream对象(out) 4.写到输出流(...
  • Fupengyao
  • Fupengyao
  • 2016年06月30日 12:03
  • 911

javaWeb 实现上传+下载 文件

上传下载在web项目中应该是很常见的需求,能够熟练敲出代码实现是web开发人员必不可少的 下面简化的上传: jsp页面的实现: ...
  • Lionel_D
  • Lionel_D
  • 2015年12月08日 12:26
  • 1536

实现文件上传和下载完整案例

在jsp中实现文件上传
  • ZWX2445205419
  • ZWX2445205419
  • 2015年09月27日 17:38
  • 2669
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:上传下载文件 .
举报原因:
原因补充:

(最多只允许输入30个字)