ABAP 图片预览
来源:互联网 发布:免费虚拟机 for mac 编辑:程序博客网 时间:2024/06/05 05:32
在SMARTFORMS中需要打印的时候如果需要打印图片的话一般需要手动上传图片到服务器上,如果批量上传以后想预览的话系统没有提供标准的批量预览的功能,只能在SE78中一个个预览。下面介绍的也是一个个预览的,考虑在列表中双击的时候展示出来。
DATA: w_lines TYPE i. TYPES pict_line(256) TYPE c. DATA : container TYPE REF TOcl_gui_custom_container, editor TYPE REF TO cl_gui_textedit, picture TYPE REF TO cl_gui_picture, pict_tab TYPE TABLE OF pict_line, url(255) TYPE c. DATA: graphic_url(255). DATA: BEGIN OF graphic_table OCCURS0, line(255) TYPE x, END OF graphic_table. DATA: l_graphic_conv TYPE i. DATA: l_graphic_offs TYPE i. DATA: graphic_size TYPE i. DATA: l_graphic_xstr TYPE xstring. .
"刷新 CALL METHOD cl_gui_cfw=>flush.
"创建容器 CREATE OBJECT:container EXPORTINGcontainer_name = 'GL_IMAGE', picture EXPORTING parent =container.
"获取图片 CALL METHODcl_ssf_xsf_utilities=>get_bds_graphic_as_bmp EXPORTING p_object ='GRAPHICS' p_name = 'ZUS_LOGO' p_id = 'BMAP' p_btype = 'BCOL' RECEIVING p_bmp = l_graphic_xstr .
"图片大小 graphic_size = XSTRLEN( l_graphic_xstr). l_graphic_conv = graphic_size. l_graphic_offs = 0.
"将图片数据放到内表中 WHILE l_graphic_conv > 255. graphic_table-line =l_graphic_xstr+l_graphic_offs(255). APPENDgraphic_table. l_graphic_offs =l_graphic_offs + 255. l_graphic_conv =l_graphic_conv - 255. ENDWHILE. graphic_table-line =l_graphic_xstr+l_graphic_offs(l_graphic_conv). APPEND graphic_table.
"创建图片的URL CALL FUNCTION 'DP_CREATE_URL' EXPORTING type = 'IMAGE' subtype = 'X-UNKNOWN' size = graphic_size lifetime = 'T' TABLES data = graphic_table CHANGING url =url.
"根据URL 展示图片 CALL METHODpicture->load_picture_from_url EXPORTING url =url.
"显示模式 居中自适应 CALL METHODpicture->set_display_mode EXPORTING display_mode = picture->display_mode_fit_center.
在屏幕 9000上创建容器 GL_IMAGE 并处理相应的PAI和PBO事件,在PBO事件中增加一个MODULE,在其中添加如下代码:
0 0
- ABAP 图片预览
- ABAP 图片预览
- ABAP 图片预览
- ABAP 图片预览
- 图片预览
- 图片预览
- 图片预览
- 图片预览
- 图片预览
- 图片预览
- 预览图片
- 图片预览
- 预览图片
- 图片预览
- 图片预览
- 图片预览
- 图片预览
- 图片预览
- ASP.NET Ajax和Jquery Ajax实例
- 新建的基本短信类
- C++ 虚函数的知识点
- Linux Malloc分析-从用户空间到内核空间
- 技术演绎之 [ java ] 循环语句
- ABAP 图片预览
- log4j配置文件log4j.properties的默认路径问题
- js控制表单页面分页显示并使点击切换页面的标题变色显示
- Git 分布式版本控制系统(三)
- Android 工具类(将 dp 转成 px 获取屏幕的高度/宽度 判断android SDK 版本是否大于等于5.0)
- 第十五周 程序阅读一
- 短信接收Main函数
- 第13章-Swing(1)
- IOS手势解锁