A web service consumer example

I have just for educational purposes created a simple web service consumer with Lotus Domino Designer 8.5 Beta 2. So I thought I'd share and perhaps make someone happy.

For this example I found a web service on webservicex.net which was kind of funny. It is called BibleWebservice and let's you get biblic information by book, chapter and verse. The address to the WSDL-file can be found here.

1. Create a web service consumer element. Name it and point to the WSDL-file either local or the url. The web service consumer gets created for you. Copy the class name that gets created, i.e. 'BibleWebserviceSoap_n0'.

%INCLUDE "lsxsd.lss"
Const n0 = "http://www.webserviceX.NET"
Class BibleWebserviceSoap_n0 As PortTypeBase

Sub NEW
Call Service.Initialize ("HttpWwwWebserviceXNETBibleWebservice", _
"BibleWebservice.BibleWebserviceSoap", "http://www.webservicex.net/BibleWebservice.asmx", _
"BibleWebserviceSoap_n0")

End Sub

Function GetBibleWordsByChapterAndVerse(BookTitle As XSD_STRING, chapter As Long, _
Verse As Long) As XSD_STRING
Set GetBibleWordsByChapterAndVerse = Service.Invoke("GetBibleWordsByChapterAndVerse", BookTitle, chapter, Verse)
End Function

Function GetBibleWordsbyKeyWord(BibleWords As XSD_STRING) As XSD_STRING
Set GetBibleWordsbyKeyWord = Service.Invoke("GetBibleWordsbyKeyWord", BibleWords)
End Function

Function GetBookTitles() As XSD_STRING
Set GetBookTitles = Service.Invoke("GetBookTitles")
End Function

Function GetBibleWordsByBookTitleAndChapter(BookTitle As XSD_STRING, chapter As Long) As XSD_STRING
Set GetBibleWordsByBookTitleAndChapter = Service.Invoke("GetBibleWordsByBookTitleAndChapter", BookTitle, chapter)
End Function

End Class

2. Create an agent. Add "Use 'web service consumer name' " in 'Options'.
3. Set target as 'None' in the agent properties,
4. Add this code in the 'initialize' section

Dim bible As New BibleWebserviceSoap_n0
Dim bookTitles As XSD_STRING
Dim session As New NotesSession
Dim inputStream As NotesStream
Dim domParser As NotesDOMParser
Dim domDoc As NotesDOMDocumentNode
Dim domNodeList As NotesDOMNodeList
Dim domNode As NotesDOMNode

Set inputStream = session.CreateStream

Set bookTitles = bible.GetBookTitles()
Call inputStream.WriteText(bookTitles.getValueAsString())

Set domParser = session.CreateDOMParser(inputStream)
Call domParser.Process
Set domDoc = domParser.Document

Set domNodeList = domDoc.GetElementsByTagName("BookTitle")
Set domNode = domNodeList.GetItem(1)

' Now get the text in the tag and prompt it to the user (or something else)
msgbox domNode.FirstChild.NodeValue

5. Run the agent

So this agent will, when run, display the name of the first book in a message box to you which is 'Genesis'.