TInterfaceThunk¶

type

  TInterfaceThunk = class(TInterfacedObject)
  public
    TArgData = record
      addr: pointer;
      info: pointer;
      idx: SmallInt;
      ahigh: SizeInt = Int64;
    end;
    PArgData = ^TargData;
    TThunkCallBack = procedure(aInstance: Pointer; aMethod: LongInt; 
                           aCount: LongInt; aData: PArgData) of object;
    TQueryInterfaceCallback = procedure(iid: TGUID; out Result: LongInt; 
                                    out aIntf) of object;
    constructor create;
    function InterfaceVMTOffset : Word;
    property OnQueryInterface: TQueryInterfaceCallback; {rw}
  end;