delphi - 在 Delphi 中将对象转换为 OleVariant

Question

有没有办法在 OleVariant 中传递包装并解开 TObject 后代？我正在尝试跨自动化对象传递 TObject。我知道这不是一个好主意，但我没有更好的选择。

如果有任何区别，该对象将在来自同一自动化 dll 的对象之间传递。

类似这样的事情:

function GetMyObjAsVariant;
var
  MyObj: TMyObj;
begin
  MyObj := TMyObj.Create;
  result := OleVariant(MyObj);
end;

客户端将其用作

var
  MyObj: TMyObj;
begin
  MyObj := GetMyObjAsVariant as TMyObj;
end;

编译失败，返回

E2015 Operator not applicable to this operand type.

Answer 1

您可以编写并注册自定义变体类型；查看 TSQLTimeStampVariantType 的示例。

另一种方法是为您的类编写一个自动化包装器。双调度接口(interface)通过 IDispatch 自动支持后期绑定(bind)，而 OleVariant 支持此功能。