मैं इंटरफ़ेस की सुरक्षित कार्य विधि के साथ आरटीटीआई-कॉल कैसे बना सकता हूं?

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 अगर यह प्रक्रिया है या नहीं सुरक्षित, तो यह ठीक है :-(

Answer 1

अब यह कोशिश करने के बाद, और कोड को देखा, मेरा निष्कर्ष यह है कि एक बग है। आरटीटीआई इकाई वास्तव में safecall विधि पुनः लिखने का प्रयास करती है। ऐसा लगता है कि यह गलत है। मैं अनुशंसा करता हूं कि आप अपनी परियोजना को क्यूसी रिपोर्ट के रूप में सबमिट करें, और stdcall का उपयोग करके HRESULT वापसी मूल्यों के साथ समस्या का समाधान करें।