实战SAP【总结】：显示图片

1. SMW0 选择webRFC应用进程的二进数据
2. 输入包名
3. 创建
4. 输入对象名
5. 传输
6. 选择文件
7. 传输
8. 保存在包内
9. 在SCREEN 100 中创建一个定制控制，命名为P1
10. 代码如下：

    DATA: ok_code TYPE sy-ucomm, save_ok LIKE ok_code. *定制控制和图像对象 DATA container TYPE REF TO cl_gui_custom_container. DATA picture TYPE REF TO cl_gui_picture. *初始表示字段定义 DATA init. *调用屏幕 CALL SCREEN 100. *&---------------------------------------------------------------------* *& Module STATUS_0100 OUTPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE status_0100 OUTPUT. *判断是否创建定制对象 IF init IS INITIAL. *图片地址字段定义 DATA url(255). CLEAR url. *创建对象 CREATE OBJECT container EXPORTING container_name = 'P1'. CREATE OBJECT picture EXPORTING parent = container EXCEPTIONS error = 1. IF sy-subrc = 0. ENDIF. *调用函数获取图片地址 PERFORM load_pic_from_db CHANGING url. CALL METHOD picture->load_picture_from_url EXPORTING url = url. IF sy-subrc NE 0. ENDIF. *位置已初始 init = 'X'. ENDIF. ENDMODULE. " STATUS_0100 OUTPUT *&---------------------------------------------------------------------* *& Module USER_COMMAND_0100 INPUT *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* MODULE user_command_0100 INPUT. save_ok = ok_code. CLEAR ok_code. CASE save_ok. WHEN 'EXIT'. LEAVE PROGRAM. ENDCASE. ENDMODULE. " USER_COMMAND_0100 INPUT *&---------------------------------------------------------------------* *& Form load_pic_from_db *&---------------------------------------------------------------------* * text 获取图片地址通用函数 *----------------------------------------------------------------------* * <--P_URL text *----------------------------------------------------------------------* FORM load_pic_from_db CHANGING p_url. DATA query_table LIKE w3query OCCURS 1 WITH HEADER LINE. DATA html_table LIKE w3html OCCURS 1. DATA return_code LIKE w3param-ret_code. DATA content_type LIKE w3param-cont_type. DATA content_length LIKE w3param-cont_len. DATA pic_data LIKE w3mime OCCURS 0. DATA pic_size TYPE i. REFRESH query_table. *查询对象数据 query_table-name = '_OBJECT_ID'. *图片对象名 query_table-value = 'ZTEST_PIC'. APPEND query_table. *读取WWWDATA表，取得图片对象信息 CALL FUNCTION 'WWW_GET_MIME_OBJECT' TABLES query_string = query_table html = html_table mime = pic_data CHANGING return_code = return_code content_type = content_type content_length = content_length EXCEPTIONS object_not_found = 1 parameter_nout_found = 2 OTHERS = 3. IF sy-subrc = 0. pic_size = content_length. ENDIF. *创建图片URL地址 CALL FUNCTION 'DP_CREATE_URL' EXPORTING type = 'IMAGE' subtype = cndp_sap_tab_unknown size = pic_size lifetime = cndp_lifetime_transaction TABLES data = pic_data CHANGING url = url EXCEPTIONS OTHERS = 1. ENDFORM. " load_pic_from_db