Не работает пауза

[zeegin]

Connector/src/CommonModules/КоннекторHTTP/Ext/Module.bsl

Line 2924 in 4d9a08f

Если РеальныйТаймаут < МинимальныйТаймаутВМиллисекундах Тогда

Операции сравнения на больше-меньше допустимы только для значений совпадающих примитивных типов (Булево, Число, Строка, Дата)
{ОбщийМодуль.РаспознаваниеДокументовHTTP.Модуль(2855)}:		Если РеальныйТаймаут < МинимальныйТаймаутВМиллисекундах Тогда
{ОбщийМодуль.РаспознаваниеДокументовHTTP.Модуль(1613)}:		Приостановить(ДлительностьПриостановки);
{ОбщийМодуль.РаспознаваниеДокументовHTTP.Модуль(943)}:	Ответ = ОтправитьЗапрос(Сессия, ПодготовленныйЗапрос, НастройкиПодключения);
{ОбщийМодуль.РаспознаваниеДокументовHTTP.Модуль(123)}:	Возврат ВызватьHTTPМетод(ТекущаяСессия, "POST", URL, ДополнительныеПараметры);

Запрос на периодической переотправке к лежачему серверу.

	Параметры.Вставить("МаксимальноеКоличествоПовторов", 3);
	Параметры.Вставить("КоэффициентЭкспоненциальнойЗадержки", 5);

[zeegin]

Процедура Приостановить(ДлительностьОстановкиВСекундах)

	Если ДлительностьОстановкиВСекундах < 1 Тогда
		Возврат;
	КонецЕсли;

	ТекущаяДата = ТекущаяУниверсальнаяДата();
	ЖдатьДо = ТекущаяДата + ДлительностьОстановкиВСекундах;

	// BSLLS:UsingHardcodeNetworkAddress-off
	ЛокальныйХост = "127.0.0.0";
	КакойНибудьСвободныйПорт = 56476;
	// BSLLS:UsingHardcodeNetworkAddress-on
	Пока ТекущаяДата < ЖдатьДо Цикл
		Таймаут = ЖдатьДо - ТекущаяДата;
		Начало = ТекущаяУниверсальнаяДатаВМиллисекундах();
		Попытка
			РеальныйТаймаут = 0; // <== ИСПРАВИТЬ ЗДЕСЬ
			Соединение = Новый HTTPСоединение(
				ЛокальныйХост, КакойНибудьСвободныйПорт, Неопределено, Неопределено, Неопределено, Таймаут);
			Соединение.Получить(Новый HTTPЗапрос("/does_not_matter"));
		Исключение
			РеальныйТаймаут = ТекущаяУниверсальнаяДатаВМиллисекундах() - Начало;
		КонецПопытки;
		МинимальныйТаймаутВМиллисекундах = 1000;
		Если РеальныйТаймаут < МинимальныйТаймаутВМиллисекундах Тогда
			ВызватьИсключение(НСтр("ru = 'Процедура Приостановить не работает должным образом'"));
		КонецЕсли;
		ТекущаяДата = ТекущаяУниверсальнаяДата();
	КонецЦикла;

КонецПроцедуры

[vbondarevsky]

У тебя обращение на локалхост запрещено политиками?

[zeegin]

Неа, случайный порт оказался не случайным :)

[vbondarevsky]

Неа, случайный порт оказался не случайным :)

Ну вот такая вот пауза в 1С :)
Ты можешь поменять порт прямо в коде.
Можно наверное сделать в таком случае замену порта на другой какой-нибудь (и так не более скажем 3 раз)

[trumanleks]

код из свежей БСП

Процедура Пауза(Секунд) Экспорт

ТекущийСеансИнформационнойБазы = ПолучитьТекущийСеансИнформационнойБазы();
ФоновоеЗадание = ТекущийСеансИнформационнойБазы.ПолучитьФоновоеЗадание();

Если ФоновоеЗадание = Неопределено Тогда
    Параметры = Новый Массив;
    Параметры.Добавить(Секунд);
    ФоновоеЗадание = ФоновыеЗадания.Выполнить("ОбщегоНазначенияБТС.Пауза", Параметры);
КонецЕсли;
    
ФоновоеЗадание.ОжидатьЗавершенияВыполнения(Секунд);

КонецПроцедуры

[zeegin]

код из свежей БСП

Это не заработает на клиенте.