Image upload

[yaminigadde]

Hi All,

I have uploaded a image from pc to mime repository. Now I want that Image to be displayed on module pool screen.

can we display diffrent kinds po images  through mime repository..?? here iam using png image but it is not displaying.

Please help me how to do it.

here is the code which am using by reading several threads..

DATA: CONTAINER_PIC TYPE  REF TO CL_GUI_CUSTOM_CONTAINER.

*      PICTURE TYPE REF TO CL_GUI_PICTURE,

*      URL(256) TYPE C .

  CREATE OBJECT CONTAINER_PIC

     EXPORTING

       CONTAINER_NAME              =  'PIC'                           " name of the container

                .

   CREATE OBJECT PICTURE

     EXPORTING

       PARENT = CONTAINER_PIC

       .

     perform pic CHANGING URL.

*load picture

   CALL METHOD PICTURE->LOAD_PICTURE_FROM_URL

     EXPORTING

       URL = URL.

   CALL METHOD CL_GUI_CFW=>FLUSH

     EXCEPTIONS

       CNTL_SYSTEM_ERROR = 1

       CNTL_ERROR        = 2.

   IF SY-SUBRC <> 0.

*error handling

   ENDIF.

DATA QUERY_TABLE TYPE W3QUERY OCCURS 1 WITH HEADER LINE.

   DATA HTML_TABLE TYPE W3HTML OCCURS 1.

   DATA RETURN_CODE TYPE  W3PARAM-RET_CODE.

   DATA CONTENT_TYPE TYPE  W3PARAM-CONT_TYPE.

   DATA CONTENT_LENGTH TYPE  W3PARAM-CONT_LEN.

   DATA PIC_DATA TYPE W3MIME OCCURS 0.

   DATA PIC_SIZE TYPE I.

   REFRESH QUERY_TABLE.

   QUERY_TABLE-NAME = '_OBJECT_ID'.

   QUERY_TABLE-VALUE = 'ZTEST'                  .         "  name assignment

   APPEND QUERY_TABLE.

CALL FUNCTION 'WWW_GET_MIME_OBJECT'

     TABLES

       QUERY_STRING        = QUERY_TABLE

       HTML                = HTML_TABLE

       MIME                = PIC_DATA

     CHANGING

       RETURN_CODE         = RETURN_CODE

       CONTENT_TYPE        = CONTENT_TYPE

       CONTENT_LENGTH      = CONTENT_LENGTH

     EXCEPTIONS

       OBJECT_NOT_FOUND    = 1

       PARAMETER_NOT_FOUND = 2

       OTHERS              = 3.

   IF SY-SUBRC = 0.

     PIC_SIZE = CONTENT_LENGTH.

   ENDIF.

   CALL FUNCTION 'DP_CREATE_URL'

     EXPORTING

       TYPE     = 'image'

       SUBTYPE  = CNDP_SAP_TAB_UNKNOWN

       SIZE     = PIC_SIZE

       LIFETIME = CNDP_LIFETIME_TRANSACTION

     TABLES

       DATA     = PIC_DATA

     CHANGING

       URL      = URL

     EXCEPTIONS

       OTHERS   = 1.

[former_member241258]

HI

TRY THIS WAY LIKE BELOW CODE

  DATA:LV_GRAPH_DATA TYPE XSTRING,
      LT_GRAPH_TB TYPE W3MIMETABTYPE,
      LS_GRAPH_TB TYPE W3MIME.
DATA:LV_GRAPH_CONV TYPE I,
      LV_GRAPH_OFFS TYPE I,
      LV_GRAPH_SIZE TYPE I.
DATA:LV_URL TYPE C LENGTH 255.


CLEAR:GO_CON1.

  CREATE OBJECT GO_CON1
    EXPORTING
      CONTAINER_NAME    = 'CON_LOGO'.

  CREATE OBJECT GO_PIC1
    EXPORTING
      PARENT = GO_CON1.

  CALL METHOD GO_PIC1->SET_DISPLAY_MODE
     EXPORTING
       DISPLAY_MODE = CL_GUI_PICTURE=>DISPLAY_MODE_NORMAL_CENTER.

CALL METHOD CL_SSF_XSF_UTILITIES=>GET_BDS_GRAPHIC_AS_BMP
   EXPORTING
     P_OBJECT       = 'GRAPHICS'
     P_NAME         = 'ZBFW_LOGO'
     P_ID           = 'BMAP'
     P_BTYPE        = 'BCOL'
   RECEIVING
     P_BMP          = LV_GRAPH_DATA
  EXCEPTIONS
     NOT_FOUND      = 1
     INTERNAL_ERROR = 2
     OTHERS         = 3.


IF SY-SUBRC = 0.

  LV_GRAPH_SIZE = XSTRLEN( LV_GRAPH_DATA ).
  LV_GRAPH_CONV = LV_GRAPH_SIZE.
  LV_GRAPH_OFFS = 0.

  WHILE LV_GRAPH_CONV > 255.
   CLEAR:LS_GRAPH_TB.
     LS_GRAPH_TB-LINE = LV_GRAPH_DATA+LV_GRAPH_OFFS(255).
     APPEND LS_GRAPH_TB TO LT_GRAPH_TB.
     LV_GRAPH_OFFS = LV_GRAPH_OFFS + 255.
     LV_GRAPH_CONV = LV_GRAPH_CONV - 255.
   ENDWHILE.

  CLEAR:LS_GRAPH_TB.
   LS_GRAPH_TB-LINE = LV_GRAPH_DATA+LV_GRAPH_OFFS(LV_GRAPH_CONV).

   APPEND LS_GRAPH_TB TO LT_GRAPH_TB.

   CALL FUNCTION 'DP_CREATE_URL'
     EXPORTING
       TYPE                       = 'BMAP'
       SUBTYPE                    = 'X-UNKNOWN'
       SIZE                        = LV_GRAPH_SIZE
       LIFETIME                   = 'T'
     TABLES
       DATA                       = LT_GRAPH_TB
     CHANGING
       URL                        = LV_URL.

DATA R TYPE I.

CALL METHOD GO_PIC1->LOAD_PICTURE_FROM_URL
   EXPORTING
     URL    = LV_URL
   IMPORTING
     RESULT = R.

  CALL METHOD CL_GUI_CFW=>FLUSH.

  ENDIF.