创建存储过程
CREATE OR REPLACE PROCEDURE send_http_request(
p_body IN CLOB,
p_response OUT CLOB) AS
req UTL_HTTP.req;
resp UTL_HTTP.resp;
l_url VARCHAR2(200) := 'http://10.10.0.8:5008/api/log';
BEGIN
-- 创建HTTP请求
req := UTL_HTTP.begin_request(l_url, 'POST', 'HTTP/1.1');
-- 设置请求头部
UTL_HTTP.set_header(req, 'Content-Type', 'application/json;chartset=utf-8');
UTL_HTTP.set_header(req, 'Content-Length', LENGTH(p_body));
UTL_HTTP.set_header(req, 'User-Agent', 'Mozilla/4.0');
-- 发送请求体
UTL_HTTP.write_text(req, p_body);
-- 获取响应
resp := UTL_HTTP.get_response(req);
-- 读取响应内容
LOOP
UTL_HTTP.read_text(resp, p_response);
END LOOP;
-- 关闭HTTP连接
UTL_HTTP.end_response(resp);
EXCEPTION
WHEN UTL_HTTP.end_of_body THEN
NULL; -- 忽略异常
END;
执行存储过程
DECLARE
l_body CLOB := '{"author": "20220307010", "func": "oracle调用示例13","app": "100003","log_level": 3,"content": "oracle调用示例"}';
l_response CLOB;
BEGIN
send_http_request(l_body, l_response);
-- 处理响应结果
DBMS_OUTPUT.put_line(l_response);
END;
调用示例中文对方接收到的是???
如何解决乱码问题