Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Scribd
Upload
303 views

ABAP Code Sample For General Browser Using ABAP

ABAP Code Sample for General Browser Using ABAP

Uploaded by

Arun Varshney (MULAYAM)
Copyright
© © All Rights Reserved
Available Formats
Download as PDF, TXT or read online on Scribd
303 views

ABAP Code Sample For General Browser Using ABAP

ABAP Code Sample for General Browser Using ABAP

Uploaded by

Arun Varshney (MULAYAM)
Copyright
© © All Rights Reserved
Available Formats
Download as PDF, TXT or read online on Scribd
You are on page 1/ 9

General Browser to View

Files/Pictures & WebPages

Applies To:
SAP / ABAP

Summary
Here is an ABAP code sample that deals with viewing files/pictures using HTML Control
This can also be used as a General Web Browser.

Features of this Code sample are


• Uses HTML Control.
• Creating pushbuttons buttons in the application toolbar.
• Changing the GUI status of Selection Screen from within the program.

By : Immanuel Daniel
Company : Wipro Technologies
Date : 21 February 2005

Code
*&---------------------------------------------------------------------*
*& Report ZBROWSER *
*&---------------------------------------------------------------------*
************************************************************************
* Description : Using HTML Control as General WWW Browser *
* Author : Immanuel Daniel *
************************************************************************
REPORT zbrowser .

TABLES : sscrfields.
INCLUDE <ctldef>.
INCLUDE <icon>.

CONSTANTS: htmlcntl_eventid_on_navigate TYPE i VALUE 1.


CONSTANTS: htmlcntl_eventid_navigate_com TYPE i VALUE 2.

DATA : h_html_ctrl TYPE cntl_handle,


repid TYPE sy-repid,
dynnr TYPE sy-dynnr,
cmd TYPE sy-ucomm,
flag,disp.

DATA : it_exclude LIKE TABLE OF rsexfcode WITH HEADER LINE.

SELECTION-SCREEN : FUNCTION KEY 1,


FUNCTION KEY 2,
FUNCTION KEY 3,
FUNCTION KEY 4,
FUNCTION KEY 5.

© 2005 SAP AG 1
General Browser to View
Files/Pictures & WebPages
SELECTION-SCREEN COMMENT 45(50) comment1.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 2(28) comment2 FOR FIELD url.
SELECTION-SCREEN POSITION 31.
PARAMETERS : url(1064) LOWER CASE .
SELECTION-SCREEN PUSHBUTTON 79(4) open USER-COMMAND open.
SELECTION-SCREEN END OF LINE.

INITIALIZATION.

comment1 = 'ABAP INTERNET EXPLORER'.


comment2 = 'Enter URL/Filename To Open :'.

open = icon_transfer .
sscrfields-functxt_05 = icon_sap.
sscrfields-functxt_04 = icon_booking_stop.
sscrfields-functxt_03 = icon_refresh.
sscrfields-functxt_02 = icon_arrow_right.
sscrfields-functxt_01 = icon_arrow_left.

repid = sy-repid.
dynnr = '1000'.

it_exclude-fcode = 'ONLI'.
APPEND it_exclude.

it_exclude-fcode = 'INFO'.
APPEND it_exclude.
*Changing GUI status
CALL FUNCTION 'RS_SET_SELSCREEN_STATUS'
EXPORTING
p_status = sy-pfkey
* p_program = repid
TABLES
p_exclude = it_exclude.

CALL FUNCTION 'CONTROL_INIT' .


IF sy-subrc <> 0.
EXIT.
ENDIF.

CALL FUNCTION 'HTMLCNTL_CREATE'


EXPORTING
owner_repid = repid
link_repid = repid
dynnr = dynnr
handle = h_html_ctrl
EXCEPTIONS
control_install_error =1
create_error =2

© 2005 SAP AG 2
General Browser to View
Files/Pictures & WebPages
OTHERS =3
.
IF sy-subrc <> 0.
EXIT.
ENDIF.

CALL FUNCTION 'HTMLCNTL_INIT'


EXPORTING
h_control = h_html_ctrl
left =1
top =2
width = 143
height = 37
register_event_on_navigate = 'X'
cb_form_navigate_complete = 'ON_CONTROL_EVENT'
EXCEPTIONS
cntl_system_error =1
cntl_error =2
dp_create_error =3
dp_install_error =4
dp_error =5
create_browser_error =6
init_error =7
OTHERS =8
.
IF sy-subrc <> 0.
EXIT.
ENDIF.

CALL FUNCTION 'CONTROL_FLUSH'.

AT SELECTION-SCREEN.

cmd = sscrfields-ucomm.

CASE cmd.

WHEN 'OPEN'.

PERFORM load_html_page.
CALL FUNCTION 'CONTROL_FLUSH'.

WHEN 'FC01'. "BACK

CALL FUNCTION 'HTMLCNTL_GO_BACK'


EXPORTING
h_control = h_html_ctrl.

IF sy-subrc <> 0.
EXIT.
ENDIF.

© 2005 SAP AG 3
General Browser to View
Files/Pictures & WebPages
PERFORM get_current_url.

WHEN 'FC02'. "FORWARD

CALL FUNCTION 'HTMLCNTL_GO_FORWARD'


EXPORTING
h_control = h_html_ctrl.

IF sy-subrc <> 0.
EXIT.
ENDIF.

PERFORM get_current_url.

WHEN 'FC03'. "REFRESH

CALL FUNCTION 'HTMLCNTL_DO_REFRESH'


EXPORTING
h_control = h_html_ctrl.

IF sy-subrc <> 0.
EXIT.
ENDIF.

PERFORM get_current_url.

WHEN 'FC04'. "STOP

CALL FUNCTION 'HTMLCNTL_STOP'


EXPORTING
h_control = h_html_ctrl.

IF sy-subrc <> 0.
EXIT.
ENDIF.

WHEN 'FC05'. "GO TO HOME

CALL FUNCTION 'HTMLCNTL_GO_HOME'


EXPORTING
h_control = h_html_ctrl.

IF sy-subrc <> 0.
EXIT.
ENDIF.

PERFORM get_current_url.
CALL FUNCTION 'CONTROL_FLUSH'.

WHEN OTHERS.

© 2005 SAP AG 4
General Browser to View
Files/Pictures & WebPages
CALL FUNCTION 'CONTROL_DISPATCH'
EXPORTING
fcode = cmd.

CALL FUNCTION 'CONTROL_FLUSH'.

ENDCASE.
CLEAR cmd.
CALL FUNCTION 'CONTROL_FLUSH'.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR url.


PERFORM get_file_name.
PERFORM load_html_page.

*&---------------------------------------------------------------------
*& Form get_page_name
*&---------------------------------------------------------------------
* Get Page Name
*----------------------------------------------------------------------

FORM get_file_name.

CALL FUNCTION 'WS_FILENAME_GET'


EXPORTING
* DEF_FILENAME =''
def_path = 'C:\ '
mask = ',*.*,*.*.'
mode = 'o'
title = 'Browse to Open'
IMPORTING
filename = url
* RC =
EXCEPTIONS
inv_winsys =1
no_batch =2
selection_cancel =3
selection_error =4
OTHERS =5
.
IF sy-subrc <> 0.
EXIT.
ENDIF.

ENDFORM. " get_page_name

*&---------------------------------------------------------------------
*& Form load_html_page
*&---------------------------------------------------------------------
* TO load the file (URL)

© 2005 SAP AG 5
General Browser to View
Files/Pictures & WebPages
*----------------------------------------------------------------------

FORM load_html_page.

CALL FUNCTION 'HTMLCNTL_SHOW_URL'


EXPORTING
h_control = h_html_ctrl
url = url.
IF sy-subrc <> 0.
EXIT.
ENDIF.

flag = 'X'.

ENDFORM. " load_html_page

*&---------------------------------------------------------------------*
*& Form get_current_url
*&---------------------------------------------------------------------*
* Get Current URL
*----------------------------------------------------------------------*
FORM get_current_url.
CALL FUNCTION 'HTMLCNTL_GET_CURRENT_URL'
EXPORTING
h_control = h_html_ctrl
IMPORTING
url = url.

ENDFORM. " get_current_url

* Callback form for the event 'NavigateComplete'


callback on_control_event.

CALL FUNCTION 'CONTROL_GET_EVENT_PARAM'


EXPORTING
h_control = h_html_ctrl
param_id = 0
CHANGING
return = url.
PERFORM get_current_url.
endcallback.

© 2005 SAP AG 6
General Browser to View
Files/Pictures & WebPages

Screen Shots

Displaying a webpage

© 2005 SAP AG 7
General Browser to View
Files/Pictures & WebPages
Displaying a Picture

© 2005 SAP AG 8
General Browser to View
Files/Pictures & WebPages
Displaying a Text File

Disclaimer & Liability Notice


This document may discuss sample coding, which does not include official interfaces and therefore is not
supported. Changes made based on this information are not supported and can be overwritten during an
upgrade.
SAP will not be held liable for any damages caused by using or misusing of the code and methods suggested
here, and anyone using these methods, is doing it under his/her own responsibility.
SAP offers no guarantees and assumes no responsibility or liability of any type with respect to the content of
the technical article, including any liability resulting from incompatibility between the content of the technical
article and the materials and services offered by SAP. You agree that you will not hold SAP responsible or
liable with respect to the content of the Technical Article or seek to do so.

Copyright © 2005 SAP AG, Inc. All Rights Reserved. SAP, mySAP, mySAP.com, xApps, xApp, and other SAP products and services
mentioned herein as well as their respective logos are trademarks or registered trademarks of SAP AG in Germany and in several other
countries all over the world. All other product, service names, trademarks and registered trademarks mentioned are the trademarks of
their respective owners.

© 2005 SAP AG 9

You might also like