oracle发送HTTP请求参考例子

来源：(21条消息) oracle发送HTTP请求参考例子_张林旺的专栏-CSDN博客

wang big big 2016-07-20 13:43:33 2691 收藏
分类专栏： oracle java 文章标签： oracle http请求
版权
//------------------oracle发送HTTP请求参考例子------------
function fnSqlHttpRequest(
pi_URL in varchar2, --发送的Http URL
pi_Content in varchar2, --发送的报文内容
po_ReMsg out varchar2, --错误内容
po_xmltype out xmltype --响应报文内容
) return boolean
as
obj_http_req UTL_HTTP.REQ; --http请求对象
obj_http_resp UTL_HTTP.RESP; --http响应对象
v_req_clob varchar2(32767); --请求报文
v_resp_clob clob; --响应报文
v_buffer_text varchar2(32767); --缓存
v_resp_text varchar2(32767);
TIMEOUT INTEGER DEFAULT 3600;
--v_length int;
begin
v_req_clob:=pi_Content;
--DBMS_OUTPUT.PUT_LINE('pi_Content = ' || pi_Content);
--v_length:=length(pi_Content);

-- DBMS_OUTPUT.PUT_LINE('v_req_clob = ' || v_req_clob);
-- 初始化晌应CLOB.
DBMS_LOB.createtemporary(v_resp_clob, FALSE);
v_resp_text:='';

-- 初始化HTTP请求参数.
UTL_HTTP.SET_TRANSFER_TIMEOUT(TIMEOUT);

obj_http_req := UTL_HTTP.BEGIN_REQUEST (pi_URL, 'POST');
UTL_HTTP.SET_HEADER (obj_http_req,'Content-Type','text/xml');
UTL_HTTP.SET_HEADER (obj_http_req,'Content-Length',lengthb(v_req_clob));
UTL_HTTP.SET_BODY_CHARSET(obj_http_req,'UTF-8');

--发送HTTP请求
UTL_HTTP.WRITE_TEXT (obj_http_req,v_req_clob);

--接收响应
obj_http_resp := UTL_HTTP.GET_RESPONSE(obj_http_req);

BEGIN
LOOP
UTL_HTTP.READ_TEXT(obj_http_resp, v_buffer_text, 30000);
-- v_resp_text:=v_resp_text||v_buffer_text;
DBMS_LOB.WRITEAPPEND(v_resp_clob, length(v_buffer_text), v_buffer_text);
END LOOP;
--关闭HTTP连接
UTL_HTTP.END_RESPONSE(obj_http_resp);
EXCEPTION
WHEN UTL_HTTP.REQUEST_FAILED THEN --The HTTP request failed
UTL_HTTP.END_RESPONSE(obj_http_resp);
DBMS_LOB.freetemporary(v_resp_clob);
po_ReMsg := 'HTTP请求失败：' || 'DBS' || to_char(SQLCODE) || ':' || substr(SQLERRM,1,128);
pkgSystem.prAddErrLog('fnHttpSqlRequest',SQLCODE, SQLERRM);
RETURN FALSE;
WHEN UTL_HTTP.TRANSFER_TIMEOUT THEN
UTL_HTTP.END_RESPONSE(obj_http_resp);
DBMS_LOB.freetemporary(v_resp_clob);
po_ReMsg := 'HTTP请求超时失败：' || 'DBS' || to_char(SQLCODE) || ':' || substr(SQLERRM,1,128);
pkgSystem.prAddErrLog('fnHttpSqlRequest',SQLCODE, SQLERRM);
RETURN FALSE;
WHEN UTL_HTTP.END_OF_BODY THEN--
UTL_HTTP.END_RESPONSE(obj_http_resp);
WHEN OTHERS THEN
UTL_HTTP.END_RESPONSE(obj_http_resp);
DBMS_LOB.freetemporary(v_resp_clob);
po_ReMsg := 'HTTP请求错误：' || 'DBS' || to_char(SQLCODE) || ':' || substr(SQLERRM,1,128);
pkgSystem.prAddErrLog('fnHttpSqlRequest',SQLCODE, SQLERRM);
RETURN FALSE;
END;

--DBMS_OUTPUT.PUT_LINE('v_resp_clob = ' || v_resp_clob);
--创建XMLTYPE对象
po_xmltype:=sys.XMLTYPE(v_resp_clob);
--释放clob
DBMS_LOB.freetemporary(v_resp_clob);
RETURN TRUE;
EXCEPTION
WHEN OTHERS THEN
UTL_HTTP.END_RESPONSE(obj_http_resp);
DBMS_LOB.freetemporary(v_resp_clob);
po_ReMsg := 'XML内容错误：' || 'DBS' || to_char(SQLCODE) || ':' || substr(SQLERRM,1,128);
pkgSystem.prAddErrLog('fnHttpSqlRequest',SQLCODE, SQLERRM);
return false;

end fnSqlHttpRequest;

————————————————
版权声明：本文为CSDN博主「wang big big」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/shangshaohui2009/article/details/51967544