ABAP 图片预览

转载 2013年12月04日 14:48:50
在SMARTFORMS中需要打印的时候如果需要打印图片的话一般需要手动上传图片到服务器上,如果批量上传以后想预览的话系统没有提供标准的批量预览的功能,只能在SE78中一个个预览。下面介绍的也是一个个预览的,考虑在列表中双击的时候展示出来。

在屏幕 9000上创建容器  GL_IMAGE 并处理相应的PAI和PBO事件,在PBO事件中增加一个MODULE,在其中添加如下代码:
  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.

相关文章推荐

新浪图片预览插件+thinkphp

  • 2016-11-17 11:06
  • 109KB
  • 下载

兼容ie firfox的图片预览

javascript相册             body         {    ...

上传图片预览

  • 2017-08-09 14:27
  • 161KB
  • 下载

C# 带图片预览OpenFileDailog

MSDN位置:http://msdn.microsoft.com/en-us/library/ms996463.aspx 这位哥们博客:http://blog.csdn.net/johnsuna/a...

MFC图片预览与缩放

  • 2017-06-14 22:22
  • 8.49MB
  • 下载

FormData图片预览上传

FormData图片预览上传

本地图片预览

内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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