Подключение двух и более COMConnector'ов (COM-соединений) к различным релизам сервера 1С:Предприятие 8.3 на одном компьютере

04.06.22

Администрирование - Сервера

В публикации рассматривается вопрос о создании двух и более одновременно работающих COM-соединений к различным релизам сервера 1С:Предприятие 8.3 на одном компьютере. Разрабатывалось, тестировалось и работает под платформами 1С 8.3. Но, насколько я углубился в тему, этот алгоритм должен работать и под 8.1, и под 8.2 и в комбинациях.

Публикаций и обсуждений по этому вопросу много, но я не нашел для себя доведенной до финальной точки.

Поэтому решился выложить свою версию.

Просидев ночь, я получил короткий и быстрый алгоритм создания двух и более COM-соединений к серверам 1С:Предприятие разных релизов на одном компьютере, коим и хочу поделиться.

 

Среда разработки, тестирования и использования:

ОС: Windows 11, СУБД: MS SQL 2019, Серверы 1С:Предприятие: релизы 8.3.13.1644 и 8.3.21.1302

ОС: Windows Server 2019, СУБД: MS SQL 2019, Серверы 1С:Предприятие: релизы 8.3.13.1644 и 8.3.21.1302

 

Используемые публикации и обсуждения:

[Шпаргалка] Несколько версий сервера 1С на одном сервере (компьютер)

COM соединения с базами 1С на различных версиях платформы "Без перерегистрации и СМС"

Теперь по порядку.

Собственно началось с установки на Windows Server 2019 второго сервера 1С:Предприятие 8.3.21.1302 для работы с конфигурацией "Бухгалтерия предприятия 3.0". До этого в хлам переписанная конфигурация "Управление торговлей 10.3" работала под сервером 1С:Предприятие 8.3.13.1644. Перевести ее сразу под сервер 1С:Предприятие 8.3.21.1302 не представлялось возможным (требуется доработка конфигурации и продолжительное тестирование), а "Бухгалтерия предприятия 3.0" не работает под сервером 1С:Предприятие 8.3.13.1644. Но нужно как-то организовать обмен между УТ и БП. Поэтому и возникла задача об организации двух ОДНОВРЕМЕННО работающих COM-соединений для серверов 1С:Предприятие 8.3.13.1644 и 1С:Предприятие 8.3.21.1302.

Сначала была установка второго сервера 1С:Предприятие 8.3.21.1302. Останавливаться на этом этапе не буду, он грамотно и подробно описан в [Шпаргалка] Несколько версий сервера 1С на одном сервере (компьютер). Замечу только, что после выполнения этого этапа у меня получилось вот что:

 

Затем начался непосредственно "танец с бубнами" с COM-соединениями. Попробовал использовать Подсистема "Инструменты разработчика" 1С 8. Но так как процесс проходил ночью после рабочего дня, то окончательно разобраться в ней, к сожалению, не получилось. Потом глаз упал на COM соединения с базами 1С на различных версиях платформы "Без перерегистрации и СМС". Вот тут стало интереснее и в результате чтения обсуждения и производства опытов над ОС и 1С и родился алгоритм, который привожу ниже.

ШАГ 1. Запускаем консоль Службы компонентов.

В Windows 11 я не нашел как ее запустить интерактивно, поэтому использовал следующее решение. Запускаем командную строку (CMD) от имени администратора. Выбираем "Файл" -> "Добавить или удалить оснастку" -> "Службы компонентов" -> "Добавить" -> "ОК". Затем "Файл" -> "Сохранить как...". Вводим свое наименование (например, "Службы компонентов") и место сохранения. Таким образом получаем консоль, в которой будем работать дальше.

 

 

ШАГ 2. В ветке "Приложения COM+" создаем 3 приложения : 1СV8, 1CV8_3_13_1644 и 1CV8_3_21_1302, и 2 псевдонима: V83.ComConnector.8.3.13.1644 и V83.ComConnector.8.3.21.1302.

Имена приложениям и псевдонимам для удобства даем в соответствии с релизами серверов 1С:Предприятие.

 

 

Способ активации Серверное приложение, Далее

 

 

Учетная запись Текущий пользователь, Далее

 

 

Далее

 

 

Далее

 

 

Результат

 

 

Добавляем компонент в приложение 1CV8

 

 

При этом выбираем ЛЮБОЙ из нужных нам двух компонентов comcntr.dll

 

 

Далее

 

 

Результат

 

 

Создаем 2 псевдонима: V83.ComConnector.8.3.13.1644 и V83.ComConnector.8.3.21.1302 в соответствующих приложениях

 

 

Результат

 

 

На этом работа с консолью Службы приложений завершена.

В результате созданы два COMConnector'а: V83.COMConnector.8.3.13.1644 и V83.COMConnector.8.3.21.1302.

Но весь процесс еще не завершен.

ШАГ 3. Работаем с реестром Windows.

Теперь нужно привести в соответствие псевдонимы созданных COMConnector'ов с реальными библиотеками comcntr.dll, которые будут подгружаться при вызове конструктора Новый COMОбъект.

Для этого запускаем Win+R - regedit.

Далее описанная операция повторяется для каждого созданного псевдонима.

По Ctrl-F ищем имя псевдонима V83.ComConnector.8.3.13.1644

 

 

Нашли раздел (имя раздела = ID псевдонима)

 

 

В подразделе InprocServer32 в значение (По умолчанию) подставляем полный путь к нужной компоненте

 

 

Практика показала, что эти изменения достаточно внести в ветке HKEY_CLASSES_ROOT\WOW6432Node\CLSID\.

Но для успокоения души можно пройтись дальше поиском (F3) и удостовериться, что имена компонентов COM+ совпадают с папками 1С bin соответствующих версий.

ТЕПЕРЬ ВСЕ, можно работать.

ШАГ 4. Создание и вызов методов компонент в языке 1С.

ПРИМЕР тонкий клиент

&НаКлиенте
Функция ПодключитьCOM()
    результат = Неопределено;
    строкаПодключения = "Srvr=""localhost:1541"";Ref=""ut"";Usr=""администратор"";Pwd=""12345"";";
    Попытка
        соединение = Новый COMОбъект("V83.COMConnector.8.3.13.1644");
        результат = соединение.Connect(строкаПодключения);
        ПоказатьПредупреждение(, "Подключено!");
    Исключение
        Сообщить(ОписаниеОшибки());
        ПоказатьПредупреждение(, "Ошибка подключения!");
    КонецПопытки;
    Возврат результат;
КонецФункции
// Это можно делать и &НаСервере, только смысла в возврате значения нет,
// т.к. он, в отличие от &НаКлиенте, не сохранится для дальнейшего использования.
// Но это уже другая история...

ПРИМЕР толстый клиент

Функция ПодключитьCOM()
    результат = Неопределено;
    строкаПодключения = "Srvr=""localhost:2541"";Ref=""bp"";Usr=""администратор"";Pwd=""12345"";";
    Попытка
        соединение = Новый COMОбъект("V83.COMConnector.8.3.21.1302");
        результат = соединение.Connect(строкаПодключения);
        Предупреждение("Подключено!");
    Исключение
        Сообщить(ОписаниеОшибки());
        Предупреждение("Ошибка подключения!");
    КонецПопытки;
    Возврат результат;
КонецФункции

PS

    ПРЕИМУЩЕСТВА

    1. СКОРОСТЬ И ПРОСТОТА. Все операции можно неторопливо выполнить за 5-10 минут (разброс - это время поиска в реестре Windows на конкретном компьютере). Алгоритм не сложный и доступный для тех, кто сталкивался с подобными проблемами.

    2. СДЕЛАЛ И ЗАБЫЛ. Код строго привязан к компонентам COM+ операционной системы и на него не повлияют ни "случайная" раз- или пере- регистрация COM-компонентов, ни установка нового релиза платформы 1С, ни черт, ни ладан, ни герой... :). Хотя это пока под вопросом из-за непродолжительного срока тестирования и использования. Если же все-таки произошел сбой, то восстановление занимает те же 5 минут, причем не требуется перезапуск клиентских приложений 1С!

    3. ПРАВА. Не требуются полные права администратора операционной системы на выполнение описанных операций. Достаточны доступ к консоли Службы компонентов и реестру WIndows. Если системный администратор не готов предоставить их администратору или программисту 1С, то он способен выполнить эти операции сам за короткое время.

    4. ОПИСАНИЕ. Постарался более-менее полно и наглядно описать алгоритм (не в последнюю очередь для себя, чтобы при необходимости им воспользоваться).

    НЕДОСТАТКИ

    1. Говорят, что при регистрации компонентов указанным способом (посредством DCOM) снижается скорость обработки данных. Мной это еще не тестировалось. Основной целью был стабильный одновременный обмен данными между базами данных приложений, работающих под серверами 1С:Предприятие разных релизов, установленных на одном компьютере.

    2. Малое время использования для набора статистики по стабильности, скорости и т.п., нужно время, будем посмотреть.

    БАЯН

    Как было сказано в начале, уверен, что многие занимались этой проблемой и решили ее. Но мне такое решение, к сожалению, не попалось :(. Вот и решил выложить свое выстраданное. Поэтому убедительна просьба не давать комментарии типа "разуй глаза", "погугли" и т.п. Если есть конкретные замечания или более совершенные или отличные разработки - прошу. Благодарю.

WIndows COM+ COM COMConnector соединение сервер два различный разный релиз один компьютер

См. также

Администрирование веб-серверов Сервера Системный администратор Программист Абонемент ($m)

WEB приложение для управления сеансами сервера 1С, имеет адаптивный web интерфейс. Возможности: удаление сеансов; завершение rphost процессов; запуск службы 1С сервера (если остановлена). Используется авторизация BasicAuth с защитой от брутфорса. Поддерживает работу по http https протоколам.

1 стартмани

08.11.2024    827    12    gortrex    2    

3

Облачные сервисы, хостинг Linux Тестирование QA Сервера Системный администратор Программист Платформа 1С v8.3 Бесплатно (free)

Завершающая публикация цикла "В облако на работу:.. Рецепты от Капитана", в ходе которых был собран полнофункциональный рабочий контур 1С в сети на отечественной Ред ОС. С веб-серверами, доменной авторизацией, архивированием, отказоустойчивостью и прочая, прочая... В этой статье мы определяемся с быстродействием системы, проводим нагрузочное тестирование и отпускаем ее в свободное плавание (зачеркнуто) выпускаем ее в продуктовый контур, где, конечно же, придется отлавливать ошибки, мониторить состояние и т.п.

31.10.2024    1656    capitan    0    

0

Сервера Системный администратор Бесплатно (free)

На первый взгляд, добавление второго сервера в кластер 1С не должно вызывать проблем – все просто должно работать. Но на практике дело обстоит иначе. Несмотря на то, что все действительно работает, многие при этом сталкиваются с трудностями. Расскажем, когда нужно задуматься о втором сервере 1С в кластере, какие особенности работы второго сервиса с файлами и сервисами, и какие настройки ТНФ можно сделать для лицензий ПРОФ и КОРП.

31.10.2024    10016    a.doroshkevich    21    

71

Сервера Системный администратор Программист Бесплатно (free)

Отдельный сервер лицензирования упрощает администрирование лицензий в сложных структурах с несколькими кластерами и тысячами пользователей. Расскажем о том, как настроить резервирование лицензий для крупной компании с высокими требованиями к доступности SLA 99.98% и автоматизировать переактивацию лицензий в случае возможных сбоев.

29.10.2024    2706    jul.dolganova    8    

17

Облачные сервисы, хостинг Linux Сервера Системный администратор Программист Платформа 1С v8.3 Бесплатно (free)

Одна из завершающих публикаций цикла "В облако на работу:.. Рецепты от Капитана", в ходе которых был собран полнофункциональный рабочий контур 1С в сети на отечественной Ред ОС. С веб-серверами, доменной авторизацией, архивированием и прочая, прочая... На закуску разбираемся с отказоустойчивостью. В этой публикации для серверов 1С заодно попробуем подобно сериалу «Разрушители легенд» подтвердить или опровергнуть пару устойчивых мифов о требованиях назначения функциональности.

18.10.2024    2221    capitan    5    

13

Сервера Системный администратор Россия Бесплатно (free)

Основные критерии, на которые необходимо обратить внимание.

31.07.2024    2513    EFSOL_oblako    2    

1
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. tormozit 7245 04.06.22 12:58 Сейчас в теме
Попробовал использовать Подсистема "Инструменты разработчика" 1С 8... разобраться в ней, к сожалению, не получилось

Там это по задумке делается за 1 минуту. В каком месте не получилось? Кстати ты мог бы задать вопрос в телеграм чате тех. поддержки https://www.hostedredmine.com/issues/922012
nyam-nyam; +1 Ответить
2. dimaster 40 25.07.22 20:53 Сейчас в теме
(1) тож решал Вашей подсистемой. все ок
3. Djo82 12 27.12.24 08:20 Сейчас в теме
А если физически 2 разных сервера, на двух по 3 приложения com создавать? Немного не догнал, второй дублирует первый? Почему 3 если платформы разных 2?
4. Djo82 12 27.12.24 09:02 Сейчас в теме
Не удалось подключиться к другой программе: Произошла исключительная ситуация (V83.COMConnector.1): Несоответствие версий клиента и сервера 1С:Предприятия
Различаются версии клиента и сервера (8.3.22.2239 - 8.3.25.1374), клиентское приложение: COM-соединение

не получилось, главное в бухгалтерии проверка проходит, в унф нет
Унф на 8.3.22.2239
БП на 8.3.25.1374
5. Djo82 12 27.12.24 09:59 Сейчас в теме
пошел в отладчик,
COMConnector = Новый COMObject(ОбщегоНазначенияКлиентСервер.ИмяCOMСоединителя());

Значение

ОбщегоНазначенияКлиентСервер.ИмяCOMСоединителя()

Возвращает

v83.COMConnector

а мне нужен

CopyOf.V83.COMConnector.8.3.25.1374

подсунул пока текстом, дальше видно будет
6. Djo82 12 27.12.24 20:22 Сейчас в теме
Сделал, но один нюанс остался.
Там где стоит унф на 8.3.22.2239 зарегистировал V83.COMConnector с платформой 8.3.25.1374, это нужно чтобы COM шел по той платформе кому выгружаем. но у меня почему тот на отрез отказывался и предлагал при той же проверки платформу 8.3.22.2239. Все снес добавил основной на платформе 8.3.22.2239 и добавил псевдоним с платформой 8.3.25.1374. и этот же псевдоним подсунул унф-ке. (смотри ниже)

!!!Обязательно проверяйте реестр, при создании через псевдоним, платформа перенимается с первого.!!!

Вставил костыль и прописал константу (тип строка), вывел на форму настройки подключения. Туда вписал наименования компоненты Приложения com+ с платформой 8.3.25.1374.

На втором сервере,где стоит бухгалтерия на 8.3.25.1374, таких проблем не было.
поставил ровно наоборот. зарегистировал V83.COMConnector с платформой 8.3.22.2239. и больше ничего не добавлял никаких псевдонимов.

Код из УНФ 3, где подменивал строки
Функция УстановитьВнешнееСоединениеСБазой(Параметры, ПодключениеНедоступно, КраткоеОписаниеОшибки) Экспорт
	
	Результат = Новый Структура;
	Результат.Вставить("Соединение");
	Результат.Вставить("КраткоеОписаниеОшибки", "");
	Результат.Вставить("ПодробноеОписаниеОшибки", "");
	Результат.Вставить("ОшибкаПодключенияКомпоненты", Ложь);
	
#Если МобильныйКлиент Тогда
	
	СтрокаСообщенияОбОшибке = НСтр("ru = 'Подключение к другой программе не доступно в мобильном клиенте.'");
	
	Результат.ОшибкаПодключенияКомпоненты = Истина;
	Результат.ПодробноеОписаниеОшибки = СтрокаСообщенияОбОшибке;
	Результат.КраткоеОписаниеОшибки = СтрокаСообщенияОбОшибке;
	
	Возврат Результат;
	
#Иначе
	
	Если ПодключениеНедоступно Тогда
		Результат.Соединение = Неопределено;
		Результат.КраткоеОписаниеОшибки = КраткоеОписаниеОшибки;
		Результат.ПодробноеОписаниеОшибки = КраткоеОписаниеОшибки;
		Возврат Результат;
	КонецЕсли;
	
	Попытка
		//COMConnector = Новый COMObject(ОбщегоНазначенияКлиентСервер.ИмяCOMСоединителя()); // "V83.COMConnector"  
		//++new 
		Конст_COMConnector = New_ДопроведениеДокументов.ПолучитьКонстантуCOMConnector();
		Если ЗначениеЗаполнено(Конст_COMConnector) Тогда
			COMConnector = Новый COMObject(СокрЛП(Конст_COMConnector)); 
		Иначе
			COMConnector = Новый COMObject(ОбщегоНазначенияКлиентСервер.ИмяCOMСоединителя()); // "V83.COMConnector"
		КонецЕсли;
		//COMConnector = Новый COMObject("CopyOf.V83.COMConnector.8.3.25.1374");
		//new++ //временное решение
	Исключение
		Информация = ИнформацияОбОшибке();
		СтрокаСообщенияОбОшибке = НСтр("ru = 'Не удалось подключиться к другой программе: %1'");
		
		Результат.ОшибкаПодключенияКомпоненты = Истина;
		Результат.ПодробноеОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщенияОбОшибке, ПодробноеПредставлениеОшибки(Информация));
		Результат.КраткоеОписаниеОшибки = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщенияОбОшибке, КраткоеПредставлениеОшибки(Информация));
		
		Возврат Результат;
	КонецПопытки;
	
	ФайловыйВариантРаботы = Параметры.ВариантРаботыИнформационнойБазы = 0;
	
	// Проверка корректности указания параметров.
	ОшибкаПроверкиЗаполнения = Ложь;
	Если ФайловыйВариантРаботы Тогда
		
		Если ПустаяСтрока(Параметры.КаталогИнформационнойБазы) Тогда
			СтрокаСообщенияОбОшибке = НСтр("ru = 'Не задано месторасположение каталога информационной базы.'");
			ОшибкаПроверкиЗаполнения = Истина;
		КонецЕсли;
		
	Иначе
		
		Если ПустаяСтрока(Параметры.ИмяСервера1СПредприятия) Или ПустаяСтрока(Параметры.ИмяИнформационнойБазыНаСервере1СПредприятия) Тогда
			СтрокаСообщенияОбОшибке = НСтр("ru = 'Не заданы обязательные параметры подключения: ""Имя сервера""; ""Имя информационной базы на сервере"".'");
			ОшибкаПроверкиЗаполнения = Истина;
		КонецЕсли;
		
	КонецЕсли;
	
	Если ОшибкаПроверкиЗаполнения Тогда
		
		Результат.ПодробноеОписаниеОшибки = СтрокаСообщенияОбОшибке;
		Результат.КраткоеОписаниеОшибки   = СтрокаСообщенияОбОшибке;
		Возврат Результат;
		
	КонецЕсли;
	
	// Формирование строки соединения.
	ШаблонСтрокиСоединения = "[СтрокаБазы][СтрокаАутентификации]";
	
	Если ФайловыйВариантРаботы Тогда
		СтрокаБазы = "File = ""&КаталогИнформационнойБазы""";
		СтрокаБазы = СтрЗаменить(СтрокаБазы, "&КаталогИнформационнойБазы", Параметры.КаталогИнформационнойБазы);
	Иначе
		СтрокаБазы = "Srvr = ""&ИмяСервера1СПредприятия""; Ref = ""&ИмяИнформационнойБазыНаСервере1СПредприятия""";
		СтрокаБазы = СтрЗаменить(СтрокаБазы, "&ИмяСервера1СПредприятия",                     Параметры.ИмяСервера1СПредприятия);
		СтрокаБазы = СтрЗаменить(СтрокаБазы, "&ИмяИнформационнойБазыНаСервере1СПредприятия", Параметры.ИмяИнформационнойБазыНаСервере1СПредприятия);
	КонецЕсли;
	
	Если Параметры.АутентификацияОперационнойСистемы Тогда
		СтрокаАутентификации = "";
	Иначе
		
		Если СтрНайти(Параметры.ИмяПользователя, """") Тогда
			Параметры.ИмяПользователя = СтрЗаменить(Параметры.ИмяПользователя, """", """""");
		КонецЕсли;
		
		Если СтрНайти(Параметры.ПарольПользователя, """") Тогда
			Параметры.ПарольПользователя = СтрЗаменить(Параметры.ПарольПользователя, """", """""");
		КонецЕсли;
		
		СтрокаАутентификации = "; Usr = ""&ИмяПользователя""; Pwd = ""&ПарольПользователя""";
		СтрокаАутентификации = СтрЗаменить(СтрокаАутентификации, "&ИмяПользователя",    Параметры.ИмяПользователя);
		СтрокаАутентификации = СтрЗаменить(СтрокаАутентификации, "&ПарольПользователя", Параметры.ПарольПользователя);
	КонецЕсли;
	
	СтрокаСоединения = СтрЗаменить(ШаблонСтрокиСоединения, "[СтрокаБазы]", СтрокаБазы);
	СтрокаСоединения = СтрЗаменить(СтрокаСоединения, "[СтрокаАутентификации]", СтрокаАутентификации);
	
	Попытка 
		
		Результат.Соединение = COMConnector.Connect(СтрокаСоединения);
	Исключение
		Информация = ИнформацияОбОшибке();
		СтрокаСообщенияОбОшибке = НСтр("ru = 'Не удалось подключиться к другой программе: %1'");
		
		Результат.ОшибкаПодключенияКомпоненты = Истина;
		Результат.ПодробноеОписаниеОшибки     = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщенияОбОшибке, ПодробноеПредставлениеОшибки(Информация));
		Результат.КраткоеОписаниеОшибки       = СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(СтрокаСообщенияОбОшибке, КраткоеПредставлениеОшибки(Информация));
	КонецПопытки;
	
	Возврат Результат;
	
#КонецЕсли
	
КонецФункции
Показать
Оставьте свое сообщение