Image upload

yaminigadde — Fri, 18 Dec 2015 10:14:59 GMT

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.

Re: Image upload

former_member241258 — Mon, 21 Dec 2015 10:31:11 GMT

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.

topic Image upload in Application Development and Automation Discussions

Image upload

Re: Image upload