Download images stored on the R/3 document server (Uploaded by SE78)

 原贴地址: http://www.saptechnical.com/Tips/ABAP/DownloadImages/demo.htm

This program downloads image stored in R/3 document server. We can upload image in document server from transaction SE78.

 

Code:

*&---------------------------------------------------------------------
*& Report  Z_DOWNLOAD_BDS_GRAPHICS
*&
*&---------------------------------------------------------------------
*& Download image stored in document server
*& Published at SAPTechnical.COM
*&
*&---------------------------------------------------------------------
REPORT  z_download_bds_graphics                 .
***********************************************************************
* Variable declaration
***********************************************************************
DATA: v_graphic_size TYPE i,
      v_graphic_xstr TYPE xstring,
      v_graphic_conv TYPE i,
      v_graphic_offs TYPE i,
      v_file         TYPE string.
***********************************************************************
* Table declaration
***********************************************************************
DATA: BEGIN OF i_graphic_table OCCURS 0,
        line(255) TYPE x,
      END OF i_graphic_table.

***********************************************************************
* Structure declaration
***********************************************************************
DATA: st_stxbitmaps       TYPE stxbitmaps.
***********************************************************************
* Selection screen
***********************************************************************
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_object LIKE st_stxbitmaps-tdobject DEFAULT 'GRAPHICS'
                              MODIF ID abc ,
            p_name   LIKE st_stxbitmaps-tdname,
            p_id     LIKE st_stxbitmaps-tdid DEFAULT 'BMAP'
                              MODIF ID abc ,
            p_type   LIKE st_stxbitmaps-tdbtype,
            p_dir    TYPE localfile.
SELECTION-SCREEN END OF BLOCK b1.
***********************************************************************
* At Selection-screen output event
***********************************************************************
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF screen-group1 = 'ABC' .
      screen-input = '0'.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
***********************************************************************
* At Selection-screen on value-request event
***********************************************************************
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_dir.
  DATA: l_folder TYPE string.
  CALL METHOD cl_gui_frontend_services=>directory_browse
    EXPORTING
      window_title         = 'Select Folder'
      initial_folder       = 'C:\'
    CHANGING
      selected_folder      = l_folder
    EXCEPTIONS
      cntl_error           = 1
      error_no_gui         = 2
      not_supported_by_gui = 3
      OTHERS               = 4.
  IF sy-subrc = 0.
    p_dir = l_folder.
  ENDIF.
***********************************************************************
* Start-of-selection event
***********************************************************************
START-OF-SELECTION.
  st_stxbitmaps-tdobject = p_object.
  st_stxbitmaps-tdname = p_name.
  st_stxbitmaps-tdid = p_id.
  st_stxbitmaps-tdbtype = p_type.
* Get the bmp image from BDS in hex string format
  CALL METHOD cl_ssf_xsf_utilities=>get_bds_graphic_as_bmp
    EXPORTING
      p_object       = st_stxbitmaps-tdobject
      p_name         = st_stxbitmaps-tdname
      p_id           = st_stxbitmaps-tdid
      p_btype        = st_stxbitmaps-tdbtype
    RECEIVING
      p_bmp          = v_graphic_xstr
    EXCEPTIONS
      not_found      = 1
      internal_error = 2
      OTHERS         = 3.
  IF sy-subrc = 0.
*   Find the length of hex string
    v_graphic_size = XSTRLEN( v_graphic_xstr ).
    CHECK v_graphic_size > 0.
    v_graphic_conv = v_graphic_size.
    v_graphic_offs = 0.
*   Populate internal table from this hex string
    WHILE v_graphic_conv > 255.
      i_graphic_table-line = v_graphic_xstr+v_graphic_offs(255).
      APPEND i_graphic_table.
      v_graphic_offs = v_graphic_offs + 255.
      v_graphic_conv = v_graphic_conv - 255.
    ENDWHILE.
    i_graphic_table-line = v_graphic_xstr+v_graphic_offs(v_graphic_conv).
    APPEND i_graphic_table.
*   Prepare file name and file path
    CONCATENATE p_dir '\' p_name '.BMP' INTO v_file.
*   Download image
    CALL FUNCTION 'GUI_DOWNLOAD'
      EXPORTING
        bin_filesize            = v_graphic_size
        filename                = v_file
        filetype                = 'BIN'
      TABLES
        data_tab                = i_graphic_table
      EXCEPTIONS
        file_write_error        = 1
        no_batch                = 2
        gui_refuse_filetransfer = 3
        invalid_type            = 4
        no_authority            = 5
        unknown_error           = 6
        header_not_allowed      = 7
        separator_not_allowed   = 8
        filesize_not_allowed    = 9
        header_too_long         = 10
        dp_error_create         = 11
        dp_error_send           = 12
        dp_error_write          = 13
        unknown_dp_error        = 14
        access_denied           = 15
        dp_out_of_memory        = 16
        disk_full               = 17
        dp_timeout              = 18
        file_not_found          = 19
        dataprovider_exception  = 20
        control_flush_error     = 21
        OTHERS                  = 22.
    IF sy-subrc = 0.
      WRITE: 'File downloaded successfully'(002).
    ELSE.
      WRITE: 'Error during file download'(003).
    ENDIF.
  ELSE.
    CASE sy-subrc.
      WHEN 1.
        WRITE: 'Image not found'(004).
      WHEN OTHERS.
        WRITE: 'Error in Image retrieval'(005).
    ENDCASE.
  ENDIF.

 

Input:

Output: