*- GET BMP image *-
call method cl_ssf_xsf_utilities=>get_bds_graphic_as_bmp
exporting
p_object = 'GRAPHICS'
p_name = lv_pic_name
p_id = 'BMAP'
p_btype = 'BCOL' "(BMON = black&white, BCOL = colour)
receiving
p_bmp = lv_graphic_xstr
exceptions
not_found = 1
others = 2.
lv_graphic_size = xstrlen( lv_graphic_xstr ).
check lv_graphic_size > 0. "check whether image exists
lv_graphic_conv = lv_graphic_size.
lv_graphic_offs = 0.
*- prepare the image as data table *-
while lv_graphic_conv > 255.
ls_pict_tab-line = lv_graphic_xstr+lv_graphic_offs(255).
append ls_pict_tab to lt_pict_tab.
lv_graphic_offs = lv_graphic_offs + 255.
lv_graphic_conv = lv_graphic_conv - 255.
endwhile.
*- append rest of the lines of the image *-
ls_pict_tab-line = lv_graphic_xstr+lv_graphic_offs(lv_graphic_conv).
append ls_pict_tab to lt_pict_tab .
clear ls_pict_tab.
*- create URL for the image *-
call function 'DP_CREATE_URL'
exporting
type = 'IMAGE'
subtype = co_sap_tab_unknown " 'X-UNKNOWN'
size = lv_graphic_size
lifetime = co_lifetime_transaction "'T'
tables
data = lt_pict_tab
changing
url = lv_url.
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
exit.
endif.
<!--StartFragment --> lv_container type scrfname value 'LOGO_90_CONT'.screen create container
for picture display
if go_pic_container is initial.
*- create picture container *-
create object go_pic_container
exporting
container_name = lv_container.
*- create picture control *-
create object go_picture_control
exporting
parent = go_pic_container.
*- display image from URL *-
call method go_picture_control->load_picture_from_url_async
exporting
url = lv_url.
else.
call method go_picture_control->clear_picture.
*- display image from URL *-
call method go_picture_control->load_picture_from_url_async
exporting
url = lv_url.
endif.
endform.
分享到:
相关推荐
This documentation describes the syntax and meaning of the keywords of the ABAP language and its object-oriented part ABAP Objects. Alongside this, language frameworks and the associated system ...
ABAP资料ABAP资料ABAP资料ABAP资料ABAP资料
ABAP 调用ABAP PROXY
ABAP
abap tips abap tips abap tips abap tips abap tips
Web Dynpro for ABAP allows the development of user interfaces directly within the ABAP Workbench (SE80) and the Web Dynpro runtime environment is a central part of the ABAP server and can be used in ...
ABAP ALV总结,ALV格式,REUSE_ALV_GRID_DISPLAY_LVC函数使用
The User's Guide is a manual on the external ABAP/4 editor developed by Attila Borka (X-Direct Ltd.). Its aim is to • Describe the functions and the usage of the editor • Guide SAP Basis ...
ABAP 新 Editor 特点 SAP ECC 6.0 提供了新的ABAP Editor
abap逻辑数据库ABAP数据库操作,abap过程中的小积累。用处多多哦
This book assumes a basic familiarity with the ABAP language (formerly known as ABAP/4) and builds upon it, exposing the reader to ABAP's considerable customization and transaction-handling power ...
The ABAP/4 Development Workbench contains all the tools you need to create and maintain ABAP/4 programs, however the standard SAP ABAP/4 editor does not have the features like the development tools ...
sap press doc 解压密码:abap_developer
abap 函数大全 abap function abap function
SAP ABAP 开发手册,对SAP上ABAP开发有很大的帮助,希望对在SAP上开发者能够提供帮助
内含ABAP入门资源(11天学会ABAP)以级中级ABAP篇,高级ABAP资料
ABAP_OLE相关文档。ABAP_OLE相关文档。ABAP_OLE相关文档。ABAP_OLE相关文档。ABAP_OLE相关文档。ABAP_OLE相关文档。ABAP_OLE相关文档。ABAP_OLE相关文档。ABAP_OLE相关文档。ABAP_OLE相关文档。ABAP_OLE相关文档。...
abap学习资料 3月通学习资料abap学习资料 3月通学习资料
ABAP培训资料ABAP培训资料ABAP培训资料ABAP培训资料ABAP培训资料
ABAP帮助文档ABAP帮助文档ABAP帮助文档ABAP帮助文档ABAP帮助文档ABAP帮助文档ABAP帮助文档ABAP帮助文档