abap中實(shí)現(xiàn)在屏幕上顯示圖片.docx

1、SE78上傳圖片到服務(wù)器，圖片只能是bmp格式的點(diǎn)擊預(yù)覽，查看是否上傳成功這里我們將圖片對象命名為sapclub2、新建程序1. REPORTydamon_103.2.3. CALL SCREEN 9000.4. *&-*5. *& Modulestatus_9000OUTPUT6. *&-*7. * text8. *-*9. MODULE status_9000 OUTPUT.10. DATA: w_lines TYPE i.11. TYPES pict_line(256) TYPE c.12. DATA :13. container TYPE REF TO cl_gui_custom_container,14. editor TYPE REF TO cl_gui_textedit,15. picture TYPE REF TO cl_gui_picture,16. pict_tab TYPE TABLE OF pict_line,17. url(255) TYPE c.18. DATA: graphic_url(255).19. DATA: BEGIN OF graphic_table OCCURS 0,20. line(255) TYPE x,21. END OF graphic_table.22. DATA: l_graphic_conv TYPE i.23. DATA: l_graphic_offs TYPE i.24. DATA: graphic_size TYPE i.25. DATA: l_graphic_xstr TYPE xstring.26. .27. CALL METHOD cl_gui_cfw=flush.28. CREATE OBJECT:29. container EXPORTING container_name = PICTURE_CONTAINER,30. picture EXPORTING parent = container.31. CALL METHOD cl_ssf_xsf_utilities=get_bds_graphic_as_bmp32. EXPORTING33. p_object = GRAPHICS34. p_name = SAPCLUB 這里是我們se78上傳圖片的命名名稱35. p_id = BMAP36. p_btype = BCOL37. RECEIVING38. p_bmp = l_graphic_xstr39. *EXCEPTIONS40. * NOT_FOUND = 141. * INTERNAL_ERROR = 242. * others = 343. .44. IF sy-subrc 0.45. * MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO46. * WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.47. ENDIF.48. graphic_size = XSTRLEN( l_graphic_xstr ).49. l_graphic_conv = graphic_size.50. l_graphic_offs = 0.51. WHILE l_graphic_conv 255.52. graphic_table-line = l_graphic_xstr+l_graphic_offs(255).53. APPEND graphic_table.54. l_graphic_offs = l_graphic_offs + 255.55. l_graphic_conv = l_graphic_conv - 255.56. ENDWHILE.57. graphic_table-line = l_graphic_xstr+l_graphic_offs(l_graphic_conv).58. APPEND graphic_table.59. CALL FUNCTION DP_CREATE_URL60. EXPORTING61. type = IMAGE62. subtype= X-UNKNOWN63. size = graphic_size64. lifetime = T65. TABLES66. data = graphic_table67. CHANGING68. url = url.69. CALL METHOD picture-load_picture_from_url70. EXPORTING71. url = url.72. CALL METHOD picture-set_display_mode73. EXPORTING74. display_mode = picture-display_mode_fit_c