Oracle PL/SQL/System Packages/UTL TCP

Материал из SQL эксперт
Перейти к: навигация, поиск

Use UTL_TCP package.

 
set echo on
set serveroutput on size 200000
DECLARE
  v_Connection UTL_TCP.CONNECTION;
  v_NumWritten PLS_INTEGER;
BEGIN
  v_Connection := UTL_TCP.OPEN_CONNECTION("www.oracle.ru", 80);
  v_NumWritten := UTL_TCP.WRITE_LINE(v_Connection, "GET / HTTP/1.0");
  v_NumWritten := UTL_TCP.WRITE_LINE(v_Connection);
  
  BEGIN
    FOR v_Count IN 1..10 LOOP
      DBMS_OUTPUT.PUT_LINE(UTL_TCP.GET_LINE(v_Connection, TRUE));
    END LOOP;
  EXCEPTION
    WHEN UTL_TCP.END_OF_INPUT THEN
      NULL;
  END;
  
  UTL_TCP.CLOSE_CONNECTION(v_Connection);
END;
/