delphi中将对象转换为olevariant

如果您确实希望并且您确定两个对象处于同一过程中,则可以将任何tobject强制转换为整数,然后再返回tobject:

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

然后:

var
  anInt: Integer;
  MyObj: TMyObj;
begin
  anInt := GetMyObjAsVariant;
  MyObj := TMyObj(anInt);
end;

您可以编写并注册自定义变量类型;请查看 TSQLTimeStampVariantType 举个例子。

另一种方法是为类编写自动化包装器。双dispInterface自动支持通过 IDispatch 它得到了 OleVariant .

让您的对象实现一个接口并传递该接口。

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

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

我不能保证这是有效的,你应该按照tondrej的建议为你的类制作一个自动化包装器。如果你知道自己的路,应该不难。