Добавлен мьютекс на критичном участке кода семаформа

Author: sfaqer

src/Классы/Семафор.os

@@ -1,5 +1,6 @@
 Перем мСчетчик;
 Перем СтандартныйРазмерПаузы;
+Перем БлокировкаРесурса;
 
 // Конструктор.
 //
@@ -14,7 +15,10 @@
 	Иначе
 		мСчетчик = Счетчик;
 	КонецЕсли;
+	
 	СтандартныйРазмерПаузы = 10;
+	БлокировкаРесурса      = Новый БлокировкаРесурса(ЭтотОбъект);
+
 КонецПроцедуры
 
 // Осуществить захват семафора.
@@ -28,9 +32,11 @@
 Процедура Захватить(ТаймаутОжидания = 0) Экспорт
 	ВремяНачала = ТекущаяУниверсальнаяДатаВМиллисекундах();
 	Пока Истина Цикл
+		БлокировкаРесурса.Заблокировать();
 		мСчетчик = мСчетчик - 1;
 		Если мСчетчик < 0 Тогда
 			мСчетчик = мСчетчик + 1;
+			БлокировкаРесурса.Разблокировать();
 			Если ЗначениеЗаполнено(ТаймаутОжидания) Тогда
 				ТекущееВремя = ТекущаяУниверсальнаяДатаВМиллисекундах();
 				Если (ВремяНачала + ТаймаутОжидания) < ТекущееВремя Тогда
@@ -39,6 +45,7 @@
 			КонецЕсли;
 			Приостановить(СтандартныйРазмерПаузы);
 		Иначе
+			БлокировкаРесурса.Разблокировать();
 			Прервать;
 		КонецЕсли;
 	КонецЦикла;