[size=-2]------ Добавлено в 18:17
Заработало. Не спрашивай "почему?", просто исправь код. Объяснение требует танцев с бубном
function TMyEventHandler._AddRef: Integer;
var pdisp: IDispatch;
begin
pdisp := PMyOleCtl(FMe.Control).OleObject;
Result := pdisp._AddRef;
end;
function TMyEventHandler._Release: Integer;
var pdisp: IDispatch;
begin
pdisp := PMyOleCtl(FMe.Control).OleObject;
Result := pdisp._Release;
end;[size=-2]------ Добавлено в 18:41
Оказывается, метод OleObject в дельфишной версии ActiveKOL.pas возвращает не IDispatch, а Variant! А я-то блин смотрю в исходники в каталоге FPC, сравниваю со скомпилированным кодом и думаю: причём тут Variant?
Поиск
Друзья
Администрация