CSDN博客

img enhydraboy

TOMCAT上Web Service开发攻略

发表于2003/7/19 0:39:00  2396人阅读

分类: Web Service

TOMCATWeb Service开发攻略

欢迎大家同我交流:小白  enhydra_boy@tom.com

欢迎转载,请保留本声明,谢谢!

随着以.NETJ2EE为代表的WEB计算技术的兴起,WEB Service已经成为越来越重要的应用,WEB Service为应用系统间的集成提供了一种新型的交换方式,.NET,J2EE都相继支持WEB Service应用。

笔者不想对WEB Service概念和理论作过多的讨论和阐述,大家可以从下面相关的资料中进一步进行了解。

WEB服务概念性体系架构

http://www-900.ibm.com/developerWorks/cn/webservices/ws-wsca/index.shtml

XML Web Service

http://msdn.microsoft.com/webservices/

目前,Web Service应用一般都采用SOAP(Simple Object Access Protocol, 即简单对象访问协议)协议,和传统的DCOM/COM,CORBA相比,SOAP有以下优点:

首先,前者都是基于2进制流的数据交换,而SOAP是采用基于XML的文本数据交换,因此在数据交换上更容易,更方便。调试以SOAP为基础的应用程序更容易。

其次,SOAP采用HTTP协议,并非私有的协议,所以,能够更加安全的穿越防火墙。如今,MicrosoftIBMSUN都在各自的产品中添加了对SOAP协议的支持,所以,前者COM/DCOMCORBASOAP相比,简直不值得一提。正是SOAP的出现,使得采用不同架构技术的系统的协作、交互成为可能。

SOAP是一种新型的分布式计算技术。利用SOAP,同时结合其他技术,比如UDDIUniversal Discovery Description, and Integration)和WSDLWeb Services Description Language),在Web服务这一概念的支持下,从而可以实现未来商业应用跨越Web进行通信的方式。

那么,接下来,让我直接进入正题,谈一谈TOMCAT下,如何快速开发Web Service应用。

首先,要搭建一个环境, 笔者搭建的环境是: Windows2000 Server(中文版)+TOMCAT4

1 http://jakarta.apache.org/下载TOMCAT4,安装,并且配置好。启动TOMCAT4,在浏览器中输入http://localhost:8080。可以看到首页面,表示TOMCAT4已经配置好了。

2 http://xml.apache.org/dist/axis/1_1RC1/下载AXIS,解压缩到$TOMCAT_HOME/webapps/axis下面去。

在浏览器中运行http://localhost:8080/axis/index.html ,测试是否可以运行。

接下来,我们开始开发一个Web Service应用。编辑一个java文件

CalcService.java

public class CalcService {

  public int add(int p1, int p2) {

 

    return p1 + p2;

  }

 

  public int subtract(int p1, int p2) {

 

    return p1 - p2;

  }

}

复制CalcService.java文件到$TOMCAT_HOME/webapps/axis目录下,改名为CalcService.jws。在浏览器中,输入http://localhost:8080/axis/CalcService.jws,得到提示信息如下:

AxisCalcService.jws包装后,提供了一个WSDL的接口外露信息。可以输入http://localhost:8080/axis/CalcService.jws?WSDL 察看WSDL的接口信息。通过WSDL接口,我们可以遍写一个VB程序来调用。

测试步骤如下:

1 http://www.microsoft.com上下载SOAP TOOLKIT 3.0,安装。

2 VB6中新建一个工程,添加一个FORM,FROM的界面如下。

3 分别在两个按钮cmdAddcmdMinus中写上如下代码

Private Sub cmdAdd_Click()

    '测试add方法

    On Error Resume Next

    Dim SoapClient As Object

   

    Set SoapClient = CreateObject("MSSOAP.SoapClient30")

    Call SoapClient.MSSoapInit2(Text1.Text, "", "", "CalcService", "")

    If Err.Number <> 0 Then

        MsgBox SoapClient.FaultString, vbExclamation

        Exit Sub

    End If

    ' Now the client can call an operation listed in the portType element

    ' specified when calling mssoapinit().

    Text4.Text = CStr(SoapClient.Add(Val(Text2.Text), Val(Text3.Text)))

   

    If Err.Number <> 0 Then

        MsgBox SoapClient.FaultString, vbExclamation

        Exit Sub

    End If

End Sub

 

Private Sub cmdMinus_Click()

    '测试substract方法

    On Error Resume Next

    Dim SoapClient As Object

   

    Set SoapClient = CreateObject("MSSOAP.SoapClient30")

    Call SoapClient.MSSoapInit2(Text1.Text, "", "", "CalcService", "")

    If Err.Number <> 0 Then

        MsgBox SoapClient.FaultString, vbExclamation

        Exit Sub

    End If

    ' Now the client can call an operation listed in the portType element

    ' specified when calling mssoapinit().

    Text7.Text = CStr(SoapClient.subtract(Val(Text5.Text), Val(Text6.Text)))

   

    If Err.Number <> 0 Then

        MsgBox SoapClient.FaultString, vbExclamation

        Exit Sub

    End If

End Sub

其中需要注意的是,MSSoapInit2方法简单地说明如下:

HRESULT MSSoapInit2(
          [in] VARIANT par_WSDLFile, 
          [in] VARIANT par_WSMLFile, 
          [in] BSTR par_ServiceName, 
          [in] BSTR par_Port, 
          [in] BSTR par_Namespace);
 
par_WSDLFile                  WSDL文件的位置,本例中为
http://localhost:8080/axis/CalcService.jws?wsdl
par_WSMLFile                  本例中为空
par_ServiceName              本例中为空
par_Port                     服务端口号,可以从wsdl文件中找到。
par_Namespace                本例中为空

关于Microsoft SOAP TOOLKIT 3.0的详细说明,我会以后,专门写文章介绍。

4 运行,并且测试。

总结,应用Web Service技术,我们已经看到了,用VB编写的程序一样可以享用JAVA技术,当然也可以享用.NET技术,当然java编写的应用一样可以享用VB6或.NET开发的WebService。这项技术的应用必将给信息系统的结构模式带来全新的改变。

 

阅读全文
0 0

相关文章推荐

img
取 消
img