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);

 /*

  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;