为什么不能将封送接口作为整数（或指针）传递

Question

我将接口的引用从 Visio 加载项传递到 MyCOMServer (Delphi 中的接口编组必须在 MyCOMServer 的内部方法中将接口作为指针传递。我尝试将接口作为接口指针传递给内部方法，但是在尝试调用接口方法时进行反向转换后出现异常。简单的例子（第一个块执行没有错误，但在第二个块我在处理 IVApplication 接口的属性后得到异常）：

procedure TMyCOMServer.test(const Interface_:IDispatch); stdcall;
var 
  IMy:_IMyInterface;
  V: Variant;
  Str: String;
  I: integer;
  Vis: IVApplication;
begin 

  ......
  {First code Block}
  Self.QuaryInterface(_IMyInterface,IMy);
  str := IMy.ApplicationName;
  V := Integer(IMy);
  i := V;
  Pointer(IMy) :=  Pointer(i);
  str := IMy.SomeProperty; // normal completion

  {Second code Block}
  str := (Interface_ as IVApplication).Path;
  V := Interface_;
  I := V;
  Pointer(Vis) :=  Pointer(i);
  str := Vis.Path;  // 'access violation at 0x76358e29: read of address 0xfeeefeee' 

end;

为什么我不能这样做？

Answer 1

当您有一个实现多个接口的对象并在它们之间进行转换时，您将获得不同的地址。它必须与如何找到这些接口的方法有关。

假设您有两个接口和一个实现它们的类，这些方法仅显示一条带有方法名的消息：

type
  IMyIntfA = interface
    ['{21ADE2EF-55BB-4B78-A23F-9BB92BE55683}']
    procedure A;
    procedure X;
  end;

  IMyIntfB = interface
    ['{7E1B90CF-569B-4DD1-8E46-7E7255D2373A}']
    procedure B;
  end;

  TMyObject = class(TInterfacedObject, IMyIntfA, IMyIntfB, IUnknown)
  public
    procedure A;
    procedure X;
    procedure B;
  end;

当您告诉编译器从 IMyIntfA 调用 A 时，它知道 A 位于 IMyIntfA 的地址加上偏移量。这同样适用于从 IMyIntfB 调用方法 B。
但是你所做的是将IMyIntfB的引用放在IMyIntfA的var中，然后调用方法A。结果是编译器计算的方法的地址完全错误。

var
  lIntfA: IMyInterfaceA;
  lIntfB: IMyInterfaceB;
begin
  lIntfA := TMyObject.Create; //TMyObject implements IMyInterfA, IMyInterfB
  lInfB := lIntfA as IMyInterfaceB;

  if Integer(lIntfA) <> Integer(lIntfB) then
    ShowMessage('I told you so');

  Pointer(lIntfA) := Pointer(lIntfB);

  lIntfA.A; //procedure B is called, because B is at "Offset 1", like A
  lIntfA.X; //total mayhem, X is at "Offset 2", but there is nothing at IMyIntfB + offset 2
end;

PS：我不是专家，我不知道所有内容如何实现的技术细节。这只是一个粗略的解释，应该可以让您了解代码出错的原因。如果您希望代码成功，请执行以下操作：

Vis := Interface_ as IVApplication;
Str := (Vis.Path);

Answer 2

我只是猜测，因为我对 COM 不太了解，但是将接口转换为整数或指针确实会扰乱内部引用计数。您的界面可能会被发布，这可以解释访问冲突。

编辑：我想知道Pointer(Vis) := Pointer(i)是否有效。强制转换不应该创建一个临时对象吗？也许这就是为什么 Vis 没有被分配的原因？