Как найти ошибку во внешней компоненете? #363863

Здравствуйте, уважаемые. Возникла необходимость написать внешнюю компоненту. Написал: Под 8-кой работает. Под 7.7 - не хочет. Читал инструкции, форумы и т.п. - никакие танцы с бубнами не помогают. Кто знает секрет, подскажите что надо подкрутить в исходнике (Delphi) чтобы заработало под 7.7 Ошибки такие: если гружу ее инструкцией выдает Ошибка при инициализации объекта из компоненты C:PROGRA~11Cv77BINCyberDVV.dll Если регистрирую ее и использую конструкцию Рез = ПодключитьВнешнююКомпоненту("AddIn.CyberDVV"); выдает Ошибка при инициализации объекта из компоненты <Неизвестная компонента>

В ресурсе прогИд прописан?

Ну дык в отладчике посмотри

прописал - все то же самое в чьем отладчике? 1С? или Delphi?

Delphi

я бы посмотрел сам, да у меня не компилится. там у тя какие то модули, которых у меня нету

подскажи как - dll загружается динамически.

стандартный Delphi 6 ничего больше использую 2 Indy компоненты

Ну у меня не Delphi 6 отладка dll в меню Run/Parameters Host Application указываешь там экзешник одинески. дальше как обычно. ставишь точки останова и жмешь F9. запускается 1С и пошло поехало. удачи

Не хотит компилиться она...

Попробуй убрать из Init-а все свое.. Сделай метод компоненты типа МояВК.Инициировать;

прошелся отладчиком: выполняется Init - нормально доходит до конца и возвращает S_OK потом заходит в GetInfo: нормально выполняется потом сразу идет в Done (Почему?)

Понатыкай точек везде. у тебя там еще страница свойств есть. мож там чего

понатыкал везде, где только можно: до Init идет в блок страницы свойств initialization  TActiveXPropertyPageFactory.Create(    ComServer, end. потом AddinObj initialization ComServer.SetServerName('AddIn'); TComObjectFactory.Create(ComServer,TAddInObject,CLSID_AddInObject, end. ну а потом как уже писал

, чего не хватает, чтобы скомпилилась - может я вышлю. Помогите, пожалуйста.

Убери из Init -а Crypt_Initialize;

И попробуй. Если нормально - проблема с Dll-ой

убрал - все абсолютно также

а Init вызывается два раза? или один? раньше вроде два раза было. может чо нибудь понаписать чтобы в Init два раза не выполнять одно и тоже

я так всегда пишу  if not IsLoaded then  begin

Ну тогда домой приду - будет время, попробую.. Тут на работе Дельфи нет

вызывается один раз

под 8-кой где нормально работает после Init и GetInfo вызывается RegisterExtentionAs, потом GetPages, а Done нет

А семерочный 1С-код покажи

и выдает ошибку в окне сообщений

В качестве бреда... Попробуй в семерке так:

попробовал бы, но до создатьОбъект она даже не доходит

2 Погоди. Ты ж написал, что выдает ошибку "в окне сообщений". Или все же выдает предупреждение с ошибкой? Какую ошибку-то выдает?

в окне сообщений

2 Что выдает-то? И на какой строке?

если гружу ее инструкцией Рез = ЗагрузитьВнешнююКомпоненту("CyberDVV.dll"); выдает Ошибка при инициализации объекта из компоненты C:PROGRA~11Cv77BINCyberDVV.dll Если регистрирую ее и использую конструкцию Рез = ПодключитьВнешнююКомпоненту("AddIn.CyberDVV"); выдает Ошибка при инициализации объекта из компоненты <Неизвестная компонента> имеено на этих строках

procedure TAddInObject.PutNParam(var pArray: PSafeArray; lIndex: Integer; var varPut: OleVariant); убери собаку в @pArray и радуйся procedure TAddInObject.PutNParam(var pArray: PSafeArray; lIndex: Integer; var varPut: OleVariant);

вот где собака зарылась :)

огромное спасибо. Код брал из шаблона - даже не разбирался что он делает