使用Oracle发送http请求


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

需要注意的几点是:

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

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


创建触发器:

[sql] view plain copy
print ?
  1. CREATE OR REPLACE TRIGGER “T_POST4REQHAND” AFTER INSERT ON “REQUESTHANDLERINFO” REFERENCING OLD AS “OLD” NEW AS “NEW” FOR EACH ROW   
  2. declare  
  3. begin  
  4.    PRO_POSTREQ(:new.id,:new.params);    
  5. 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;

创建存储过程:

[html] view plain copy
print ?
  1. create or replace procedure “PRO_POSTREQ”(r_id in varchar2,params in varchar2) as  
  2. begin  
  3.   
  4. DECLARE  
  5.   req   UTL_HTTP.REQ;  
  6.   resp  UTL_HTTP.RESP;  
  7.   value VARCHAR2(1024);  – URL to post to  
  8.    v_url VARCHAR2(4000) :‘http://192.168.0.156:8080/bzjw_platform/f/responseresult/responseResult/invokeOutRequest?rid=’||r_id||’&¶ms’||params;  
  9.    v_param VARCHAR2(4000) :‘1’;  
  10.   
  11.   
  12.   v_param_length NUMBER :LENGTHB(v_param);  
  13. BEGIN  
  14.    DBMS_OUTPUT.ENABLE (buffer_size=>null);  
  15.   req :UTL_HTTP.BEGIN_REQUEST (url=> v_url, method => ‘POST’);  
  16.   UTL_HTTP.SET_BODY_CHARSET(‘UTF-8’);  
  17.   UTL_HTTP.SET_HEADER (r      =>  req,  
  18.                        name   =>  ‘Content-Type’,  
  19.                        value  =>  ‘application/x-www-form-urlencoded’);  
  20.   UTL_HTTP.SET_HEADER(req, ‘Keep-Alive’, ’  timeout=1‘);  
  21.   UTL_HTTP.SET_HEADER (r      =>   req,  
  22.                        name   =>   ‘Content-Length’,  
  23.                        value  =>   v_param_length);  
  24.    
  25.    UTL_HTTP.WRITE_RAW (r    => req,  
  26.                     data => UTL_RAW.CAST_TO_RAW(v_param));   
  27.   
  28.   resp :UTL_HTTP.GET_RESPONSE(req);  
  29.   LOOP  
  30.     UTL_HTTP.READ_LINE(resp, value, TRUE);  
  31.     DBMS_OUTPUT.PUT_LINE(value);  
  32.   END LOOP;  
  33.   UTL_HTTP.END_RESPONSE(resp);  
  34. EXCEPTION  
  35.   WHEN UTL_HTTP.END_OF_BODY THEN  
  36.     UTL_HTTP.END_RESPONSE(resp);  
  37. END;  
  38. 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,则无法访问网络。

[sql] view plain copy
print ?
  1. –定义ACL 取名:httprequestpermission.xml  
  2.   
  3. BEGIN  
  4.     dbms_network_acl_admin.create_acl(acl         => ’httprequestpermission.xml’,  
  5.                                       DESCRIPTION => ’Normal Access’,  
  6.                                       principal   => ’CONNECT’,  
  7.                                       is_grant    => TRUE,  
  8.                                       PRIVILEGE   => ’connect’,  
  9.                                       start_date  => NULL,  
  10.                                       end_date    => NULL);  
  11. 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;
[sql] view plain copy
print ?
  1. –查看ACL是否增加成功  
  2. SELECT any_path  
  3. FROM resource_view   
  4. where any_path  like ‘/sys/acls/%.xml’  
  5. ;  
  6.   
  7. –给用户增加acl权限,这里是 SD_JY 注意是大写,小写不识别  
  8. begin  dbms_network_acl_admin.add_privilege(acl     => ‘httprequestpermission.xml’,  
  9.                                          principal  => ’SD_JY’,  
  10.                                          is_grant   => TRUE,  
  11.                                          privilege  => ’connect’,  
  12.                                          start_date => null,  
  13.                                          end_date   => null);  
  14. end;  
  15.   
  16.   
  17. –添加对应主机 ,将对应主机和端口添加到ACL。这里是 192.168.0.156 和 8080 ,这个ip和端口要和上面存储过程中定义的地址一致  
  18. begin  
  19.     dbms_network_acl_admin.assign_acl(acl        => ’httprequestpermission.xml’,  
  20.                                       host       => ’192.168.0.156’,  
  21.                                       lower_port => 8080,  
  22.                                       upper_port => NULL);  
  23. 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信息是否添加上

[sql] view plain copy
print ?
  1. SELECT  acl,  
  2.        principal,  
  3.        privilege,  
  4.        is_grant,  
  5.        TO_CHAR(start_date, ’DD-MON-YYYY’AS start_date,  
  6.        TO_CHAR(end_date, ’DD-MON-YYYY’AS end_date  
  7.   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;


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



你可能感兴趣的:(oracle)