Merge branch 'develop'

Author: nixel2007

packagedef

@@ -1,6 +1,6 @@
 
 Описание.Имя("v8runner")
-		.Версия("0.8.0")
+		.Версия("0.9")
 		.ЗависитОт("asserts")
 		.ЗависитОт("fs")
 		.ЗависитОт("logos")

src/v8runner.os

@@ -20,6 +20,7 @@
 Перем мФайлИнформацииВнешний;
 Перем мОчищатьФайлИнформации;
 Перем мТекстФайлаДоВывода;
+Перем мОбработчикОжиданияПроцессаGUI;
 
 //////////////////////////////////////////////////////////////////////////////////
 // Программный интерфейс
@@ -656,12 +657,12 @@
 
 		КонецЕсли;
 
-		Если НЕ ЗначениеЗаполнено(ПутьКСпискуФайловЗагрузки) Тогда
+		Если ЗначениеЗаполнено(ПутьКСпискуФайловЗагрузки) Тогда
 
 			Параметры.Добавить(СтрШаблон("-listFile %1", ОбернутьВКавычки(ПутьКСпискуФайловЗагрузки)));
 			Параметры.Добавить(СтрШаблон("-format %1", ФорматВыгрузки));
 
-		КонецЕслИ;
+		КонецЕсли;
 
 	КонецЕслИ;
 
@@ -1297,6 +1298,20 @@
 
 КонецПроцедуры
 
+// При запуска в режиме предприятия часто приложение GUI возвращает в оболочку ОК сразу после старта (а не после завершения)
+//
+// Параметры:
+//   ОбъектОбработчик - Объект с экспортным методом ОбработкаОжиданияПроцесса(Отказ, Интервал)
+//   Интервал - Интервал ожидания (мс) через который вызывается ОбработкаОжиданияПроцесса, если он не завершен
+//
+Процедура УстановитьОбработчикОжидания(Знач ОбъектОбработчик, Знач Интервал = 5000) Экспорт
+	
+	мОбработчикОжиданияПроцессаGUI = Новый Структура;
+	мОбработчикОжиданияПроцессаGUI.Вставить("Объект", ОбъектОбработчик);
+	мОбработчикОжиданияПроцессаGUI.Вставить("Интервал", Интервал);
+
+КонецПроцедуры
+
 Функция ЗапуститьИПодождать(Знач Параметры)
 
 	СтрокаЗапуска = "";
@@ -1321,19 +1336,68 @@
 	Иначе
 		СтрокаЗапуска = Приложение + СтрокаЗапуска;
 	КонецЕсли;
-	ЗапуститьПриложение(СтрокаЗапуска, , Истина, КодВозврата);
-
+	Если мОбработчикОжиданияПроцессаGUI = Неопределено Тогда
+		ЗапуститьПриложение(СтрокаЗапуска, , Истина, КодВозврата);
+	Иначе
+		ЗапуститьПроцессGUI(СтрокаЗапуска, КодВозврата);
+	КонецЕсли;
+	Лог.Отладка("Получен код возврата %1", КодВозврата);
 	Возврат КодВозврата;
 
 КонецФункции
 
+Процедура ЗапуститьПроцессGUI(Знач СтрокаЗапуска, КодВозврата)
+
+	Процесс = СоздатьПроцесс(СтрокаЗапуска);
+	Процесс.Запустить();
+
+	Лог.Отладка("Стартовал процесс в режиме GUI, PID:%1", Процесс.Идентификатор);
+	Приостановить(3000); // инициализация 1С
+
+	Пока Не Процесс.Завершен Цикл
+
+		Если мОбработчикОжиданияПроцессаGUI.Интервал > 0 Тогда
+			Лог.Отладка("Пауза %1 секунд", мОбработчикОжиданияПроцессаGUI.Интервал);
+			Приостановить(мОбработчикОжиданияПроцессаGUI.Интервал);
+		КонецЕсли;
+
+		Отказ = Ложь;
+		Лог.Отладка("Вызов обработчика ожидания");
+		Попытка
+			мОбработчикОжиданияПроцессаGUI.Объект.ОбработкаОжиданияПроцесса(Отказ, мОбработчикОжиданияПроцессаGUI.Интервал);
+		Исключение
+			Лог.Отладка(ОписаниеОшибки());
+			ВызватьИсключение;
+		КонецПопытки;
+
+		Если Отказ = Истина Тогда
+			КодВозврата = -1;
+			Лог.Отладка("Получен отказ");
+			Возврат;
+		КонецЕсли;
+
+	КонецЦикла;
+
+	Лог.Отладка("Процесс завершен.");
+	КодВозврата = Процесс.КодВозврата;
+
+КонецПроцедуры
+
 Функция ПрочитатьФайлИнформации()
 
 	Текст = "";
 
 	Файл = Новый Файл(ФайлИнформации());
 	Если Файл.Существует() Тогда
-		Чтение = Новый ЧтениеТекста(Файл.ПолноеИмя);
+		Попытка
+			Чтение = Новый ЧтениеТекста(Файл.ПолноеИмя);
+		Исключение
+			Лог.Предупреждение("Не удалось прочитать файл информации %1.
+			|" + ОписаниеОшибки(), Файл.ПолноеИмя);
+			
+			Возврат "";
+		КонецПопытки;
+		
 		Текст = Чтение.Прочитать();
 		Чтение.Закрыть();