Oracle行级触发器使用存储过程调用HTTP接口

CREATE OR REPLACE TRIGGER ON_INSERT_TRIGGER_500INDEX
AFTER  INSERT ON DA_L_PORT_FOR_500INDEX
FOR EACH ROW
BEGIN
POST_CHANGE_ITEM('DA_L_PORT_FOR_500INDEX','PFI_ID',:NEW.PFI_ID);
END;

 

CREATE OR REPLACE PROCEDURE POST_CHANGE_ITEM(v_table_name in varchar2,v_table_id in varchar2,v_id_value in varchar2 ) IS
  req  UTL_HTTP.REQ;
  resp UTL_HTTP.RESP;
  v_message  varchar2(10000);
  xmlstr  varchar2(30000);
 v_content  varchar2(30000);
begin
    begin
      v_content := 'tableName='||v_table_name||'&idField='||v_table_id||'&idValue='||v_id_value;
      req  := UTL_HTTP.BEGIN_REQUEST('http://172.16.164.6:8080/presap/da/dbc.do?'||v_content);
      utl_http.set_header(req, 'Content-Type', 'text/html; charset=utf-8');
      utl_http.write_text(req,xmlstr);
      xmlstr:=v_content;
      utl_http.set_header(req, 'Content-Length',lengthb(xmlstr));
      utl_http.write_text(req,xmlstr);
      resp := UTL_HTTP.GET_RESPONSE(req);
      LOOP
        UTL_HTTP.read_line(resp,v_message, TRUE);
        dbms_output.put_line(v_message);
      END LOOP;
      utl_http.end_request(req);
      utl_http.end_response(resp);
    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;
END POST_CHANGE_ITEM;