Немогу понять куда девался interface!

← →
ErikIvanov (2003-04-16 18:19) [0]

Описал в отдельном unit интерфеис.
IMainForm = interface
["{8732496F-2D0D-4803-A87E-4A806F0A45B6}"]
function GetDataBase: TCustomConnection;
procedure ShowStatus(Value: String);
end;
определил его реализацию для формы Main.
TMainForm = class(TForm, IMainForm, IMainTookoht)
в ней создаю другую форму куда родителем передаю
TTookohaValik.Create(Self);
В TTookohaValik.Create пытаюсь получить интерфейс
AOwner.GetInterface(IMainForm,IData)
А IMainForm а debug равна нулям!!!!!!!!!!

У кого есть какие мысли, но этот счет?

← →
Юрий Федоров (2003-04-16 18:28) [1]

Это издержки дебаггера. Главное чтобы IData не был равер nil

← →
ErikIvanov (2003-04-17 12:05) [2]

Дела в том, что GetInterface возвращает False!

← →
ErikIvanov (2003-04-17 14:30) [3]

Что нету некаких идей? Что вобще можно проверить? Куда копать?

← →
vuk (2003-04-17 14:51) [4]

Я с таким не сталкивался, хотя интерфейсы использую часто. Попробуйте выделить минимальный фрагмент кода, где это проявляется...

← →
ErikIvanov (2003-04-17 15:39) [5]

Мне казалось разяснил, видать плохо. Вот эта строка возващает False, эотя должна True.
AOwner.GetInterface(IMainForm,IData)
После иследования с помощю вставки ShowMessage(GUIDToString(IMainLayer));
Определил что константа жива.

← →
icWasya (2003-04-17 17:13) [6]

попробуй так

const IMainFormIID :TGUID ="{8732496F-2D0D-4803-A87E-4A806F0A45B6}";
...
AOwner.GetInterface(IMainFormIID,IData)

← →
vuk (2003-04-17 17:45) [7]

to ErikIvanov:
>Мне казалось разяснил, видать плохо.
Да всё как раз понятно. Я ж говорю, такого использования интерфейсов у меня полно. И никаких проблем. Попробуйте воспроизвести это в минимальном объеме кода, а там посмотрим.

Немогу понять куда девался interface! Найти похожие ветки