Call webservice from abap

Question

Hello,
I use the following code to call web service from abap, but in the method "http_client->receive"  i see "http_communication_failure = 1" .
this is the code:
DATA: SMS_TEXT       TYPE STRING,
       SMS_TEXT_UTF   TYPE STRING,
       SEND_STRING    TYPE STRING.
DATA: w_string TYPE string ,
       w_result TYPE string ,
       r_str    TYPE string .
DATA: result_tab TYPE TABLE OF string.
DATA: http_client    TYPE REF TO if_http_client.
SEND_STRING = 'http://www.currencyserver.de/webservice/currencyserverwebservice.asmx/getDollarValue?provider=AVERAGE&currency=EUR'.
CALL METHOD cl_http_client=>create_by_url
   EXPORTING
     url                = SEND_STRING
   IMPORTING
     client             = http_client
   EXCEPTIONS
     argument_not_found = 1
     plugin_not_active  = 2
     internal_error     = 3
     others             = 4.
if sy-subrc = 0.
   CALL METHOD http_client->send
     EXCEPTIONS
       http_communication_failure = 1
       http_invalid_state         = 2.
   CALL METHOD http_client->receive
     EXCEPTIONS
       http_communication_failure = 1
       http_invalid_state         = 2
       http_processing_failed     = 3.
   if sy-subrc = 0.
     w_result = http_client->response->get_cdata( ).
     REFRESH result_tab .
     SPLIT w_result AT cl_abap_char_utilities=>cr_lf INTO TABLE result_tab .
     loop at result_tab into w_result.
       write :/ w_result.
     endloop.
   endif.
endif.
Any Idea?
thanks.
Ouail.

Answer 1

*& Report  ZBS_TEST
REPORT zbs_test.
*Data
DATA: xml_doc TYPE REF TO cl_xml_document,
       node TYPE REF TO if_ixml_node,
       value TYPE string,
       lv_result TYPE string,
       lv_service TYPE string,
       lo_http_client TYPE REF TO if_http_client.
lv_service = 'http://www.currencyserver.de/webservice/currencyserverwebservice.asmx/getDollarValue?provider=AVERAGE&currency=EUR'.
*Call method to invoke web service
cl_http_client=>create_by_url(
   EXPORTING
     url                = lv_service
   IMPORTING
     client             = lo_http_client
   EXCEPTIONS
     argument_not_found = 1
     plugin_not_active  = 2
     internal_error     = 3
     OTHERS             = 4 ).
lo_http_client->send(
   EXCEPTIONS
     http_communication_failure = 1
     http_invalid_state         = 2 ).
lo_http_client->receive(
   EXCEPTIONS
     http_communication_failure = 1
     http_invalid_state         = 2
     http_processing_failed     = 3 ).
*Create XML parser object using xml returned from web service
CLEAR lv_result.
lv_result = lo_http_client->response->get_cdata( ).
CREATE OBJECT xml_doc.
xml_doc->parse_string( stream = lv_result ).
*Use XML parser to get initial row and then loop through all rows
CALL METHOD xml_doc->get_first_node
   RECEIVING
     node = node.
*Loop through xml document extracting the data into an internal table
WHILE NOT node IS INITIAL.
   CLEAR value.
   CALL METHOD node->get_value
     RECEIVING
       rval   = value.
   WRITE: / 'Value', value.
   CALL METHOD node->get_next
     RECEIVING
       rval = node.
ENDWHILE.
Try this code it should work to retrieve your values from the webservice.