Kategorien
-
Neueste Beiträge
- [ABAP] DMS: Dokumentenstatus lesen
- [ABAP] DMS: Dokumentenstatus setzen
- [ABAP] Daten zu einem PSP-Element lesen
- [ABAP] IDOC als XML anzeigen
- [ABAP] Ergebnisse eines SQL-Ausdrucks in einer Zeile verketten (STRING_AGG)
- [SAP] Profit Center
- [SAP Fiori] Setup Fiori My Inbox
- [SAP Fiori] Setup der Fiori Suche / Fiori search
- [ABAP] Liste aller Umgebungsvariablen
- [ABAP] Muster-Leistungsverzeichnisse lesen
Startseite Beiträge getaggt mit "if_http_request"
Schlagwort: if_http_request
[ABAP] HTTP-Client Anfrage (cl_http_client)
Testprogramm: RSHTTP20
Variante 1 (URL)
TRY. * URL DATA(lv_url) = |https://www.google.de/|. DATA: o_client TYPE REF TO if_http_client. * Client-Objekt erzeugen cl_http_client=>create_by_url( EXPORTING url = lv_url IMPORTING client = o_client ). IF o_client IS BOUND. * Anmeldedaten übermitteln o_client->authenticate( username = '' password = '' ). * Logon-Popup ein- bzw. ausschalten o_client->propertytype_logon_popup = o_client->co_enabled. * HTTP-Prtotokoll-Version o_client->request->set_version( version = if_http_request=>co_protocol_version_1_1 ). * HTTP-Method o_client->request->set_method( if_http_request=>co_request_method_get ). * Header-Felder explizit setzen * o_client->request->set_header_field( name = '~request_method' * value = 'GET' ). * * o_client->request->set_header_field( name = 'Content-Type' * value = 'text/xml; charset=utf-8' ). * * o_client->request->set_header_field( name = 'Accept' * value = 'text/xml, text/html' ). * Cookies akzeptieren o_client->propertytype_accept_cookie = if_http_client=>co_enabled. * Kompression akzeptieren o_client->propertytype_accept_compress = if_http_client=>co_enabled. * HTTP GET senden, evtl. Timeout angeben o_client->send( timeout = if_http_client=>co_timeout_default ). * Response lesen o_client->receive( ). DATA: lv_http_status TYPE i. DATA: lv_status_text TYPE string. * HTTP Return Code holen o_client->response->get_status( IMPORTING code = lv_http_status reason = lv_status_text ). WRITE: / 'HTTP_STATUS_CODE:', lv_http_status. WRITE: / 'STATUS_TEXT:', lv_status_text. * Header-Daten der Übertragung WRITE: / 'HEADER_FIELDS:'. DATA(it_header_fields) = VALUE tihttpnvp( ). o_client->response->get_header_fields( CHANGING fields = it_header_fields ). LOOP AT it_header_fields ASSIGNING FIELD-SYMBOL(<f>). WRITE: / '[', <f>-name, ']', <f>-value. ENDLOOP. * Cookies holen WRITE: / 'COOKIES:'. DATA(it_cookies) = VALUE tihttpcki( ). o_client->response->get_cookies( CHANGING cookies = it_cookies ). LOOP AT it_cookies ASSIGNING FIELD-SYMBOL(<c>). WRITE: / '[', <c>-name, ']', <c>-value, <c>-xdomain, <c>-path, <c>-secure, <c>-expires. ENDLOOP. * vollständige HTTP Nachricht lesen DATA(lv_raw_message) = o_client->response->get_raw_message( ). DATA: lv_str_msg TYPE string. * xstring -> string DATA(o_conv_r) = cl_abap_conv_in_ce=>create( input = lv_raw_message encoding = 'UTF-8' ). o_conv_r->read( IMPORTING data = lv_str_msg ). WRITE: / 'RAW MESSAGE:', lv_str_msg. * Wenn Status 200 (Ok) IF lv_http_status = 200. * HTTP Body als Character-Daten DATA(lv_result) = o_client->response->get_cdata( ). WRITE: / 'CDATA:'. WRITE: / lv_result. ENDIF. * HTTP Connection schließen o_client->close( ). ENDIF. CATCH cx_root INTO DATA(e_txt). WRITE: / e_txt->get_text( ). ENDTRY.
Variante 2 (HTTP-Alias)
* mit SM59 einrichten DATA: lv_http_dest TYPE rfcdest VALUE 'HTTP_ALIAS'. DATA: o_client TYPE REF TO if_http_client. DATA: lv_http_rc TYPE i. DATA: lv_reason TYPE string. TRY. cl_http_client=>create_by_destination( EXPORTING destination = lv_http_dest IMPORTING client = o_client ). o_client->request->set_method( if_http_request=>co_request_method_get ). o_client->send( ). o_client->receive( ). o_client->response->get_status( IMPORTING code = lv_http_rc reason = lv_reason ). IF lv_http_rc = 200. DATA(lv_xml) = o_client->response->get_cdata( ). cl_abap_browser=>show_xml( xml_string = lv_xml title = 'XML-Daten' size = cl_abap_browser=>large ). ELSE. WRITE: / 'Fehler: ', lv_http_rc. ENDIF. o_client->close( ). CATCH cx_root INTO DATA(e_txt). WRITE: / e_txt->get_text( ). ENDTRY.
- https://blogs.sap.com/2014/03/27/consuming-an-external-restful-web-service-with-abap-in-gateway/
- https://abapcodexperiments.wordpress.com/2011/04/06/abap-http-request/
- https://help.sap.com/doc/saphelp_nwpi71/7.1/de-DE/1f/93163f9959a808e10000000a114084/content.htm?no_cache=true
- https://otremba.net/wiki/%C3%9Cbung_Schr%C3%B6dinger:_11_Ausnahmen_(ABAP)