메뉴 건너뛰기

SAP 한국 커뮤니티

Image를 화면에 보여주는 방법

정두영 2007.08.30 15:41 조회 수 : 5992 추천:27

 ※ 이미지 등록

T-code : SMW0. 


 


 ※ 프로그램에서 이미지 불러오기


.....


DATA: url                    TYPE cndp_url,
        pic1                   TYPE REF TO cl_gui_picture,
        container1             TYPE REF TO cl_gui_custom_container.


  DATA: gt_wwwtab              LIKE wwwparams OCCURS 0 WITH HEADER LINE.


 


 CLEAR : gt_wwwtab.
  SELECT SINGLE *
    INTO gt_wwwtab
    FROM wwwparams
   WHERE relid  =  'MI'
     AND objid  =  'ZCOREANA_LOGO'. "SMW0에 등록한 Obj File 이름



  IF NOT container1 IS INITIAL.
    CALL METHOD container1->free.
  ENDIF.


  CREATE OBJECT container1
         EXPORTING
              container_name = 'LOGO'.


  CREATE OBJECT pic1
         EXPORTING
              parent = container1.


 


** 이미지 크기에 맞게 보임.


*  CALL METHOD pic1->set_display_mode
*    EXPORTING
*      display_mode = cl_gui_picture=>display_mode_normal.


 


* 컨테이너 영역크기에 맞춰 보여주기
  CALL METHOD pic1->set_display_mode
    EXPORTING
      display_mode = cl_gui_picture=>display_mode_stretch.


 


  CALL FUNCTION 'DP_PUBLISH_WWW_URL'
    EXPORTING
      objid    = gt_wwwtab-objid
      lifetime = 'T'
    IMPORTING
      url      = url
    EXCEPTIONS
      OTHERS   = 1.


  IF sy-subrc = 0.
    CALL METHOD pic1->load_picture_from_url_async
      EXPORTING
        url = url.
  ENDIF.


 


 ※ 소스제공: PSJ 차장님 감사합니다 ^^.