Интерфейс Delphi приведен с использованием TValue - PullRequest
Новая
       38

Интерфейс Delphi приведен с использованием TValue

1 голос
/ 10 июня 2010

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

Обратите внимание на следующее: 

program rtti_sb_1;
{$APPTYPE CONSOLE}
uses
  SysUtils, Rtti, TypInfo, mynamespace in 'mynamespace.pas';
var
  ctx:                  TRttiContext;
  InterfaceType:        TRttiType;
  Method:               TRttiMethod;
  ActualParentInstance: IParent;
  ChildInterfaceValue:  TValue;
  ParentInterfaceValue: TValue;
begin
  ctx := TRttiContext.Create;
  // Instantiation
  ActualParentInstance := TChild.Create as IParent;
  {$define WORKAROUND}
  {$ifdef WORKAROUND}
  InterfaceType := ctx.GetType(TypeInfo(IParent));
  InterfaceType := ctx.GetType(TypeInfo(IChild));
  {$endif}
  // Fetch interface type
  InterfaceType := ctx.FindType('mynamespace.IParent');
  // This cast is OK and ChildMethod is executed
  (ActualParentInstance as IChild).ChildMethod(100);
  // Create a TValue holding the interface
  TValue.Make(@ActualParentInstance, InterfaceType.Handle, ParentInterfaceValue);
  InterfaceType := ctx.FindType('mynamespace.IChild');
  // This cast doesn't work
  if ParentInterfaceValue.TryCast(InterfaceType.Handle, ChildInterfaceValue) then begin
    Method := InterfaceType.GetMethod('ChildMethod');
    if (Method <> nil) then begin
      Method.Invoke(ChildInterfaceValue, [100]);
    end;
  end;
  ReadLn;
end.

Содержимое mynamespace.pas выглядит следующим образом: 

{$M+}
IParent = interface
  ['{2375F59E-D432-4D7D-8D62-768F4225FFD1}']
  procedure ParentMethod(const Id: integer);
end;
{$M-}
IChild = interface(IParent)
  ['{6F89487E-5BB7-42FC-A760-38DA2329E0C5}']
  procedure ChildMethod(const Id: integer);
end;
TParent = class(TInterfacedObject, IParent)
public
  procedure ParentMethod(const Id: integer);
end;
TChild = class(TParent, IChild)
public
  procedure ChildMethod(const Id: integer);
end;

Для полноты реализации идет как 

procedure TParent.ParentMethod(const Id: integer);
begin
  WriteLn('ParentMethod executed. Id is ' + IntToStr(Id));
end;
procedure TChild.ChildMethod(const Id: integer);
begin
  WriteLn('ChildMethod executed. Id is ' + IntToStr(Id));
end;

Причину {$define WORKAROUND} можно найти в этом посте .

Вопрос: есть ли у меня возможность сделать желаемый тип при помощи RTTI? Другими словами: есть ли у меня способ вызвать IChild.ChildMethod, зная 1) квалифицированное имя IChild в виде строки и 2) ссылку на экземпляр TChild в качестве интерфейса IParent? (В конце концов, жестко закодированный литой работает отлично. Это вообще возможно?) Спасибо!

1 Ответ

2 голосов
/ 10 июня 2010

Это выглядит как довольно уродливый пример ленивого кодирования в RTTI.pas.В функции ConvIntf2Intf, которая заботится о приведении интерфейсов в пределах TValue, она явно только проверяет, используете ли вы IInterface.Любой другой интерфейс вернет false автоматически.Он может легко извлечь GUID (если он есть у вашего интерфейса) и попытаться вызвать QueryInterface, но по какой-то причине этого не происходит.Я бы доложил об этом КК.

...