Domino中使用Java访问Webservice(四)

在Lotus Designer开发工具中可以使用Java编写Webservice以及访问Webservice。这里只介绍一下如何访问Websercice。(续)
绝大多数调用Webservice会返回一个结果到客户端，其结果也是XML数据，这样我们要获取XML中指定元素的数据，就必须解析返回的XML数据。为此，在Lotus中，使用LotusScript编写一个解析XML数据格式的功能函数，返回的是以指定节点(参数：sNodeName)为根节点的元素值列表。代码如下：

Dim retList List as String
'把Scam返回的xml字符串解析为List列表，并且存放到retList全局变量中
Sub parseXmlToList(session As NotesSession,sXml As String,sNodeName As String,docApp As NotesDocument)
Dim domParser As NotesDOMParser
Dim domDocumentNode As NotesDOMDocumentNode
Dim domNodeList As NotesDOMNodeList
Dim domNode, childDomNode, lastDomNode As NotesDOMNode
Dim nNodeList, nChildNodeList As Integer

On Error Goto getListErr
'把sXml字符串解析为Node节点
Set domParser = session.CreateDOMParser(sXml)
Call domParser.Process
Set domDocumentNode = domParser.Document
Set domNodeList = domDocumentNode.GetElementsByTagName(sNodeName)
nNodeList = domNodeList.NumberOfEntries

'把每一个节点信息存放到retList全局变量中
Erase retList '清空retList内容
If nNodeList > 0 Then
For i=1 To nNodeList
Set domNode = domNodeList.GetItem(i) '获取sNodeName节点
If domNode.HasChildNodes Then
nChildNodeList = domNode.NumberOfChildNodes '获取所有item节点集合
Set childDomNode = domNode.FirstChild '获取第一个item节点
If nChildNodeList > 0 Then
For j = 1 To nChildNodeList '遍历每一个item节点
Set lastDomNode = childDomNode.FirstChild '获取item下面的第一个节点key
If Not lastDomNode Is Nothing Then '第一个元素(key)不为空
If Not lastDomNode.IsNull Then '对象不为空
If lastDomNode.NodeType = 1 Then '检查是否包括#Text
If lastDomNode.NextSibling.HasChildNodes Then 'Value标签里面有值
retList(lastDomNode.FirstChild.NodeValue) = lastDomNode.NextSibling.FirstChild.NodeValue
Else
retList(lastDomNode.FirstChild.NodeValue) = ""
End If
Else
If Not lastDomNode.NextSibling Is Nothing Then
retList(lastDomNode.NodeValue) = lastDomNode.NextSibling.NodeValue
Else
retList(lastDomNode.NodeValue) = ""
End If
End If
End If
Set childDomNode = childDomNode.NextSibling '获取下一个item节点,不存在则退出循环
If childDomNode Is Nothing Then
Exit For
End If
End If
Next
End If
End If
Next
End If

Exit Sub
getListErr:
print "解析WebService返回的Xml为List列表函数(parseXmlToList)出错,错误行:"+Cstr(Erl())+" 错误类型:"+Error()
End Sub