Display base64 encoded picture in SAPGUI

Today I stumbled upon an old test report where I tried to display a base64 encoded picture in a container.

This is how it looks

This is how it works

BASE64 encoding is a mehtod to store binary data with codepage undependend readable ASCII characters. Readable characters can be stored in an ABAP report which makes it possible to store a picture in a source code.

To encode a picture to BASE64 you will need to have a converter. There are many converters online avaible, e.g. this one: https://www.base64encode.net/base64-image-encoder

For demonstration I used a very small picture. I found one in the 8-bit-retro-Excel-racing-simulation galoppsim by Marco Krapf in the last Galoppsim corona cup. If you do not know Galoppsim.racing so far, I recommend to visit https://galoppsim.racing/ as soon as possible,

I chose Rennpony as suitable candiate for my demonstration. Even though the marvelous graphics are in 8bit-mode I still had to concert them to a very small size. The displayed picture has a size of 21×19 pixels.

So I uploaded the smal graphic to the base64-encoding website and got the following string:

R0lGODlhFQATADMAACH5BAAAAAAALAAAAAAVABMAg////19qcHaPjo6ij5XL/p3Mx6rR3
qTS+LPUksPessjcysvl+ufbrvrclPfv1Or0+wSMEMg5F1mY6g0eztzmNA3TKEu4LYaptI
2jShbBMIahlDNwXCwDYcdQeQ6HwEDxOyiKmyNhKhj8pobYBjkl6K5TokZRKBe+3enhRnE
g3u/EbwH2aiWJfB6hfjzAa3d6ewYHDzRpWQ0SCoMJBoc0gCYOMo15hho1aiaLAAqgkRR/
aYE9iKVQPZtppwCsXREAOw==

This string has to be decoded into an xstring.

The xstring has to be converted to an xstring table.

This xstring table can be passed to function module DP_CREATE_URL which returns a pointer (url) to these bytes. It then can be used in CL_GUI_PICTURE control to display the data.

The code

REPORT.

CLASS demo DEFINITION.
  PUBLIC SECTION.
    TYPES _url TYPE c LENGTH 200.
    TYPES: BEGIN OF _graphic_row,
             line(255) TYPE x,
           END OF _graphic_row,
           _graphic_tab TYPE STANDARD TABLE OF _graphic_row WITH DEFAULT KEY.
    METHODS show.
  PRIVATE SECTION.
    METHODS get_image_url
      RETURNING
        VALUE(url) TYPE url.
    METHODS convert_xstring_to_table
      IMPORTING
        xstr       TYPE xstring
      RETURNING
        VALUE(tab) TYPE _graphic_tab.

    DATA picture TYPE REF TO cl_gui_picture.
    DATA container TYPE REF TO cl_gui_docking_container.

ENDCLASS.

CLASS demo IMPLEMENTATION.
  METHOD show.

    DATA: graphic_size TYPE i.

    CREATE OBJECT container
      EXPORTING
        extension               = 300
        no_autodef_progid_dynnr = 'X'.

    CREATE OBJECT picture
      EXPORTING
        parent = container.

    picture->load_picture_from_url( url = get_image_url( ) ).
    picture->set_display_mode( cl_gui_picture=>display_mode_fit ).

  ENDMETHOD.

  METHOD get_image_url.
    DEFINE a.
      CONCATENATE graphic_str &1 INTO graphic_str.
    END-OF-DEFINITION.

    DATA graphic_xstr TYPE xstring.
    DATA graphic_x    TYPE x.
    DATA graphic_str  TYPE string.
    DATA graphic_size TYPE i.
    DATA graphic_table TYPE _graphic_tab.


    TYPES ty_char160 TYPE c LENGTH 160.
    DATA local_pic TYPE STANDARD TABLE OF ty_char160.

    "GIF rennpony 16 colors
    a 'R0lGODlhFQATADMAACH5BAAAAAAALAAAAAAVABMAg////19qcHaP'.
    a 'jo6ij5XL/p3Mx6rR3qTS+LPUksPessjcysvl+ufbrvrclPfv1Or0'.
    a '+wSMEMg5F1mY6g0eztzmNA3TKEu4LYaptI2jShbBMIahlDNwXCwD'.
    a 'YcdQeQ6HwEDxOyiKmyNhKhj8pobYBjkl6K5TokZRKBe+3enhRnEg'.
    a '3u/EbwH2aiWJfB6hfjzAa3d6ewYHDzRpWQ0SCoMJBoc0gCYOMo15'.
    a 'hho1aiaLAAqgkRR/aYE9iKVQPZtppwCsXREAOw=='.

    CALL FUNCTION 'SSFC_BASE64_DECODE'
      EXPORTING
        b64data = graphic_str
      IMPORTING
        bindata = graphic_xstr
      EXCEPTIONS
        OTHERS  = 8.


    graphic_table = convert_xstring_to_table( graphic_xstr ).

    CALL FUNCTION 'DP_CREATE_URL'
      EXPORTING
        type     = 'image'                                    "#EC NOTEXT
        subtype  = 'gif'
        lifetime = cndp_lifetime_transaction  "'T'
      TABLES
        data     = graphic_table
      CHANGING
        url      = url.

  ENDMETHOD.

  METHOD convert_xstring_to_table.

    DATA conv TYPE i.

    DATA offs TYPE i.
    DATA size TYPE i.
    DATA row TYPE _graphic_row.

    size = xstrlen( xstr ).
    CHECK size > 0.

    conv = size.
    offs = 0.

    WHILE conv > 255.
      row-line = xstr+offs(255).
      APPEND row TO tab.
      offs = offs + 255.
      conv = conv - 255.
    ENDWHILE.

    row-line = xstr+offs(conv).
    APPEND row TO tab.

  ENDMETHOD.
ENDCLASS.


PARAMETERS p_test.

INITIALIZATION.
  NEW demo( )->show( ).