利用Oracle数据库里的API,调用Webservice,需要授权ACL控制权限,如下:
BEGIN
DBMS_NETWORK_ACL_ADMIN.CREATE_ACL (
acl => ‘ws_login_permission.xml’,
description => ‘Enables network permissions for the image server’,
principal => ‘QLTEST’,
is_grant => TRUE,
privilege => ‘connect’);
END;
/
BEGIN
DBMS_NETWORK_ACL_ADMIN.assign_acl (
acl => ‘ws_login_permission.xml’,
host => ‘localhost’,
lower_port => 8888,
upper_port => NULL);
COMMIT;
END;
/
hls_ws_request_pkg
procedure ws_login(p_user_name varchar2,p_passwd varchar2,p_rsp_code out varchar2,p_rsp_msg out varchar2);
–移动审批登录接口
procedure ws_login(p_user_name varchar2,p_passwd varchar2,p_rsp_code out varchar2,p_rsp_msg out varchar2) is
v_request_xml varchar2(4000);
v_response_xml sys.xmltype;
begin
v_request_x