ошибка при возвращении функцией интерфейса в COM

← →
Dysan (2004-02-24 16:00) [0]

Помогите разобраться
вот функция в COM обьекте возвращает интерфейс IItem
function TEtan.Get_Item(var n_mail: OleVariant): IItem;
begin
Result.From_ :=IMessage[StrToInt(n_mail)].From_;
end;

Вот краткое описание интерфейса
IItem = interface(IDispatch)
function Get_From_: WideString; safecall;
procedure Set_From_(const Value: WideString); safecall;
property From_: WideString read Get_From_ write Set_From_;
end;

Происходить разрушительная ошибка...
Интерфейсу ведь наверное как то надо Create делать? А где и как ? не подскажите?
Все мои попытки провалились.

← →
Тимохов (2004-02-24 16:02) [1]

> Интерфейсу ведь наверное как то надо Create делать? А где
> и как ? не подскажите?

Интерфейсу нельзя сделать create. Его можно сделать объекту, реализуещему данный интерфейс.
Какой объект у тебя реализует интерфейс IItem?

← →
Romkin (2004-02-24 16:04) [2]

http://delphimaster.net/view/1-1074853131/
Ты внимательно прочитал?

← →
Dysan (2004-02-24 16:08) [3]

ну я старался внимательно прочитать
но чесно некоторые детали не совсем понял
например ты рекомендовал использовать предка кокласса TAutoIntfObject но это мой первый COM и естественно блином, потому мне не совсем понятно где CoClass и как правильно.

← →
Romkin (2004-02-24 16:10) [4]

http://www.techvanguards.com/com/tutorials/objecthierarchies.asp
Коклассом называется класс, реализующий интерфейс. У тебя, например, кокласс TEtan реализует интерфейс IEtan

← →
Dysan (2004-02-24 16:16) [5]

о спасибо.
это уже лучше!

ошибка при возвращении функцией интерфейса в COM Найти похожие ветки