代码是这样的：
create or replace FUNCTION add_func1 (str1 IN VARCHAR2,
str2 IN VARCHAR2)
RETURN VARCHAR2
AS
service_ sys.utl_dbws.service;
call_ sys.utl_dbws.call;
service_qname sys.utl_dbws.qname;
port_qname sys.utl_dbws.qname;
operation_qname sys.utl_dbws.qname;
string_type_qname sys.utl_dbws.qname;
retx ANYDATA;
retx_string VARCHAR2(100);
retx_len number;
params sys.utl_dbws.ANYDATA_LIST;

l_wsdl_url varchar2(32767);
l_namespace varchar2(32767);
l_service varchar2(32767);
l_port varchar2(32767);
l_operation varchar2(32767);
BEGIN
l_wsdl_url := 'http://192.168.4.130/card_ws1.dll/soap/Iws_1';
l_namespace := 'ws_1Intf-Iws_1';
l_service := 'Iws_1service';
l_port := 'Iws_1Port';
l_operation := 'check_card';

service_qname := sys.utl_dbws.to_qname(l_namespace, l_service);
service_ := sys.utl_dbws.create_service(service_qname);
port_qname := sys.utl_dbws.to_qname(l_namespace, l_port);
operation_qname := sys.utl_dbws.to_qname(l_namespace, l_operation);
call_ := sys.utl_dbws.create_call(service_, port_qname, operation_qname);
sys.utl_dbws.set_target_endpoint_address(call_, l_wsdl_url);
sys.utl_dbws.set_property(call_, 'ENCODINGSTYLE_URI', 'http://schemas.xmlsoap.org/soap/encoding/');
sys.utl_dbws.set_property(call_, 'OPERATION_STYLE', 'rpc');
-- sys.utl_dbws.set_property(call_, 'SOAPACTION_URI', l_namespace || '#' || l_operation);
-- sys.utl_dbws.set_property(call_, 'SOAPACTION_USE', 'true');

string_type_qname := sys.utl_dbws.to_qname('xsd', 'string');
sys.utl_dbws.add_parameter(call_, 'cardid', string_type_qname, 'ParameterMode.IN');
sys.utl_dbws.add_parameter(call_, 'hostname', string_type_qname, 'ParameterMode.IN');
sys.utl_dbws.set_return_type(call_, string_type_qname);
params(0) := ANYDATA.convertvarchar(str1);
params(1) := ANYDATA.convertvarchar(str2);
retx := sys.utl_dbws.invoke(call_, params);
sys.utl_dbws.release_call(call_handle => call_);
sys.utl_dbws.release_service(service_handle => service_);
retx_string := retx.accessvarchar2;
return ANYDATA.AccessVarchar2(retx);
END;