Имя: Пароль:
1C
1C 7.7
v7: Как скопировать прайс с интернета средствами 77?
0 Stagor
 
29.05.13
11:36
HTTPСоединение=СоздатьОбъект("HTTPСоединение");
HTTPСоединение.ПолучитьКакФайл("http://www.ResourceServer.ru/res/price.xml","c:\dnld\price.xml");

что тут не так?
1 Stagor
 
29.05.13
11:38
HTTPСоединение=СоздатьОбъект("V7HTTPReader");
то же не срабатывает
2 Stagor
 
29.05.13
12:06
Понимаю, что по 77 сейчас спецов мало,но
может кто пользовался раньше?
3 oslokot
 
29.05.13
12:09
Дарю:
Функция СохранитьФайлИзИнтернета(Ссылка,Путь)
   
   Скрипт = СоздатьОбъект("MSScriptControl.ScriptControl");
   Скрипт.language = "vbscript";

   Соединение = CreateObject("WinHttp.WinHttpRequest.5.1");
   Соединение.Open("GET", Ссылка, 0);
   Соединение.SetTimeouts(10000, 60000, 30000, 30000);
   Соединение.setRequestHeader("Accept", "application/xml");
   Соединение.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded");
   Соединение.Send();
   Соединение.WaitForResponse();
   
   к=_GetPerformanceCounter();
   Пока Соединение.Status<>200 Цикл
       Если _GetPerformanceCounter()-к>=2000 Тогда
           Сообщить("Страница не отвечает. "+ОписаниеОшибки());
           Возврат 0;
       КонецЕсли;
       Состояние("Ожидание соединения...");
   КонецЦикла;    

   Stream = CreateObject("ADODB.Stream");
   Stream.Mode = 3;
   Stream.Type = 1;
   Stream.Open();
   Скрипт.AddObject("s",Stream);
   Скрипт.AddObject("x",Соединение);
   Скрипт.Eval("s.Write(x.responseBody)");
   Stream.SaveToFile(Путь, 2);
   Stream.Close();

   Возврат 1;

КонецФункции
4 Stagor
 
29.05.13
13:02
(3) Спасибо большое, сейчас потестю!
5 Stagor
 
29.05.13
13:19
(3) Спасибо ещё раз!
Круто! Работает быстро, гораздо быстрее, чем через e-mail!