abap base64解码详解编程语言

json字符串内容

{
    
    "I_INT_NAME":"Z_TEST_FUNCTION", 
    "I_KEY":"123456", 
    "I_JSON":{
    
             "AUFNR":"0000123456" 
    } 
} 

用notepad++插件中的Base64 Encode功能转码

转码结果：

eyJJX0lOVF9OQU1FIjoiWl9URVNUX0ZVTkNUSU9OIiwiSV9LRVkiOiIxMjM0NTYiLCJJX0pTT04iOnsiQVVGTlIiOiIwMDAwMTIzNDU2In19 

abap程序代码:

DATA input  TYPE string VALUE 'eyJJX0lOVF9OQU1FIjoiWl9URVNUX0ZVTkNUSU9OIiwiSV9LRVkiOiIxMjM0NTYiLCJJX0pTT04iOnsiQVVGTlIiOiIwMDAwMTIzNDU2In19'. 
DATA output TYPE xstring. 
DATA result TYPE string. 
DATA convin TYPE REF TO cl_abap_conv_in_ce. 
 
"Convert Base64 string to Xstring 
CALL FUNCTION 'SCMS_BASE64_DECODE_STR' 
  EXPORTING 
    input  = input 
  IMPORTING 
    output = output 
  EXCEPTIONS 
    failed = 1 
    OTHERS = 2. 
IF sy-subrc <> 0. 
* Implement suitable error handling here 
ENDIF. 
 
"transform the Xstring to Binary 
convin = cl_abap_conv_in_ce=>create( input = output ). 
"turn the Binary format to String 
convin->read( IMPORTING data = result ). 
 
cl_demo_output=>display( result ). 

测试结果：