Base64 Text data upload and download in PNG format.

 

DATA: LV_BASE64_STRING(10000) TYPE C,
      LT_BYTE_TABLE           TYPE TABLE OF SOLIX,
      BINARY_TAB              TYPE TABLE OF SOLIX,
      LW_BINARY_TAB           TYPE SOLIX,
      LV_PNG                  TYPE XSTRING.
DATA : GV_STRING  TYPE STRING .
DATA: LV_FILENAME      TYPE STRING,
      LV_FILENAME_1    TYPE STRING,
      LV_FILE_CONTENTS TYPE STRING,
      LT_FILE_CONTENTS TYPE TABLE OF STRING.
DATA:XSTR_CONTENT TYPE XSTRING.
DATA : GT_BINARY TYPE TABLE OF BAPICONTEN.
DATA : LT_TAB TYPE TABLE OF SWASTRTAB.
DATA : GT_STR TYPE TABLE OF STRING.

PERFORM READ_FILE.
FORM READ_FILE.

DATA : LV_XSTRING TYPE XSTRING.
DATA : LV_IMAGE TYPE XSTRING.
DATA: LO_HTTP_CLIENT       TYPE REF TO IF_HTTP_CLIENT,
      LV_URL               TYPE STRING,
      LV_JSON_X            TYPE XSTRING,
      LV_RESPONSE          TYPE STRING,
      LV_RESPONSE_2(10000) TYPE C.

LV_FILENAME = 'C:\Users\user\Desktop\TESTTTT.txt'.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
  FILENAME                = LV_FILENAME
IMPORTING
  FILELENGTH              = LEN
  HEADER                  = XSTR_CONTENT
TABLES
  DATA_TAB                = LT_FILE_CONTENTS
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 = 0.
  LOOP AT LT_FILE_CONTENTS INTO LV_FILE_CONTENTS.
    CONCATENATE GV_STRING  LV_FILE_CONTENTS INTO GV_STRING.
  ENDLOOP.

  CALL FUNCTION 'SCMS_BASE64_DECODE_STR'
    EXPORTING
      INPUT  = GV_STRING
*     UNESCAPE       = 'X'
    IMPORTING
      OUTPUT = LV_XSTRING
    EXCEPTIONS
      FAILED = 1
      OTHERS = 2.

  IF SY-SUBRC = 0.
    CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
      EXPORTING
        BUFFER     = LV_XSTRING
      TABLES
        BINARY_TAB = LT_BYTE_TABLE
      EXCEPTIONS
        FAILED     = 1
        OTHERS     = 2.

    IF SY-SUBRC = 0.
      LV_FILENAME_1 = 'C:\Users\user\Desktop\Test.png'. 
      CALL FUNCTION 'GUI_DOWNLOAD'
        EXPORTING
          FILENAME                = LV_FILENAME_1
          FILETYPE                = 'BIN'
        TABLES
          DATA_TAB                = LT_BYTE_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.
    ENDIF.
  ENDIF.
ENDIF.

ENDFORN.