SET DEFINE OFF
SET SERVEROUTPUT ON
DECLARE
req UTL_HTTP.REQ;
resp UTL_HTTP.RESP;
value VARCHAR2(32767);
V_DATA VARCHAR2(100) := 'strDate=”31-APR-2012”&strName=”TestName”';
BEGIN
req := UTL_HTTP.BEGIN_REQUEST('http://myServer/Test/TestWebService.asmx/StartBiztalkProcedure', 'POST', 'HTTP/1.0');
utl_http.set_header(req, 'Content-Type', 'application/x-www-form-urlencoded');
utl_http.set_header(req, 'Content-Length', length(v_data));
utl_http.write_text(req, v_data);
resp := UTL_HTTP.GET_RESPONSE(req);
LOOP
UTL_HTTP.READ_LINE(resp, value, TRUE);
DBMS_OUTPUT.PUT_LINE(value);
END LOOP;
UTL_HTTP.END_RESPONSE(resp);
EXCEPTION
WHEN UTL_HTTP.END_OF_BODY THEN
UTL_HTTP.END_RESPONSE(resp);
END;
/
UTL_HTTP Call a Web Service and Pass Parameters as Part of the URL
最新推荐文章于 2018-05-18 22:53:20 发布