From 0604b33975c55eef9fffc21e6aafa4697c0db78a Mon Sep 17 00:00:00 2001 From: Karim Shakirov Date: Sun, 22 Sep 2019 20:05:54 +0300 Subject: [PATCH] =?UTF-8?q?=D0=A3=D1=87=D1=82=D0=B5=D0=BD=D1=8B=20=D1=84?= =?UTF-8?q?=D0=B8=D0=B4=D0=B1=D0=B5=D0=BA=D0=B8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- ...20\265\320\263\321\200\320\260\320\274.os" | 20 +++++++------------ 1 file changed, 7 insertions(+), 13 deletions(-) diff --git "a/src/\320\242\321\200\320\260\320\275\321\201\320\277\320\276\321\200\321\202\321\213/\320\242\321\200\320\260\320\275\321\201\320\277\320\276\321\200\321\202\320\242\320\265\320\273\320\265\320\263\321\200\320\260\320\274.os" "b/src/\320\242\321\200\320\260\320\275\321\201\320\277\320\276\321\200\321\202\321\213/\320\242\321\200\320\260\320\275\321\201\320\277\320\276\321\200\321\202\320\242\320\265\320\273\320\265\320\263\321\200\320\260\320\274.os" index aac0980..0961301 100644 --- "a/src/\320\242\321\200\320\260\320\275\321\201\320\277\320\276\321\200\321\202\321\213/\320\242\321\200\320\260\320\275\321\201\320\277\320\276\321\200\321\202\320\242\320\265\320\273\320\265\320\263\321\200\320\260\320\274.os" +++ "b/src/\320\242\321\200\320\260\320\275\321\201\320\277\320\276\321\200\321\202\321\213/\320\242\321\200\320\260\320\275\321\201\320\277\320\276\321\200\321\202\320\242\320\265\320\273\320\265\320\263\321\200\320\260\320\274.os" @@ -108,24 +108,26 @@ Попытка HTTPЗапрос = Новый HTTPЗапрос(URL); - HTTP = Новый HTTPСоединение(ИмяСервера,Число(443),,,,5); + HTTP = Новый HTTPСоединение(ИмяСервера,443,,,,5); ОтветHTTP = HTTP.ОтправитьДляОбработки(HTTPЗапрос); Исключение КодСостоянияСоединения = 201; - - Пока КодСостоянияСоединения > 200 Цикл + КоличествоПопытокПодключения = 0; + + Пока (КодСостоянияСоединения > 200) И (КоличествоПопытокПодключения < 20) Цикл Прокси = СоздатьДинамическийПрокси(); HTTPЗапрос = Новый HTTPЗапрос(URL); - HTTP = Новый HTTPСоединение(ИмяСервера,Число(443),,,Прокси,3); + HTTP = Новый HTTPСоединение(ИмяСервера,443,,,Прокси,3); Попытка ОтветHTTP = HTTP.ОтправитьДляОбработки(HTTPЗапрос); КодСостоянияСоединения = ОтветHTTP.КодСостояния; Исключение - Пауза(1); + Приостановить(2); + КоличествоПопытокПодключения = КоличествоПопытокПодключения + 1; КонецПопытки; КонецЦикла; @@ -157,14 +159,6 @@ КонецФункции -Процедура Пауза(Секунд) - - ДатаВыхода = ТекущаяДата() + Секунд; - Пока ТекущаяДата() < ДатаВыхода Цикл - //Простите за костыль, но API требует не посылать запросы чаще чем раз в 1 секунду - КонецЦикла; - -КонецПроцедуры Процедура ОпределитьТипСообщения(ДополнительныеПараметры, ПараметрыСообщения) Если ДополнительныеПараметры <> Неопределено