Имя: Пароль:
1C
1С v8
Установить таймоут при подключении к веб сервису.
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");
Выдавать глобальные идеи — это удовольствие; искать сволочные маленькие ошибки — вот настоящая работа. Фредерик Брукс-младший