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

Книга знаний: Написание внешних компонент для 1С (Delphi)
Книга знаний: Загрузка внешних компонент 1С: проблемы и решения

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

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

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

Delphi

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

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

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

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

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

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

прошелся отладчиком: выполняется Init - нормально доходит до конца и возвращает S_OK
потом заходит в GetInfo:
    varInfo := '2000';
    PutNParam(pInfo,0,varInfo);
    GetInfo := S_OK;
нормально выполняется
потом сразу идет в Done (Почему?)

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

понатыкал везде, где только можно:
до Init идет в блок страницы свойств
initialization
 TActiveXPropertyPageFactory.Create(
   ComServer,
   TAddInPropPage,
   Class_AddInPropPage);
end.
потом
AddinObj
initialization

ComServer.SetServerName('AddIn');
TComObjectFactory.Create(ComServer,TAddInObject,CLSID_AddInObject,
                'CyberPlatDVV','CyberPlat v 1.0',ciSingleInstance);

end.
ну а потом как уже писал

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

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

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

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

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

я так всегда пишу

 if not IsLoaded then
 begin
   varFPList.pErrorLog := nil;
   pConnection.QueryInterface(IID_IErrorLog, varFPList.pErrorLog);

   varFPList.pEvent := nil;
   pConnection.QueryInterface(IID_IAsyncEvent, varFPList.pEvent);
.....

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

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

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

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

Рез = ПодключитьВнешнююКомпоненту("AddIn.CyberDVV");
   //Рез = ЗагрузитьВнешнююКомпоненту("CyberDVV.dll");
   Если Рез <> 1 Тогда
       Предупреждение("Ошибка загрузки");
       Возврат;
   КонецЕсли;
   Сообщить("Объект создан");
   Кибер = СоздатьОбъект("AddIn.CyberDVV");
   Сообщить("Код оператора " + Кибер.Порт);
Возвращает Рез = 1
и выдает ошибку в окне сообщений

пробовал и
   Кибер = СоздатьОбъект("AddIn.CyberPlatDVV");

В качестве бреда...
Попробуй в семерке так:
Кибер = СоздатьОбъект("CyberDVV.CyberPlatDVV");

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

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

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

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

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

procedure TAddInObject.PutNParam(var pArray: PSafeArray; lIndex: Integer; var varPut: OleVariant);
begin
 SafeArrayPutElement(@pArray, lIndex, varPut);
end;

убери собаку в @pArray и радуйся

procedure TAddInObject.PutNParam(var pArray: PSafeArray; lIndex: Integer; var varPut: OleVariant);
begin
 SafeArrayPutElement(pArray, lIndex, varPut);
end;

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

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