Причины создания
Я занимаюсь доработкой одной конфигурации постоянно, практически вношу изменения каждый день. Всё было бы хорошо, если бы это была не распределенная информационная база с множеством подчиненных узлов. Мне надо обновлять 12 точек и количество этих узлов только увеличивается. Поэтому я решил автоматизировать этот процесс, так как это стало занимать у меня очень много времени. Для этого я разработал компоненту и специальное приложение.
Механизм обновления конфигурации
Есть главная база на SQL и много подчиненных узлов в файловом варианте с веб сервером для тонкого клиента. Между ними обмен по FTP через стандартную синхронизацию по регламентому заданию. Для файлового варианта помним, что регламентное задание работает только тогда, когда есть хоть один экземпляр 1С:Предприятие. Так вот при внесении изменений в главной базе в скором времени они разносятся по точкам.
Затем, на точках работает специальное регламентное задание по обновлению. Сначала я на всякий случай закрываю процесс конфигуратора, иначе обновление не будет загружено в принципе. Так, но а если обновление загружено, то начинается процесс обновления.
Для этого надо выгнать всех пользователей файловой версии и тонкого клиента, у меня это сделано через константу и обработчик ожидания.
Далее перезапускается служба Apache, закрывается 1С:Предприятие и выполняется отложенный запуск обновления конфигурации и запуск предприятия.
Программа обновлена и ждёт новых обновлений. Если компьютер перезагрузится, то 1С:Предприятие запускается через автозагрузку. Всё необходимые функции для работы с этим я заложил в компоненту и приложение.
Зачем нужно дополнительное приложение
Эту дополнительную программу я зову псевдослужбой. Так как на деле это просто приложение рабочего стола, запущенное в фоне. Она просто ждёт команду и выполняет при её поступлении.
Псевдослужба позволяет делать
- Отложенные действия, то есть открыть программу через 5 минут, закрыть процесс через 3 минуты или перезапустить службу через час.
- Запускать приложения на сервере в SQL версии 1С:Предприятие. Если использовать стандартный метод ЗапуститьПриложение, то программа работает в скрытом режиме и невидима пользователю, а всё потому что агент 1С это служба. Поэтому просто так в регаментном задании запускать приложения не получится.
Описание компоненты
Компонента хорошо работает без псевдослужбы, но тогда не будут активны соответствующие ф-ии
//Свойства и методы компоненты Update1C_NatveAPI
//Свойства
//Версия компоненты
[Строка] Версия
//Флаг, что псевдослужба загружена и может выполнять команды
[Булево] ПсевдоСлужбаРаботает
//Методы
//Прописывает в автозагрузку любую программу. Нужно указать имя для идентификации и путь к файлу
[Булево Результат] УстановитьАвтозагрузкуПриложения(Строка ИмяПриложения, Строка ПутьКПриложению);
// Убирает приложение из автозагрузки
[Булево Результат] УдалитьАвтозагрузкуПриложения(Строка ИмяПриложения)
//Активирует автовход в Windows
[Булево Результат] ВключитьАвтовход(Строка ИмяПользователя, Строка ПарольПользователя)
//Деактивирует автовход в Windows
[Булево Результат] ОтключитьАвтовход()
//Перезапускает службу по имени
[Булево Результат] ПерезапуститьСлужбуОС(Строка ИмяСлужбы)
//Перезапускает службу по имени через псевдослужбу. Можно указать время перезапуска.
[Булево Результат] ПерезапуститьСлужбуОСЧерезПсевдоСлужбу(Строка ИмяСлужбы, Число ВремяВСекундах)
//Запускает приложение через псевдослужбу
//ПутьКПриложению - путь к программе
//КоманднаяСтрока1 - командная строка запускаемой программы
//КоманднаяСтрока2 - командная строка для второго запуска программы (если не указана, то не запускается)
//ВремяВСекундах1 - время первого запуска
//ВремяВСекундах2 - время второго запуска
[Булево Результат] ЗапуститьПриложениеЧерезПсевдоСлужбу(Строка ПутьКПриложению, Строка КоманднаяСтрока1, Строка КоманднаяСтрока2, Число ВремяВСекундах1, Число ВремяВСекундах2)
//Закрывает процесс по имени файла (например, 1cv8.exe) и части заголовка окна (например, "Конфигуратор")
[Булево Результат] СнятьПроцесс(Строка ИмяФайлаПроцесса, Строка ЧастьИмениЗаголовкаОкна)
//Тоже самое что и СнятьПроцесс, но через псевдослужбу и с откладыванием
[Булево Результат] СнятьПроцессЧерезПсевдоСлужбу(Строка ИмяФайлаПроцесса, Строка ЧастьИмениЗаголовкаОкна, Число ВремяВСекундах)
//Выгружает псевдослужбу из памяти
[Процедура] ОстановитьПсевдоСлужбу()
Дополнительные установочные файлы для работы
Microsoft Visual C++ Visual Studio 2017
Вступайте в нашу телеграмм-группу Инфостарт
