Использование русских символов при работе с 1С из Delphi

01.04.14

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

Решение проблемы "Method 'НазваниеМетода' not supported by automation object" при работе с 1C: Предприятие для некоторых версий Delphi.

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

Наименование Файл Версия Размер
Исходный код и пример
.zip 234,30Kb
7
.zip 234,30Kb 7 Скачать

Проблема

При подключении к системе 1С: Предприятие 8 из программ, разработанных в среде программирования Delphi, возникает ошибка с неверными обращениями к объекту автоматизации сервера. Например, подобная строка кода:

1CEnterprise.Справочники.Номенклатура.Выбрать();

, где  1CEnterprise  – переменная типа Variant  с указателем на интерфейс IDispatch COM-объекта 1С: Предприятие, приведет к появлению сообщения об ошибке: Method 'Справочники ' not supported by automation object.

Данная проблема возникает из-за того что идентификаторы содержат русские буквы, а передача их интерфейсу IDispatch происходит в кодировке Юникод. Но из-за ошибок в среде Delphi происходит искажение имён. Проблема нивелируется, пока можно использовать английские синонимы, но они определены только для встроенных объектов и функций платформы! Множество прикладных функций не имеет их…

Решение

Вначале рассмотрим типичный сценарий подключения к системе 1С:Предприятие:

Var 1CEnterprise: Variant;

begin

1CEnterprise := CreateOleObject(‘V82.COMConnector’). Connect(‘File="С:\1CBase\"; Usr="Администратор"; Pwd="Пароль";’);

…

Далее при обращении к свойству Справочники происходит неявное обращение к интерфейсу IDispatch (что-то вроде вызова Invoke(‘Справочники’) если упрощено). Осуществляется же это благодаря функциональности типа Variant. 

Для трансляции обращения к интерфейсу вызывается функция, назначенная в глобальную переменную VarDispProc. По умолчанию в неё назначена процедура из модуля ComObj. Но ничего не мешает заместить её на свою собственную и работать с интерфейсом IDispatch напрямую.

procedure MyVarDispInvoke(Result: PVariant; const Instance: Variant;
  CallDesc: PCallDesc; Params: Pointer); cdecl;

  procedure RaiseException;
  begin
    raise EOleError.CreateRes(@SVarNotObject);
  end;

var
  Dispatch: Pointer;
  DispIDs: array[0..MaxDispArgs - 1] of Integer;
begin
  if (CallDesc^.ArgCount) > MaxDispArgs then raise EOleError.CreateRes(@STooManyParams);
  if TVarData(Instance).VType = varDispatch then
    Dispatch := TVarData(Instance).VDispatch
  else if TVarData(Instance).VType = (varDispatch or varByRef) then
    Dispatch := Pointer(TVarData(Instance).VPointer^)
  else RaiseException;
  GetIDsOfNames(IDispatch(Dispatch), @CallDesc^.ArgTypes[CallDesc^.ArgCount],
    CallDesc^.NamedArgCount + 1, @DispIDs);
  if Result <> nil then VarClear(Result^);
  DispatchInvoke(IDispatch(Dispatch), CallDesc, @DispIDs, Params, Result);
end;

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

GetIDsOfNames(IDispatch(Dispatch), @CallDesc^.ArgTypes[CallDesc^.ArgCount], CallDesc^.NamedArgCount + 1, @DispIDs);

Процедура GetIDsOfNames преобразует строковое имя в целочисленный идентификатор для вызова Invoke. Второй параметр содержит строку с именем вызываемого метода, но что важно - в каком формате? Выяснить это можно с помощью отладчика. Так вот в разных версиях Delphi формат разный и именно поэтому возникает ошибка, но только при работе с системой 1С: Предриятие 8 - подавляющее число интерфейсов у систем имеет идентификаторы только на английском языке! Здесь следует проникнуться гордостью за отечественных разработчиков и осыпать проклятьями их зарубежных коллег... Само же решение проблемы сильно зависит от формата параметра и содержимого процедуры GetIDsOfNames. В Delphi 2006 параметр передается уже в формате Юникод, а метод преобразует его в Юникод повторно, что и вызывает ошибку

Ошибка 

Достаточно просто сконвертировать строку из Юникода, например так:

procedure GetIDsOfNames(const Dispatch: IDispatch; Names: PChar;
  NameCount: Integer; DispIDs: PDispIDList);

  procedure RaiseNameException;
  begin
    raise EOleError.CreateResFmt(@SNoMethod, [Names]);
  end;

type
  PNamesArray = ^TNamesArray;
  TNamesArray = array[0..0] of PWideChar;
var
  N, SrcLen, DestLen: Integer;
  Src: PChar;
  Dest: PWideChar;
  NameRefs: PNamesArray;
  StackTop: Pointer;
  Temp: Integer;
begin
  //Src := Names; ---------------------------------------- БЫЛО
Src := PChar(Utf8ToAnsi(Names)); // ------------------- СТАЛО
N := 0;
asm
MOV StackTop, ESP
MOV EAX, NameCount
INC EAX
...

 

Всё - этого достаточно. Советы из разряда "установи старую Delphi" теперь можете смело игнорировать.

 Исправление

Не забудьте только перед использованием подменить адрес процедуры в глобальной переменной  VarDispProc.

VarDispProc := MyVarDispInvoke;

В архиве содержится исходный код и пример (пытается выполнить ShowMessage(obj.Метаданные.Справочники.Банки.Комментарий); ). Удачного внешнего управления системой 1С Предприятие!

PS. Если вы думаете что IDispatch что-то специфичное и нужное только в Delphi, то задумайтесь - как 1С работает со значениями через точку? Когда вы работаете в конфигураторе с переменной содержимое которой не определяете самостоятельно (например параметр), то после точки может быть любой идентификатор - ошибки при проверке не будет (тип переменной неизвестен), а ошибка может произойти только при исполнении, когда в работу вступит интерфейс... да-да  IDispatch объекта 1С !!! 

Delphi IDispatch OLE COM Ошибка

См. также

Медиадисплей. Рекламный информационный монитор для покупателя.

Разработка внешних компонент POS терминал Рабочее место Розничная торговля Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление торговлей 10 1С:Розница 2 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х Розничная и сетевая торговля (FMCG) Рестораны, кафе и фаст-фуд Реклама, PR и маркетинг Управленческий учет Платные (руб)

Монитор покупателя может отображать текущую покупку на кассовом месте, показывать видеорекламу, баннеры, во время простоя разворачивать рекламу на весь экран. Можно использовать в качестве графического меню-борда в кафе и видеовывески. Управление выводом на телевизор через hdmi-приставку на базе Windows или Android. В качестве устройства отображения можно использовать Android-планшеты, фоторамки с Android, монитор любого Windows-компьютера, доступного по сети. Настраивается ЛЮБОЙ ДИЗАЙН экрана!

16800 руб.

30.05.2017    52100    34    69    

43

Внешняя компонента для сканирования (замена TWAIN-компоненты БСП) (Native Win 32/64)

Разработка внешних компонент Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Внешняя компонента позволяет работать c TWAIN-совместимым оборудованием (сканерами, камерами) . Полностью совместима со стандартной TWAIN-компонентой из БСП и может применяться как ее замена без изменения вызовов, при этом может работать с 64-разрядной платформой, а так же имеет расширенную функциональность, например, сохранение результата непосредственно в PDF без использования сторонних утилит. Прекрасно работает на сервере, тонком клиенте и веб-клиенте (проверена работа в браузерах Google Chrome, Mozilla Firefox и Microsoft Internet Explorer).

2400 руб.

12.05.2020    26244    131    99    

83

Внешняя компонента для подключения 1С к телефонии Asterisk

Разработка внешних компонент Телефония, SIP Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

Внешняя компонента выполнена по технологии Native API для 1С 8.х, обеспечивает доступ к программным АТС Asterisk (FreePBX, Elastix) через AMI интерфейс. Через него можно управлять многими функциями Asterisk (определение номеров, перевод звонков, набор телефона и т. д.)

2400 руб.

04.05.2018    44976    117    64    

60

Внешняя компонента печати PDF (Native Win 32/64)

Разработка внешних компонент Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

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

1500 руб.

17.09.2018    35080    104    123    

111

Мастер создания внешних компонент 1С (технология COM) для DELPHI 6/7/8/2005/2006/2007/2008/2010/XE/XE2/XE3

Разработка внешних компонент Платформа 1С v8.3 Платные (руб)

Средство для сверхбыстрой разработки внешних компонент 1С:Предприятия 7.7 и 8 по технологии COM на всех версиях DELPHI, начиная с 6.

2000 руб.

28.03.2013    53999    35    14    

68

QR-код с логотипом компании (обычная и управляемая форма)

Разработка внешних компонент Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Платные (руб)

Как известно, стремление сделать свою рекламную продукцию запоминающейся и выделяющейся — верный путь к успеху. Сегодня, мы поговорим с вами о том, что можно сделать с обычным черно-белым QR-кодом, чтобы он стал более живым и привлекательным. Если вам не терпится попробовать сделать QR-код с логотипом компании, то эта обработка для вас!

2400 руб.

22.06.2016    30840    4    4    

8

Внешняя компонента 1С и С++. Продолжаем разговор.

Разработка внешних компонент Платформа 1С v8.3 Бесплатно (free)

А давайте запилим 8.3.26 до релиза, или оповещение с сервера...

19.02.2024    4039    starik-2005    28    

52

Внешние компоненты 1С и язык C++

Разработка внешних компонент Механизмы платформы 1С Платформа 1С v8.3 Бесплатно (free)

Некоторые практические аспекты создания внешних компонент на языке С++ для платформы 1С 8.3++.

26.01.2024    4778    starik-2005    32    

39
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. anig99 2843 01.04.14 14:07 Сейчас в теме
Однозначно +!!!!! В пору начала освоения 1с пытался подружить 1с и delphi - уперся именно в русские буквы.
2. EmpireSer 15.04.14 13:00 Сейчас в теме
Это применимо к какой версии Delphi? Ведь версии Delphi XE и выше изначально считают всё юникодом.
3. Rik30 14 07.05.14 09:25 Сейчас в теме
+
А есть у кого пример для работой с 7ой?
Никак не могу брать значения справочников, которые в 7ке берутся из "Перечислений"
4. ogursoft 22.08.17 13:21 Сейчас в теме
Теме уже 3 года, но тем не менее понадобилось написать внешнее приложение на Дельфи через Ole
Используется Delphi последней версии (Embarcadero® RAD Studio 10.1 Berlin)
Почему отдельные русские свойства и процедуры нормально отрабатываются, а отдельные нет. Была рабочая программа, добавили свойство в документ, дельфи спотыкается на нем, старые свойства обрабатывает нормально.
5. capitan 2466 05.08.18 09:06 Сейчас в теме
Все не так однозначно.
Наоборот, в моей практике Delphi нормально вызов передает, это сообщение об ошибке возвращается кракозябрами.
Его надо раскодировать примерно так AnsiToUtf8(Utf8ToAnsi(E.Message))
(4) Курить надо в сторону не кривизны Delphi, а учить матчасть - V83.Application и V83.COMConnector разные наборы методов поддерживают
Простейший пример - oCOMConnector.ИмяКомпьютера();
6. Junior1C_37 18.12.21 12:06 Сейчас в теме
Вот наткнулся: Делфи 10.3, 1с 8.3 не вызывалась процедура пока в свойствах модуля не поставил галочку Сервер и Внешнее соединение. Понятно что и Экспорт должно присутствовать.
И с русскими буквами заработало.
Оставьте свое сообщение