使用NetBeans进行B/S结构的商业应用开发（五）

第七节  使用异构系统调用Web Services

Web Services在很多情况下是被异构系统调用的，这些系统有些使用VB开发，有些使用DELPHI开发，有些使用VC开发，而有些使用PB开发，总之它可能是任何语言开发的。这些异构系统的应用万变不离其中，都有相通性。下面我以VB为例讲解在异构系统中如何调用JAVA编写的Web Services。

在VB中调用Web Services的实现方法很多，我只介绍其中一种。首先，去下载PocketSOAP的SDK，下载地址是http://www.pocketsoap.com/pocketsoap/。为什么我们使用PocketSOAP而不使用微软的SOAP TOOL KIT 3.0呢？哈哈，我告诉你，微软的SOAP的SDK调用JAVA编写的Web Services会报告错误，不知到这是BUG呢还是不兼容，总之用不了。当你下载完成PocketSOAP后运行安装它。然后启动VB。

在一个按钮事件中写入以下代码

'创建pocketSOAP.Envelope对象

Dim env

    Set env = CreateObject("pocketSOAP.Envelope.11")

    ' 设置方法名和方法名的命名空间

    env.SetMethod "hello", "http://localhost:8090/WEBServicesTest/services/HelloWorld"

    ' 创建函数使用的参数

    env.Parameters.Create "name", "Web Services"

    ' 创建pocketSOAP.HTTPTransport对象用于发送SOAP请求

    Dim http

    Set http = CreateObject("pocketSOAP.HTTPTransport")

    ' 设置SOAPAction

    http.SoapAction = "http://localhost:8090/WEBServicesTest/services/HelloWorld#hello"

    ' 发送HTTP 请求

    http.send "http://localhost:8090/WEBServicesTest/services/HelloWorld", env

    ' 解析SOAP的返回信息

    env.parse http

    MsgBox "结果为： " & env.Parameters.Item(0).Value

然后运行此程序，哈哈，结果返回了。现在看看是不是使用SOAP的SDK开发很简单，呵呵，本来就简单。好了，你现在可以写个自己的Web Services来做测试了。

关于使用NetBeans开发B/S结构的商业应用我就讲解到这里，由于本人的知识有限，在文章中可能会有一些错误，还请各位多多指正。本人的联系方式email:zhaowenbinmail@163.com。这篇文章适合于刚刚入门使用NETBEANS开发的JAVA程序员。最后希望本文章对大家有帮助。