Работа с COM-объектом 1С - НайтиПоКоду не ест параметры :(

[Tony Green]

Приветствую всех.

Проблема с вызовом метода ком-объекта 1С - НайтиПо Коду или FindByCode.

Чего установлено: Windows XP, Axapta 3.0 SP2 CIS, 1C - 7.70.018

Ошибка: Метод 'FindByCode' в COM-объекте класса '<unknown>' возвратил код ошибки 0x80070057 (E_INVALIDARG), который означает: Один или более аргументов не верен.

Хотя вот тут http://www.axforum.info/forums/showt...p?threadid=920 уже обсуждалась эта проблема, мне пока не удалось заставить метод работать по человечески...

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

PHP код:

    COM             c,
                    cont;
    int             res;

    c = new COM("V77.Application");

    res = c.Initialize(c.RMTrade(), '/D "C:\\1Cv77\\1SBDemo" /M', 'NO_SPLASH_SHOW');

    if (!res) throw error('Ошибка при инициализации 1С');

    cont = c.CreateObject('Справочник.Контрагенты');
    pause;

    res = cont.FindByCode("000001",0);

    print(strfmt('%1 - %2',res,cont.Наименование()));
    pause; 


Метод FindByCode вызывает ошибку. Пробовал самые различные комбинации с участием COMDispFunction, COMVariant - не выходит каменный цветок... Кстати, если засунуть вызывающую ошибку строчку в try .. catch, то можно увидеть, что хотя COM и ругается, но выполняет метод... Аналгоичный код на VBA под Excel, и на Delphi работает без ошибок.
И ещё: эта ошибка возникает только на win2k и winXP. Под 98-ми этот же код выполняется без эксепшенов... Присоветуйте, как бороться?

[Beavis-analitik]

Imho самым простым решением будет дописать в глобальнике 1C что-нибудь вроде

Функция глПоискПоКоду(Назв, Код) Экспорт
спр = СоздатьОбъект("Справочник." + Назв);
если спр.НайтиПоКоду(Код, 0) = 1 тогда
Возврат спр;
конецЕсли;
КонецФункции

...и вызывать ее как метод объекта application => Возвращаемое значение можно принять в переменную типа COM и использовать.

[Tony Green]

Тоже вариант, конечно... Но это не спортивно
Ладно бы оно нигде не работало, так ведь местами работает всё-таки... Значит может, зараза...

[mazzy]

Цитата:

Изначально опубликовано Tony Green
Вот код. Он очень похож на тот кусок, который Маззи запостил и тогда назвал его
заведомо рабочим:

Рабочий, рабочий. Тогда я проверял.

Тогда мы долго искали с 1Сниками решение, которое работало бы на всех релизах. Вроде пришли к рекомендации, что второй параметр надо передавать как строку

PHP код:

res = cont.FindByCode("000001","0"); 


В этот раз не проверял. Если будут сложности - попробую вернутся к этой проблеме вечером.

[Tony Green]

Не помогает, к сожалению

[Tony Green]

Люююююдииии!!!

Ну почему? почему работает вот это:

PHP код:

Dim Appl, Cust As Object

Set Appl = CreateObject("V77.Application")
result = Appl.Initialize(Appl.RMTrade, "/D""C:\1Cv77\1SBDemo"" /M", "NO_SPLASH_SHOW")

If result = 0 Then
    MsgBox ("Приложение не инициализировано")
Else
    Set Cust = Appl.CreateObject("Справочник.Контрагенты")
    Cust.FindByCode ("000031")
    MsgBox (Cust.Наименование)
End If 


или вот это:

PHP код:

var
  V,C : Variant;
begin
    V := CreateOleObject('V77.Application');
    V.Initialize(V.RMTrade, '/D "C:\1Cv77\1SBDemo" /M', 'NO_SPLASH_SHOW');

    C := V.CreateObject('Справочник.Контрагенты');

    C.FindByCode('000031');
    ShowMessage(C.Наименование);
end; 


а в аксапте под WinXP не пашет ни вот это:

PHP код:

    COM             v77,
                    cust;
    int             res;

    v77 = new COM("V77.Application");

    res = v77.Initialize(v77.RMTrade(), '/D "C:\\1Cv77\\1SBDemo" /M', 'NO_SPLASH_SHOW');

    if (!res) throw error('Ошибка при инициализации 1С');

    cust = v77.CreateObject('Справочник.Контрагенты');
    res = cust.FindByCode("000031",0);
    print(cust.Наименование());
    pause; 


ни вот так:

PHP код:

    COMDispFunction find = new COMDispFunction(dict, 'НайтиПоКоду', COMDispContext::Method);

    COMVariant      code        = new COMVariant(COMVariantInOut::In,COMVariantType::VT_BSTR);
    COMVariant      attr        = new COMVariant(COMVariantInOut::In,COMVariantType::VT_INT);
    COMVariant      ret         = new COMVariant(COMVariantInOut::Out_retVal,COMVariantType::VT_BOOL);

    code.bStr('000031');
    attr.int(0);

    find.call(code,attr,ret); 


Причем тот же код работает под 98-ми виндами... Не понимаю

[mazzy]

так, Tony Green, спокойствие.

Я вчера проверил. Да, не работает с 21 релизом, ни 3.0, ни 2.5.
Раньше работало.
Барабашки нет. Значит что-то изменилось. Задача - выяснить.

Да, действительно. Сам метод отрабатывает, но Аксапта возбуждает исключение.
Исключение возбуждается поскольку метод возвращает ненулевой HRESULT.

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

Аксапта это ловит.
Все басикоподобные языки сильно обертывают и прячут COM-события.

Обратите внимание, что в басике и дельфи вы вызываете FindByCode как МЕТОД, а не как функцию! Обратите внимание, что там где у вас работает нет Retval параметра. Аксапта же всегда вызывает как функцию и хочет получить возвращаемое значение. Здесь то ее похоже и обламывают.

Я протестил и Excel VBA. Excel выполнил не возбудил никаких исключений. У меня подозрение, что он и не смотрит в HRESULT. Т.е. все произошло так, как будто в Аксапте вызов findByCode обернули в Try catch.

Погодите, хочу протестировать с ключом, с соболем и с соароном. Хочу протестировать 18 и 21 релиз, DBF и SQL версию. Обязательно расскажу о результатах.

Пока у меня вопрос: какой HRESULT возвращает 1С, если вызвать ее из Delphi через iDispatch?

[Tony Green]

Из Delphi, если вызывать методы COM-объекта 1С явно через Dispatch интерфейс, HRESULT возвращается нулевой...

[mazzy]

спасибо. похоже проблема таки в Аксапте...
но пока не могу найти 18 релиз...

[Tony Green]

кстати, если в X++ вызывать FindByCode просто, как метод COM объекта, то при выполнении вылезает ошибка: Метод 'FindByCode' в COM-объекте класса '<unknown>' возвратил код ошибки 0x80070057 (E_INVALIDARG), который означает: Один или более аргументов не верен.

Если же объявить метод перед вызовом как COMDispFunction и потом вызвать через call, то получается ошибка: Метод 'FindByCode' в COM-объекте класса 'unknown' возвратил код ошибки 0x80020010 (unknown), который означает: unknown.

Что это означает я тоже пока не понял

[DSV]

Куда положить искомое?

[mazzy]

ломалки не надо.
все остальное, если не несколько мегабайт, можно сюда.
если большое, то можно подумать.

[mazzy]

DSV, мне подсказали, что я мог ошибиться в трактовке вашего предложения. Извините.

Если вы имели в виду 18 релиз, то ни в коем случае сюда его класть не надо. Не нужно здесь никакого софта.

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

[DSV]

Сорри, неясно выразился.
Имелся в виду именно 18 релиз - порядка 14 метров.
Но проверить работоспособность примера из-за нехватки времени все не получается. ((((

[mazzy]

Не надо релизы на форум выкладывать.
проблема та же - нужно время.