PLSQL. UTL_HTTP package

Ниже приведены примеры использования встроенного пакета utl_http. Например, если Вам необходимо запросить некоторые данные по веб адресу, тогда можно воспользоваться пакетом utl_http следующим образом: 

declare
  req utl_http.req;
  res utl_http.resp;
  url varchar2(4000) := 'http://aviationweather.gov/adds/tafs/';
  param varchar2(200) := '?station_ids=vhhh' || '&' || 'std_trans=standart' || '&' || 'submit_both=Get+TAFs+and+METARs';
  l_data varchar2(32000);
begin
  dbms_output.enable(1000000000);
 
  utl_http.set_response_error_check(false);
  req := utl_http.begin_request(url || param); -- GET
    
  /* if need proxy
  utl_http.set_proxy('company.proxy.com:port', '');
  utl_http.set_authentication(req, 'user', 'password', for_proxy => true);
  */
   
  utl_http.set_header(req, 'User-Agent', 'Mozilla/4.0');
   
  res := utl_http.get_response(req);
   
  loop
    utl_http.read_line(res, l_data, true);
    dbms_output.put_line(l_data);
  end loop;
   
  utl_http.end_response(res);

  exception
    when utl_http.end_of_body then
      utl_http.end_response(res);
    when others then
      dbms_output.put_line(sqlerrm);
end;

В данном случае в запросе используется GET метод, если Вам необходимо использовать POST запросы, тогда можно использовать данный пакет следующим образом:

declare
  req utl_http.req;
  res utl_http.resp;
  url varchar2(4000) := 'http://some_address:port?test=1';
  l_data varchar2(32767);
begin
  l_data := 'bla-bla-bla';

  utl_http.set_response_error_check(false);
  req := utl_http.begin_request(url, 'POST', 'HTTP/1.1');
 
  /* if need proxy connection
  utl_http.set_proxy('company.proxy.com:port', '');
  utl_http.set_authentication(req, 'user', 'password', for_proxy => true);
  */
 
  utl_http.set_header(req, 'Content-Type', 'charset=UTF-8');
  utl_http.set_header(req, 'Content-Length', length(l_data));
  utl_http.set_header(req, 'Content-Encoding', 'UTF-8');

  -- send post data
  utl_http.write_text(req, l_data);
  res := utl_http.get_response(req);
  utl_http.end_response(res);

  /* if need check status code
  res.status_code
  */

  exception
    when utl_http.end_of_body then
      utl_http.end_response(res);
    when others then
      dbms_output.put_line(sqlerrm);
end;

Ниже приведен еще один пример POST запроса, но в примере рассмотрена возможность возврата полученного ответа в виде данных типа CLOB:

create or replace package body test_pkg is

  procedure send_message(p_message in varchar2,
                         p_status out integer,
                         p_response out clob)
    is
      req utl_http.req;
      res utl_http.resp;
      url varchar2(4000) := 'http://some_address:port?test=1';
      buffer varchar2(4000);
      clob_buffer clob;
    begin
      utl_http.set_response_error_check(false);
      req := utl_http.begin_request(url, 'POST', ' HTTP/1.1');
     
      /* if need proxy connection
      utl_http.set_proxy('company.proxy.com:port', '');
      utl_http.set_authentication(req, 'user', 'password', for_proxy => true);
      */
     
      utl_http.set_header(req, 'Content-Type', 'charset=UTF-8');
      utl_http.set_header(req, 'Content-Length', length(p_message));
      utl_http.set_header(req, 'Content-Encoding', 'UTF-8');

      -- send post data
      utl_http.write_text(req, p_message);
      res := utl_http.get_response(req);

      -- set response status
      if res.status_code = 200 then
        p_status := 1;
      else
        p_status := 0;
      end if;

      -- read response
      begin
        clob_buffer := empty_clob;

        loop
          utl_http.read_text(res, buffer, length(buffer));
          clob_buffer := clob_buffer || buffer;
        end loop;

        p_response := clob_buffer;
        utl_http.end_response(res);

        exception
          when utl_http.end_of_body then
            p_response := clob_buffer;
            utl_http.end_response(res);
          when others then null;
            dbms_output.put_line(sqlerrm);
            dbms_output.put_line(dbms_utility.format_error_backtrace);
            utl_http.end_response(res);
      end;

      exception
        when others then
          dbms_output.put_line(sqlerrm);
    end;
 
begin
  -- init
  null;
end test_pkg;