Учтены фидбеки

src/Транспорты/ТранспортТелеграм.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 секунду
-	КонецЦикла;
-
-КонецПроцедуры
 
 Процедура ОпределитьТипСообщения(ДополнительныеПараметры, ПараметрыСообщения)
 	Если ДополнительныеПараметры <> Неопределено