Имя: Пароль:
1C
1С v8
Не создается компонента "AddIn.CeDataExch"
0 SherifSP
 
29.05.13
10:07
Пытаюсь подключить компоненту Агент +, но не могу понять что не так сделал, компоненты кинул в папку бин, зарегистрировал в системе, но при подключении выдает ошибку:
{Форма.Форма.Форма(51)}: Ошибка при вызове конструктора (COMОбъект)
       Возврат Новый COMОбъект(Х);
по причине:
Недопустимая строка с указанием класса

А вот и сама функция

Перем АПОбъект; // ссылка на объект интерфейса компоненты

//******************************************************************************
// Функция ЗагрузитьКомпоненту(ИмяФайлаКомп)
// Возвращаемое значение:
//  1  - компонента загружена
//  0  - ошибка загрузки
//
Функция ЗагрузитьКомпоненту(ИмяФайлаКомп)
   // Если библиотека находится в каталоге запуска 1С
   Попытка
       ЗагрузитьВнешнююКомпоненту(ИмяФайлаКомп);
   Исключение
       Сообщить("Компонента " + ИмяФайлаКомп + " не загружена!");
       Возврат 0;
   КонецПопытки;
   Возврат 1;
КонецФункции    

//******************************************************************************
// ПриОткрытии()
// Предопределенная процедура, вызывается при открытии формы модуля.
Процедура ПриОткрытии()
   
   Результат = ЗагрузитьКомпоненту("APPlus.dll");
   Если Результат <> 1 Тогда
       Возврат;
   КонецЕсли;
   
   АПОбъект  = СоздатьОбъект("AddIn.CeDataExch"); // создание объекта интерфейса из компоненты
   Сообщить("Версия компоненты APPlus.dll: " + АПОбъект.Версия());
   
КонецПроцедуры

Функция СоздатьОбъект(Х)
   Попытка
       Возврат Новый COMОбъект(Х);
   Исключение
       Возврат Неопределено;
   КонецПопытки;
КонецФункции;
1 SherifSP
 
29.05.13
10:17
Ап
2 Ковычки
 
29.05.13
10:19
зарегистрируйте APPlus.dll
3 SherifSP
 
29.05.13
10:23
(2) Регистрировал
regsvr32 "C:\Program Files (x86)\1cv82\8.2.18.61\bin\APPlus.dll"
4 SherifSP
 
29.05.13
10:24
+(3) Система выдала сообщение о успешной регистрации библиотеки
5 Мимохожий Однако
 
29.05.13
10:32
А так?

Функция СоздатьОбъект()
   Попытка
       Возврат Новый COMОбъект("AddIn.CeDataExch.Application");
   Исключение
       Возврат Неопределено;
   КонецПопытки;
КонецФункции;
6 SherifSP
 
29.05.13
10:38
(5) Тоже самое, может быть из за разных релизов платформы? Есть 8.2.18 и 8.2.15
7 SherifSP
 
29.05.13
10:42
Новый("AddIn.CeDataExch") - вот так заработало, но в свойствах всего 4 параметра
8 Mikeware
 
29.05.13
10:49
(7) а разве их больше?
я даже навскидку только 2 помню...