1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
|
CREATE OR REPLACE FUNCTION f_data (pc IN VARCHAR2) RETURN VARCHAR2 AS
v_request soap_api.t_request;
v_response soap_api.t_response;
v_result VARCHAR2(32256);
BEGIN
v_request := soap_api.new_request(p_method => 'whoisSoap', p_namespace => 'http://www.webservicex.net'
);
soap_api.add_parameter(p_request => v_request,
p_name => 'HostName',
p_type => 'xsd:string',
p_value => pc
);
v_response := soap_api.invoke(p_request => v_request,
p_url => 'http://www.webservicex.net/WCF/default.aspx',
p_action => 'GetWhoIS'
);
v_result := soap_api.get_return_value(v_response,
p_name => 'GetWhoISResponse',
p_namespace => 'http://www.webservicex.net'
);
if v_result is null then
return 'null';
else
RETURN v_result;
end if;
/*EXCEPTION
WHEN OTHERS THEN
;*/
END;
/ |
Partager