Добрый день!
Есть внешний отчет обработка по выгрузке данных из 1с 7.7 на сайт.
Все работает нормально, но после замены интернета стала возникать подобная ошибка, при отправке пакетов (причем только на более-менее крупных). Мелкие пакеты уходят нормально. Интернет быстрый, билайн 4g, скорость около 30 мб/с. Как можно решить данную проблему?
Если вкратце, то код:
Попытка
HTTPxml = CreateObject("Microsoft.XMLHTTP");
Исключение
Сообщить("Ошибка инициализации XMLHTTP");
КонецПопытки;
Попытка
objXML = CreateObject("Microsoft.XMLDOM");
Исключение
Сообщить("Ошибка инициализации XMLDOM");
КонецПопытки;
Функция ЗапросXMLRPC(url ="", metod="",value="")
Если ТипЗначенияСтр(value) = "СписокЗначений" тогда
СтрокаПараметров = "";
Для i = 1 по value.размерСписка() Цикл
СтрокаПараметров = СтрокаПараметров + "<param><value>"+
типXML(value.ПолучитьЗначение(i))
+"</value></param>";
КонецЦикла;
ИначеЕсли value<>"" тогда
СтрокаПараметров = "
|<param>
|<value>"+ТипXml(value)+"
|</value>
|</param>";
Иначе
СтрокаПараметров = "";
КонецЕсли;
Если СтрокаПараметров<>"" тогда
СтрокаПараметров = "
|<params>" + СтрокаПараметров+ "
|</params>";
КонецЕсли;
Text = "<?xml version='1.0'?>
|<methodCall>
|<methodName>" + metod +"</methodName>"
+ СтрокаПараметров + "
|</methodCall>";
HTTPxml.Open("POST", url , 0 );
HTTPxml.Send( Text );
objXML.async = 0;
xml_fso=СоздатьОбъект("Scripting.FileSystemObject");
xml_fso.CreateTextFile("C:\test.xml", 1);
xml_file=xml_fso.OpenTextFile("C:\test.xml", 2, 1);
xml_file.WriteLine(HTTPxml.ResponseText);
xml_file.Close();
objXML.Load("C:\test.xml");
ответ = СоздатьОбъект("СписокЗначений");
objLst = objXML.getElementsByTagName("param");
//
Если objLst.length = 0 Тогда
objLst = objXML.getElementsByTagName("member");
ответ.ДобавитьЗначение(-1,"Ошибка");
ответ.ДобавитьЗначение("","");
Иначе
результат = XMLToValue(objLst.item(0).childNodes(0));
ответ.ДобавитьЗначение(0,"результат");
ответ.ДобавитьЗначение(результат);
КонецЕсли;
Возврат ответ;
КонецФункции
Ошибка указывает на строку HTTPxml.Send( Text );