使用Oracle发送http请求

使用Oracle发送http请求，实现的思路是：在某张表上配置触发器，该触发器调用存储过程，使用存储过程执行http请求的发送。

需要注意的几点是：

1、http post请求，在发送的时候，跟数据库的字符集有关，在处理不当的时候，会出现乱码问题。

2、oracle访问网络服务的时候，需要配置acl权限。

创建触发器：

CREATE OR REPLACE TRIGGER “T_POST4REQHAND” AFTER INSERT ON “REQUESTHANDLERINFO” REFERENCING OLD AS “OLD” NEW AS “NEW” FOR EACH ROW
declare
begin
   PRO_POSTREQ(:new.id,:new.params);
end T_POST4REQHAND;

CREATE OR REPLACE TRIGGER "T_POST4REQHAND" AFTER INSERT ON "REQUESTHANDLERINFO" REFERENCING OLD AS "OLD" NEW AS "NEW" FOR EACH ROW 
declare
begin
   PRO_POSTREQ(:new.id,:new.params);  
end T_POST4REQHAND;

创建存储过程：

create or replace procedure “PRO_POSTREQ”(r_id in varchar2,params in varchar2) as
begin

DECLARE
  req   UTL_HTTP.REQ;
  resp  UTL_HTTP.RESP;
  value VARCHAR2(1024);  – URL to post to
   v_url VARCHAR2(4000) := ‘http://192.168.0.156:8080/bzjw_platform/f/responseresult/responseResult/invokeOutRequest?rid=’||r_id||’&¶ms’||params;
   v_param VARCHAR2(4000) := ‘1’;


  v_param_length NUMBER := LENGTHB(v_param);
BEGIN
   DBMS_OUTPUT.ENABLE (buffer_size=>null);
  req := UTL_HTTP.BEGIN_REQUEST (url=> v_url, method => ‘POST’);
  UTL_HTTP.SET_BODY_CHARSET(‘UTF-8’);
  UTL_HTTP.SET_HEADER (r      =>  req,
                       name   =>  ‘Content-Type’,
                       value  =>  ‘application/x-www-form-urlencoded’);
  UTL_HTTP.SET_HEADER(req, ‘Keep-Alive’, ’  timeout=1‘);
  UTL_HTTP.SET_HEADER (r      =>   req,
                       name   =>   ‘Content-Length’,
                       value  =>   v_param_length);

   UTL_HTTP.WRITE_RAW (r    => req,
                    data => UTL_RAW.CAST_TO_RAW(v_param));

  resp := UTL_HTTP.GET_RESPONSE(req);
  LOOP
    UTL_HTTP.READ_LINE(resp, value, TRUE);
    DBMS_OUTPUT.PUT_LINE(value);
  END LOOP;
  UTL_HTTP.END_RESPONSE(resp);
EXCEPTION
  WHEN UTL_HTTP.END_OF_BODY THEN
    UTL_HTTP.END_RESPONSE(resp);
END;
end PRO_POSTREQ;

create or replace procedure "PRO_POSTREQ"(r_id in varchar2,params in varchar2) as
begin

DECLARE
  req   UTL_HTTP.REQ;
  resp  UTL_HTTP.RESP;
  value VARCHAR2(1024);  -- URL to post to
   v_url VARCHAR2(4000) := 'http://192.168.0.156:8080/bzjw_platform/f/responseresult/responseResult/invokeOutRequest?rid='||r_id||'&¶ms'||params;
   v_param VARCHAR2(4000) := '1';


  v_param_length NUMBER := LENGTHB(v_param);
BEGIN
   DBMS_OUTPUT.ENABLE (buffer_size=>null);
  req := UTL_HTTP.BEGIN_REQUEST (url=> v_url, method => 'POST');
  UTL_HTTP.SET_BODY_CHARSET('UTF-8');
  UTL_HTTP.SET_HEADER (r      =>  req,
                       name   =>  'Content-Type',
                       value  =>  'application/x-www-form-urlencoded');
  UTL_HTTP.SET_HEADER(req, 'Keep-Alive', '  timeout=1');
  UTL_HTTP.SET_HEADER (r      =>   req,
                       name   =>   'Content-Length',
                       value  =>   v_param_length);

   UTL_HTTP.WRITE_RAW (r    => req,
                    data => UTL_RAW.CAST_TO_RAW(v_param)); 

  resp := UTL_HTTP.GET_RESPONSE(req);
  LOOP
    UTL_HTTP.READ_LINE(resp, value, TRUE);
    DBMS_OUTPUT.PUT_LINE(value);
  END LOOP;
  UTL_HTTP.END_RESPONSE(resp);
EXCEPTION
  WHEN UTL_HTTP.END_OF_BODY THEN
    UTL_HTTP.END_RESPONSE(resp);
END;
end PRO_POSTREQ;

该请求为post，但是所有的参数传递均放置在URL中，原因是，放置在v_param 这个参数中时，数据库字符集为utf8的时候，一切正常，但是若是gbk，则发生乱码。

原因是 oracle的参数拼接字符 “||”会进行一次编码。 按照网上所说的，使用转码等一系列操作，最终仍没有解决。

定义ACL,若没有ACL，则无法访问网络。

–定义ACL 取名：httprequestpermission.xml

BEGIN
    dbms_network_acl_admin.create_acl(acl         => ’httprequestpermission.xml’,
                                      DESCRIPTION => ’Normal Access’,
                                      principal   => ’CONNECT’,
                                      is_grant    => TRUE,
                                      PRIVILEGE   => ’connect’,
                                      start_date  => NULL,
                                      end_date    => NULL);
END;

--定义ACL 取名：httprequestpermission.xml

BEGIN
    dbms_network_acl_admin.create_acl(acl         => 'httprequestpermission.xml',
                                      DESCRIPTION => 'Normal Access',
                                      principal   => 'CONNECT',
                                      is_grant    => TRUE,
                                      PRIVILEGE   => 'connect',
                                      start_date  => NULL,
                                      end_date    => NULL);
END;

–查看ACL是否增加成功
SELECT any_path
FROM resource_view
where any_path  like ‘/sys/acls/%.xml’
;

–给用户增加acl权限，这里是 SD_JY 注意是大写，小写不识别
begin  dbms_network_acl_admin.add_privilege(acl     => ‘httprequestpermission.xml’,
                                         principal  => ’SD_JY’,
                                         is_grant   => TRUE,
                                         privilege  => ’connect’,
                                         start_date => null,
                                         end_date   => null);
end;


–添加对应主机 ，将对应主机和端口添加到ACL。这里是 192.168.0.156 和 8080 ，这个ip和端口要和上面存储过程中定义的地址一致
begin
    dbms_network_acl_admin.assign_acl(acl        => ’httprequestpermission.xml’,
                                      host       => ’192.168.0.156’,
                                      lower_port => 8080,
                                      upper_port => NULL);
end;

--查看ACL是否增加成功
SELECT any_path
FROM resource_view 
where any_path  like '/sys/acls/%.xml'
;

--给用户增加acl权限，这里是 SD_JY 注意是大写，小写不识别
begin  dbms_network_acl_admin.add_privilege(acl     => 'httprequestpermission.xml',
                                         principal  => 'SD_JY',
                                         is_grant   => TRUE,
                                         privilege  => 'connect',
                                         start_date => null,
                                         end_date   => null);
end;


--添加对应主机 ，将对应主机和端口添加到ACL。这里是 192.168.0.156 和 8080 ，这个ip和端口要和上面存储过程中定义的地址一致
begin
    dbms_network_acl_admin.assign_acl(acl        => 'httprequestpermission.xml',
                                      host       => '192.168.0.156',
                                      lower_port => 8080,
                                      upper_port => NULL);
end;

ACL的增加过程为：建立新的acl文件，对该文件中，用户授权，对该文件中，URL和端口授权。

可查看对应的ACL信息是否添加上

SELECT  acl,
       principal,
       privilege,
       is_grant,
       TO_CHAR(start_date, ’DD-MON-YYYY’) AS start_date,
       TO_CHAR(end_date, ’DD-MON-YYYY’) AS end_date
  FROM dba_network_acl_privileges;

SELECT  acl,
       principal,
       privilege,
       is_grant,
       TO_CHAR(start_date, 'DD-MON-YYYY') AS start_date,
       TO_CHAR(end_date, 'DD-MON-YYYY') AS end_date
  FROM dba_network_acl_privileges;

至此，访问存储过程或者触发器，测试对应的程序即可。