ftp上传下载| 图片上传下载
2015-06-09 15:46
891 查看
弹出输入文件路径提示
*1. Open File Dialog
CALL METHOD cl_gui_frontend_services=>file_open_dialog
CHANGING
file_table = lt_file "Table Holding Selected Files
user_action = l_user_action
rc = l_rc.
IF l_user_action = cl_gui_frontend_services=>action_ok. "ACTION_CANCEL.
READ TABLE lt_file INTO lx_file INDEX 1.
IF sy-subrc = 0.
l_filename = lx_file-filename.
ELSE.
CLEAR l_filename.
ENDIF.
ELSE.
CLEAR l_filename.
ENDIF.
1、文件上传到 FTP 参考程序 ZFG_MM052d
CALL FUNCTION 'Z_FTP_UPLOAD'
EXPORTING
l_data = wa_data
EXCEPTIONS
connecterror = 1
OTHERS = 2.
2、文件下载从 FTP 参考程序 ZFG_MM052d
CALL FUNCTION 'Z_FTP_DOWNLOAD'
EXPORTING
l_data = wa_data
TABLES
t_dir = l_dir[]
EXCEPTIONS
connecterror = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
3、图片转换成编码上传到 ZTPICTURE表中
DATA: l_url TYPE char256,
l_filename TYPE string,
* L_PATH type STRING,
l_length TYPE i,
lt_file TYPE filetable,
lx_file LIKE LINE OF lt_file,
l_rc TYPE i,
l_user_action TYPE i.
DATA: l_picid TYPE indx_srtfd.
REFRESH f_it_pic_data_out.
*2. Upload the file
IF l_filename IS NOT INITIAL .
CALL METHOD cl_gui_frontend_services=>gui_upload
EXPORTING
filename = l_filename "Name of file
filetype = 'BIN' "Here is ”Binary type”
IMPORTING
filelength = l_length "File length
CHANGING
data_tab = f_it_pic_data_out[] "Transfer table for file contents
EXCEPTIONS
OTHERS = 19.
IF sy-subrc NE 0 .
MESSAGE e001(00) WITH 'Upload the file Error'.
ENDIF.
ENDIF.
4、从表 ZTPICTURE 中下载图片 参考程序成衣询价单 ZFC_MM005B
FORM load_picture_from_db USING f_key_in ”F_KEY_IN是通知单号也就是流水号
CHANGING f_it_pic_data_out TYPE ty_t_pic_data.
DATA: l_picid TYPE indx_srtfd.
REFRESH f_it_pic_data_out.
CONCATENATE 'ZCOSTACCH' f_key_in INTO l_picid .
IMPORT pic_data = f_it_pic_data_out FROM DATABASE ztpicture(mm) ID l_picid.”取得表中编码
IF sy-subrc <> 0.
REFRESH f_it_pic_data_out.
ENDIF.
ENDFORM. "LOAD_PICTURE_FROM_DB
data :l_length TYPE i. “这两个方法都可以把图片编码以图片的形式下载到本地 ZT
CALL METHOD cl_gui_frontend_services=>gui_DOWNLOAD
EXPORTING
filename = 'C:\Documents and Settings\Administrator\桌面\1.JPG' "Name of file
filetype = 'BIN' "Here is ”Binary type”
IMPORTING
filelength = l_length "File length
CHANGING
data_tab = it_pic_data[] "Transfer table for file contents
EXCEPTIONS
OTHERS = 19.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
* BIN_FILESIZE =
filename = 'C:\Documents and Settings\Administrator\桌面\1.JPG'
filetype = 'JPG'
TABLES
data_tab = it_pic_data[]
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
OTHERS = 22.
*1. Open File Dialog
CALL METHOD cl_gui_frontend_services=>file_open_dialog
CHANGING
file_table = lt_file "Table Holding Selected Files
user_action = l_user_action
rc = l_rc.
IF l_user_action = cl_gui_frontend_services=>action_ok. "ACTION_CANCEL.
READ TABLE lt_file INTO lx_file INDEX 1.
IF sy-subrc = 0.
l_filename = lx_file-filename.
ELSE.
CLEAR l_filename.
ENDIF.
ELSE.
CLEAR l_filename.
ENDIF.
1、文件上传到 FTP 参考程序 ZFG_MM052d
CALL FUNCTION 'Z_FTP_UPLOAD'
EXPORTING
l_data = wa_data
EXCEPTIONS
connecterror = 1
OTHERS = 2.
2、文件下载从 FTP 参考程序 ZFG_MM052d
CALL FUNCTION 'Z_FTP_DOWNLOAD'
EXPORTING
l_data = wa_data
TABLES
t_dir = l_dir[]
EXCEPTIONS
connecterror = 1
OTHERS = 2.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
3、图片转换成编码上传到 ZTPICTURE表中
DATA: l_url TYPE char256,
l_filename TYPE string,
* L_PATH type STRING,
l_length TYPE i,
lt_file TYPE filetable,
lx_file LIKE LINE OF lt_file,
l_rc TYPE i,
l_user_action TYPE i.
DATA: l_picid TYPE indx_srtfd.
REFRESH f_it_pic_data_out.
*2. Upload the file
IF l_filename IS NOT INITIAL .
CALL METHOD cl_gui_frontend_services=>gui_upload
EXPORTING
filename = l_filename "Name of file
filetype = 'BIN' "Here is ”Binary type”
IMPORTING
filelength = l_length "File length
CHANGING
data_tab = f_it_pic_data_out[] "Transfer table for file contents
EXCEPTIONS
OTHERS = 19.
IF sy-subrc NE 0 .
MESSAGE e001(00) WITH 'Upload the file Error'.
ENDIF.
ENDIF.
4、从表 ZTPICTURE 中下载图片 参考程序成衣询价单 ZFC_MM005B
FORM load_picture_from_db USING f_key_in ”F_KEY_IN是通知单号也就是流水号
CHANGING f_it_pic_data_out TYPE ty_t_pic_data.
DATA: l_picid TYPE indx_srtfd.
REFRESH f_it_pic_data_out.
CONCATENATE 'ZCOSTACCH' f_key_in INTO l_picid .
IMPORT pic_data = f_it_pic_data_out FROM DATABASE ztpicture(mm) ID l_picid.”取得表中编码
IF sy-subrc <> 0.
REFRESH f_it_pic_data_out.
ENDIF.
ENDFORM. "LOAD_PICTURE_FROM_DB
data :l_length TYPE i. “这两个方法都可以把图片编码以图片的形式下载到本地 ZT
CALL METHOD cl_gui_frontend_services=>gui_DOWNLOAD
EXPORTING
filename = 'C:\Documents and Settings\Administrator\桌面\1.JPG' "Name of file
filetype = 'BIN' "Here is ”Binary type”
IMPORTING
filelength = l_length "File length
CHANGING
data_tab = it_pic_data[] "Transfer table for file contents
EXCEPTIONS
OTHERS = 19.
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
* BIN_FILESIZE =
filename = 'C:\Documents and Settings\Administrator\桌面\1.JPG'
filetype = 'JPG'
TABLES
data_tab = it_pic_data[]
EXCEPTIONS
file_write_error = 1
no_batch = 2
gui_refuse_filetransfer = 3
invalid_type = 4
no_authority = 5
unknown_error = 6
header_not_allowed = 7
separator_not_allowed = 8
filesize_not_allowed = 9
header_too_long = 10
dp_error_create = 11
dp_error_send = 12
dp_error_write = 13
unknown_dp_error = 14
access_denied = 15
dp_out_of_memory = 16
disk_full = 17
dp_timeout = 18
file_not_found = 19
dataprovider_exception = 20
control_flush_error = 21
OTHERS = 22.
相关文章推荐
- PHP 输出图片 BOM问题
- yii 调用接口 接口无法返回数据
- PHP使用imagemagick扩展处理图片
- error C2628: “testPPG”后面接“void”是非法的 解决办法
- PHP-2-使用-测试PHP连接PostgreSQL
- tp 多条件查询 及 多表left join查询
- MyEclipse+phpEclipse+xampp的安装与配置,万里长征第一步!
- 如何在PHP中使用正则表达式进行查找替换
- PHP底层的运行机制与原理
- PHP 快速排序法
- 【资料整理】cisco [stp]
- Magento使用phpexcel导出 商品订单 /订单条目表sales_flat_order_item
- php self
- php中文匹配
- phpcms v9 常用调用标签(全)
- php使用for语句输出三角形的方法
- ZH奶酪:PHP安装扩展imagick
- yii2如何优化URL的路径
- yii2文件上传
- Yii2中的Ajax,异步更新表单