(转)通过PL/SQL访问WebService

转自：http://hi.baidu.com/h_sn999/blog/item/2d44c3cd4e49e2430eb345f4.html

教你怎么通过PL/SQL访问到Web Services

在Web Services红得发紫的今天，到处都在谈论和使用Web Services；当然，其中有不小一部分是属于业界炒作。Oracle也始终走在技术的最前沿，早在9i时代就发布了扩展包来支持PL/SQL访问Web Services，并且在Oracle 10g版本中使得该功能变得更加强大；这都源于引入了UTL_DBWS包，其实他是封装了JPublisher，使得PL/SQL研发者只需要使用简单的几个API就能调用Web Services了。


下面我将通过一个实例向你展示怎么通过PL/SQL调用Web Services，本文的重点是PL/SQL调用Web Services实现上，对于怎么发布Web Services，你能参考本人的另一篇基础性文章《用OC4J和Axis构建Web Services》或其他参考资料。



首先，我们来搭建运行环境吧，你得从Oracle OTN下载并安装Oracle Database（企业版、标准版、个人版均可，但切勿安装快捷版，因为他没有提供sqlj组件及相关命令）。如果你已安装好该数据库，可跳过该步骤。



然后，需要下载对应版本的UTL_DBWS:



Pre 10g: dbws-callout-utility.zip 10g: dbws-callout-utility-10R2.zip

下载完成后，需要解压该文件到/sqlj/lib目录下，我们还需要使用loadjava将这些jar文件加载到SYS schema中，供所有用户使用该扩展包，命令如下：

<oracle_install_dir>/bin/loadjava -u sys/ password -r -v -f -s -grant public -noverify -genmissing <oracle_install_dir>/sqlj/lib /dbwsclient.jar

其实在Oracle的文件中是声称10g是自带UTL_DBWS包的，不过我下载最新的Oracle并完全安装后，也没有发现UTL_DBWS的半点踪影，也只好自己拷贝并执行Loadjava了。



好了，目前万事俱备，只剩写程式测试了，在编码测试之前，我们假设你已将《用OC4J和Axis构建Web Services》文章里hellows已部署好了，并能正常的调用sayHello方法了；当然，你发布其他的Web Services服务也同样可行的。下面我们就创建一个function来进行测试，测试代码如下：

CREATE OR REPLACE FUNCTION Call_Sayhello(Usernameinvarchar2) RETURN VARCHAR2 AS
  l_Serviceutl_Dbws.Service          ;
  l_Call                              Utl_Dbws.Call;
  l_Result                            Anydata;
  l_Wsdl_Urlvarchar2                 (1024);
  l_Service_Namevarchar2             (200);
  l_Operation_Namevarchar2           (200);
  l_Input_Paramsutl_Dbws.Anydata_List;
BEGIN
  l_Wsdl_Url := 'http://Localhost:8888/Hellows/Helloservice?Wsdl';
  l_Service_Name := 'helloservice';
  l_Operation_Name := 'sayhello';
  l_Service := Utl_Dbws.Create_Service(Wsdl_Document_Location => Urifactory.Geturi(l_Wsdl_Url), Service_Name => l_Service_Name);
  l_Call := Utl_Dbws.Create_Call(Service_Handle => l_Service, Port_Name => NULL, Operation_Name => l_Operation_Name);
  l_Input_Params(1) := Anydata.Convertvarchar2(Username);
  l_Result := Utl_Dbws.Invoke(Call_Handle => l_Call, Input_Params => l_Input_Params);
  Utl_Dbws.Release_Call(Call_Handle => l_Call);
  Utl_Dbws.Release_Service(Service_Handle => l_Service);
  RETURN Anydata.Accessvarchar2(l_Result);
EXCEPTION
  WHEN OTHERS THEN
    RETURN NULL;
END Call_Sayhello;

测试结果如下：

[img]http://dl.iteye.com/upload/attachment/519613/1080f733-e628-36f9-84bd-8b98ab9abf24.jpg[/img]