SAP ABAP使用类的方式动态显示图片

ABAP显示来自URL的图片的一种思路：新建一个屏幕，屏幕上放置一个容器，然后用代码动态操作该容器实现图像显示。
主要依靠的是两个类：CL_GUI_CUSTOM_CONTAINER和CL_GUI_PICTURE。

示例代码：

REPORT ZTEST033.

DATA: CTL_PIC01    TYPE SCRFNAME VALUE 'CTL_PIC01',  "定义屏幕控件同名变量，custome control区域
      GO_CTN_PIC01 TYPE REF TO CL_GUI_CUSTOM_CONTAINER,   "用于联接屏幕控件和图片的对象
      GO_CGI_PIC01 TYPE REF TO CL_GUI_PICTURE.            "图片对象

DATA: GV_URL01    TYPE CNDP_URL VALUE 'https://www.baidu.com/img/PCtm_d9c8750bed0b3c7d089fa7d55720d6cf.png',
      GV_RETURN02 TYPE I.

CALL SCREEN 0100.

*&---------------------------------------------------------------------*
*& Module STATUS_0100 OUTPUT
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.


  IF GO_CGI_PIC01 IS INITIAL.
    CREATE OBJECT GO_CTN_PIC01
      EXPORTING
        CONTAINER_NAME = CTL_PIC01.

    CREATE OBJECT GO_CGI_PIC01
      EXPORTING
        PARENT = GO_CTN_PIC01.

    CALL METHOD GO_CGI_PIC01->SET_DISPLAY_MODE
      EXPORTING
        DISPLAY_MODE = CL_GUI_PICTURE=>DISPLAY_MODE_FIT.

    CALL METHOD GO_CGI_PIC01->LOAD_PICTURE_FROM_URL_ASYNC
      EXPORTING
        URL = GV_URL01.

  ELSE.

    CALL METHOD GO_CGI_PIC01->LOAD_PICTURE_FROM_URL
      EXPORTING
        URL    = GV_URL01
      IMPORTING
        RESULT = GV_RETURN02.

    CALL METHOD CL_GUI_CFW=>FLUSH.

  ENDIF.

ENDMODULE.

REPORT ZTEST033.

DATA: CTL_PIC01 TYPE SCRFNAME VALUE 'CTL_PIC01', "定义屏幕控件同名变量，custome control区域

GO_CTN_PIC01 TYPE REF TO CL_GUI_CUSTOM_CONTAINER, "用于联接屏幕控件和图片的对象

GO_CGI_PIC01 TYPE REF TO CL_GUI_PICTURE. "图片对象

DATA: GV_URL01 TYPE CNDP_URL VALUE 'https://www.baidu.com/img/PCtm_d9c8750bed0b3c7d089fa7d55720d6cf.png',

GV_RETURN02 TYPE I.

CALL SCREEN 0100.

*&---------------------------------------------------------------------*

*& Module STATUS_0100 OUTPUT

*&---------------------------------------------------------------------*

MODULE STATUS_0100 OUTPUT.

IF GO_CGI_PIC01 IS INITIAL.

CREATE OBJECT GO_CTN_PIC01

EXPORTING

CONTAINER_NAME = CTL_PIC01.

CREATE OBJECT GO_CGI_PIC01

EXPORTING

PARENT = GO_CTN_PIC01.

CALL METHOD GO_CGI_PIC01->SET_DISPLAY_MODE

EXPORTING

DISPLAY_MODE = CL_GUI_PICTURE=>DISPLAY_MODE_FIT.

CALL METHOD GO_CGI_PIC01->LOAD_PICTURE_FROM_URL_ASYNC

EXPORTING

URL = GV_URL01.

ELSE.

CALL METHOD GO_CGI_PIC01->LOAD_PICTURE_FROM_URL

EXPORTING

URL = GV_URL01

IMPORTING

RESULT = GV_RETURN02.

CALL METHOD CL_GUI_CFW=>FLUSH.

ENDIF.

ENDMODULE.

如若转载，请注明出处：https://www.gavindong.com/3875.html

SAP ABAP使用类的方式动态显示图片

相关推荐

PDFJS-a Portable Document Format (PDF) viewer that is built with HTML5

SAP ABAP打开并显示PDF文件（转载）