Domino中使用Java访问Webservice(三)

在Lotus Designer开发工具中可以使用Java编写Webservice以及访问Webservice。这里只介绍一下如何访问Websercice。(续)

最后在Designer中创建一代理，可以使用java编写代理，也可以使用Lotusscript编写代理，下面以LotusScript编写代理，调用上面编写java类访问Websercive(用java编写代理也可以直接调用Webservice)。
Option Public
Uselsx "*javacon"
Use "WSClient"

Sub Initialize
Dim jError As JavaError
Dim serviceClient As Variant
Dim js As JAVASESSION
Dim jc As JAVACLASS
Dim session As New NotesSession
Dim db As NotesDatabase
On Error Goto catch
sURL = "http://localhost:80/DWSTest.nsf/DatabaseInfoJava"
sSOAPAction = "getUserRolesArray"
username="XXX"
xmlStr = "<soapenv:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance'"
xmlStr = xmlStr+" xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soapenv='"
xmlStr=xmlStr+"http://schemas.xmlsoap.org/soap/envelope/'"
xmlStr=xmlStr+" xmlns:def='http://DefaultNamespace'>"
xmlStr=xmlStr+"<soapenv:Header/>"
xmlStr=xmlStr+"<soapenv:Body>"
xmlStr=xmlStr+"<def:"+sSOAPAction+" soapenv:encodingStyle="
xmlStr=xmlStr+"'http://schemas.xmlsoap.org/soap/encoding/'>"
xmlStr=xmlStr+"<userName xsi:type='xsd:string'>"+username+"</userName>"
xmlStr=xmlStr+"</def:"+sSOAPAction+">"
xmlStr=xmlStr+"</soapenv:Body>"
xmlStr=xmlStr+"</soapenv:Envelope>"
Set js = New JAVASESSION
Set jc = js.GetClass("WebServiceClient")
Set serviceClient = jc.CreateObject
If(serviceClient.openWSDLURL(sURL,sSOAPAction)) Then
rXMLStr = serviceClient.sendSOAPRequest(xmlStr)
Else
Msgbox "Connect fail..."
End If
Msgbox rXMLStr
Exit Sub
catch:
Set jError = js.getLastJavaError()
If jError.errormsg = "" Then
Print "Error - Err - Erl: " & Error & " - " & Err & " - " & Erl
Error 8005, Error
Else
Print "Error - Err - Erl: " & Error & " - " & Err & " - " & Erl
jsError = jError.stackTrace
Print jsError
Error 8005,jError.errormsg
js.ClearJavaError
End If
End Sub

运行上面的代理，即可查看调用Webservice后返回的数据。注,提供准确的Webservice的URL。

调试过程中可以通过SoapUI(最新版SoapUI3.6)测试Webservice接口，查看其调用Webserivce时发送的Soap请求(包括header、body等信息)。