Show attached material picture in ABAP screen object

Question

Hello,
I'm attaching material pictures with the GOS create attachment option. Here I could attach all kind of documents including the files "*.gif, *.tif, etc." These pictures are stored on our document server. Another possibility I use is to create a url to the direct link of the picture on the vendors site.
The materials are our own stock materials. These stock materials could be ordered by the reservation system. For that we have created our own reservation screen. In one of the fields they could enter a part of a material description to search for a particular material. If more material is valid these materials are shown in a selection list. To make is easier to pick the right material I want to show the material picture in a ABAP object on the selection screen.
I'm already able to show, in the list, if there is a material picture available with the function "BAPI_REL_GETRELATIONS"
If this function returns a table I know there is a (picture) document attached.
If the clicks on the hotspot in the list I want to show the picture in the ABAP object on the screen.
Here is a part to see if there is a material picture?
CLEAR OBJECTID.
OBJECTID-OBJKEY = makt-matnr. " Long number incl. zero's
OBJECTID-OBJTYPE = 'BUS1001006'.
N_lines = 0.
clear LISTOFRELATIONS.
CALL FUNCTION 'BAPI_REL_GETRELATIONS'
EXPORTING
OBJECTID = OBJECTID
ROLE =
RELATION =
RECURSIONLEVEL = 1
IMPORTING
RETURN = B_RETURN2
TABLES
LISTOFRELATIONS = LISTOFRELATIONS
describe table LISTOFRELATIONS lines N_lines.
IF N_lines > 0.
WRITE ICON_TIF AS ICON to artikelen-pic.
ELSE.
artikelen-pic = ' '.
ENDIF.
I'm able to show a picture in the ABAP object with the following code:
IF P_CONTAINER IS INITIAL.
CREATE OBJECT: P_CONTAINER EXPORTING container_name = 'MAT_PIC',
MM_PIC1 EXPORTING parent = P_CONTAINER.
l_alignment = cl_gui_control=>align_at_left +
cl_gui_control=>align_at_right +
cl_gui_control=>align_at_top +
cl_gui_control=>align_at_bottom.
CALL METHOD mm_pic1->set_alignment
EXPORTING
alignment = l_alignment.
CALL METHOD mm_pic1->set_3d_border
EXPORTING
border = 1.
CALL METHOD mm_pic1->set_display_mode
EXPORTING
display_mode = mm_pic1->display_mode_stretch
EXCEPTIONS
error = 1.
ENDIF.
IMPORT pict_tab = pict_tab FROM DATABASE abtree(pi) ID 'ENJOY'.
CALL FUNCTION 'DP_CREATE_URL'
EXPORTING
TYPE = 'IMAGE'
SUBTYPE = 'GIF'
SIZE =
DATE =
TIME =
DESCRIPTION =
LIFETIME =
CACHEABLE =
SEND_DATA_AS_STRING =
TABLES
DATA = pict_tab
FIELDS =
PROPERTIES =
CHANGING
URL = url
EXCEPTIONS
DP_INVALID_PARAMETER = 1
DP_ERROR_PUT_TABLE = 2
DP_ERROR_GENERAL = 3
OTHERS = 4
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL METHOD mm_pic1->load_picture_from_url
EXPORTING
url = url
EXCEPTIONS
others = 4.
Could any one help me further to show the picture in the ABAP object 'MAT_PIC'?
I'm using SAP release 4.7 on a Oracle database.
The document server is the SAP DMS server on a SAP-DB database.
Kind regards,
Richard Meijn

Answer 1

Refer the following:
REPORT  ZTEST12.
* Type declarations.....................
TYPES pict_line(256) TYPE c.
* data declarations......................
DATA :init,
      container TYPE REF TO cl_gui_custom_container,
      editor    TYPE REF TO cl_gui_textedit,
      picture   TYPE REF TO cl_gui_picture,
      pict_tab TYPE TABLE OF pict_line,
      url(255) TYPE c.
CALL SCREEN 100.
* Dialog modules......................................
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'SCREEN100'.
  IF init is initial.
    init = 'X'.
    CREATE OBJECT:
           container  EXPORTING container_name = 'PICTURE_CONTAINER',
           picture    EXPORTING parent = container.
  ENDIF.
  IMPORT pict_tab = pict_tab FROM DATABASE abtree(pi) ID 'ENJOY'.
  CALL FUNCTION 'DP_CREATE_URL'
       EXPORTING
            type    = 'IMAGE'
            subtype = 'GIF'
       TABLES
            data    = pict_tab
       CHANGING
            url     = url.
  CALL METHOD picture->load_picture_from_url EXPORTING url = url.
  CALL METHOD picture->set_display_mode
       EXPORTING display_mode = picture->display_mode_fit_center.
ENDMODULE.
MODULE cancel INPUT.
  LEAVE TO SCREEN 0.
ENDMODULE.