Jak wykonać połączenie RTTI z interfejsem funkcji safeecall?

Question

mam ten program testowy https://gist.github.com/real-mielofon/5002732

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

i proste urządzenie z interfejsem:

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. 

i mam Kaboom na

result := aI+1; 

jeśli jest to procedura, czy nie jest safecall, to wszystko w porządku :-(

Answer 1

Po wypróbowaniu tego teraz i spojrzeniu na kod, mój wniosek jest taki, że jest błąd. Jednostka RTTI rzeczywiście próbuje wykonać ponowne pisanie metody safecall. Wydaje się po prostu źle. Zalecam, aby przesłać projekt jako raport kontroli jakości i obejść problem, zwracając wartości: stdcall z wartościami .