oracle发送http请求。

@H_404_1@

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

需要注意的几点是：

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

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

@H_404_1@

创建触发器：

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||'&&params'||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;

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

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

@H_404_1@

定义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是否增加成功
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;

@H_404_1@

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

oracle发送http请求。

猜你在找的Oracle相关文章