传统客户端VB6中调用返回List的WebService

我们以Java为例
在Tomcat部署WebService
先写一个JAVA文件
import java.util.*;
public class TestList{
    public ArrayList Lists()
    {
        ArrayList list=new ArrayList();
  list.add(0,"0");
  list.add(1,"这是正确的信息");
  list.add(2,new Date());
  return list;
    }
}
然后改后缀为jws,放置到axis目录下
确保这样可以访问http://localhost:8080/axis/TestList.jws?wsdl

之后，我们用VB6来调用

'我们首先需要安装microsoft SoapToolkit30
'然后我们引用microsoft soap type library v3.0
'函数原型
'Mssoapinit(bstrWSDLFile  as  string,[bStrServiceName  as  string  ],[bStrport  as  string  ]  ,[bstrWSMLDile  as  string])的用法：
'其中第二个，第三个参数在wsdl文件中可以找到。也可以省略。Private Sub Command2_Click()
On Error Resume Next
'利用变体数组模拟list,利用soap组件调用
Dim objSoapClient   As New SoapClient30
Call objSoapClient.MSSoapInit("http://localhost:8080/axis/TestList.jws?wsdl", "TestListService", "TestList")

If Err.Number <> 0 Then
    MsgBox SoapClient.FaultString, vbExclamation
    Exit Sub
End If

Dim MyArr() As Variant
MyVar = objSoapClient.Lists()

MsgBox MyVar(0) & MyVar(1) & MyVar(2)

End Sub

好了。