ABAP中以HTTP方式调用WebService服务

将URL+Email字符串通过HTTP的方式发送，并返回接收数据，其实传输的数据都是XML文件的形式。

1、程序代码

1. PARAMETERS: p_mail(100) LOWER CASE.                 " E-Mail id to be verified
   
2. DATA: http_client TYPE REF TO if_http_client .
   
3. DATA: w_string TYPE string,
   
4.       w_result TYPE string,
   
5.       r_str    TYPE string.
   
6. DATA: result_tab TYPE TABLE OF string.
   
7. 
   
8. START-OF-SELECTION .
   
9.   CLEAR w_string .
   
10.   CONCATENATE
    
11.   'http://www.webservicex.net/ValidateEmail.asmx/IsValidEmail?Email=' p_mail
    
12. INTO
    
13.   w_string .
    
14.   CALL METHOD cl_http_client=>create_by_url
    
15.     EXPORTING
    
16.       url                = w_string
    
17.     IMPORTING
    
18.       client             = http_client
    
19.     EXCEPTIONS
    
20.       argument_not_found = 1
    
21.       plugin_not_active  = 2
    
22.       internal_error     = 3
    
23.       OTHERS             = 4.
    
24.   CALL METHOD http_client->send
    
25.     EXCEPTIONS
    
26.       http_communication_failure = 1
    
27.       http_invalid_state         = 2.
    
28.   CALL METHOD http_client->receive
    
29.     EXCEPTIONS
    
30.       http_communication_failure = 1
    
31.       http_invalid_state         = 2
    
32.       http_processing_failed     = 3.
    
33.   CLEAR w_result .
    
34.   w_result = http_client->response->get_cdata( ).
    
35.   REFRESH result_tab .
    
36.   SPLIT w_result AT cl_abap_char_utilities=>cr_lf INTO TABLE result_tab .
    
37. *cl_abap_char_utilities=>cr_lf  回车

复制代码

扩展阅读：abap中TAB符、回车、换行、换页、退格符等特殊字符的使用

2、程序测试结果
如果出现一下报错，需要将ip和域名，加到服务端host文件中

以网页的形式查看返回数据

已内表的形式查看返回数据