CREATE OR REPLACE PROCEDURE acessa_url (v_endereco IN VARCHAR2,
v_pagina OUT VARCHAR2)
IS
req utl_http.req;
resp utl_http.resp;
linha VARCHAR2(1024);
BEGIN
utl_http.set_proxy(‘10.1.2.188:8080’);
req := utl_http.begin_request(v_endereco);
resp := utl_http.get_response(req);
v_pagina := ”;
LOOP
utl_http.read_line(resp, linha, TRUE);
v_pagina := v_pagina || linha;
END LOOP;
utl_http.end_response(resp);
EXCEPTION
WHEN utl_http.end_of_body THEN
utl_http.end_response(resp);
END;