В одной старой теме
v8: Отловить событие нашел пример реализации СОМ объекта на delphi (автор Rie). К сожадению не смог в delphi 7 повторить реализацию.
В 1с на справочник вешаю
Процедура ПриЗаписи() Экспорт
сообщить("ура!!!");
МойОбъект = Новый COMОбъект("testEV.evproc");
ДобавитьОбработчик ЭтотОбъект.ПередЗаписью, МойОбъект.Proc;
КонецПроцедуры
в delphi создал Automation Object, в библиотеке типов добавил интерфейсу IEvProc метод Proc c 2 параметрами Source и Refuse
procedure TEvProc.Proc(const Source: IDispatch; Refuse: WordBool);
begin
MessageBox(0,'!!!','',0);
end;
В 1с при добавлении новой записи, запись происходит успешно, вызывается СОМ объект и все!!! MessageBox не появляется, процедура Proc вообще не срабатывает.
Помогите, что я делаю не так?