डेल्फी आरटीआई: इंटरफेस के गुणों का अन्वेषण करें?

Question

क्या आरटीआई के साथ इंटरफेस की संपत्तियों का पता लगाने का कोई तरीका है?

निम्नलिखित कोड काम नहीं करता:

procedure ExploreProps; 
var 
    Ctx: TRttiContext; 
    RttiType: TRttiType; 
    RttiProp: TRttiProp; 
begin 
    RttiType := Ctx.GetType(TypeInfo(IMyInterface)); 
    for RttiProp in RttiType.GetProperties do 
    Writeln(RttiProp.ToString); 
end; 

किसी को भी एक समाधान कैसे सही ढंग से यह करने के लिए है?

Answer 1

इंटरफेस कार्यों का संग्रह है। वे वास्तव में वस्तुओं के तरीके के गुण नहीं है; यह सिंटैक्टिक चीनी का एक सा है जो संकलक आपके लिए कोड लिखना आसान बनाता है। अंतर यह है कि वस्तुओं पर, गुण निजी और संरक्षित सदस्यों तक नियंत्रित पहुंच की अनुमति देते हैं, जबकि इंटरफेस पर, सभी सदस्य सार्वजनिक होते हैं इसलिए गुणों की आवश्यकता नहीं होती है।

Answer 2

जैसा कि मुझे पता है, सामान्य इंटरफेस के लिए कोई समर्थन नहीं है। आप {$ एम +} जोड़ सकते हैं और फिर पुनः प्रयास करें।

Answer 3

देर से उत्तर, लेकिन आप अपने इंटरफे को TObject में टाइप कर सकते हैं, उदा।

RttiType := Ctx.GetType(TObject(IMyInterface).ClassInfo); 

Answer 4

अपने इंटरफेस

function GetObject: TObject; 

में इस समारोह जोड़ें और वर्ग में कार्यान्वित करें। उपयोग RTTI साथ GetObject समारोह दिनचर्या

var 
    obj: IPerson; 
begin 
    obj := TPerson.Create; 
    Count := GetPropList(obj.GetObject.ClassInfo, tkAny, @List); 
end; 

कृपया ध्यान दें कि अपने वर्ग TInterfacedPersistent से विरासत में मिला दिया जाना चाहिए TInterfacedObject

TPerson = class(TInterfacedPersistent, IPerson)