Hello,
I want to use new webservice feature of Lotus Notes 8.5.1 and Domino 8.5. But i have a problem.
I tried this example. Site : http://www.wohill.com/design/386/A-web-service-consumer-example.html
WebService Consumer :
%INCLUDE “lsxsd.lss”
Const n0 = “http://tempuri.org/”
Class TempConvertSoap_n0 As PortTypeBase
Sub NEW
Call Service.Initialize ("HttpTempuriOrgTempConvert", _
"TempConvert.TempConvertSoap", "http://www.w3schools.com/webservices/tempconvert.asmx", _
"TempConvertSoap_n0")
End Sub
Function FahrenheitToCelsius(Fahrenheit As XSD_STRING) As XSD_STRING
Set FahrenheitToCelsius = Service.Invoke("FahrenheitToCelsius", Fahrenheit)
End Function
Function CelsiusToFahrenheit(Celsius As XSD_STRING) As XSD_STRING
Set CelsiusToFahrenheit = Service.Invoke("CelsiusToFahrenheit", Celsius)
End Function
End Class
Agent :
%REM
Agent getBible
Created Oct 29, 2009 by Ferhat BULUT/BESTCODER
Description: Comments for Agent
%END REM
Option Public
Option Declare
Use “BibleWebservice”
Sub Initialize()
On Error GoTo ErrorHandler
Dim bible As New BibleWebserviceSoap_n1
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
Exit Sub
ErrorHandler:
MessageBox "Form : XXXX - Sub : XXXX" + Chr ( 13 ) + _
"Error No : " + Str ( Err ) + Chr ( 13 ) + _
"Description : " + Error$ + Chr ( 13 ) + _
"Error Line Number : " + CStr ( Erl )
End Sub
I got an error when i want to run this agent.
Error Code : 4746
Description : Web Service BibleWebserviceSoap_n1 method GetBookTitles error Web service BibleWebserviceSoap_n1 does not have specified service method GetBookTitles
I think, lotus doesn’t get GetBookTitles function at BibleWebserviceSoap_n1 webservice. I don’t understand why ?
In the server configuration :
Internet Protocols → Domino Web Engine → Session authentication: Disabled
Internet Protocols → Domino Web Engine → Run web agents and web services concurrently? : Enabled
Internet Protocols → Domino Web Engine → Domino XML Services : Enabled
Is there any idea about this problem ?
Regards
Ferhat