关于Delphi接口不能强制转化的补充说明

其实Delphi为了速度的原因,对于接口是采用直接解析接口在实例中的偏移来得到的.这个可以从下面的代码中看到:


var


mInt: ITestInterface;


mInt2: ITestInterface2;


begin


mInt := TTestInterface2.Create;


mInt2 := TTestInterface2.Create;


end;

其中 mInt := TTestInterface2.Create 代码为:


mov dl, $01


mov eax, [$00452e4]


call TObject.Create


mov edx, eax


jz +$03


sub edx, -$0C


lea eax, [ebp-$04]


call @IntfCopy



而 mInt2 := TTestInterface2.Create 代码为:


mov dl, $01


mov eax, [$00452e4]


call TObject.Create


mov edx, eax


jz +$03


sub edx, -$0C


lea eax, [ebp-$08]


call @IntfCopy

但 对于接口之间的转化时, CSDN的halfdream(哈欠) 兄说的很对, Delphi在call @IntfCast里调用了@QueryInterface, 而这里面的代码, 其实是在System的TObject对象的GetInterface这个方法中, 但这个方法有个问题, 它需要GUID, 但我们实际可以在Delphi中使用无GUID的接口, 那么就会发现, 根本无法进行转化

比如:


INoGUIDInterface = interface


procedure NoGUID;


end;




INoGUIDInterface2 = interface


procedure NoGUID2;


end;




var


mInt: INoGUIDInterface;


mInt2: INoGUIDInterface2;


begin


mInt := TTestNoGUIDInterface2.Create;


mInt.NoGUID;




mInt2 := mInt as INoGUIDInterface2;


mInt2.NoGUID2;


end;

编译就会出错了, Operator not applicable to this operand type 根本就不支持. 所以表明接口时还是随手加上GUID的比较好