SAP图片操作之一： 显示通过 SE78 将导到服务器的图片

先通过 SE78 将图片导入到服务器.

 

 

本程序在SCREEN 9000中加入名为ZCONTAINER的 customer container.

 

 

DATA: container TYPE REF TO cl_gui_custom_container,
      ok_code LIKE sy-ucomm,
      save_ok LIKE ok_code.

DATA pic TYPE REF TO  cl_gui_picture .
DATA result TYPE i.
DATA url(255).
DATA g_xstr TYPE xstring.
DATA g_size TYPE i.
DATA g_pos TYPE i.
DATA last_size TYPE i.
DATA loop_time TYPE i.
DATA: BEGIN OF g_tab OCCURS 0,
        data(500) TYPE x,
      END OF g_tab.

 

 

START-OF-SELECTION.

  CALL METHOD cl_ssf_xsf_utilities=>get_bds_graphic_as_bmp
    EXPORTING
      p_object = 'GRAPHICS'
      p_name   = 'ZTEST'
      p_id     = 'BMAP'
      p_btype  = 'BCOL'
    RECEIVING
      p_bmp    = g_xstr.

  g_size = XSTRLEN( g_xstr ).
  g_pos = 0.
  loop_time = g_size DIV 500.

  DO loop_time TIMES.
    g_tab-data = g_xstr+g_pos(500).
    APPEND g_tab.
    g_pos = g_pos + 500.
  ENDDO.
  last_size = g_size - g_pos .
  g_tab-data = g_xstr+g_pos(last_size).
  APPEND g_tab.

 

  CALL FUNCTION 'DP_CREATE_URL'
    EXPORTING
      type                       = 'IMAGE'
      subtype                    = cndp_sap_tab_unknown
*     SIZE                       = g_size
*     DATE                       =
*     TIME                       =
*     description                =
     LIFETIME                   = cndp_lifetime_transaction
*     CACHEABLE                  =
*     SEND_DATA_AS_STRING        =
*     FIELDS_FROM_APP            =
    TABLES
      data                       = g_tab

    CHANGING
      url                        = url

            .

 

  CREATE OBJECT container
    EXPORTING
      container_name              = 'ZCONTAINER'
      .

  CREATE OBJECT pic
    EXPORTING

      parent = container

      .

  CALL METHOD pic->load_picture_from_url
    EXPORTING
      url    = url
    IMPORTING
      RESULT = RESULT.
  .

 

**** 设置显示模式.  

**** mode 可取值: 

**** 0:原始大小显示   1:图片自动调整大小显示   2:纵向拉伸,局左显示   3: 原始大小,居中显示  

**** 4:纵向拉伸,居中显示

**** load的时候默认的是原始大小.

 

  CALL METHOD pic->set_display_mode
    EXPORTING
      display_mode = 0
          .

 

 

  CALL SCREEN 9000.