Oracle 发送HTTP请求

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了Oracle 发送HTTP请求，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含3213字，纯文字阅读大概需要5分钟。

内容图文

Oracle 发送HTTP请求

• 查询是否为当前用户分配acl权限

select * from dba_network_acl_privileges ;

• 查看文件夹下是否有该acl文件

SELECT any_path FROM resource_view WHERE any_path like '/sys/acls/%.xml';

• 如果有，执行以下sql，将系统中已经有的acl分配给当前用户

begin
  dbms_network_acl_admin.add_privilege
    (acl        => '/sys/acls/utl_http.xml',      -- 命名ACL
     principal  => 'SONG',                   -- 用户
     is_grant   => true,                     -- true表示赋权，false表示取消赋权
     privilege  => 'connect');               -- 权限限制
end;

• 如果没有acl文件，则需要创建ac

begin
  dbms_network_acl_admin.create_acl
    (acl         => '/sys/acls/utl_http.xml', -- 命名
     description => 'url http 请求',           -- 描述
     principal   => 'SONG',                   -- 要赋权限的用户
     is_grant    => true,                     -- true表示赋权，false表示取消赋权
     privilege   => 'connect');               -- 权限限制
end;

• 分配地址端口

begin
  dbms_network_acl_admin.assign_acl
    (acl        => '/sys/acls/utl_http.xml', -- 命名
     host       => '*',          -- 服务器地址
     lower_port => 1,                       -- 端口从
     upper_port => 10000);                  -- 端口到
end;

• 删除acl配置文件

begin
    dbms_network_acl_admin.drop_acl(
        '/sys/acls/utl_http.xml'
    );
end;

创建POST和Get函数

• Get方式：

CREATE OR REPLACE FUNCTION FN_HTTP_GET (v_url  VARCHAR2)
RETURN VARCHAR2
AS
BEGIN
  DECLARE
  req UTL_HTTP.REQ;
  resp UTL_HTTP.RESP;
  v_line VARCHAR2 ( 4000 );
  v_text VARCHAR2 ( 4000 );
  BEGIN
    v_text := '';
    BEGIN
      req := UTL_HTTP.BEGIN_REQUEST ( url => v_url, method => 'GET' );
      UTL_HTTP.SET_BODY_CHARSET('UTF-8');
      UTL_HTTP.SET_HEADER(req, 'Content-Type', 'application/x-www-form-urlencoded');
      resp := UTL_HTTP.GET_RESPONSE ( req );
      LOOP
      UTL_HTTP.READ_LINE ( resp, v_line, TRUE );
      v_text := v_text || v_line;
      END LOOP;
      UTL_HTTP.END_RESPONSE( resp );
      UTL_HTTP.END_REQUEST( req );
      EXCEPTION
        WHEN UTL_HTTP.END_OF_BODY THEN
        UTL_HTTP.END_RESPONSE ( resp );
        WHEN OTHERS THEN
        UTL_HTTP.END_RESPONSE(resp);
        UTL_HTTP.END_REQUEST(req);
    END;
    return v_text;
  END;
END;

• Post方式：

CREATE OR REPLACE FUNCTION FN_HTTP_POST (v_url  VARCHAR2, v_body  VARCHAR2, v_body_type VARCHAR2)
RETURN VARCHAR2
AS
BEGIN
	DECLARE
	req UTL_HTTP.REQ;
	resp UTL_HTTP.RESP;
	v_line VARCHAR2 ( 4000 );
	v_text VARCHAR2 ( 4000 );
	BEGIN
		v_text := '';
		BEGIN
			req := UTL_HTTP.BEGIN_REQUEST ( url => v_url, method => 'POST' );
			UTL_HTTP.SET_BODY_CHARSET('UTF-8');
			UTL_HTTP.SET_HEADER(req, 'Content-Type', v_body_type);
			utl_http.set_header(req, 'Content-Length',lengthb(v_body));
		  utl_http.write_text(req, v_body);
      resp := UTL_HTTP.GET_RESPONSE ( req );      
      LOOP
      UTL_HTTP.READ_LINE ( resp, v_line, TRUE );
      v_text := v_text || v_line;
      END LOOP;

      UTL_HTTP.END_RESPONSE( resp );
      UTL_HTTP.END_REQUEST( req );
      EXCEPTION
        WHEN UTL_HTTP.END_OF_BODY THEN
        UTL_HTTP.END_RESPONSE ( resp );
        WHEN OTHERS THEN
        UTL_HTTP.END_RESPONSE(resp);
        UTL_HTTP.END_REQUEST(req);
    END;
    return v_text;
  END;
END;

使用pljson获取接口调用的值

• 下载安装plsql

  下载地址

• 解析请求结果

DECLARE 
  test VARCHAR2(2000);
  v_json pljson;
begin
  v_json :=  pljson(fn_http_get('http://xxxx.com/Pxyb/CheckInfo?cardID=123')) ;
  dbms_output.put_line(v_json.to_char);
  dbms_output.put_line(pljson_ext.get_string(v_json, 'InfoMsg'));
end;

参考博客连接

Oracle 使用UTL_HTTP发送http请求_tmaczt的博客-CSDN博客

Oracle:网络访问被访问控制列表 (ACL) 拒绝 - hziwei - 博客园 (cnblogs.com)

内容总结

以上是互联网集市为您收集整理的Oracle 发送HTTP请求全部内容，希望文章能够帮你解决Oracle 发送HTTP请求所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---