oracle utl_http 导入和使用代码

UTL_HTTP是Oracle数据库中的一种包，用于从Oracle数据库服务器上执行HTTP请求。它允许数据库服务器作为HTTP客户端，与任何支持HTTP协议的服务器通信。

要导入UTL_HTTP包，你需要具备以下条件：

1. 确保你具有适当的权限。只有具有CREATE SESSION和CREATE PROCEDURE权限的用户才能导入UTL_HTTP包。
2. 访问包含UTL_HTTP包的数据库服务器。你可以使用Oracle SQL*Plus或其他数据库管理工具连接到数据库服务器。
3. 确保你的数据库服务器上已经安装了UTL_HTTP包。如果尚未安装，你需要先进行安装。

以下是在Oracle数据库中导入UTL_HTTP包的步骤：

1. 打开SQL*Plus或其他数据库管理工具，连接到包含UTL_HTTP包的数据库服务器。

2. 运行以下命令创建一个新的过程：

	CREATE OR REPLACE PROCEDURE my_http_procedure AS
	e_http_request UTL_HTTP.req;
	e_http_response UTL_HTTP.resp;
	e_http_status VARCHAR2(100);
	e_http_message VARCHAR2(1000);
	BEGIN
	-- 设置HTTP请求对象
	e_http_request := UTL_HTTP.begin_request('http://example.com', 'GET', NULL);
	-- 设置HTTP响应对象
	e_http_response := UTL_HTTP.get_response(e_http_request);
	-- 获取HTTP响应状态码和消息
	LOOP
	EXIT WHEN UTL_HTTP.is_done(e_http_response);
	BEGIN
	e_http_status := UTL_HTTP.get_status(e_http_response);
	e_http_message := UTL_HTTP.get_message(e_http_response);
	DBMS_OUTPUT.put_line('Status: ' || e_http_status || ', Message: ' || e_http_message);
	EXCEPTION
	WHEN OTHERS THEN
	DBMS_OUTPUT.put_line('Error: ' || SQLCODE || ', Message: ' || SQLERRM);
	EXIT;
	END;
	END LOOP;
	-- 关闭HTTP响应对象和释放资源
	UTL_HTTP.end_response(e_http_response);
	END;
	/

在上面的代码中，我们创建了一个名为my_http_procedure的过程，它使用UTL_HTTP包发送一个HTTP GET请求到http://example.com，并输出响应状态码和消息。你可以根据自己的需求修改这个过程。
3. 运行以下命令编译过程：

ALTER PROCEDURE my_http_procedure COMPILE BODY;

这将确保过程已经成功编译并可以使用。
4. 现在你已经成功导入了UTL_HTTP包并创建了一个使用它的过程。你可以通过调用该过程来执行HTTP请求。在SQL*Plus或其他数据库管理工具中执行以下命令：

EXEC my_http_procedure;

下面是实际项目使用UTL_HTTP调用应用服务器代码片段，前提是你已经开启ORACLE网络访问权限

env :='待发送JSON';
env  := utl_url.escape(env,true,'gb2312');
ls_begin_request    :='http://XXXXXXX/XXXXX';

http_req := utl_http.begin_request(ls_begin_request,'POST',                                          'HTTP/1.0');

utl_http.set_header(http_req, 'Content-Type', 'text/xml;charset=gb2312');
utl_http.set_header(http_req, 'Content-Length', length(env));
utl_http.set_header(http_req, 'SOAPAction', '');
utl_http.write_text(http_req, utl_url.unescape(env,'gb2312'));

http_resp := utl_http.get_response(http_req);
utl_http.read_text(http_resp, respones);
utl_http.end_response(http_resp);

获取到respones后就可以使用oraclejson组件进行相应的解析操作