Làm cách nào để thực hiện cuộc gọi RTTI với phương thức chức năng safecall của giao diện?

Question

tôi có chương trình thử nghiệm này https://gist.github.com/real-mielofon/5002732

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

và đơn vị đơn giản với giao diện:

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. 

và tôi có kaboom trên

result := aI+1; 

nếu nó là thủ tục hay không là safecall, thì được rồi :-(

Answer 1

Bây giờ đã tự mình thử, và nhìn vào mã, kết luận của tôi là có một lỗi. Đơn vị RTTI thực sự cố gắng thực hiện viết lại phương thức safecall. Nó chỉ xuất hiện để làm cho nó sai. Tôi khuyên bạn nên gửi dự án của mình dưới dạng báo cáo QC và giải quyết sự cố bằng cách sử dụng stdcall với giá trị trả về HRESULT.