Ошибка при работе с интерфейсами

[alexprey]

GunSmoker, что то не очень догнал.

type
 IGetSelf = interface
  function GetObject: TObject;
 end;
 IMyObject = interface
  procedure Do;
 end;
 TMyObject = class(TInterfacedObject,IMyObject,IGetSelf)
  function GetObject: TObject;
  procedure Do;
 end;

Так чтоли?

[GunSmoker]

Так.

GUID только присвойте, а то интерфейс не извлечёте.

У библиотеки на руках будет ссылка на IMyObject. Она от него получит IGetSelf, а он даст реализующий объект:

function TMyObject.GetObject: TObject;
begin
  Result := Self;
end;

[alexprey]

Ладно сейчас попробую

[alexprey]

так что то опять не понимаю как мне достать объект из IMyObject
с помощью QueryInterface, где в IID указать GUID IGetSelf?

[GunSmoker]

В новых Delphi:

var
  I: IMyObject;
  O: TMyObject;
begin
  O := (I as IGetSelf).GetObject;

В старых Delphi:

var
  I: IMyObject;
  G: IGetSelf;
  O: TMyObject;
begin
  if I.QueryInterface(IGetSelf, G) then
    O := G.GetObject;

или:

var
  I: IMyObject;
  G: IGetSelf;
  O: TMyObject;
begin
  if Supports(I, IGetSelf, G) then
    O := G.GetObject;

[alexprey]

Спасибо. Теперь разобрался, ошибку больше не выдает.