POST a form in Oracle 8.1.7

From: <humoib_at_gmail.com>
Date: 21 Jun 2005 04:05:48 -0700
Message-ID: <1119351948.849117.80720@f14g2000cwb.googlegroups.com>

I'm coding a function a document to a server using POST method.

ORA-06502: PL/SQL: numeric or value error: hex to raw conversion error

Can someone help me? I'm not a PL/SQL programmer.

Thanks a lot!
--Hugo

The code is:

CREATE OR REPLACE FUNCTION mypost (host varchar2, uri varchar2, content clob)
RETURN CLOB
IS

  conn          utl_tcp.connection;
  rc            integer;
  port			integer := 80;
  CR     constant varchar2(1) := chr(13);
  v_read_amount     binary_integer;
  v_read_offset     number;
  v_buffer          varchar2(32767);

BEGIN
  dbms_output.put_line('starting');

  conn := utl_tcp.open_connection(remote_host => host,
                                  remote_port =>  port,
                                  charset     => NULL );

  dbms_output.put_line('connected');

  rc := utl_tcp.write_line(conn, 'POST '||uri||' HTTP/1.0');
  rc := utl_tcp.write_line(conn, 'Host: '|| host );
  rc := utl_tcp.write_line(conn, 'Accept: text/*' );
  rc := utl_tcp.write_line(conn, 'Accept-Charset: *' );
  rc := utl_tcp.write_line(conn, 'Accept-Encoding:' );
  rc := utl_tcp.write_line(conn, 'Content-Encoding: identity' );
  rc := utl_tcp.write_line(conn, 'Content-Type:

application/x-www-form-urlencoded');
  rc := utl_tcp.write_line(conn, 'Content-Length: '|| dbms_lob.getlength(content) );

  dbms_output.put_line('Content-Length: '|| dbms_lob.getlength(content));

  rc := utl_tcp.write_line(conn, '' );

  utl_tcp.flush( conn );

  v_read_amount := 32767;
  v_read_offset := 1;
  begin
    loop

        dbms_output.put_line('loop');
	    dbms_lob.read(content,v_read_amount,v_read_offset,v_buffer);
        rc := utl_tcp.write_line(conn,v_buffer );
        v_read_offset := v_read_offset + v_read_amount;

    end loop;
  exception
  when no_data_found then
    null;
  end;

• Reading response BEGIN LOOP rc := utl_tcp.read_line( conn, v_buffer ); dbms_output.put( v_buffer ); END LOOP; EXCEPTION WHEN utl_tcp.end_of_input THEN NULL; -- end of input END; utl_tcp.close_connection(conn);

END;
/ Received on Tue Jun 21 2005 - 06:05:48 CDT