oracle 配置访问webservice／url 权限

目录

一、oracle安装教程

二、oracle访问webservice／url 配置

1、创建 ACL​

2、增加权限

3、授予需要访问的webservice／url权限

三、使用举例

例1：获取ip（例子是ipv6地址），实例名

例2：获取网页／接口内容

一、oracle安装教程

CentOS 7图形化安装Oracle 11g

CentOS 7 最小安装，使用响应文件静默安装Oracle 11g

二、oracle访问webservice／url 配置

1、创建 ACL

Begin
  Dbms_Network_Acl_Admin.Create_Acl(Acl         => 'UTL_INADDR.xml',
                                    Description => 'utl_inaddr',
                                    Principal   => 'CONNECT', --角色
                                    Is_Grant    => True,
                                    Privilege   => 'resolve');
  Commit;
End;
/

2、增加权限

Begin
  Dbms_Network_Acl_Admin.Add_Privilege(Acl       => 'UTL_INADDR.xml',
                                       Principal => 'SCOTT',   --用户。请依照实际变更（大写大写）
                                       Is_Grant  => True,
                                       Privilege => 'connect',
                   start_date => null,   
                                       end_date   => null);
  Commit;
End;
/

3、授予需要访问的webservice／url权限

Begin
  Dbms_Network_Acl_Admin.Assign_Acl(Acl => 'UTL_INADDR.xml', Host => '*'); --访问全部
  Commit;
End;
/

三、使用举例

例1：获取ip（例子是ipv6地址），实例名

Select Lower(Utl_Inaddr.Get_Host_Address || ':' || Sys_Context('USERENV', 'DB_NAME')) From Dual;

例2：获取网页／接口内容

declare
    Req   Utl_Http.Req;
    Resp  Utl_Http.Resp;
    Value Varchar2(13767);
begin
    Req := Utl_Http.Begin_Request('wechat.delcare.cn');
    UTL_HTTP.SET_HEADER(req, 'User-Agent',
                        'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_12_6) AppleWebKit/605.1.15 (KHTML, like Gecko) Version/12.1.2 Safari/605.1.15');
    Resp := Utl_Http.Get_Response(Req);
    Utl_Http.READ_TEXT(Resp, Value);
    dbms_output.PUT_LINE(Value);
    Utl_Http.End_Response(Resp);
end;
／