Зачем в классу при обявлении интерфейса нужна реализация IUnknown

← →
Erik1 (2004-06-10 11:03) [0]

Вобщем хочу я к наследнику от TThread приделать интерфейс IAttribut, для использования внутри Delphi. А мне компилятор выдает ошибку Undeclared identifier: "QueryInterface" и тд. Что реализацию придется писать?

← →
Clickmaker © (2004-06-10 11:05) [1]

type
IAttribut = interface(IUnknown);

← →
Digitman © (2004-06-10 11:13) [2]

> Вобщем хочу я к наследнику от TThread приделать интерфейс
> IAttribut

добавлю - "..и еще хочу заработать себе впоследствии геморрой с такой реализацией"

IAttribut = interface;

TMyClass = class(TInterfacedObject, IAttribut)
..
FThread: TMyThread;
..
end;

← →
Erik1 (2004-06-10 11:27) [3]

Вобщето я так описал:
IAttribut = interface
["{5236A8EF-F36F-4E5B-876F-1640311F2099}"]
function GetID: Integer;
function GetDescription: String;
function GetGrupp: Integer;
end;

TCustomThread = class(TThread, IAttribut)
private
...
function GetID: Integer;
function GetDescription: String;
function GetGrupp: Integer;
emd;
Нехочется наследоватся от TInterfacedObject.

Не хочется - реализуй три метода IUnknown. Подсмотреть можно в TInterfacedObject.
Примечание: Сразу говорю: передавать интерфейсы между потоками просто так нельзя, сразу получишь катастрофическую ошибку.

Зачем в классу при обявлении интерфейса нужна реализация IUnknown Найти похожие ветки