Получение информации об экспортных свойствах и методах объектов 1С через COM.

Публикация № 199613

Разработка - Разработка внешних компонент

Как из тела COM-объекта или внешней компоненты определить состав свойств и методов объектов 1С агрегатных типов? Все ответы здесь.

Заложенная еще в 7-й версии 1С:Предприятие возможность использования COM-объектов и подключения внешних компонент, выполненных на языках программирования, поддерживающих работу с COM, несомненно, выводила возможности платформы на качественно новый уровень. Еще бы: и без того богатые возможности 1С расширялись до необозримых пределов. После знакомства с этой возможностью даже создавалось впечатление, что в 1С можно сделать практически все.
Выход системы 1С:Предприятие версии 8.х несколько снизил значимость внешних компонент, так как основные функции уже были реализованы на уровне платформы, например, работа с XML, HTTP, ZIP, электронной почтой и т.д. Но и сама 1С уже перестала быть просто бухгалтерской программой, а значит и далее разработчики будут посредством внешних компонент расширять ее уже и так огромные возможности. Также достаточно часто встречаются схемы подключения к самой 1С по технологии COM со стороны программ, разработанных на C/C++, Delphi и т.д., то есть на языках, поддерживающих работу с COM.

И в том, и в другом случае 1С выступает в качестве OLE сервера, а значит OLE клиент зачастую испытывает необходимость в получении от сервера информации о предоставляемых для использования клиентом свойствах и методах. Частично данная проблема может быть решена посредством использования метаданных, но как же получить список, например, экспортных методов общего модуля? Или вы написали COM объект, который при вызове своих методов принимает от 1С параметры агрегатного типа, и Вам в теле своего объекта нужно определить, что же это Вам при вызове метода такое передали. Список поддерживаемых свойств и методов тоже был бы весьма кстати.

Для начала немного ликбеза. С COM объектами 1С работает через интерфейс IDispatch. Этот интерфейс, в свою очередь, поддерживается всеми объектами агрегатного типа системы 1С:Предприятие и позволяет, помимо прочего, получать подробную информацию о методах объекта (свойства, методы, параметры методов и их типы, типы возвращаемых значений и т.д.). Вот сигнатура его методов (здесь и далее на примере Delphi):

  IDispatch = interface(IUnknown)
    ['{00020400-0000-0000-C000-000000000046}']
    function GetTypeInfoCount(out Count: Integer): HResult; stdcall;
    function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult; stdcall;
    function GetIDsOfNames(const IID: TGUID; Names: Pointer;
      NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; stdcall;
    function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
      Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
  end;

Чтобы проверить существование какого-либо единичного метода или свойства у COM-объекта, нужно воспользоваться методом GetIDsOfNames, и сделать это примерно вот так:

function MethodExists(const Obj: IDispatch;
  const MethodName: WideString): Boolean;
  function GetDispID: integer;
  begin
    Obj.GetIDsOfNames(GUID_NULL, @MethodName, 1, LOCALE_SYSTEM_DEFAULT,
      @Result);
  end;
begin
  Result := GetDispID <> DISPID_UNKNOWN;
end;

Для того, чтобы COM объект (далее "сервер") мог "рассказать" вызывающей стороне (далее "клиент") о своих методах, необходимо, чтобы при вызове метода GetTypeInfo он возвращал указатель на реализованный интерфейс ITypeInfo, через который клиент и получает эту информацию. Отметим, что это не является обязательным. В этом случае каждый раз при вызове клиентом метода сервера по имени сначала вызывается метод GetIDsOfNames, который, в случае наличия нужного метода, возвращает его DispID. После этого осуществляется вызов метода Invoke с полученным DispID. В случае с поддержкой ITypeInfo информация о доступных методах и свойствах запрашивается единожды при инициализации объекта, и затем методы вызываются уже сразу по DispID.

Для получения информации о свойствах и методах, используя ITypeInfo, нужно выполнить примерно такой код:

procedure ShowMethods(const Obj: IDispatch);
var
  TypeInfoCount: integer;
  TypeInfo: ITypeInfo;
  TypeAttr: PTypeAttr;
  FuncDesc: PFuncDesc;
  pName: WideString;
  i: integer;
begin
  OleCheck(Obj.GetTypeInfoCount(TypeInfoCount));
  if TypeInfoCount = 0 then
    raise Exception.Create('ITypeInfo не поддерживается!');
  OleCheck(Obj.GetTypeInfo(0, LOCALE_SYSTEM_DEFAULT, TypeInfo));
  OleCheck(TypeInfo.GetTypeAttr(TypeAttr));
  try
    for i := 0 to TypeAttr^.cFuncs - 1 do
    begin
      OleCheck(TypeInfo.GetFuncDesc(i, FuncDesc));
      try
        OleCheck(TypeInfo.GetDocumentation(FuncDesc^.memid, @pName, nil,
          nil, nil));
        // код обработки и вывода списка свойств и методов
        // ...
      finally
        TypeInfo.ReleaseFuncDesc(FuncDesc);
      end;
    end;
  finally
    TypeInfo.ReleaseTypeAttr(TypeAttr);
  end;
end;

Анализ объектов системы 1С:Предприятие версии 8.х показывает, что далеко не для всех объектов поддерживается получение интерфейса ITypeInfo. В частности, получить его можно для объектов типа "СправочникОбъект", "ДокументОбъект", "ОбработкаОбъект" (но не "ВнешняяОбработкаОбъект"), "РегистрХХХХХХХХХНаборЗаписей" и некоторые другие.

Выход в данной ситуации есть, и он заключается в том, что для своих объектов 1С реализовала поддержку интерфейса IDispatchEx, который также позволяет получать информацию о свойствах и методах. Вот его описание:

  IDispatchEx = interface(IDispatch)
    ['{A6EF9860-C720-11D0-9337-00A0C90DCAA9}']
    function GetDispID(const bstrName: TBSTR; const grfdex: DWORD;
       out id: TDispID): HResult; stdcall;
    function InvokeEx(const id: TDispID; const lcid: LCID; const wflags:
       WORD; const pdp: PDispParams; out varRes: OleVariant; out pei:
       TExcepInfo; const pspCaller: PServiceProvider): HResult; stdcall;
    function DeleteMemberByName(const bstr: TBSTR;
       const grfdex: DWORD): HResult; stdcall;
    function DeleteMemberByDispID(const id: TDispID): HResult; stdcall;
    function GetMemberProperties(const id: TDispID; const grfdexFetch:
       DWORD; out grfdex: DWORD): HResult; stdcall;
    function GetMemberName(const id: TDispID; out bstrName: TBSTR):
       HResult; stdcall;
    function GetNextDispID(const grfdex: DWORD; const id: TDispID;
       out nid: TDispID): HResult; stdcall;
    function GetNameSpaceParent(out unk: IUnknown): HResult; stdcall;
  end;

Предоставляемая данным интерфейсом информация о методах объекта не такая подробная, как при использовании ITypeInfo, но для нашей цели ее вполне достаточно. Более того: реализация ITypeInfo в объектах системы 1С:Предприятие не позволяет отличить процедуру от функции, а при использовании IDispatchEx это возможно. И главное: IDispatchEx реализован для всех агрегатных объектов (кроме, к сожалению, корневого).

Таким образом, чтобы получить список свойств и методов, используя интерфейс IDispatchEx, необходимо выполнить примерно такой код:

procedure ShowMethods(const Obj: IDispatch);
var
  pDispEx: IDispatchEx;
  iDispID: integer;
  pName: PWideChar;
  Flags: LongWord;
begin

  OleCheck(Obj.QueryInterface(IDispatchEx, pDispEx));
  iDispID := DISPID_UNKNOWN;
  while (pDispEx.GetNextDispID(fdexEnumAll, iDispID, iDispID) = S_OK) do
  begin
    if pDispEx.GetMemberName(iDispID, pName) = S_OK then
    begin
      try
        if pDispEx.GetMemberProperties(iDispID, fdexPropCanAll, Flags)
          = S_OK then
        begin
          // код обработки и вывода списка свойств и методов
          // ...
        end;
      finally
        SysFreeString(pName);
      end;
    end;
  end;
end;

На практике такой подход может быть полезен, например, в случае, если вы написали какой-то COM-объект, принимающий в качестве параметров одинэсовские объекты агрегатного типа. В моей практике был метод, принимающий в качестве параметра или объект типа "Картинка", или "ДвоичныеДанные", и лучшего способа для того, чтобы отличить в теле COM-объекта одно от другого я не нашел.

Для демонстрации метода предлагается для скачивания небольшая утилита, реализующая оба метода получения информации о свойствах и методах объектов (исполняемый файл + исходный код (Delphi XE)).

Скачать файлы

Наименование Файл Версия Размер
Утилита чтения свойств и методов (bin/src)

.zip 595,06Kb
44
.zip 595,06Kb 44 Скачать

Специальные предложения

Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. Жолтокнижниг 251 04.09.13 10:30 Сейчас в теме
2. y-str 59 05.09.13 08:47 Сейчас в теме
Ещё один "+" от меня, и тоже на IDispatchEx.
3. y-str 59 09.09.13 17:31 Сейчас в теме
Совет: пора уже добавить и работу с 8.3.
Там опять поменялся Vendor - теперь надо использовать V83.COMConnector.
Sиlьver; +1 Ответить
4. roadman 30.04.14 07:27 Сейчас в теме
Оставьте свое сообщение

См. также

Внешние компоненты. Мобильное приложение 1С Промо

Разработка внешних компонент Мобильная разработка v8::Mobile 1cv8.cf Абонемент ($m)

Пример применения технологии внешних компонент для мобильной платформы 1С (Android)

1 стартмани

17.02.2017    42913    flyer    36    

Вебхук. Путь Телеграма

Внешние источники данных Интеграция v8 Абонемент ($m)

Долгое (на самом деле нет) и нелегкое путешествие телеграма к неведомым (из за РКН) конфигурациям 1С. Памятка себе.

1 стартмани

03.10.2019    21321    platonov.e    26    

Описание формата внутреннего представления данных 1С в контексте обмена данными

Практика программирования Внешние источники данных v8 v8::УФ 1cv8.cf Абонемент ($m)

Фирма 1С не рекомендует использовать внутреннее представление данных для любых целей, которые отличны от обмена с 1С:Предприятием 7.7. Но сама возможность заглянуть на "внутреннюю кухню" платформы с помощью функций ЗначениеВСтрокуВнутр(), ЗначениеВФайл(), ЗначениеИзСтрокиВнутр() и ЗначениеИзФайла(), дала возможность сообществу программистов 1С разработать новые приемы разработки и анализа. Так, именно на использовании внутреннего представления был построен алгоритм "быстрого массива", который позволяет практически мгновенно создать массив в памяти на основании строки с разделителями. С помощью разбора внутреннего представления можно "на лету" программным кодом выполнить анализ обычной формы и даже сделать редактор графической схемы. Во внутреннем формате сохраняют свои данные между сеансами различные популярные внешние обработки. А еще это возможность сделать быстрый обмен с внешними системами.

1 стартмани

06.09.2019    20781    Dementor    30    

Обмен большими данными между клиентом и сервером

Внешние источники данных v8 Абонемент ($m)

В статье рассматривается вопрос передачи больших объемов данных, превышающих теоретический лимит сеансовых данных (4Гб за вызов) (они же временное хранилище) как с клиента на сервер, так и в обратном направлении.

1 стартмани

27.08.2019    14898    logos    32    

Практический пример настройки обмена с казначейством в БГУ Промо

Внешние источники данных v8 БГУ Россия Госбюджет Абонемент ($m)

Материалов для бюджетников, всегда не хватает, особенно с практическими примерами. Попробую описать процесс настройки с нуля обмена с ОФК/УФК на примере выгрузки документа «Заявки на кассовый расход» из БГУ и импорта в СЭД.

1 стартмани

13.04.2012    68337    Vestr    17    

АИТП. Простой, событийно-управляемый обмен данными

Внешние источники данных v8 1cv8.cf Абонемент ($m)

В статье, на примере обмена с ЗУП 3.1, демонстрируется механизм событийно-управляемого взаимодействия конфигурации АИТП с прикладными решениями на платформе 1С:Предприятие.

1 стартмани

04.07.2019    5169    blackhole321    0    

Интеграция 1С с Битрикс CRM через REST API

Внешние источники данных v8 1cv8.cf Абонемент ($m)

На фоне неутихающего обострения «бизнеса» по внедрению СРМ-систем остро встают вопросы обмена данными с уже существующими системами. В статье рассматривается выгрузка контактов, товаров и сделок из 1С в Битрикс CRM через REST API, приложена обработка для тестирования.

1 стартмани

28.06.2019    28626    muzipov    10    

1C + Python + Django Rest Framework + Vue.js. Опыт несложной full-stack разработки

Практика программирования Внешние источники данных Обмен через XML WEB Разработка v8 1cv8.cf Абонемент ($m)

В этой статье мы рассмотрим путь и основные моменты создания небольшого вэб-сервиса, который мы называем "Онлайн Прайс-лист". Выгрузка из 1С, бэкенд, фронтенд, получение заказов в 1С.

1 стартмани

22.04.2019    37573    riposte    66    

Аутентификация на внешних сервисах посредством OAuth

Информационная безопасность Внешние источники данных v8 v8::УФ 1cv8.cf Абонемент ($m)

Пример подключения к сервисам Google из 1С с помощью протокола OAuth и получения данных с внешнего сервиса.

1 стартмани

03.04.2019    23677    binx    128    

Телеграм + 1С + Вебхуки + Апач + Самоподписанный сертификат

Внешние источники данных v8 Абонемент ($m)

Много строк исписано про интеграцию Телеграма и 1С. Но нигде не увидел полной инструкции по установке и настройке вебхуков. Попробую её написать.

1 стартмани

26.02.2019    18357    alexlx    36    

Универсальное расширение 1С для Google Таблиц и Документов

Внешние источники данных v8 1cv8.cf Абонемент ($m)

Эта статья для тех, кто использует G Suite и 1С. Готовое решение для выгрузки отчетов и печатных форм из баз 1С в Google Диск в формате Google Таблиц и Google Документов. Информация по его внедрению. Описание создания и настройки проекта в GCP.

1 стартмани

31.01.2019    18440    Maria18    37    

Внешние компоненты мобильной платформы 1С для ОС Андроид

Разработка внешних компонент Мобильная разработка v8::Mobile Абонемент ($m)

На трех простых примерах описана процедура разработки внешних компонент для Андроид. Статья написана по мотивам доклада на конференции INFOSTART 2018 EDUCATION.

31.01.2019    18416    IgorKissil    25    

Применение средств MS SQL R service для 1С

Внешние источники данных v8 1cv8.cf Абонемент ($m)

Некоторое время назад Microsoft добавила в MS SQL сервер службы машинного обучения, позволяющие выполнять программный код на языках программирования R и Python. В статье будет продемонстрирована общая схема и принцип того, как можно использовать данные службы в контексте разработки на 1С. 

1 стартмани

25.11.2018    14604    Robbi    14    

Связка 1С и Telegram. Отправка стикеров

Практика программирования Внешние источники данных v8 v8::УФ 1cv8.cf Абонемент ($m)

В качестве факультатива сейчас изучаю возможности связки 1С и мессенджера Telegram. И возник вопрос, как помимо сообщений, посылать в ответ на действия пользователя произвольный стикер? Решению этой мини задачи и посвящена данная статья.

1 стартмани

31.07.2018    13289    Skin123    5    

Опыт интеграции мессенджера Telegram c 1C

Внешние источники данных Интеграция v8 Абонемент ($m)

Статья будет полезна всем, кто интересуется возможностями интеграции 1С с мессенджером Telegram. Пустовой Вячеслав в формате короткого мастер-класса рассказывает о создании и настройке бота, позволяющего, к примеру, упростить процессы согласования платежей внутри компании, отгрузки со склада или получение оперативной информации о состоянии дебиторской задолженности.

19.07.2018    25514    VachKirp    44    

Опять про sFTP и вообще

Внешние источники данных v8 1cv8.cf Абонемент ($m)

Памятка для разработчика по работе с FTP, FTPs и sFTP.

1 стартмани

23.05.2018    21291    leongl    24    

Tool1CD: отрежем донорскую почку

Сервисные утилиты Разработка внешних компонент v8 Розница Абонемент ($m)

Ваша база мертва? Что ж, кое-что в ней ещё теплится.

1 стартмани

15.05.2018    19138    baton_pk    13    

Использование регулярных выражений (RegExp) в Linux

Сервисные утилиты Администрирование данных 1С Внешние источники данных v8 Абонемент ($m)

Описывается способ использования регулярных выражений (RegExp) в Linux с использованием тех же компонентов, что и в Windows (COM-объекты VBScript.RegExp).

1 стартмани

20.04.2018    8956    vsbronnikov    12    

Практикум по созданию обменов данными через протокол oData «за полдня»

Практика программирования Внешние источники данных v8 1cv8.cf Россия Абонемент ($m)

Про oData и 1С было довольно много написано, однако же описания работы и с чтением, и с записью данных через JSON я так и не встретил ни на этом ресурсе ни на других. Попробую раскрыть эту тему.

1 стартмани

20.03.2018    27155    timm00    64    

Практика доступа в базу 1С через протокол oData. Изменение данных

Практика программирования Внешние источники данных v8 1cv8.cf Абонемент ($m)

Продолжаем знакомство с протоколом oData и в данной статье мы рассмотрим такие вопросы, как минимально необходимый багаж теоретических знаний, необходимый для работы, способы изменения доступных данных, а также с какими ограничениями можем при этом столкнуться. Осторожно, будет много скриншотов!

1 стартмани

30.12.2017    37926    Dementor    32    

Инструкция по настройке загрузки из ФСС электронных листков нетрудоспособности ЭЛН в документ 1С Начисление по больничному листу

Внешние источники данных Зарплата Зарплата v8 КА1 ЗУП2.5 УПП1 Россия БУ ФОМС, ПФ, ФСС Абонемент ($m)

Клиент (страхователь) работает в программе "1С Зарплата и управление персоналом ред.2.5" сдает отчетность через Контур или СБИС и не собирается подключать 1С-Отчетность, при этом хочет загружать электронные больничные в программу 1С Зарплата. Подобная ситуация может быть и для других конфигураций в которых есть документ "Начисление по больничному листу", например Комплексная автоматизация 1.1, Управление производственным предприятием 1.3.

1 стартмани

28.11.2017    171195    rusmil    126    

Google OAuth и мобильное приложение

Мобильная разработка Обмен данными 1С Внешние источники данных WEB v8 v8::Mobile 1cv8.cf Абонемент ($m)

Об аутентификации для работы с сервисами google из мобильного или настольного приложения

1 стартмани

29.08.2017    11798    stveans@gmail.com    3    

Опыт интеграции 1С с системой Меркурий (Часть 5)

Внешние источники данных Интеграция Оптовая торговля Оптовая торговля v8::ОУ 1cv8.cf Сельское хозяйство и рыболовство Транспорт, автопарки, такси Оптовая торговля, дистрибуция, логистика Пищевая промышленность Россия БУ УУ Абонемент ($m)

Описывается опыт внедрения в 1С системы работы с ветеринарно-сопроводительными документами Меркурий. Интеграция еще в процессе и приветствуется обмен опытом.

1 стартмани

10.07.2017    61366    axxell    33    

1С и MongoDB: дружба начинается с RESTHeart'а

Внешние источники данных v8 Абонемент ($m)

Краткое описание того, как подружить MongoDB и 1С: Предприятие используя один из предлагаемых на официальном сайте RESTFul сервисов - RESTHeart.

1 стартмани

03.07.2017    44000    Silenser    8    

Что такое HMAC и JWT и как это использовать в 1С

Внешние источники данных v8 1cv8.cf Абонемент ($m)

Лёгкая статья про стандарты HMAC и JWT с небольшой теорией и исходным кодом.

1 стартмани

20.04.2017    22957    keypax    48    

Пример загрузки/выгрузки файлов на SFTP сервер из 1С

Разработка внешних компонент v8 Россия Абонемент ($m)

К сожалению 1С пока не позволяет своими средствами обмениваться файлами с SFTP сервером. Столкнувшись с этой проблемой, оптимальным для себя выбрал вариант с использованием бесплатного SFTP клиента:WinSCP. Я не нашел в сети примеров работы 1С с этой утилитой через COM-соединение, поэтому выкладываю свой. Возможно кому-то будет полезен.

1 стартмани

29.07.2013    62655    ram3    77    

Работа с внешней компонентой на сервере (Linux)

Разработка внешних компонент v8 Абонемент ($m)

Это небольшая заметка о том как можно подключить и использовать внешнюю компоненту на сервере "1С:Предприятие".

1 стартмани

08.07.2013    14437    quebracho    6    

1С 8.2 переключение раскладки клавиатуры (с помощью dynwrap.dll)

Разработка внешних компонент Универсальные функции v8 Абонемент ($m)

Функция для автоматического переключения раскладки клавиатуры. (с помощью dynwrap.dll) Дабы не переключать каждый раз (при вводе информации в разных полях) с "Rus" на "Eng", можно эту работу возложить на функцию.

1 стартмани

22.05.2013    15394    Serg23ru    24    

Как написать COM-объект для 1С на Visual Studio C# 2008

Практика программирования Универсальные обработки Разработка внешних компонент v8 1cv8.cf Абонемент ($m)

Расширяем функционал 1С с помощью разработки подключаемого COM-объекта! Пишем код на Visual C# 2008 для открытия CD-ROM'а, получения списка процессов и использования возможностей системы text-to-speech.

5 стартмани

11.09.2012    84256    RainyAugust22    56    

Синхронизация с сервером 1С во внешнем соединении

Внешние источники данных Универсальные функции v8 1cv8.cf Абонемент ($m)

Позволяет установить время удаленного SQL-сервера на компьютере при выполнении обмена через Внешнее соединение

1 стартмани

27.09.2011    13648    sml    6