Temat: WEB Services

Cześć,

Znalazłem w sieci przykładowy WS - prosty, przeliczający temperaturę z C na F i odwrotnie.
Następnie stworzyłem Web Service Consumer w designer LN. Oto kod

Const n2 = "http://tempuri.org/"
Class TempConvertSoap_n2 As PortTypeBase
Sub NEW
Call Service.Initialize ("HttpTempuriOrgTempConvert", _
"TempConvert.TempConvertSoap", "http://www.w3schools.com/webservices/tempconvert.asmx","TempConvertSoap_n2")
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

Teraz krótki kod agenta który odwoła się do tego serwisu.

Option Public
Option Declare
Use"Celsius"

Sub Initialize()
Dim celsiusT As New TempConvertSoap_n2
Dim celsius As XSD_STRING
Dim session As New NotesSession
Dim inputStream As NotesStream
....

Set inputStream = session.CreateStream

Set celsius = celsiusT.CelsiusToFahrenheit("30")
......
End Sub

Jakkolwiek bym nie ustawiał "celsius" to dostaję błąd niezgodności typów (Type mismatch) w lini

Set celsius = celsiusT.CelsiusToFahrenheit("30")

Ponieważ do tej pory nie bawiłem się WS to czy ktoś wie dlaczego jest niezgodność typów ?

Pozdrawiam

MarcinMarcin Matkowski edytował(a) ten post dnia 30.09.10 o godzinie 14:51

Temat: WEB Services

XSD_STRING nie jest typem prostym, to klasa.

Wiecej tutaj:

http://lekkimworld.com/2007/09/19/discovering_notes_8_...

Temat: WEB Services

Rafał Ziółkowski:
XSD_STRING nie jest typem prostym, to klasa.

Wiecej tutaj:

http://lekkimworld.com/2007/09/19/discovering_notes_8_...

Dzięki Rafał,

Faktycznie trochę inaczej trzeba się do tego odwoływać.
Już działa :-)

Pozdrawiam

Marcin M

Temat: WEB Services

Marcin Matkowski:
Faktycznie trochę inaczej trzeba się do tego odwoływać.
Już działa :-)

Zaden problem, zrobilem dokladnie tak samo za pierwszym razem :) "No jak string to string...." - pomyslalem - a tu niespodzianka.