Image upload in sap

Question

HI all,
I have a requirement in which I have to upload a picture.
DATA: lr_mime_rep TYPE REF TO if_mr_api.
DATA: lv_filename TYPE string.
DATA: lv_path     TYPE string.
DATA: lv_fullpath TYPE string.
DATA: lv_content  TYPE xstring.
DATA: lv_length   TYPE i.
DATA: lv_rc TYPE sy-subrc.
DATA: lt_file TYPE filetable.
DATA: ls_file LIKE LINE OF lt_file.
DATA: lt_data TYPE STANDARD TABLE OF x255.
PARAMETERS: p_path TYPE string
             DEFAULT 'SAP/PUBLIC/Test.jpg'.   "<<-- Mime path, save to path
cl_gui_frontend_services=>file_open_dialog(
  CHANGING
    file_table              =  lt_file  " Table Holding Selected Files
    rc                      =  lv_rc  ). " Return Code, Number of Files or -1 If Error Occurred
READ TABLE lt_file INTO ls_file INDEX 1.
IF sy-subrc = 0.
  lv_filename = ls_file-filename.
ENDIF.
cl_gui_frontend_services=>gui_upload(
  EXPORTING
    filename                = lv_filename    " Name of file
    filetype                = 'BIN'
  IMPORTING
    filelength              =  lv_length   " File length
  CHANGING
    data_tab                = lt_data    " Transfer table for file contents
  EXCEPTIONS
    OTHERS                  = 19 ).
CALL FUNCTION 'SCMS_BINARY_TO_XSTRING'
  EXPORTING
    input_length = lv_length
*    first_line   = 0
*    last_line    = 0
  IMPORTING
    buffer       = lv_content
  TABLES
    binary_tab   = lt_data
  EXCEPTIONS
    failed       = 1
    OTHERS       = 2.
lr_mime_rep = cl_mime_repository_api=>if_mr_api~get_api( ).
s
This is done. But if I want to see where the image is stored then how I can do this?

Answer 1

Hi Yash Acharya,
Try this:
DATA: blob TYPE w3mimetabtype,
blob_size TYPE w3param-cont_len,
blob_type TYPE w3param-cont_type .
DATA:
p_color_scheme TYPE char20 ,
p_labels_groupid TYPE igs_label_tab,
p_labels_category TYPE igs_label_tab ,
p_data TYPE igs_data_tab,
p_charttype TYPE char20,
p_legend TYPE char20,
l_igs_chart TYPE REF TO cl_igs_chart ,
l_igs_chart_engine TYPE REF TO cl_igs_chart_engine,
i_igs_image_converter TYPE REF TO cl_igs_image_converter,
mime TYPE w3mimetabtype,
mimeline type W3MIME,
html TYPE w3htmltabtype,
html_line TYPE w3html,
l_msg_text(72) TYPE c,
l_url TYPE w3url,
l_content_length TYPE i,
l_content_type TYPE w3param-cont_type,
l_content_subtype TYPE w3param-cont_type.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = 'c:jpg'
filetype = 'BIN'
IMPORTING
filelength = l_content_length
* HEADER =
TABLES
data_tab = mime
EXCEPTIONS
file_open_error = 1
file_read_error = 2
no_batch = 3
gui_refuse_filetransfer = 4
invalid_type = 5
no_authority = 6
unknown_error = 7
bad_data_format = 8
header_not_allowed = 9
separator_not_allowed = 10
header_too_long = 11
unknown_dp_error = 12
access_denied = 13
dp_out_of_memory = 14
disk_full = 15
dp_timeout = 16
OTHERS = 17
IF sy-subrc EQ 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CREATE OBJECT i_igs_image_converter .
i_igs_image_converter->input = 'image/jpeg'. "jpg
i_igs_image_converter->output = 'image/x-ms-bmp'.
data: length type i,
       total type i.
CALL METHOD i_igs_image_converter->set_image
  EXPORTING
     blob      = mime
     blob_size = l_content_length.
CALL METHOD i_igs_image_converter->execute
  EXCEPTIONS
     communication_error = 1
     internal_error      = 2
     external_error      = 3
    OTHERS              = 4.
IF sy-subrc = 0.
  CALL METHOD i_igs_image_converter->get_image
    IMPORTING
       blob      = blob
       blob_size = blob_size
       blob_type = blob_type.
  CALL FUNCTION 'WS_DOWNLOAD'
          EXPORTING
*          bin_filesize =
             filename     = 'c:bmp'
             filetype     = 'BIN'
          TABLES
             data_tab     = blob.
ELSE.
  DATA: num TYPE i, message TYPE string.
  CALL METHOD i_igs_image_converter->get_error
    IMPORTING
      number  = num
      MESSAGE = message.
ENDIF.