RTTI Problem

[TurboMagic]

Hallo,

ich versuche gerade mein Glück mit Rtti und habe mir mit Hilfe der Hilfe
diesen Code zusammengestoppelt, der jedoch leider nicht funktioniert:

Delphi-Quellcode:

procedure TProduct.Assign(Product: IProduct);
var
  LContext      : TRttiContext;
  LInstanceType : TRttiInstanceType;
  LType         : TRttiType;
  LInterface    : TRttiInterfaceType;
  Props         : TArray<TRttiProperty>;
  Value         : TValue;
begin
  LContext := TRttiContext.Create;
  try
    LType         := LContext.GetType(TProduct);
    LInstanceType := LType.AsInstance;
    LInstanceType.GetInterface(TGUID.Create('{108A3B28-575B-423F-AE2E-1D8354E3289C}'),
                               LInterface);
    Props         := LInterface.GetProperties;
end;

Was geht nicht?
LInterface ist nil, also scheitert GetInterface.
Das IProduct Interface besitzt jedoch die im Code angegebene GUIID und wenn ich da rein debugge
wird diese GUIID scheinbar auch richtig erzeugt. Nur das Interface wird intern irgendwie nicht
gefunden.

Nein, RTTI Hab' ich in der betreffenden Unit nicht ausgemacht. IProduct erbt von einem anderen
selbst definierten Interface, das hat aber seine eigene GUID und erbt nicht weiter (bzw. IInterface).

Woran liegt das, dass das nicht gefunden wird?
Das Programm benutzt zur Laufzeit schließlich erfolgreich jede Menge IProducts...

[Uwe Raabe]

Der Aufruf LInstanceType.GetInterface versucht das gefragte Interface von LInstanceType (also einer Instanz von TRttiInstanceType) zu bekommen. GetInterface ist in TObject deklariert und hat mit RTTI überhaupt nichts zu tun.

Ich bin mir noch nicht ganz sicher was du erreichen willst, daher kann ich nicht sagen wie es richtig wäre.

[TurboMagic]

Ok, was ich erreichen will ist eigentlich einfach:

- ermittle eine Liste aller Properties des IProduct Interfaces
- iteriere durch die Liste
- lies den jeweiligen property Wert des Product: IProduct parameters
- weise diesen dem selben Property der self Instanz zu (die ist ja auch ein TProduct und somit ein IProduct)

[Uwe Raabe]

Zitat von TurboMagic:

- ermittle eine Liste aller Properties des IProduct Interfaces

Damit wirst du wohl kein Glück haben: RSP-21395

[TurboMagic]

Ok, wen das so ist, muss ich es halt "zu Fuß" umsetzen.
Geht auch, man muss halt nur bei jeder Erweiterung dran denken das nachzuziehen...

[QuickAndDirty]

Edit:
War quatsch

[Uwe Raabe]

Zitat von TurboMagic:

muss ich es halt "zu Fuß" umsetzen.

Oft ist das auch die saubere Herangehensweise, denn nicht immer sollen oder können alle Properties so einfach kopiert werden. Auch dabei sind dann die zukünftigen Erweiterungen die Stolperfallen, die man meist nicht auf dem Schirm hat (weil, "läuft ja alles automatisch").

[himitsu]

Nja, interfaces besitzen offiziell ja auch keine Property, auch wenn mehrere Compiler sowas anbieten (teilweise auch automatisch, für GetXXX- und SetXXX-Methoden).
OK, in der Interfacedeklaration kann es somit nicht drin sein, aber hätte eigentlich dennoch erwartet, dass es Delpgi dennoch in der RTTI auflistet.


Bei Records, welche eventuell irgendwann mal erweitert werden, füge ich manchmal an solchen Stellen ein {$IF SizeOf(TMyRecord) <> 123} {MESSAGE Warn 'guck ma'} {$IFEND} (oder Hint/Error) ein.

Ist das ein eigenes Interface?
Hier wäre es dann vielleicht einfacher, wenn du dir einen anderen Standard ansiehts. (TPersistent.Assign)
Keine Ahnung, ob man für Interfaces auch einen Record-Helper schreiben könnte, falls es nichts Eigenes ist.

[Dennis07]

Zitat von himitsu:

OK, in der Interfacedeklaration kann es somit nicht drin sein, aber hätte eigentlich dennoch erwartet, dass es Delpgi dennoch in der RTTI auflistet.

Interface-Properties sind, wie du oben schriebst, halt keine "echten" Properties. Sie haben auch noch andere Einschränkungen. Sie sind wirklich ausschließlich "semantischer Zucker" und werden vom Compiler nicht weiter beachtet. Interfaces-Properties haben deshalb keine RTTI, du musst sie also entweder über die Klassentypen abgreifen (ginge ja auch), oder über den Getter/Setter-Name.

Zitat von himitsu:

Keine Ahnung, ob man für Interfaces auch einen Record-Helper schreiben könnte, falls es nichts Eigenes ist.

Kann man nicht.

[jaenicke]

Für den Zweck könnte man auch einen Pascal-Skriptparser verwenden. Wenn man die Units mit den Interfaces im Buildprozess als Ressource anhängt, kann man die Informationen von dort ziehen. Da die gleichen Dateien auch zum Kompilieren verwendet werden, sind die Daten auch immer aktuell.