Skip to content

Commit

Permalink
Pr-Mex#1822 Запуск web-клиента в Linux
Browse files Browse the repository at this point in the history
- поиск браузера и формирование команды запуска
- корректировка команды запуска для Linux
  • Loading branch information
KSidelnikov committed Dec 26, 2022
1 parent 73489f8 commit e3328ae
Show file tree
Hide file tree
Showing 2 changed files with 66 additions and 1 deletion.
Original file line number Diff line number Diff line change
Expand Up @@ -572,7 +572,10 @@
ТекстКоманды = СтрЗаменить(ТекстКоманды, "%", "%%");

Если ЭтоLinuxКлиент() Тогда


ТекстКоманды = СтрЗаменить(СокрЛП(ТекстКоманды), "start """" ", "");
ТекстКоманды = ТекстКоманды + " &";

КомандаСистемы(ТекстКоманды);
Возврат 0;

Expand Down
Original file line number Diff line number Diff line change
Expand Up @@ -42,6 +42,19 @@
КонецЕсли;
КонецЕсли;

Если Ванесса.ЭтоLinux Тогда
Варианты = Новый Массив;
Варианты.Добавить("/opt/google/chrome/chrome");
Варианты.Добавить("/snap/bin/chromium");

ПараметрыПоиска = Новый Структура("ЭтоWindows, Варианты", Ложь, Варианты);
ПараметрыПоиска.Вставить("Варианты", Варианты);
ПараметрыПоиска.Вставить("ЭтоWindows", Ложь);
ПараметрыПоиска.Вставить("ИспользоватьОтладку", ИспользоватьОтладку);

НайтиИсполняемыйФайлЗапускаБраузера(ПараметрыПоиска);
КонецЕсли;

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

// Активизирует окно браузера
Expand Down Expand Up @@ -272,4 +285,53 @@

КонецФункции

&НаКлиенте
// Взято из внешней обработки "Библиотека VanessaExt", форма MainForm.
// Проект: https://github.com/lintest/VanessaExt
//
Процедура НайтиИсполняемыйФайлЗапускаБраузера(ПараметрыПоиска)

Если ПараметрыПоиска.Варианты.Количество() = 0 Тогда
Возврат;
КонецЕсли;

ИмяФайла = ПараметрыПоиска.Варианты[0];
ПараметрыПоиска.Варианты.Удалить(0);

Если ПараметрыПоиска.ЭтоWindows Тогда
Попытка
Shell = Новый COMОбъект("WScript.Shell");
ИмяФайла = Shell.ExpandEnvironmentStrings(ИмяФайла);
Исключение
//Ничего не делаем
КонецПопытки;
КонецЕсли;

Файл = Новый Файл(ИмяФайла);
ПараметрыПоиска.Вставить("ПолноеИмя", Файл.ПолноеИмя);
ОписаниеОповещения = Новый ОписаниеОповещения("ПроверитьСуществованиеФайлаЗапускаБраузера", ЭтотОбъект, ПараметрыПоиска);
Файл.НачатьПроверкуСуществования(ОписаниеОповещения);

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

&НаКлиенте
// Взято из внешней обработки "Библиотека VanessaExt", форма MainForm.
// Проект: https://github.com/lintest/VanessaExt
//
Процедура ПроверитьСуществованиеФайлаЗапускаБраузера(Существует, ДополнительныеПараметры) Экспорт

Если Существует Тогда
ПолноеИмяФайлаЗапуска = ДополнительныеПараметры.ПолноеИмя;
Если ДополнительныеПараметры.ИспользоватьОтладку Тогда
КлючОтладки = " --remote-debugging-port=" + Формат(ПортБраузера, "ЧГ=");
Иначе
КлючОтладки = "";
КонецЕсли;
Ванесса.Объект.КомандаЗапускаБраузера = """" + ПолноеИмяФайлаЗапуска + """" + КлючОтладки;
Иначе
НайтиИсполняемыйФайлЗапускаБраузера(ДополнительныеПараметры);
КонецЕсли;

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

#КонецОбласти

0 comments on commit e3328ae

Please sign in to comment.