インターフェイスのsafecall関数メソッドでRTTI-callを作成するにはどうすればよいですか？

Question

私は、このテストプログラムインターフェイスを持つhttps://gist.github.com/real-mielofon/5002732

RttiValue := RttiMethod.Invoke(RttiInstance, [10]); 

とシンプルなユニットがあります。

unit Unit163; 

interface 

type 
{$M+} 
    ISafeIntf = interface 
    function TestMethod(aI: integer): integer; safecall; 
    end; 
{$M-} 
type 
    TSafeClass = class(TInterfacedObject, ISafeIntf) 
    public 
    function TestMethod(aI: integer): integer; safecall; 
    end; 

implementation 

function TSafeClass.TestMethod(aI: integer): integer; 
begin 
    result := aI+1; // Exception !! 
end; 

end. 

をし、それが手続きであるかそうでない場合、私は

result := aI+1; 

にKABOOMを持っていますsafecall、それでいいよ.--(

Answer 1

これを試した結果、コードを見て、私の結論はバグがあることです。 RTTIユニットは実際にメソッドの書き換えをsafecall実行しようとします。それは間違っているようです。プロジェクトをQCレポートとして提出し、stdcallとHRESULTの戻り値を使用して問題を回避することをお勧めします。