Работа с COM-объектом в 1С (v8.2)
Разработка - Механизмы платформы 1С
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Для организации доступа к данным 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.Константы.НомерВерсииКонфигурации.Получить();
Сообщить("Номер версии конфигурации: " +НомерВерсииКонфигурации);
КонецПроцедуры
Вступайте в нашу телеграмм-группу Инфостарт
