Для организации доступа к данным 1С:Предприятие 8 через COM-соединение выполняется следующая последовательность действий:
- создается COM-объект с идентификатором V82.COMConnector:
COMОбъект = Новый COMОбъект("V82.COMConnector"); - инициализируется строка соединения с информационной базой:
Если ФайловаяИБ Тогда ПутьКБазе = "File="""+ СокрЛП(КаталогИБ) +""";"; Иначе ПутьКБазе = "srvr="""+ СокрЛП(КластерСерверов) +""";"+ "ref=""" + СокрЛП(ИмяИБВКластере) +""";"; КонецЕсли; СтрокаСоединения = ПутьКБазе + "Usr="""+ СокрЛП(Пользователь) +""";"+ "Pwd="""+ СокрЛП(Пароль) +""";"; - устанавливается внешнее соединение с информационной базой:
V82 = COMОбъект.Connect(СтрокаСоединения);
- вызываются свойства и методы 1С:Предприятие 8 через созданный объект COM-cоединение:
//Пример работы с константой V82.Константы.НомерВерсииКонфигурации.Получить();
Код программы на 1С v8.2:
Перем V82;
Процедура УстановитьCOMСоединение(ФайловаяИБ) Экспорт
Попытка
//Создаем COM-объект с идентификатором V82.COMConnector
COMОбъект = Новый COMОбъект("V82.COMConnector");
Исключение
Сообщить("Не удалось создать COM-объект!");
Возврат;
КонецПопытки;
//Инициализируем строку подключения к информационной базе:
Если ФайловаяИБ Тогда
//Файловый вариант
ПутьКБазе = "File="""+ СокрЛП(КаталогИБ) +""";";
Иначе
//Серверных вариант
ПутьКБазе = "srvr="""+ СокрЛП(КластерСерверов) +""";"+
"ref=""" + СокрЛП(ИмяИБВКластере) +""";";
КонецЕсли;
СтрокаСоединения = ПутьКБазе +
"Usr="""+ СокрЛП(Пользователь) +""";"+
"Pwd="""+ СокрЛП(Пароль) +""";";
Попытка
//Устанавливаем внешнее соединение с информационной базой через COM-соединение
V82 = COMОбъект.Connect(СтрокаСоединения);
Исключение
Сообщить("Внешнее соединение не установлено!");
Возврат;
КонецПопытки;
РаботаСCOMОбъектом();
КонецПроцедуры
Процедура РаботаСCOMОбъектом()
//Пример работы с константой
НомерВерсииКонфигурации = V82.Константы.НомерВерсииКонфигурации.Получить();
Сообщить("Номер версии конфигурации: " +НомерВерсииКонфигурации);
КонецПроцедуры
Вступайте в нашу телеграмм-группу Инфостарт