现在的位置: 首页 > 综合 > 正文

ABAP 图片预览

2013年12月09日 ⁄ 综合 ⁄ 共 1694字 ⁄ 字号 评论关闭

在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.

抱歉!评论已关闭.