oracle发送HTTP请求参考例子
来源:互联网 发布:微控制器是单片机 编辑:程序博客网 时间:2024/06/14 06:03
//------------------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);
/*
if (obj_http_resp.status_code <> 100) then
utl_http.end_response(obj_http_resp);
raise_application_error(20000, 'Request rejected');
end if;*/
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;
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);
/*
if (obj_http_resp.status_code <> 100) then
utl_http.end_response(obj_http_resp);
raise_application_error(20000, 'Request rejected');
end if;*/
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 sqlsendhttpreq;
0 0
- oracle发送HTTP请求参考例子
- oracle发送http请求。
- oracle如何发送http请求
- 使用Oracle发送http请求
- C#发送HTTP请求
- java 发送http请求
- socket 发送http请求
- python发送HTTP请求
- 异步发送HTTP请求
- python发送HTTP请求
- Qt发送HTTP请求
- socket发送http请求
- 发送http请求
- JAVA发送HTTP请求
- python发送HTTP请求
- c++ 发送http请求
- Qt发送http请求
- Qt发送HTTP请求
- C# WinForm程序退出的方法
- Python 验证码识别
- Java-Vextor(1)
- iOS开发之检查APP版本更新
- mongodb 3.2.7版本 的分片集群安装demo
- oracle发送HTTP请求参考例子
- HBase概览
- setuid()
- 计算 变异系数 标准差 标准偏差 相关系数 平滑指数 回归系数等C++ 模板类
- 最新eclipse整合Struts2.3.29+Hibernate5.2.1+Spring4.3.1(二)Struts+Hibernate篇
- 深层次理解MVC
- shell截取字符串的方法
- 网络流入门题hdu3549(Flow Problem)
- 移动开发html5最快banner制作(快速生成)有2种方法