Regd : upload of image onto the dialog screen

Question

hi,
I have developed one application in that once the image has been captured on the presentation server..i need to pass the captured image which is in JPG format on to the screen which i have designed......please help me in resolving this issue....
i want code such a way that it has to accept the URL local to  aperticular system.
based on the selected image it has to display the image...
points will be rewarded.

Answer 1

Hi Vinutha,
Have a look at this sample program which has got the SAP standard demo program : SAP_PICTURE_DEMO
PROGRAM y_sap_picture_demo.
TYPE-POOLS : cndp.
selection-screen begin of block b1.
parameters : path type rlgrap-filename.
selection-screen end of block b1.
SET SCREEN 200.
DATA
DATA function LIKE sy-ucomm.         " OK-Code field in screen 200
DATA url  TYPE cndp_url.                " URL-field in screen 200
DATA url2 TYPE cndp_url.               " URL-field in screen 200
DATA picture_control_1 TYPE REF TO cl_gui_picture.
DATA container_1 TYPE REF TO cl_gui_custom_container.
DATA event_tab TYPE cntl_simple_events.
DATA event_tab_line TYPE cntl_simple_event.
DATA return TYPE i.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR path.
PERFORM f1000_file_select.
PBO
before_output
MODULE before_output OUTPUT.
  SET PF-STATUS 'MAIN0001'.
  IF picture_control_1 IS INITIAL.
Create controls
    CREATE OBJECT container_1
      EXPORTING container_name = 'PICTURE_CONTROL_1'.
    CREATE OBJECT picture_control_1 EXPORTING parent = container_1.
new async implementation since 4.6C
CALL FUNCTION 'DP_PUBLISH_WWW_URL'
  EXPORTING
    OBJID                       = 'ZSATYA.GIF'
    LIFETIME                    = cndp_lifetime_transaction
  IMPORTING
    URL                         = url
  EXCEPTIONS
    OTHERS                      = 1.
concatenate 'file://' path into url.
      CALL METHOD PICTURE_CONTROL_1->LOAD_PICTURE_FROM_URL
       exporting url = url.
  ENDIF.
ENDMODULE.                    "before_output OUTPUT
PAI
after_input
MODULE after_input INPUT.
  CASE function.
At the end of the program destroy the control
    WHEN 'BACK'.
      CALL METHOD container_1->free.
      LEAVE TO SCREEN 0.
Clear the picture
    WHEN 'CLEAR'.
      CALL METHOD picture_control_1->clear_picture.
Load a new picture
    WHEN space.
      CALL METHOD picture_control_1->load_picture_from_url
        EXPORTING
          url    = url
        IMPORTING
          RESULT = return.
      CALL METHOD cl_gui_cfw=>flush.
      IF return = 0.
        url = text-000.
      ENDIF.
  ENDCASE.
  CLEAR function.
ENDMODULE.                    "after_input INPUT
*&      Form  f1000_file_select
      text
FORM f1000_file_select .
  DATA: li_file_table           TYPE filetable,
        wa_file_table           TYPE file_table,
        lws_rc                  TYPE i,
        lws_user_action         TYPE i.
  DATA : lc_title TYPE string.
  CONSTANTS :lc_ext TYPE string VALUE '.',
             lc_directory TYPE string VALUE 'C:\'.
  CLEAR: path.
  REFRESH: li_file_table.
  lc_title = text-049.
*--  Class to select the file.
  CALL METHOD cl_gui_frontend_services=>file_open_dialog
    EXPORTING
      window_title         = lc_title
      default_extension    = lc_ext
      initial_directory    = lc_directory
    CHANGING
      file_table           = li_file_table
      rc                   = lws_rc
      user_action          = lws_user_action
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      OTHERS               = 4.
  IF sy-subrc NE 0.
    MESSAGE e001(zdemet) WITH text-002.
  ENDIF.
  READ TABLE li_file_table INDEX 1 INTO wa_file_table.
  IF sy-subrc = 0.
    path = wa_file_table-filename.
  ENDIF.
endform.                    " f1000_file_select
-SatyaPriya