0
1Сергей
04.09.19
✎
12:59
|
Подскажите, пожалуйста, в чем проблема.
&НаСервере
Процедура ПрочитатьСвойстваНаСервере(ИБ)
//ИБ = Справочники.ИнформационныеБазы.ПустаяСсылка();
COMСоединитель = Новый COMОбъект("V83.COMConnector");
Сообщить(ИБ.Сервер1С.Адрес);
СоединениеСАгентом = COMСоединитель.ConnectAgent("tcp://" + ИБ.Сервер1С.Адрес); // + ":1540"
Кластеры = СоединениеСАгентом.GetClusters().Выгрузить();
Для Каждого Кластер Из Кластеры Цикл
СоединениеСАгентом.Authenticate(Кластер, "", "");
РабочиеПроцессы = СоединениеСАгентом.GetWorkingProcesses(Кластер).Выгрузить();
Для Каждого РабочийПроцесс Из РабочиеПроцессы Цикл
Сообщить(РабочийПроцесс.HostName + ":" + РабочийПроцесс.MainPort);
СоединениеСРабочимПроцессом = COMСоединитель.ConnectWorkingProcess(РабочийПроцесс.HostName + ":" + РабочийПроцесс.MainPort); // <---------------------- Вот тут ошибка класс не зарегистрирован
//СоединениеСРабочимПроцессом.AddAuthentication(AdminName, AdminPass);
СоединениеСРабочимПроцессом.AddAuthentication("", "");
Базы = СоединениеСРабочимПроцессом.GetInfoBases().Выгрузить();
Для Каждого База Из Базы Цикл
Сообщить(База.Name);
КонецЦикла;
КонецЦикла;
КонецЦикла;
КонецПроцедуры
Произошла исключительная ситуация (V83.COMConnector.1): server_addr=SERVERNAME descr=10109(0x0000277D): The specified class was not found. line=1068 file=src\DataExchangeCommon.cpp
Компоненту регистрировал, фаервол отключал
|
|
1
1Сергей
04.09.19
✎
13:25
|
Оказалось всё как всегда банально просто :)
СоединениеСРабочимПроцессом = COMСоединитель.ConnectWorkingProcess(РабочийПроцесс.HostName + ":" + СтрЗаменить(РабочийПроцесс.MainPort, Символы.НПП, ""));
Может, кому поможет
|
|