Delphi 10.2 Tokyo - 接口提供的铸造对象

Question

我正在尝试将我的应用程序从 Delphi XE8 转换为 10.2 Tokyo。我遇到了奇怪的运行时异常，它使用了由 interfafce acrocss 包（bpl's）提供的转换对象。当我尝试使用“as”关键字投射对象时，我得到了 运行时出现此异常：

Project Project1.exe 引发异常类 EInvalidCast 并带有消息 '无效的类类型转换'

代码如下：

单独包中的接口 Plugin_interface.bpl ：

unit MainIntf;

interface
  Type IMainInft = interface
  ['{FE08C4A2-069C-4B8C-BB1B-445348CAB6A0}']
    function GetForm : TObject;
  end;

implementation

end.

Project1.exe中提供的接口实现：

unit MainImpl;

interface
uses MainIntf;

  Type TMain = class(TInterfacedObject,IInterface,IMainInft)
    function GetForm : TObject;
end;


implementation
uses unit1;

function TMain.GetForm: TObject ;
begin
  result:=Form1; // interafce is implemented on the main form so Form1 is rechable form here
end;


end.

最后在另一个包“plugin.bpl”中，我试图从接口获取对象：

unit Plugin_main;

interface
uses Mainintf, Vcl.Forms;

type TPlugin = class (Tobject)
  IIMyRefernceToMianIntf: IMainInft;
end;

function RegisterPlugin(AMainIntf: IMainInft): TForm ; export;
procedure UnRegisterPlugin; export;

exports
  RegisterPlugin,
  UnRegisterPlugin;

var
 Plugin_obj:  TPlugin;

implementation
uses vcl.Dialogs,System.Classes ;

function RegisterPlugin(AMainIntf: IMainInft): TForm ;
var
 MyForm : TForm ;
begin
  Plugin_obj:=TPlugin.Create;
  Plugin_obj.IIMyRefernceToMianIntf:=AMainIntf;

  if AMainIntf.GetForm is TForm then
    Showmessage ('Great it is a Tform') // will not happen
  else
    Showmessage ('Sorry  it is not Tform'); // will happen 
  if TComponent (AMainIntf.GetForm).Classname='TForm1' then
    Showmessage ('What ?? It is TForm1 decsendant from TForm  so is it TForm after all ?!');  // will happen 
// result:=  AMainIntf.GetForm as TForm  -- This will rise na exception
  result:= TForm( AMainIntf.GetForm)  ; // this will work

end;

procedure UnRegisterPlugin;
begin
  Plugin_obj.Free;
end;
end.

为什么我不能使用“as”和“is”关键字。 只有硬猫会做，但我讨厌这样做。 在 XE8 编译器上，一切都按预期工作 - XE 10.2 tokyo 编译器存在问题

Answer 1

“is”关键字检查实际对象以查看它是否属于您所要求的类型。所以，检查一下：

if AMainIntf.GetForm is TForm then
Showmessage ('Great it is a Tform') // will not happen

不会发生，因为 GetForm 返回 TObject 而不是 TForm。使用“is”检查也意味着您正在检查可铸造性，即使用“as”关键字的能力。由于“is”检查失败，因此该命令也会失败：

result:=  AMainIntf.GetForm as TForm;

您的下一个选择是按照您的方式对 GetForm 进行硬转换：

TForm(AMainIntf.GetForm);

之所以有效，是因为此转换不检查 GetForm 是否属于 TForm 类型。由于您在 TMain 中返回了一个表单，因此您可以放心地选择这种硬选。

话虽如此，但为什么不直接返回TForm 而不是TObject？您是否在返回 TForm 以外的其他类型的其他类中使用 IMainInft？