|
@@ -918,6 +918,7 @@ type
|
|
|
|
|
|
TVirtualInterface = class(TInterfacedObject, IInterface)
|
|
TVirtualInterface = class(TInterfacedObject, IInterface)
|
|
private
|
|
private
|
|
|
|
+ // Add fields before
|
|
fGUID: TGUID;
|
|
fGUID: TGUID;
|
|
fOnInvoke: TVirtualInterfaceInvokeEvent;
|
|
fOnInvoke: TVirtualInterfaceInvokeEvent;
|
|
fContext: TRttiContext;
|
|
fContext: TRttiContext;
|
|
@@ -930,10 +931,9 @@ type
|
|
FIntfRTTI : trttitype;
|
|
FIntfRTTI : trttitype;
|
|
FThunk : TInterfaceThunk;
|
|
FThunk : TInterfaceThunk;
|
|
Procedure ThunkClassCallback(aInstance: Pointer; aMethod,aCount : Longint; aData: TInterfaceThunk.PArgData);
|
|
Procedure ThunkClassCallback(aInstance: Pointer; aMethod,aCount : Longint; aData: TInterfaceThunk.PArgData);
|
|
-{$ENDIF}
|
|
|
|
- // Add fields before
|
|
|
|
procedure CreateThunk(aPIID: PTypeInfo; T : trttitype; td : PInterfaceData);
|
|
procedure CreateThunk(aPIID: PTypeInfo; T : trttitype; td : PInterfaceData);
|
|
procedure DestroyThunk;
|
|
procedure DestroyThunk;
|
|
|
|
+{$ENDIF}
|
|
|
|
|
|
protected
|
|
protected
|
|
{$IFDEF USE_THUNK_CLASS}
|
|
{$IFDEF USE_THUNK_CLASS}
|