Как хранить интерфейсные ссылки в StringGrid?

[snegok74]

Есть описание двух интерфейсов

  ILine = interface
    ['{AAAAAAAA-AAAA-AAAA-AAAA-AAAAAAAA1234}']
  end;
  IBlock = interface
    ['{BBBBBBBB-BBBB-BBBB-BBBB-BBBBBBBB1234}']
  end;

есть описание объекта для хранения интерфейсной ссылки в объектной переменной StrigGrid'а

  TDataObject = class
  public
    DataInterface: IUnknown;
    // при создании объекта переданая интерфейсная ссылка записывается в
    // переменную DataInterface
    constructor Create(AInterface: IUnknown);
  end;

теперь я могу хранить интерфейсные ссылки в ячейках StringGrid'а

var
  Line:  ILine;
  Block: IBlock;

  StringGrid1.Objects[1,1] := TDataObject.Create(Line);
  StringGrid1.Objects[2,2] := TDataObject.Create(Block);

теперь получаю интерфейс из объектов из StringGrid'а

var
  IObject: IUnknown;
  ..
  IObject := TDataObject(StringGrid1.Objects[1, 1]).DataInterface;

и теперь проверяя содержит ли моя интерфейсная ссылка нужный мне интерфейс ВСЕГДА получаю True

  if Supports(IObject, ILine) then
    ShowMessage('ILine');
  if Supports(IObject, IBlock) then
    ShowMessage('IBlock');

Что я делаю не так? Может вообще хранение ссылок интерфейсных не так делается в StringGrid'е?

[snegok74]

можно, наверное, эти интерфейсы наследовать от одного общего интерфейса в котором описать функцию, которая будет возвращать имя или GUID интерфейса:

  IData = interface
    ['{00000000-0000-0000-0000-AAAAAAAA1234}']
    function InterfaceName: WideString;
    // или
    function InterfaceGUID: TGUID;
  end;
  ILine = interface(IData)
    ['{AAAAAAAA-AAAA-AAAA-AAAA-AAAAAAAA1234}']
    ...
  end;
  IBlock = interface(IData)
    ['{BBBBBBBB-BBBB-BBBB-BBBB-BBBBBBBB1234}']
    ...
  end;

но как то это, "неправильно", чтоли

[evg_m]

и теперь проверяя содержит ли моя интерфейсная ссылка нужный мне интерфейс ВСЕГДА получаю True

почему мы бы и не получать, если ...
объект на который ссылается интерфейс поддерживает ОБА интерфейса.

[snegok74]

объект поддерживает оба интерфейса, но содержит в данный момент только один.
а как тогда быть, как узнать какой именно он хранит в себе ?

[evg_m]

объект поддерживает оба интерфейса, но содержит в данный момент только один.

если объект поддерживает, значит он содержит.

как узнать какой именно он хранит в себе ?

интерфейсная ссылка хранит в себе ОБЪЕКТ, который ...

а какая разница-то вам. вы можете работать по любому приглянувшемуся вам(тому который имеет нужный функционал) и доступному.

[snegok74]

Сообщение от evg_m

а какая разница-то вам. вы можете работать по любому приглянувшемуся вам(тому который имеет нужный функционал) и доступному.

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

  if Supports(IObject, ILine) then
    SubCount := ILine(IObject).CharsCount
  else if Supports(IObject, IBlock) then
    SubCount := IBlock(IObject).LinesCount;

вот только я не понял, вы таки не знаете как в моем случае получить тип/имя/GUID интерфеса по ссылке, или так искуссно меня к ответу подводите?

[evg_m]

для того чтобы работать по "любому приглянувшемуся" мне и надо знать, по какому.

  if Supports(IObject, ILine, Lines) then // если поддержан интерфейс с ИМЕНЕМ Iline занести его в Lines
    SubCount := ILine(IObject)Lines.CharsCount //далее работаем по интефейсу Iline в переменной Lines
  else if Supports(IObject, IBlock, Bloks) then  // а если не можем
    SubCount := IBlock(IObject)Bloks.LinesCount; // работаем по интефейсу IBlock

if Lines<>nil then
  Lines.....
else if Bloks<>nil then
  Bloks....

а еще можно этим самым интерфейсам "обучить" TDataObject.
точнее обучить "общим" функциям и в программе работать исключительно с TDataObject(data).subCount
а уж TDataObject пусть "сам" решает чем (каким интерфейсом) он будет пользоваться.

[snegok74]

так и не получилось у меня отловить, что за интерфейс(а за ним объект) скрывается за IUnknown...

var
  IObject: IUnknown;
  Text: string;
  Blocks: IBlock;
  Lines: ILine;
begin
  IObject := TDataObject(IntGrid.Objects[ACol, ARow]).DataInterface;

  // вариант 1, проверяем тип по результату Supports
  {$IFDEF VARIANT1}
    if Supports( IObject, ILine,  Lines) then
      Text := 'Ln'
    else if Supports( IObject, IBlock, Blocks) then
      Text := 'Bl';

  // вариант 2, проверяем тип по возвращенной переменной из Supports
  {$ELSE}
    Supports( IObject, ILine,  Lines);
    Supports( IObject, IBlock, Blocks);
    if Lines <> nil then
      Text := 'Ln'
    else if Blocks <> nil then
      Text := 'Bl';
  {$ENDIF}

и в первом ...
003.png
и во втором случаях...
004.PNG
отладчик точно видит что за объект кроется за интерфейсом, но...
что то я делаю не так.

А поэтому, и по Вашей рекомендации, я решил "обучить" TDataObject пониманию того, что за интерфейс у него хранится.

evg_m, спасибо за советы и поддержку.

[Black Fregat]

Сообщение от snegok74

что за интерфейс(а за ним объект) скрывается за IUnknown...

У Вас какая-то каша в голове.. IUnknown - это минимальный интерфейс, его должен уметь поддерживать любой объект. Через него приложение, создавшее объект, получает ссылки на другие интерфейсы

[snegok74]

Конечно каша.
Было бы все понятно, кодил бы и вопросов не задавал.
И, именно поэтому, пытался выяснить как хранить в StringGrid1.Objects разные интерфейсные ссылки, верне сказать, как потом распознавать какая хранится в определенной ячейке.
В любом случае, задача решена, хоть и другим способом.