Процесс.Закрыть (Process.Close) Метод

Синтаксис

Закрыть()

Параметры

Возвращаемое значение

Описание

Освобождает все ресурсы, связанные с этим компонентом.

Примечание

Пример

Процесс1.Закрыть();
Полный пример кода 

Копировать     Выделить всё


Перем Ф, Процесс1, Количество, Таймер1;

Функция Команда(ИмяФайла, Аргументы, Объект)
	ИнформацияЗапускаПроцесса1 = Ф.ИнформацияЗапускаПроцесса();
	ИнформацияЗапускаПроцесса1.ИмяФайла = ИмяФайла;
	ИнформацияЗапускаПроцесса1.Аргументы = Аргументы;
	ИнформацияЗапускаПроцесса1.СоздатьБезОкна = Истина;
	ИнформацияЗапускаПроцесса1.ИспользоватьОболочку = Ложь;
	ИнформацияЗапускаПроцесса1.СтильОкна = Ф.СтильОкнаПроцесса.Скрытое;
	ИнформацияЗапускаПроцесса1.ПеренаправитьСтандартныйВывод = Истина;

	Процесс1 = Ф.Процесс();
	Процесс1.НачальнаяИнформация = ИнформацияЗапускаПроцесса1;

	Процесс1.Начать();
	Если Ф.ПлатформаWin Тогда
		Если Не Процесс1.Завершен Тогда
			Стр1 = Процесс1.СтандартныйВывод.ПрочитатьСтроку();
			Пока Стр1 <> Неопределено Цикл
				Ф.ПередатьУправление();
				Попытка
					Объект.ДобавитьТекст("" + Стр1 + Символы.ПС);
					Стр1 = Процесс1.СтандартныйВывод.ПрочитатьСтроку();
				Исключение
					ПроцессЗакрыт = Истина;
					Объект.ДобавитьТекст("Процесс1 закрыт.");
					Прервать;
				КонецПопытки;
			КонецЦикла;
		Иначе
			Объект.ДобавитьТекст("Процесс1 закрыт.");
		КонецЕсли;
	Иначе
		Приостановить(8000);
		Если Не Процесс1.Завершен Тогда
			Процесс1.Закрыть();
		КонецЕсли;
		Приостановить(2000);
		Попытка
			ПроцессЗакрыт = Процесс1.Завершен;
		Исключение
		КонецПопытки;	
	КонецЕсли;
	Возврат Неопределено;
КонецФункции

Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт
	Количество = Количество + 1;
	Сообщить("Количество = " + Количество);
	Если Количество > 5 Тогда
		Процесс1.Закрыть();
		Таймер1.Остановить();
	КонецЕсли;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Ширина = 600;
Форма1.Высота = 400;
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();
Ф.РазрешитьСобытия = Истина;

ИмяВременногоФайла = СтрЗаменить(ПолучитьИмяВременногоФайла(), ".", "") + ".os";

ПолеВвода1 = Форма1.ЭлементыУправления.Добавить(Ф.ПолеВвода());
ПолеВвода1.МногострочныйРежим = Истина;
ПолеВвода1.Стыковка = Ф.СтильСтыковки.Заполнение;
ПолеВвода1.ЦветФона = Ф.Цвет().Черный;
ПолеВвода1.ОсновнойЦвет = Ф.Цвет().БледноЗеленый;
ПолеВвода1.ПолосыПрокрутки = Ф.ПолосыПрокрутки.Обе;
ПолеВвода1.ПринятиеВозврат = Истина;
ПолеВвода1.РегистрСимволов = Ф.РегистрСимволов.Стандартный;

Панель1 = Форма1.ЭлементыУправления.Добавить(Ф.Панель());
Панель1.Высота = 30;
Панель1.ЗаполнениеГраниц.Все = 5;
Панель1.Стыковка = Ф.СтильСтыковки.Верх;

ПолеВвода2 = Панель1.ЭлементыУправления.Добавить(Ф.ПолеВвода());
ПолеВвода2.Текст = "127.0.0.1";
ПолеВвода2.Стыковка = Ф.СтильСтыковки.Заполнение;
ПолеВвода2.МногострочныйРежим = Ложь;

Количество = 0;
Таймер1 = Ф.Таймер();
Таймер1.Интервал = 1000;
Таймер1.ПриСрабатыванииТаймера = Ф.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера");
Если Ф.ПлатформаWin Тогда
	Таймер1.Начать();
КонецЕсли;

Если Ф.ПлатформаWin Тогда
	Команда("C:\Windows\System32\PING.EXE", " -n 100 " + СокрЛП(ПолеВвода2.Текст), ПолеВвода1);
Иначе
	Команда("mate-terminal", " --execute ping -c4 " + СокрЛП(ПолеВвода2.Текст), ПолеВвода1);
КонецЕсли;

Ф.ЗапуститьОбработкуСобытий();

Тестовый код 

Копировать     Выделить всё


Перем Ф, Процесс1, Количество, ПроцессЗакрыт;

Функция Команда(ИмяФайла, Аргументы, Объект)
	ИнформацияЗапускаПроцесса1 = Ф.ИнформацияЗапускаПроцесса();
	ИнформацияЗапускаПроцесса1.ИмяФайла = ИмяФайла;
	ИнформацияЗапускаПроцесса1.Аргументы = Аргументы;
	ИнформацияЗапускаПроцесса1.СоздатьБезОкна = Истина;
	ИнформацияЗапускаПроцесса1.ИспользоватьОболочку = Ложь;
	ИнформацияЗапускаПроцесса1.СтильОкна = Ф.СтильОкнаПроцесса.Скрытое;
	ИнформацияЗапускаПроцесса1.ПеренаправитьСтандартныйВывод = Истина;

	Процесс1 = Ф.Процесс();
	Процесс1.НачальнаяИнформация = ИнформацияЗапускаПроцесса1;

	Процесс1.Начать();
	Если Ф.ПлатформаWin Тогда
		Если Не Процесс1.Завершен Тогда
			Стр1 = Процесс1.СтандартныйВывод.ПрочитатьСтроку();
			Пока Стр1 <> Неопределено Цикл
				Ф.ПередатьУправление();
				Попытка
					Объект.ДобавитьТекст("" + Стр1 + Символы.ПС);
					Стр1 = Процесс1.СтандартныйВывод.ПрочитатьСтроку();
				Исключение
					ПроцессЗакрыт = Истина;
					Объект.ДобавитьТекст("Процесс1 закрыт.");
					Прервать;
				КонецПопытки;
			КонецЦикла;
		Иначе
			Объект.ДобавитьТекст("Процесс1 закрыт.");
		КонецЕсли;
	Иначе
		Приостановить(8000);
		Если Не Процесс1.Завершен Тогда
			Процесс1.Закрыть();
		КонецЕсли;
		Приостановить(2000);
		Попытка
			ПроцессЗакрыт = Процесс1.Завершен;
		Исключение
		КонецПопытки;	
	КонецЕсли;
	Возврат Неопределено;
КонецФункции

Процедура Таймер1_ПриСрабатыванииТаймера() Экспорт
	Количество = Количество + 1;
	// Сообщить("Количество = " + Количество);
	Если Количество > 5 Тогда
		Процесс1.Закрыть();
	КонецЕсли;
КонецПроцедуры

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Ширина = 600;
Форма1.Высота = 400;
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();
Ф.РазрешитьСобытия = Истина;

ПолеВвода1 = Форма1.ЭлементыУправления.Добавить(Ф.ПолеВвода());
ПолеВвода1.МногострочныйРежим = Истина;
ПолеВвода1.Стыковка = Ф.СтильСтыковки.Заполнение;
ПолеВвода1.ЦветФона = Ф.Цвет().Черный;
ПолеВвода1.ОсновнойЦвет = Ф.Цвет().БледноЗеленый;
ПолеВвода1.ПолосыПрокрутки = Ф.ПолосыПрокрутки.Обе;
ПолеВвода1.ПринятиеВозврат = Истина;
ПолеВвода1.РегистрСимволов = Ф.РегистрСимволов.Стандартный;

Панель1 = Форма1.ЭлементыУправления.Добавить(Ф.Панель());
Панель1.Высота = 30;
Панель1.ЗаполнениеГраниц.Все = 5;
Панель1.Стыковка = Ф.СтильСтыковки.Верх;

ПолеВвода2 = Панель1.ЭлементыУправления.Добавить(Ф.ПолеВвода());
ПолеВвода2.Текст = "127.0.0.1";
ПолеВвода2.Стыковка = Ф.СтильСтыковки.Заполнение;
ПолеВвода2.МногострочныйРежим = Ложь;

Количество = 0;
Таймер1 = Ф.Таймер();
Таймер1.Интервал = 1000;
Таймер1.ПриСрабатыванииТаймера = Ф.Действие(ЭтотОбъект, "Таймер1_ПриСрабатыванииТаймера");
Если Ф.ПлатформаWin Тогда
	Таймер1.Начать();
КонецЕсли;

ПроцессЗакрыт = Ложь;
Если Ф.ПлатформаWin Тогда
	Команда("C:\Windows\System32\PING.EXE", " -n 100 " + СокрЛП(ПолеВвода2.Текст), ПолеВвода1);
Иначе
	Команда("mate-terminal", " --execute ping -c4 " + СокрЛП(ПолеВвода2.Текст), ПолеВвода1);
КонецЕсли;

Сообщить(?(
ПроцессЗакрыт
, "", "!!! ") + "Процесс.Закрыть (Process.Close) Метод" + " " + ТекущаяДата());

Смотрите также

Процесс (Process) Класс | Библиотека OneScriptForms