ABAP 在屏幕上顯示圖片

1.se78 上傳 或 預覽圖片

  圖片預覽

2.程序代碼

定義各變量

DATA: H_PICTURE        TYPE REF TO CL_GUI_PICTURE,
      H_PIC_CONTAINER  TYPE REF TO CL_GUI_CUSTOM_CONTAINER.

DATA: GRAPHIC_URL(255) TYPE C,
      GRAPHIC_REFRESH  TYPE CHAR1,
      G_RESULT         TYPE I.

DATA: BEGIN OF GRAPHIC_TABLE OCCURS 0,
        LINE(255)  TYPE X,
      END OF GRAPHIC_TABLE.

DATA: GRAPHIC_SIZE TYPE I.

CONSTANTS: CNTL_TRUE  TYPE I VALUE 1,
           CNTL_FALSE TYPE I VALUE 0.

pbo

 DATA: L_GRAPHIC_XSTR TYPE XSTRING,
       L_GRAPHIC_CONV TYPE I,
       L_GRAPHIC_OFFS TYPE I.

  CALL METHOD CL_SSF_XSF_UTILITIES=>GET_BDS_GRAPHIC_AS_BMP
    EXPORTING
      P_OBJECT  = 'GRAPHICS'
      P_NAME    = 'ENJOY' "圖片名稱（SE78中維護）
      P_ID      = 'BMAP'
      P_BTYPE   = BMON  "(BMON = black&white, BCOL = colour)
    RECEIVING
      P_BMP     = L_GRAPHIC_XSTR
    EXCEPTIONS
      NOT_FOUND = 1
      OTHERS    = 2.


  GRAPHIC_SIZE = XSTRLEN( L_GRAPHIC_XSTR ).

  CHECK GRAPHIC_SIZE > 0.

  L_GRAPHIC_CONV = GRAPHIC_SIZE.
  L_GRAPHIC_OFFS = 0.


  WHILE L_GRAPHIC_CONV > 255.
    GRAPHIC_TABLE-LINE = L_GRAPHIC_XSTR+L_GRAPHIC_OFFS(255).
    APPEND GRAPHIC_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.


  CALL FUNCTION 'DP_CREATE_URL'
    EXPORTING
      TYPE                 = 'image'               "#EC NOTEXT
      SUBTYPE              = CNDP_SAP_TAB_UNKNOWN " 'X-UNKNOWN'
      SIZE                 = GRAPHIC_SIZE
      LIFETIME             = CNDP_LIFETIME_TRANSACTION  "'T'
    TABLES
      DATA                 = GRAPHIC_TABLE
    CHANGING
      URL                  = GRAPHIC_URL
    EXCEPTIONS
      DP_INVALID_PARAMETER = 1
      DP_ERROR_PUT_TABLE   = 2
      DP_ERROR_GENERAL     = 3
      OTHERS               = 4 .


  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

   "創建圖片容器
   CREATE OBJECT H_PIC_CONTAINER
           EXPORTING CONTAINER_NAME =  'CC_PIC'.  "“定制控制”控件名稱
  "創建圖片實例
   CREATE OBJECT H_PICTURE
           EXPORTING PARENT = H_PIC_CONTAINER.
    "顯示圖片
   CALL METHOD H_PICTURE->LOAD_PICTURE_FROM_URL
     EXPORTING
       URL    = GRAPHIC_URL
     IMPORTING
       RESULT = G_RESULT.

 

 

 

------------------------------------------------------------------------------------------------------------------------------------------------------------

勵志美文、《抉擇》

　　

人的一生常處於抉擇之中，如：念哪一間大學？選哪一種職業？娶哪一種女子？……等等傷腦筋的事情。一個人抉擇力的有無，可以顯示其人格成熟與否。

　　

倒是哪些胸無主見的人，不受抉擇之苦。因為逢到需要決定的時候，他總是求詢別人說："嘿，你看怎么做？"

　　

大凡能夠成大功業的人，都是抉擇力甚強的人。他知道事之成敗，全在乎已沒有人可以代勞，更沒有人能代你決定。

　　

在抉擇的哪一刻，成敗實已露出端倪。