PLSQL訪問webservice, utl_dbws是個(gè)不錯(cuò)的選擇，另外的一種方式是直接構(gòu)造http請(qǐng)求訪問。

這里，使用了utl_http工具包，并使用了XMLTABLE+XPATH獲取請(qǐng)求的結(jié)果。

另外，普通數(shù)據(jù)庫用戶需要預(yù)先授權(quán)。

代碼如下：

DECLARE

req ? ? utl_http.req;

resp ? ?utl_http.resp;

v_msg ? VARCHAR2(80);

v_url ? VARCHAR2(32767) := '';

v_name ?VARCHAR2(32767);

v_value VARCHAR2(32767);

v_clob_content CLOB;

--這里是請(qǐng)求的內(nèi)容

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;

/*FOR i IN 1 .. utl_http.get_header_count(r => resp) LOOP

utl_http.get_header(r => resp,

n => i,

NAME => v_name,

VALUE => v_value);

dbms_output.put_line(v_name || ': ' || 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);

/* v_clob_content := REPLACE(v_clob_content,

' SOAP-ENV:encodingStyle=" xmlns:SOAP-ENV=" xmlns:xsd=" xmlns:xsi=" xmlns:SOAP-ENC="',

'');

v_clob_content := REPLACE(v_clob_content,

' xmlns:ns1="',

'');

v_clob_content := REPLACE(v_clob_content, ' xsi:type="xsd:string"', '');

v_clob_content := REPLACE(v_clob_content, 'SOAP-ENV:', '');

v_clob_content := REPLACE(v_clob_content, 'ns1:', '');*/

--dbms_output.put_line(v_clob_content);

v_xmltable := xmltype(v_clob_content);

--這里解析返回的結(jié)果 如果有namespace需要在extract參數(shù)里聲明。

--dbms_output.put_line(v_xmltable.extract('/soap:Envelope/soap:Body/svc_aboutResponse/svc_aboutResult/text()', 'xmlns:soap=" xmlns:xsi=" xmlns:xsd="')

-- ? ? ? ? ? ? ? ? ? ? .getclobval());

dbms_output.put_line(v_xmltable.extract('/soap:Envelope/soap:Body/svc_aboutResponse/svc_aboutResult/text()', 'xmlns:soap=" xmlns:xsi=" xmlns:xsd=" 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;

總結(jié)

以上是生活随笔為你收集整理的关于oracle中utl_http,Oracle使用utl_http访问webservice的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。