Oracle使用utl_http访问webservice_老杨风子_新浪博客

  Oracle使用utl_http访问webservice

 

 PLSQL访问webservice, utl_dbws是个不错的选择，另外的一种方式是直接构造http请求访问。
 这里，使用了utl_http工具包，并使用了X MLTABLE+XPATH获取请求的结果。
 另外，普通数据库用户需要预先授权。
 代码如下：

DECLARE
  req     utl_http.req;
  resp    utl_http.resp;
  v_msg   VARCHAR2(80);
  v_url   VARCHAR2(32767) := 'http://120.131.70.71:8088/svc.asmx';
  v_name  VARCHAR2(32767);
  v_value VARCHAR2(32767);


  v_clob_content CLOB;
  --这里是请求的内容
  v_content VARCHAR2(32767) := '
   
   
     
   

';


  v_xmltable xmltype;
BEGIN
  --utl_http.set_response_error_check ( enable => true );
  -- utl_http.set_detailed_excp_support ( enable => true );
  --dbms_output.put_line('STATUS CODE: ' || 'resp.status_code');
  req := utl_http.begin_request(v_url, 'POST', utl_http.http_version_1_1);
  utl_http.set_header(req, 'Content-Type', 'text/xml; charset=utf-8');


  --utl_http.set_header(req, 'Host', '220.168.42.13');
  utl_http.set_header(req, 'Content-Length', length(v_content));


  utl_http.write_text(req, v_content);


  resp := utl_http.get_response(r => req);
  dbms_output.put_line('STATUS CODE: ' || resp.status_code);
  dbms_output.put_line('REASON PHRASE: ' || resp.reason_phrase);


  BEGIN
    LOOP
      utl_http.read_line(resp, v_value, TRUE);
      v_clob_content := v_clob_content || v_value;
      --dbms_output.put_line(v_value);
    END LOOP;
  
   
    utl_http.end_response(r => resp);
  
  EXCEPTION
    WHEN OTHERS THEN
      --dbms_output.put_line(SQLCODE || ':' || SQLERRM);
      --dbms_output.put_line(dbms_utility.format_error_backtrace);
      --dbms_output.put_line(dbms_utility.format_error_stack);
      utl_http.end_response(r => resp);
  END;


  --dbms_output.put_line(v_clob_content);


 


  --dbms_output.put_line(v_clob_content);
  v_xmltable := xmltype(v_clob_content);
  --这里解析返回的结果 如果有namespace需要在extract参数里声明。
  --dbms_output.put_line(v_xmltable.extract('/soap:Envelope/soap:Body/svc_aboutResponse/svc_aboutResult/text()', 'xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"')
  --                     .getclobval());
                       
  dbms_output.put_line(v_xmltable.extract('/soap:Envelope/soap:Body/svc_aboutResponse/svc_aboutResult/text()', 'xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="h2"').getclobval());
                       
 
EXCEPTION
  WHEN OTHERS THEN
    dbms_output.put_line(SQLCODE || ':' || SQLERRM);
    dbms_output.put_line(dbms_utility.format_error_backtrace);
    dbms_output.put_line(dbms_utility.format_error_stack);
    --utl_http.end_response(r => resp);


END;