如何在指定的容器中显示图片

小疯子

如果你掌握了ALV oo 显示在指定的容器上, 那么调用如下代码,即可将smw0上传的图片文件显示在指定的容器里

*****首页图片显示定义*****
DATA wa_container TYPE REF TO cl_gui_custom_container.
DATA pic TYPE REF TO cl_gui_picture.

DATA wa_container2 TYPE REF TO cl_gui_custom_container.
DATA pic2 TYPE REF TO cl_gui_picture.

DATA wa_container3 TYPE REF TO cl_gui_custom_container.
DATA pic3 TYPE REF TO cl_gui_picture.

DATA it1_query TYPE TABLE OF w3query WITH HEADER LINE.
DATA it1_html TYPE w3html OCCURS 0.
DATA it1_mime TYPE w3mime OCCURS 0.
DATA r1_code TYPE w3param-ret_code.
DATA c1_type TYPE w3param-cont_type.
DATA c1_len TYPE w3param-cont_len.
DATA pic1_size TYPE i.
DATA url1(255) TYPE c.

If wa_container is initial.

**********图片显示操作**********
  CREATE OBJECT wa_container
    EXPORTING
      container_name = 'CUSTOM_PICTURE'.
  CREATE OBJECT pic
    EXPORTING
      parent = wa_container.
    REFRESH:it1_query,it1_html,it1_mime.
    CLEAR:c1_type,c1_len,pic1_size,url1.
  it1_query-name = '_OBJECT_ID'.
*  it1_query-value = 'ZMEINV.BMP'.
  it1_query-value = 'ZFENG'.”这是图片的名字 貌似不用添加后缀名.bmp
  APPEND it1_query.

  CALL FUNCTION 'WWW_GET_MIME_OBJECT'
    TABLES
      query_string   = it1_query[]
      html           = it1_html[]
      mime           = it1_mime[]
    CHANGING
      return_code    = r1_code
      content_type   = c1_type
      content_length = c1_len.
  IF sy-subrc = 0.
    pic1_size = c1_len.
  ENDIF.
  CALL FUNCTION 'DP_CREATE_URL'
    EXPORTING
      type     = 'image'
      subtype  = 'X-UNKNOWN'
      size     = pic1_size
      lifetime = 'T'
    TABLES
      data     = it1_mime[]
    CHANGING
      url      = url1.

  CALL METHOD pic->load_picture_from_url
    EXPORTING
      url = url1.

Endif.