Oracle通过存储过程 采用HTTP的方式调用webserivce

create or replace procedure httpwebservice2 is

env VARCHAR2(32767);

http_req utl_http.req;

http_resp utl_http.resp;

return_value xmltype;

error_value xmltype;

error_code VARCHAR(256);

error_string VARCHAR2(32767);

result_string varchar2(32767);

BEGIN

env := '<soapenv:Envelope xmlns:xsi=“http://www.w3.org/2001/XMLSchema-instance” xmlns:xsd=“http://www.w3.org/2001/XMLSchema” xmlns:soapenv=“http://schemas.xmlsoap.org/soap/envelope/” xmlns:ser=“http://server.webservice.simis.si.neusoft.com”>

soapenv:Header/

soapenv:Body

<ser:ReportTheLossOfSIcard soapenv:encodingStyle=“http://schemas.xmlsoap.org/soap/encoding/”>

452223193711161025||B20684791|4|402|6231330300051198182|450200D156000005A5209A7FE074EFAB|3B6D0000008159532086A24502A5209A7F4

</ser:ReportTheLossOfSIcard>

</soapenv:Body>

</soapenv:Envelope>

';

http_req := utl_http.begin_request(‘http://10.154.248.13:7011/eapdomain_lz_zx/services/WSInterfaceSiINF?wsdl’,

‘POST’,

‘HTTP/1.0’);

utl_http.set_header(http_req, ‘Content-Type’, ‘text/xml’);

utl_http.set_header(http_req, ‘Content-Length’, length(env));

/* utl_http.set_header(http_req,

‘SOAPAction’,

‘http://www.webserviceX.NET/GetWeather’);*/

utl_http.set_header(http_req,

‘SOAPAction’,

‘’);

utl_http.write_text(http_req, en