在 Delphi 中将 OleVariant 转换为对象

Question

我正在开发这个项目，我们没有项目大部分的源代码，但我们有包含一些信息的 .DLL 文件。 DLL 文件中存在错误。我能够创建包含错误的类的子类，并且我想向下转换在我可以访问它的点上已经存在的对象。问题是，在任何时候我可以访问该对象，它都会被转换为变体。我已尝试以下操作（编辑以删除上下文）：

tempSubclass := Subclass(ParentClass(Integer(oleVariantCast)));

但出现以下错误：

Could not convert variant of type (Dispatch) into type (Integer)

是否有其他方法可以从 OleVariant 中获取指向对象的指针和/或进行类型转换？

谢谢。

编辑：是的，父类实现了 IDispatch。 更正：父类实现一个继承自 IDispatch 的接口。

Answer 1

Dispatch Variant 是一个非常通用的接口，而不是一个类（这就是为什么它不能类型转换为 Delphi 对象 - 它不是一个，并且没有您尝试转换的类的 VMT成为）。

如果 DLL 包含类型库，您可以将其导入 Delphi，然后直接使用它包含的接口，而无需先尝试将它们转换为其他任何内容。

如果您有有关 DLL 中实际接口实现的文档，您可以编写一个使用该接口的 Delphi 类。您可以通过定义一个类型来表示接口来转换它，然后使用 as 访问它：

type
  TYourInterface=interface(IDispatch)
    // the interface definition here
  end;

var
  Intf: TYourInterface;
begin
  Intf := YuorOleVariant as TYourInterface;
  // work with interface from DLL using Intf.
  Intf := nil;
end;

Answer 2

首先尝试将类型转换为 IUnknown。

tempSubclass := Subclass(ParentClass(Integer(IUnknown(oleVariantCast))));