cl_gui_html_viewer缓存,sap类 cl_gui_html_viewer

DATA:gt_events TYPE cntl_simple_events,

wa_event  TYPE cntl_simple_event.

IF html_view IS INITIAL.

CREATE OBJECT html_view

EXPORTING

parent             = cl_gui_container=>default_screen

.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

wa_event-eventid = cl_gui_html_viewer=>m_id_navigate_complete.

APPEND wa_event TO gt_events.

ENDIF.

IF go_timer IS INITIAL.

CREATE OBJECT go_timer

EXCEPTIONS

error  = 1

OTHERS = 2

.

IF sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

go_timer->interval = 300.

CALL METHOD go_timer->run

EXCEPTIONS

error  = 1

OTHERS = 2

.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

ENDIF.

PERFORM frm_go USING login_url.

CALL METHOD html_view->set_registered_events

EXPORTING

events                    = gt_events.

SET HANDLER html_view_handler=>my_navigate_complete FOR html_view.

SET HANDLER timer_handler=>my_refresh FOR go_timer.

CALL METHOD html_view->show_url

EXPORTING

url                    = p_url .

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.