Не могу вызвать процедуру ActiveX компонеты

Программирование на Атлантисе (VIP, FCOM, ARD), FastReport

Модераторы: m0p3e, edward_K, Модераторы

Ответить
Diman
Постоянный гость
Сообщения: 56
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Волгоград Филиал ОАО "Связьтранснефть" НВ ПТУС отдел ОИТ

Не могу вызвать процедуру ActiveX компонеты

Сообщение Diman »

Создал ActiveX компоненту. Компонета написана на Дельфях. Описал процедуру. Пытаюсь вызвать ее из ВИП интерфейса, выдается сообщение о том что данный метод в объекте не найден, причем сама компонета вызывается и работает на ура. Код вызова на ВИПе прилагаю:
INTERFACE NVIS_ActiveXTest 'Test ActiveX' doaccept,cyan
show at (1,1,110,27);
CREATE VIEW t4
;
embedded emObj1 OLE;
show at (2,2,100,23);
end;
var
i: longint;
k: integer;



HandleEvent
cmInit:
{
i := OleCreate ('SimpleExpertProj1.SimpleExpert');
if i = 0 then
exit;
OleEmbed (i, emObj1);
OleSetOptions (i, 2);
OleCall1(i, ocProc, 'func1', '0001');
}
end;
end.
DarkAngel27
Местный житель
Сообщения: 228
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Москва
Контактная информация:

Сообщение DarkAngel27 »

Галактика какая? На 7.12 такая же ошибка была, когда "компонента" была не OLE-приложением.
Diman
Постоянный гость
Сообщения: 56
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Волгоград Филиал ОАО "Связьтранснефть" НВ ПТУС отдел ОИТ

Сообщение Diman »

Галактика 7.1, а что нужно сделать в Дельфях чтоб компонета была OLE приложением?
Diman
Постоянный гость
Сообщения: 56
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Волгоград Филиал ОАО "Связьтранснефть" НВ ПТУС отдел ОИТ

Сообщение Diman »

Люди ПАМАГИТЕ!!!! Погибаю. Третий день бьюсь с этой ActiveX формой. Не могу вызвать из Гал-ки методы и процедуры компоненты. Галакатика 7.1, компонента написана на Дельфях 6. В чем может быть дело? Заранее благодарен за любую помощь.
Diman
Постоянный гость
Сообщения: 56
Зарегистрирован: 29 мар 2005, 17:49
Откуда: Волгоград Филиал ОАО "Связьтранснефть" НВ ПТУС отдел ОИТ

Сообщение Diman »

Все, УРА, заработало!
Ответить