|
Установить таймоут при подключении к веб сервису. |
☑ |
0
Radion
13.08.12
✎
14:29
|
1С УТ 8.2. подключемся к веб сервису.
Попытка
Сервис = Новый COMОбъект("MSSOAP.SoapClient30");
Сервис.MSSoapInit(МойАдресРесурса);
Сервис.ConnectorProperty("Timeout") = 90000; - ЗДЕСЬ 1С ВЫДАЕТ СИНТАКСИЧЕСКУЮ ОШУБКУ.
Результат = Сервис.getShipment(ТекКодСтраны,ТекДатаС,ТекДатаПо,ТекПарольВеб_Сервис).context.xml;
Исключение
Сообщить("Неудачная попытка соединения: " + ОписаниеОшибки());
ЗаписьЖурналаРегистрации("HTTPСоединение", УровеньЖурналаРегистрации.Ошибка, , , "Неудачная попытка соединения: " + ОписаниеОшибки());
КонецПопытки;
Спасибо.
|
|
1
Radion
13.08.12
✎
16:28
|
up
|
|
2
Radion
13.08.12
✎
23:59
|
хоть мыслю подкинте. спс)
|
|
3
Radion
14.08.12
✎
00:40
|
пробую простенький код, но безрезультатно (:
ScrptCtrl = Новый ComObject("MSScriptControl.ScriptControl");
ScrptCtrl.Language ="vbscript";
ScrptCtrl.AddCode("
|Function SendRequvest()
|Set Client = CreateObject(""MSSoap.SoapClient30"")
|Client.MSSoapInit("""+АдресРесурса+""")
|Client.ConnectorProperty(""Timeout"") = 90000
|Call Client.getShipment("""+ТекКодСтраны+""","""+ТекДатаС+""","""+ТекДатаПо+""","""+ТекПарольВеб_Сервис+""")
|End Function
|");
Результат = ScrptCtrl.Run("SendRequvest");
|
|
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший