Альтернатива Mssoap По Работе С Веб-сервисом

[Dragon108]

веб-сервис как библиотеку лотус не дает объявить. может таки как consumer нужно делать библиотеку?

на USE "<имя web service consumer>" ругается и не дает сохранить?

 

[Kizarek86]

Dragon108
да.

по последней ошибке отбой, надо было указать путь к веб сервису в библиотеке

%INCLUDE "lsxsd.lss"
Class GetPersonInfo As PortTypeBase

Sub NEW
Call Service.Initialize ("UrnDefaultNamespaceGetPersonInfoService", _
"GetPersonInfoService.Domino", "http://server/db/SimpleLSServiceNAB?wsdl", _
"GetPersonInfo")

End Sub

Function GETPHONENUMBER(PERSONNAME As String) As String
Let GETPHONENUMBER = Service.Invoke("GETPHONENUMBER", PERSONNAME)
End Function

Function GETEMAILADDRESS(PERSONNAME As String) As String
Let GETEMAILADDRESS = Service.Invoke("GETEMAILADDRESS", PERSONNAME)
End Function

End Class

 

[Dragon108]

веб-сервис как библиотеку лотус не дает объявить. может таки как consumer нужно делать библиотеку?

Добавлено: Если объявлять как библиотеку то такой код

Use "SimpleLSServiceNAB_NEW"
Sub Initialize
Dim PersonInfo As New GetPersonInfo
Print PersonInfo.GETEMAILADDRESS("James Bond")
End Sub

выдет ошибку

4746-Web Service GetPersonInfo method GETEMAILADDRESS error org.xml.sax.SAXException: Processing instructions are not allowed within SOAP messages

А сервис (SimpleLSServiceNAB) до этого то сам работал?
Попробуйте поставить soapUI 4.5.1 (она бесплатная и займет пару минут), потестите там свой веб-сервис (SimpleLSServiceNAB) - можно создавать тестовые запросы и получать ответ.
Может не проходить авторизация, при подключении к веб-сервису, тогда используйте SetCredentials.

Добавлено:

Dragon108
да.

по последней ошибке отбой, надо было указать путь к веб сервису в библиотеке

%INCLUDE "lsxsd.lss"
Class GetPersonInfo As PortTypeBase

Sub NEW
Call Service.Initialize ("UrnDefaultNamespaceGetPersonInfoService", _
"GetPersonInfoService.Domino", "http://server/db/SimpleLSServiceNAB?wsdl", _
"GetPersonInfo")

End Sub

Function GETPHONENUMBER(PERSONNAME As String) As String
Let GETPHONENUMBER = Service.Invoke("GETPHONENUMBER", PERSONNAME)
End Function

Function GETEMAILADDRESS(PERSONNAME As String) As String
Let GETEMAILADDRESS = Service.Invoke("GETEMAILADDRESS", PERSONNAME)
End Function

End Class

Кстати да почему то если импортить wsdl файл веб сервиса то проставляет путь как localhost, а если создавать web service consumer по адресу веб-сервиса, то путь к нему нормально проставляется

 

[Kizarek86]

Dragon108
ша поглядим.

пока работает только на локале, под web через некоторое время получаем

4746-Web Service GetPersonInfo method GETEMAILADDRESS error Error while reading data from server, Network operation did not complete in a reasonable amount of time; please retry

права на базу полные. правда есть прокся)

 

[Dragon108]

Dragon108
ша поглядим.

пока работает только на локале, под web через некоторое время получаем

4746-Web Service GetPersonInfo method GETEMAILADDRESS error Error while reading data from server, Network operation did not complete in a reasonable amount of time; please retry

права на базу полные. правда есть прокся)

Скорее всего сам web-service тупит.
Проверьте на всякий случай включена ли http служба на сервере (или включена на локале, если локально), проставлен ли в базе, где сам веб-сервис Anonymous в ACL.

 

[garrick]

Dragon108
права на базу полные. правда есть прокся)

А вообще web-service работает? Через SoapUI или браузер отвечает что-нибудь?

 

[Kizarek86]

http - включена, иначе отклика от агента вообще бы не было.
Anonymous - нету.

 

[Dragon108]

http - включена, иначе отклика от агента вообще бы не было.
Anonymous - нету.

Ну тогда, скорее всего, придется проходить авторизацию при каждом Запросе к сервису. (если нет Anonymous)

 

[garrick]

Ну тогда, скорее всего, придется проходить авторизацию при каждом Запросе к сервису. (если нет Anonymous)

Можно в код web-service consumer включить имя пользователя и пароль для доступа к web-service.

 

[Kizarek86]

Добавил Anonymous, на сервере таже беда.

 

[Kizarek86]

Все, понятно в чем проблема.

Ссылка скрыта от гостей

 

[Kizarek86]

Всем большой спс.

Если есть пример авторизации на Cookie LtpaToken2 буду очень благодарен)

 

[Dragon108]

Всем большой спс.

Если есть пример авторизации на Cookie LtpaToken2 буду очень благодарен)

Ну логин/пароль как уже говорил через SetCredentials

Call Service.Initialize (...)
Call SetCredentials ("<User>", "<Password>")