abap中实现在屏幕上显示图片

1、SE78上传图片到服务器，图片只能是bmp格式的

点击预览，查看是否上传成功

这里我们将图片对象命名为sapclub

2、新建程序

1. REPORT  ydamon_103.
   
2. 
   
3. CALL SCREEN 9000.
   
4. *&---------------------------------------------------------------------*
   
5. *&      Module  status_9000  OUTPUT
   
6. *&---------------------------------------------------------------------*
   
7. *       text
   
8. *----------------------------------------------------------------------*
   
9. MODULE status_9000 OUTPUT.
   
10.   DATA: w_lines TYPE i.
    
11.   TYPES pict_line(256) TYPE c.
    
12.   DATA :
    
13.   container TYPE REF TO cl_gui_custom_container,
    
14.   editor TYPE REF TO cl_gui_textedit,
    
15.   picture TYPE REF TO cl_gui_picture,
    
16.   pict_tab TYPE TABLE OF pict_line,
    
17.   url(255) TYPE c.
    
18.   DATA: graphic_url(255).
    
19.   DATA: BEGIN OF graphic_table OCCURS 0,
    
20.           line(255) TYPE x,
    
21.         END OF graphic_table.
    
22.   DATA: l_graphic_conv TYPE i.
    
23.   DATA: l_graphic_offs TYPE i.
    
24.   DATA: graphic_size TYPE i.
    
25.   DATA: l_graphic_xstr TYPE xstring.
    
26.   .
    
27.   CALL METHOD cl_gui_cfw=>flush.
    
28.   CREATE OBJECT:
    
29.   container EXPORTING container_name = 'PICTURE_CONTAINER',
    
30.   picture EXPORTING parent = container.
    
31.   CALL METHOD cl_ssf_xsf_utilities=>get_bds_graphic_as_bmp
    
32.     EXPORTING
    
33.       p_object       = 'GRAPHICS'
    
34.       p_name         = 'SAPCLUB'           "这里是我们se78上传图片的命名名称
    
35.       p_id           = 'BMAP'
    
36.       p_btype        = 'BCOL'
    
37.     RECEIVING
    
38.       p_bmp          = l_graphic_xstr
    
39. *  EXCEPTIONS
    
40. *    NOT_FOUND      = 1
    
41. *    INTERNAL_ERROR = 2
    
42. *    others         = 3
    
43.           .
    
44.   IF sy-subrc <> 0.
    
45. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    
46. *            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    
47.   ENDIF.
    
48.   graphic_size = XSTRLEN( l_graphic_xstr ).
    
49.   l_graphic_conv = graphic_size.
    
50.   l_graphic_offs = 0.
    
51.   WHILE l_graphic_conv > 255.
    
52.     graphic_table-line = l_graphic_xstr+l_graphic_offs(255).
    
53.     APPEND graphic_table.
    
54.     l_graphic_offs = l_graphic_offs + 255.
    
55.     l_graphic_conv = l_graphic_conv - 255.
    
56.   ENDWHILE.
    
57.   graphic_table-line = l_graphic_xstr+l_graphic_offs(l_graphic_conv).
    
58.   APPEND graphic_table.
    
59.   CALL FUNCTION 'DP_CREATE_URL'
    
60.     EXPORTING
    
61.       type     = 'IMAGE'
    
62.       subtype  = 'X-UNKNOWN'
    
63.       size     = graphic_size
    
64.       lifetime = 'T'
    
65.     TABLES
    
66.       data     = graphic_table
    
67.     CHANGING
    
68.       url      = url.
    
69.   CALL METHOD picture->load_picture_from_url
    
70.     EXPORTING
    
71.       url = url.
    
72.   CALL METHOD picture->set_display_mode
    
73.     EXPORTING
    
74.       display_mode = picture->display_mode_fit_center.
    
75. ENDMODULE.                 " status_9000  OUTPUT

复制代码

3、新建标准屏幕9000

绘制customer container，并命名PICTURE_CONTAINER

4、执行程序，查看结果

这个上传的图片白底会变灰底的，不知道怎么解决。

LeoX 发表于 2015-6-29 18:05
这个上传的图片白底会变灰底的，不知道怎么解决。

SAP支持彩色，但不是全真色，会有些失真

leon 发表于 2015-6-29 18:53
SAP支持彩色，但不是全真色，会有些失真

我用XnView把它的颜色数降低了，就可以了，还是有一点点底色，不影响，谢谢