1
fly7
10.04.13
✎
15:23
|
Соединение = ПолучитьCOMОбъект("", "Microsoft.XMLHTTP");
Соединение.Open("GET", wsВерсияCF.Адресс, 0,,);
Соединение.Send();
Начало = ТекущаяДата(); ТаймАут = 20*60;
Пока Соединение.readyState <> 4 И (ТаймАут=0 ИЛИ ТекущаяДата()-Начало<ТаймАут) Цикл
ОбменДаннымиРарусКлиент.ПрерываниеПользователя();
КонецЦикла;
Если Соединение.readyState = 4 Тогда
Поток = Новый COMОбъект("ADODB.Stream");
Поток.Type = 1;
Поток.Mode = 3;
Поток.Open();
Поток.Write(Соединение.responseBody);
Поток.SaveToFile(Файл.ПолноеИмя);
Поток.Close();
КонецЕсли;
сейчас не работает...
пишет
{Форма.Форма.Форма(9)}: Ошибка при вызове метода контекста (send)
Соединение.Send();
по причине:
Произошла исключительная ситуация (msxml3.dll): Отказано в доступе.
|
|