Три кита работы с COM-объектами. Работать через COM-соединение проще, чем вы думаете.

Данная статья будет полезна как начинающим, так и продвинутым программистам, которые по каким – либо причинам до сего времени не сталкивались с работой COM-соединением.
Дочитав эту статью до конца, уже через 15 минут, вы сможете напрямую «вытягивать» данные из другой информационной базы.

ps: Хочу заранее оговориться, данная статья не претендует на звание полного и исчерпывающего мануала. Скорее всего — это просто указатель движения в правильном направлении, для быстрого освоения работы с Com-соединением.

Когда вам это пригодится.

Приведу всего два реальных примера из своей практики:

1. При работе в типовой конфигурации «Бухгалтерия предприятия 2.0» необходимо получать данные первичных документов из сторонней самописной конфигурации. На основании полученных данных, автоматически создаются документы поступлений. При этом, пользователь работает исключительно в одной базе данных.

2. Пользователь работает в переферийном узле распределенной ИБ. Необходимо, в режиме Он-Лайн, синхронизировать справочник контрагентов. На этом примере и разберем правила работы с Com – объектами.

Чем отличаются COM и OLE. Почему все же COM.

1. При запуске приложения 1С:

— OLE использует модуль обычного приложения. Запуск занимает весьма продолжительно время.

— Com использует модуль внешнего соединения, который содержит минимальное количество процедур и функций.

В результате, запуск Com в типовой «Бухгалтерии предприятия 2.0» занимает в 6 раз меньше времени.

2. При запуске Com – соединения не создается отдельного процесса 1cv8. По отзывам пользователей партнерского форума 1С, завершение работы Ole происходит не всегда корректно. И в этом случае наблюдаются ощутимые проблемы с производительностью рабочей станции.

Не вдаваясь в дальнейшие сравнения, даже на основании двух вышеизложенных моментов, я однозначно выбираю COM.

Три кита и Кит первый.

Создаем соединение к другой базе

Сервер = «Kappa»;
БазаДанных = «Acc»;
Пользователь = «Администратор»;
Пароль = «123456»;

V82 = Новый COMобъект(«V82.ComConnector»);

СтрокаПодключения = «srvr='» + СокрЛП(Сервер)
+ «‘; ref='» + СокрЛП(БазаДанных)
+ «‘; usr='» + СокрЛП(Пользователь)
+ «‘; pwd='» + СокрЛП(Пароль) + «‘;»;

БазаИсточник = V82.Connect(СтрокаПодключения);

Подключение к базе, работающей в файловом режиме, приведено в комментариях к данной публикации.

Кит второй

Все объекты, которые вы получаете через Com (у нас это БазаИсточник) имеют тип Com-объект.

Поэтому, непосредственно, мы можем использовать только реквизиты примитивных типов:

— Булево

— Строка

— Число

— Дата

Остальные реквизиты мы можем идентифицировать в текущей базе, через поиск:

— по коду

— по наименованию

— по ИНН

— а для узлов РИБ, наиболее точно, по внутреннему идентификатору.

Все Com – объекты обладают полным набором свойств и характеристик языка программирования 1С.

Пример:

СсылкаНаКонтрагента = БазаИсточник.Справочники.Контрагенты.НайтиПоРеквизиту(«ИНН», ИНН);

Где, СсылкаНаКонтрагента – тип Com-объект.

КонтрагентГоловной = БазаИсточник.Справочники.Контрагенты.СоздатьЭлемент();

Исключение: в отладчике, у Com-объекта, предопределенные реквизиты имеют только англоязычную транскрипцию. Обычные реквизиты – русскую транскрипцию.

Пример:

КонтрагентСОМ = БазаИсточник.Справочники.Контрагенты.НайтиПоРеквизиту(«ИНН», ИНН);

Код = КонтрагентСОМ.Code;
Наименование = КонтрагентСОМ.Description;
НаименованиеПолное = КонтрагентСОМ.НаименованиеПолное;

Все предопределенные реквизиты вы сможете получить и в рускоязычном представлении. Но, в некоторых случаях может не корректно отработать метод:

БазаИсточник.ЗаполнитьЗначениеСвойств(ТекущийКонтрагент, КонтрагентCom);

где, ТекущийКонтрагент — имеет тип обычной переменной, а

КонтрагентCom — Com-объект.

Кит третий

Все конструкторы в базе-источнике создаются через метод NewObject.

Пример 1:

КонтрагентГоловной = БазаИсточник.Справочники.Контрагенты.СоздатьЭлемент();
КонтрагентГоловной.УстановитьСсылкуНового(БазаИсточник.Справочники.Контрагенты.ПолучитьСсылку(БазаИсточник.NewObject(«УникальныйИдентификатор», ТекущийUID)));

Пример 2:

СтрокаUID = БазаИсточник.XMLСтрока(СсылкаНаКонтрагента);
Запрос = БазаИсточник.NewObject(«Запрос»);
Запрос.УстановитьПараметр(«UID», БазаИсточник.NewObject(«УникальныйИдентификатор», СтрокаUID));
Запрос.Текст = «……..»;

Все глобальные методы в базе-источнике вызываются через Сom – соединение

Пример: UID = БазаИсточник.XMLСтрока(СсылкаНаКонтрагента);

Пример 2:БазаИсточник.ЗначениеЗаполнено(Контрагент)

Пример 3: БазаИсточник.ЗаполнитьЗначениеСвойств(Приемник, Источник);

Пример 4 (получение имени значения перечисления Com-соединения): ИмяПеречисления = БазаИсточник.XMLСтрока(БазаИсточник.Перечисления.СтавкиНДС.НДС10);

Теперь, вы знаете три простых правила работы с Com- объектами. Получение данных удаленной базы в режиме Он-Лайн – очень востребованная и одновременно простая задача. Желаю успехов в работе.

91 Comments

KapasMordorov 24.01.2013 at 11:54
Исключение: у Com-объекта, предопределенные реквизиты имеют только англоязычную транскрипцию. Обычные реквизиты – русскую транскрипцию.

Пример:

КонтрагентСОМ = БазаИсточник.Справочники.Контрагенты.НайтиПоРеквизиту(«ИНН», ИНН);

Код = КонтрагентСОМ.Code;

Наименование = КонтрагентСОМ.Description;

Неужели?
```
Код = КонтрагентСОМ.Код;
Наименование = КонтрагентСОМ.Наименование;
```
прекрасно работает.

А каков замах:

статья будет полезна как начинающим, так и продвинутым программистам

.

Reply ↓
director04 24.01.2013 at 12:07

(1) KapasMordorov, добрый день.

А каков замах:

Не знаю, как к вам обратиться по имени ))))

Поясню «таков замах»: дело в том, что многие, даже и сильно продвинутые кодеры, могут многие годы прекрасно обходиться без механизмов Com-соединений (ну просто не было нужды). Пример — я.

Это не значит, что данные прогеры, ни на что остальное не годны. Просто — не было случая.

А вот случай настал, и надо с чего то начать.

В этом случае не плохо прочитать чей-то опыт. Что бы не изобретать велосипед.

С огромным уважением отношусь к замечаниям всех участников обсуждения. Уверен, что и мне и другим участникам форума они будут полезны.

Поделитесь своим опытом, и внесите свой полезный вклад в обсуждение данного вопроса.

Спасибо за понимание.

Reply ↓
hohmankia 24.01.2013 at 12:20

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

Автору спасибо!

Reply ↓
jamirza 24.01.2013 at 12:52

А мне понравилось — всё чётко и по делу.

Reply ↓
Angeros 24.01.2013 at 13:10

по-моему комы прошлый век — медленно, топорно. web рулит!!!

Reply ↓
director04 24.01.2013 at 13:45

по-моему комы прошлый век — медленно, топорно. web рулит!!!

Все новые типовые решения от 1С (на управляемых формах) для интеграции используют Com-соединения.

Да и веб-серверы подняты далеко не у всех.

Reply ↓
CaSH_2004 24.01.2013 at 14:16

(0) Странная статья, мало того что (1) прав, так еще и «поиск по ИНН» — это что за такой типовой реквизит?

Есть ПоискПоКоду(), ПоискПоНаименованию(), и ПоискПоРеквизиту() — никаких поисков по ИНН не существует, что вы и сами показываете в примере

После комментария (0) могли бы и поправить статью.

Вообще те истины которые тут изложены не тянут на публикацию, таких публикации можно клепать каждые пол года т.к. люди то новые появляются, а искать в интернете не умеют. Для людей которые «не в курсе» как работать с ОЛЕ — скачайте книжки «1С Предприятие системное программирование (Михайлов)», «ЕСИС 8.0», и был еще толмут по моему Радченко размером с энцеклопедию:) ее даже читать можно только в электронном т.к. сложно листать. Там расписано все что что нужно.

А то странные программисты появляются — даже документацию скачать и прочитать не хотят, что же там можно в 1С делать 5 лет и не сталкиваться с ОЛЕ? Я как то видел разработку на 7-ке где разработчики ничего не знали про такой объект как «Документ» и задачи по товаро-движению реализованы через объект «Справочник»! Это просто надо видеть!

PS: Если уж говорить про «поделитесь опытом» то вот вам интересный момент который я нигде не видел что бы был освещен, а стоило бы: по ОЛЕ не всегда корректно можно получить дробные числа. Иногда вместо 2.24 можно спокойно получить 2.23999999999999, поэтому правильно получать тип реквизита откуда береться число, его точность и округлять до дробного числа, иначе можете потерять копейку.

Reply ↓
Slon1c 24.01.2013 at 14:35

А еще есть внешние источники данных … использую COM и OLE. Если нужно просто прочитать то COM, для интерактивной работы OLE …

Reply ↓
Slon1c 24.01.2013 at 14:36

(7)Да тип нужно получать через метаданные …

Reply ↓
sanches 24.01.2013 at 17:38
(7) Да, сам недавно ломал голову почему так происходит.

Причем, если получать данные запросом, то от такой проблемы не спасает даже использование функции

ВЫРАЗИТЬ (Сумма КАК ЧИСЛО(15,2))

(0)
```
КонтрагентГоловной = БазаИсточник.Справочники.Контрагенты.СоздатьЭлемент();
КонтрагентГоловной.УстановитьСсылкуНового(БазаИсточник.Справочники.Контрагенты.ПолучитьСсылку(БазаИсточник.NewObject(«УникальныйИдентификатор», ТекущийUID)));
```
У вас не хватает определения переменной ТекущийUID

Reply ↓
Danil.Potapov 24.01.2013 at 17:47

статья про COM на картинке OLE

Reply ↓
yuraos 24.01.2013 at 18:26

Плюс автору за простоту и ясность мысли,

которой так не хватает в 1С-ных мануалов!

Как раз то, что нужно для новичков!!!

Более продвинутым советую пройтись по этой ссылке.

🙂

Reply ↓
yuraos 24.01.2013 at 18:53

(12)

впрочем и для новичков будет полезно, поскольку

технология COM далеко не исчерпывается

COM-подключениями к 1C или EXCEL.

Reply ↓
yuraos 24.01.2013 at 18:59

(5)(6) Angeros,

а управляемое приложение, как не откроею — все тупит и тормозит.

Там даже редактор управляемых форм и тот тормозной! 🙂

Reply ↓
ZERO_ 24.01.2013 at 22:54

(0)

Не вдаваясь в дальнейшие сравнения, даже на основании двух вышеизложенных моментов, я однозначно выбираю COM.

Ну, я бы не был столь категоричен… Com имеет свои преимущества и свои недостатки (как и Ole)…

Все зависит от конкретной задачи (хотя из моей личной практики Com применял в десяток раз чаще, чем Ole).

Еще забыли про важное отличие в виде доступа к интерфейсным возможностям 1СПредприятие…

Также неплохо было бы акцентировать внимание на передачу параметров (например в виде параметра запроса), что ссылки на объекты текущей базы передавать нельзя! 🙂 А ссылки, полученые из базы-источника, — можно…

Также, если статья для новичков,(которые не хотят лазить по Нетам) можно было бы дополнить строкой (или даже написать функцию, возвращающую «БазаИсточник») для обоих вариантов (Файл-серверного и клиент-серверного).

А так, — понравилась структуризация материала… 🙂

Reply ↓
Angeros 25.01.2013 at 04:21

(14) yuraos, Я не понимаю причем тут управляемые формы? я имею введу веб сервис. Установить апатч дело 2ух минут настроек он не требует. главное чтобы в сети был виден всем участникам обмена.

Reply ↓
Zero_nv 25.01.2013 at 06:52

Эх… эту бы статью да на пару дней пораньше. Массу времени съэкономил бы. Понадобилось перенести доки через com, пришлось в инете по крупицам собирать

Reply ↓

director04 25.01.2013 at 09:27

Также неплохо было бы акцентировать внимание на передачу параметров (например в виде параметра запроса), что ссылки на объекты текущей базы передавать нельзя! 🙂 А ссылки, полученые из базы-источника, — можно…

Также, если статья для новичков,(которые не хотят лазить по Нетам) можно было бы дополнить строкой (или даже написать функцию, возвращающую «БазаИсточник») для обоих вариантов (Файл-серверного и клиент-серверного).

А так, — понравилась структуризация материала… 🙂

Спасибо, очень ценное замечание. Да, действительно упустил это из вида.

Спешу исправить. Пример универсальной процедуры ниже.

Функция ВыполнитьПодключение(Файловый)

Отказ = Ложь;

Если НЕ ЗначениеЗаполнено(Пользователь) ИЛИ НЕ ЗначениеЗаполнено(Пароль) Тогда
Отказ = Истина;
ИначеЕсли Файловый И НЕ ЗначениеЗаполнено(КаталогИБ) Тогда
Отказ = Истина;
ИначеЕсли НЕ ЗначениеЗаполнено(ИмяКластера) ИЛИ НЕ ЗначениеЗаполнено(ИмяБазы) Тогда
Отказ = Истина;
КонецЕсли;

Если Отказ Тогда
Предупреждение(«Настройте параметры соединения.», 10, «Соединение невозможно.»);
Возврат Отказ;
КонецЕсли;

СтрокаСоединения = «»;

V81 = Новый COMОбъект(«V81.ComConnector»);

Если Файловый Тогда
СтрокаСоединения = «File=»»» + СокрЛП(КаталогИБ) + «»»»;
Иначе
СтрокаСоединения = «Srvr=» + СокрЛП(ИмяКластера) + «;Ref=» + СокрЛП(ИмяБазы);
КонецЕсли;

Если НЕ ПустаяСтрока(Пользователь) Тогда
СтрокаСоединения = СтрокаСоединения + «;Usr=» + СокрЛП(Пользователь);
КонецЕсли;

Если НЕ ПустаяСтрока(Пароль) Тогда
СтрокаСоединения = СтрокаСоединения + «;Pwd=» + СокрЛП(Пароль);
КонецЕсли;

Попытка
БазаИсточник = V81.Connect(СтрокаСоединения);
Исключение
Сообщить(«Не удалось подключиться с заданными настройками!» + ОписаниеОшибки(), СтатусСообщения.Важное);
Отказ = Истина;
КонецПопытки;

Возврат Отказ;

КонецФункции

Показать

Пояснение БазаИсточник — переменная модуля, или переменная обработки, доступная из всех процедур и функций.

Reply ↓

DoctorRoza 25.01.2013 at 12:22

Норм статья .. может пригодиться!

Reply ↓
Sasha255n 25.01.2013 at 15:46

Все прекрасно работает спасибо остался очень доволен.

Reply ↓
VasiL0587 25.01.2013 at 17:46

Отличная статья, коротко и по делу. Автору респект!

Reply ↓
AlexO 25.01.2013 at 17:48

(3) hohmankia,

тоже только ПФ лепили? 🙂

Reply ↓
AlexO 25.01.2013 at 17:50

(0)

2. При запуске Com – соединения не создается отдельного процесса 1cv8.

а что, по-вашему, в таком случае создается? Облако тегов?

Reply ↓
AlexO 25.01.2013 at 17:55

(22) VasiL`,

да?

ну попробуйте на реальном деле что-то сделать.

Reply ↓
director04 25.01.2013 at 19:29

да?

ну попробуйте на реальном деле что-то сделать.

Алекс, от ваших постов так веет безысходностью и неудачей ))))) Дерзайте, и все получится!

Еще раз — удачи. 🙂

Reply ↓
TMV 25.01.2013 at 21:55

(27)

Алекс, от ваших постов так веет безысходностью и неудачей ))))) Дерзайте, и все получится!

Еще раз — удачи. 🙂

Не слишком ли бодрое пожелание для «продвинутого прогера»?)

Reply ↓
yuraos 26.01.2013 at 07:52

Не слишком ли бодрое пожелание для «продвинутого прогера»?)

(28) TMV,

продвинутость достигается через преодаление гем-мороев платформы…

великая продвинутость обрачена великой печалью

🙂

Reply ↓
yuraos 26.01.2013 at 08:27

(24)

а что, по-вашему, в таком случае создается? Облако тегов?

AlexO,

что создается, это конечно вопрос интересный и архиважный с познавательной точки зрения.

Но это, как говаривали вожди-классики, есть суровая объективная реальность.,

«данная нам в ощущениях, копируемая и фотографируемая» (смотри ниже):

При COM-соединении просесс 1cv8 остается один, но при этом сжирает больше памяти мегабайт на 25.

При OLE-соединении появляется еще один процесс 1cv8, который к стати отжирает чуть меньше — 22 мегабайта.

При желании любой это может проверить.

Нужный план обмена можно взять здесь.

Reply ↓

yuraos 26.01.2013 at 17:11

(18)(30)

… Пример универсальной процедуры ниже.

PS:

Если использовать план обмена «Обмен данными COM»

то код для создания соединения можно несколько упростить,

поскольку все необходимые параметры и алгоритм подключения

хранятся в узле плана обмена:

КоннекторCOM = Неопределено;
ОбъектCOM = Неопределено;
ЕррорИнфор = «»;
НужныйУзел = ПланыОбмена.ОбменДаннымиCOM.НайтиПоКоду(«КодНужногоУзла»);
НужныйУзел.СоздатьОбъект().Connect(КоннекторCOM,ОбъектCOM,,ЕррорИнфор);
Если ЗначениеЗаполнено(ЕррорИнфор) Тогда
ВызватьИсключение(ЕррорИнфор);
КонецЕсли;
// далее используем полученное COM-соединение через переменную ОбъектCOM