Delphi Rtti: Przeglądaj właściwości interfejsów?

Czy istnieje sposób na poznanie właściwości interfejsu za pomocą Rtti?Delphi Rtti: Przeglądaj właściwości interfejsów?

Poniższy kod nie działa:

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;

Czy ktoś rozwiązanie jak to zrobić poprawnie?

Źródło

2010-09-12 Christian Metzler

Interfejsy to kolekcje funkcji. Nie mają właściwości tak jak obiekty; to tylko trochę syntaktycznego cukru, który kompilator dodaje, aby ułatwić pisanie dla nich kodu. Różnica polega na tym, że w obiektach właściwości umożliwiają kontrolowany dostęp do prywatnych i chronionych członków, podczas gdy na interfejsach wszyscy członkowie są publiczni, więc nie ma potrzeby korzystania z właściwości.

Źródło

2010-09-12 14:44:17

Ok, ale odkrywanie interfejsy metod nie działa albo ... Tylko zamieniła pętlę for za pomocą metody RttiType.GetMethods, nadal nie uzyskała żadnych wyników. –

@ Chrześcijanin: Po prostu spojrzałem na kod systemu RTTI i wiele interfejsów w standardowych bibliotekach zostało skonfigurowanych bez wygenerowanego dla nich RTTI. Nie jestem pewien, jakie reguły są dla generowania rozszerzonego RTTI dla typów interfejsów, ponieważ wydaje się być inny niż generowanie rozszerzonego RTTI dla klas lub rekordów. Może Barry Kelly lub Allen Bauer mogliby odpowiedzieć na to pytanie? –

Typ interfejsu musi mieć "{M +}" zastosowany do niego, aby 'TRttiType.GetMethods()' zgłosić metody interfejsu. –

Jak wiadomo, nie ma obsługi normalnych interfejsów. Możesz dodać {$ M +}, a następnie spróbować ponownie.

Źródło

2010-09-13 00:42:46

-1

późna odpowiedź, ale możesz wpisać swój interfa na TObject, np.

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

Źródło

2011-01-20 14:17:16 webcss

To jest nieprawidłowe i niebezpieczne. Ze względu na układy pamięci interfejsów nie można odsyłać do obiektów. Musiałbyś dodać funkcję do interfejsu, aby powrócić do obiektu (jak w odpowiedzi @FLICKERs). –

Dodaj tę funkcję w interfejsie

function GetObject: TObject;

i wdrożyć go w klasie. wykorzystanie funkcji GetObject z RTTI rutyny

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

Należy pamiętać, że klasa powinna być dziedziczone od TInterfacedPersistent nie TInterfacedObject

TPerson = class(TInterfacedPersistent, IPerson)

Źródło

2012-12-05 21:22:27 FLICKER

Delphi Rtti: Przeglądaj właściwości interfejsów?

Odpowiedz

Powiązane problemy