求救！如何转换OleVariant或Variant为接口类型interface?

Question

VARIANT 获得的接口是IDiapatch接口，
c代码
VARIANT var；
IDispatch *pDispatch
if(var.vt==VT_BYREF|VT_DISPATCH)
{
      pDispatch=*var.ppdispVal
    
}
else if(var.vt==VT_DISPATCH)
{
    pDispatch=var.pdispVal
}

Answer 1

是否可以这样
var 
  v: Variant;
  I: TYourInterface;
begin
  v := Get_EmbeddedObjects;
  if (VarType(v) = varDispatch) or (VarType(v) = varUnknown) then
    I := v as TYourInterface;
end;

Answer 2

可以使用QueryInterface方法：
IDispatch(InterfaceVariant).QueryInterface(MyGuid,fTemp);