[代码]如何上载图片到SAP数据库并显示

1, 简介

整理了一段代码，实现上载本地图片到SAP的数据库表中，并且显示在屏幕上。

其中用到了一下函数：

1， GUI_UPLOAD：上载图片文件

2， SCMS_BINARY_TO_XSTRING：将图片文件转换成xstring

3， SCMS_XSTRING_TO_BINARY：将图片xstring转换成binary格式保存到内表中

4， DP_CREATE_URL：创建得到图片的URL

5， go_pic->load_picture_from_url：根据图片URL导入

6， go_pic->set_display_mode：显示图片

2, 完整代码

REPORT ztest_upload_pic.
**数据定义部分

TYPES: BEGIN OF ty_pic,
         pic_data(1024) TYPE x,
       END OF ty_pic.

DATA: pic_tab TYPE TABLE OF ty_pic.

DATA: wa_pic TYPE zpictable.

**zpictable为自定义table，设置一个主键字段，再设置一个或者多个RAWSTRING类型的字段存储图片数据

DATA: c_pic TYPE REF TO cl_gui_custom_container,
      go_pic   TYPE REF TO cl_gui_picture.

DATA: len         TYPE i,
      url(256),
      resu        TYPE i VALUE 123,
      path_string TYPE string.

PARAMETERS: p_file LIKE ibipparms-path OBLIGATORY.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

  PERFORM select_file USING p_file.

START-OF-SELECTION.