Наследование интерфесов одного объекта

[phomm]

Как создать объект реализующий IInterf2?

Обычно пишется метод-построитель экспортируемый (при желании можете фабрику запилить для всех вариантов)

function BuildInterf(): IInterf; // stdcall; export;
begin
  Result := TInterf.Create();
... // если нужны доп. настройки
end;
function BuildInterf2(): IInterf2; // stdcall; export;
begin
  Result := TInterf.Create(); 
// или BuildInterf() as TInterf2 , (ну или как там интерфейс кастануть, 
// была какая-то хитрость, as не канает, емнип) это на случай доп.настроек
end;

При создании ком-объекта дельфи даже сам генерирует эти методы-построители.

[StriderX]

Сообщение от Человек_Борща

Всем доброго времени суток!

Разрабатываю архитектуру ПО. Возник вопрос, допустим есть некий интерфейс IInterf, и объект TInterf реализующий его. Спустя некоторое время я расширяю интерфейс IInterf, создав IInterf2 с новыми методами и свойствами.

У меня 2 интерфейса(старый и новый) и всего 1 объект.
...
Правильно ли я делаю или нет?

Если коротко, то недостаточно данных для ответа. Возможно, в данном случае не требуется описывать новый интерфейс - допустимо расширение старого (если при этом не изменяется порядок следования методов и их сигнатуры, а только добавляются новые).
Полный и развёрнутый ответ мне кажется будет слишком большим. Я бы посоветовал устранить хаос в голове с помощью старенького, но отличного цикла статей - http://www.developing.ru/com/. Потом можно будет отвечать на вопросы более осмысленно =-)

[evg_m]

var
  i:IInterf;
  j:Iinterf2;
begin
  I:= TIntrf.Create;
  I.CallNewMethod(); //Здесь будет ошибка, CallNewMethod не объявлен в IInterf
  J := TInterf.Create;
  J.CallNewMethod(); //Здесь все хорошо, CallNewMethod объявлен в IInterf2
end;

здесь мы имеем ДВА разных объекта (два Create)

I:=TIntf.Create;//на самом деле это I:=Tintf.Create as IIntf;
J:=Tintf.Create;//                  J:=Tintf.Create as IIntf2;

ВСЕ интерфейсные объекты имеют один базовый интерфейс с помощью которого любой другой код может узнать о возможностях данного объекта (поддержке им других интерфейсов) IUnknown(все языки) IInterface(Delpi).

type
  IInterface = interface
    ['{00000000-0000-0000-C000-000000000046}']
    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
    function _AddRef: Integer; stdcall;
    function _Release: Integer; stdcall;
  end;

  IUnknown = IInterface;

type
TInterfacedObject = class(TObject, IInterface)
protected
FRefCount: Integer;
function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
function _AddRef: Integer; stdcall;
function _Release: Integer; stdcall;
public
...
end;

как "добыть" интерфейс IInterf2 для некоего объекта, если известен его другой интерфейс IInterf

I:=Tintf.Create;// создали объект и получили один из его интерфейсов IInterf

вар 1. получили использовали и сразу забыли

(I as IInterf2).CallNewMetod();если TIntf не реализует будет Exception

вар 2. получили и запомнили для дальнейшего использования

J:=I as IInterf2; 
J.CallNewMetod();

вар 3.получаем с проверкой а есть ли он

if I.QueryInterface(IInterf2, J)=s_OK then begin 
 J.CallNEwMetod();
end
else raise Exception.Create('объект не поддерживает новый IInterf2');