WebServices in Oracle 11g

浏览数：26 / 时间：2015年06月12日

前言：本文档介绍ORACLE通过UTL_DBWS去调用Web Serices的服务，关于web service网上有一篇文档写的不错，http://www.ruanyifeng.com/blog/2009/08/what_is_web_service.html，一次业务的需要也要用来这个服务，以下是整个配置的过程。

附：http://oracle-base.com/articles/10g/utl_dbws-10g.php或 http://blog.csdn.net/cai_xingyun/article/details/40951595(ORACLE官方的配置步骤），由于配置的过程中发现了一点点的不一样，就因为一点点的不一样，让我连续两天吃不好、睡不好，所以我觉得很有必要把整个明细的步骤写下来：

环境说明：数据库的版本为11.2.0.3（现在10G的版本用的人不多了）

操作系统：windows2003、windows2008和linux64_6.3配置的步骤都是一样的

配置步骤：

一、下载安装包

In a previous article I presented a method for Consuming Web Services using a basic SOAP implementation. This article provides similar functionality, but this time using the UTL_DBWS package, which is essentially a PL/SQL wrapper over JPublisher.

First, download the latest copy of the dbwsclient.jar file:

Pre 10g: dbws-callout-utility.zip (10.1.2)
10g: dbws-callout-utility-10R2.zip (10.1.3.0)
10g, 11g & 12c latest: dbws-callout-utility-10131.zip (10.1.3.1) （11g用这个链接）

二、把下载的包放入到目录/u01/app/oracle/product/OraDb11g_home1/sqlj/lib

三、进行包的导入（步骤写着可以用sys用户导入，但是测试的时候sys用户报错很多，用了system用户后解决）

注：windows需要先安装java，并在oracle用户下运行

11g的导入步骤：

loadjava -u system/password -r -v -f -genmissing dbwsclientws.jar dbwsclientdb11.jar

10g R2的导入脚本

loadjava -u system/password  -r -v -f -genmissing dbwsclientws.jar dbwsclientdb102.jar

四、创建pkg：utl_dbws，并授权

SQL> @utl_dbws_decl
SQL> @utl_dbws_body

SQL> CREATE PUBLIC SYNONYM utl_dbws FOR sys.utl_dbws;
SQL> GRANT EXECUTE ON sys.utl_dbws TO test;   授权给用户；

检查运行结果，脚本：select * from dba_objects where object_name=‘UTL_DBWS‘;

经过以上运行，utl_dbws创建完成了，以下是测试步骤：

五、ORACLE提供了相应的测试脚本，但是如果你安装这个测试脚本运行，会一直报如下错误：

经过一番排除之后，发现了一点小问题，经过修改后，请用这个脚本进行测试：

CREATE OR REPLACE Function Add_Numbers(p_Int_1 In Number, p_Int_2 In Number) Return Number As
l_Service Utl_Dbws.Service;
l_Call Utl_Dbws.Call;

   l_Wsdl_Url        Varchar2(32767);
   l_Namespace       Varchar2(32767);
   l_Service_Qname   Utl_Dbws.Qname;
   l_Port_Qname      Utl_Dbws.Qname;
   l_Operation_Qname Utl_Dbws.Qname;

   l_Xmltype_In Sys.Xmltype;
   l_Xmltype_Out Sys.Xmltype;
   l_Return      Number;
Begin
   l_Wsdl_Url := ‘http://oracle-base.com/webservices/server.php?wsdl‘;
   l_Namespace := ‘http://oracle-base.com/webservices/‘;

   l_Service_Qname   := Utl_Dbws.To_Qname(l_Namespace, ‘Calculator‘);
   l_Port_Qname      := Utl_Dbws.To_Qname(l_Namespace, ‘CalculatorPort‘);
   l_Operation_Qname := Utl_Dbws.To_Qname(l_Namespace, ‘ws_add‘);

l_Service := Utl_Dbws.Create_Service(Wsdl_Document_Location => Urifactory.Geturi(l_Wsdl_Url)
,Service_Name => l_Service_Qname);

   l_Call := Utl_Dbws.Create_Call(Service_Handle => l_Service
                                 ,Port_Name      => null -- l_Port_Qname
                                 ,Operation_Name => l_Operation_Qname);

   l_Xmltype_In := Sys.Xmltype(‘<?xml version="1.0" encoding="utf-8"?>
    <ws_add xmlns="‘ || l_Namespace || ‘">
      <int1>‘ || p_Int_1 || ‘</int1>
      <int2>‘ || p_Int_2 || ‘</int2>
    </ws_add>‘);
   l_Xmltype_Out := Utl_Dbws.Invoke(Call_Handle => l_Call, Request => l_Xmltype_In);

Utl_Dbws.Release_Call(Call_Handle => l_Call);
Utl_Dbws.Release_Service(Service_Handle => l_Service);

l_Return := l_Xmltype_Out.Extract(‘//return/text()‘).Getnumberval();
Return l_Return;
End;
/

如果下面的语句的执行结果跟我的一样，恭喜你：成功了！

SELECT add_numbers(10, 15) FROM dual;

ADD_NUMBERS(10,15)
------------------
                25

总结：年末这个时间点，要静下心来研究一个技术真不是一件容易的事情。本来不是很难的一个问题，弄的焦头烂额。做技术请先把心静下来；

........................................................................................................................................................................

本文作者：JOHN，某上市公司DBA，业余时间专注于数据库的技术管理，从管理的角度去运用技术。

ORACLE技术博客：ORACLE 猎人笔记数据库技术群：367875324 （请备注ORACLE管理）

........................................................................................................................................................................

郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。

WebServices in Oracle 11g