Beliebige Klasse instanzieren

[Uwe Raabe]

Bei XE7 kannst du ein Interface direkt auf ein TObject casten und dort über ClassName die implementierende Klasse abfragen.

Delphi-Quellcode:

var
  intf: IMyInterface;
  implClassName: string;
begin
  implClassName := TObject(intf).ClassName;
end;

[amoibos]

Ich steht gerade auf den Schlauch weil ich nicht weiß worauf du hinauswillst.
Wenn ich den Konstruktor aufrufe muss das Objekt nicht gecastet werden nach der Implementierung?

[Uwe Raabe]

Zitat von amoibos:

Ich steht gerade auf den Schlauch weil ich nicht weiß worauf du hinauswillst.

Vielleicht gilt das ja auch umgekehrt? Ich hatte es so verstanden, daß du aus einer Interface-Instanz den Namen der Implementierenden Klasse ermitteln willst. Offenbar ist das aber nicht so.

Wenn natürliche Sprache nicht das erforderliche Verständnis für ein Problem vermittelt, versuch es doch mal mit etwas Code. Was willst du eigentlich erreichen?

[Mavarik]

Du suchst eine Interface -> ObjectFactory!

[DualCoreCpu]

Zitat von Mavarik:

Du suchst eine Interface -> ObjectFactory!

Habe jetzt gerade eben diesen ganz spontan diesen Link dazu gefunden:

http://docs.oracle.com/javase/7/docs...ctFactory.html

Ich glaub, das isses.

Muss das in Delphi selber gebaut werden oder gibt es da schon irgendwo was? Letzteres hoffentlich nicht erst in den Delphi Versionen nach 2006.

Zitat von amoibos:

Die klassische Factory ist ja statisch in dem Sinne, dass mir zur Laufzeit alle Implementierungen bekannt sein müssen, damit ich nach Typ unterscheiden kann. Das brauch und wollte ich eigentlich nicht. Ich will offen sein.

Willkommen im Club, ich suche ähnliches für die Nutzung von Freepascal Klassen in Delphi.

Guck mal den o.g. Link an. Ob dort die implemetierte Klasse auch dymamisch zugeordnet werden kann, lese ich aber so schnell dort jetzt nicht raus. Werde morgen mich intensiver damit beschäftigen.

Vielleicht lässt sich da auch eine auf die eigenen verwendeten Klassen spezialisierte Object Factory bauen. Werd ich ab morgen sehen, ob das geht. Und ob das mit vertretbarem Aufwand geht.

Hoffe aber immer noch, das es da irgendwas in Delphi schon eingebautes gibt, auch in den älteren Versionen.

[EDIT]

Klar, TInterfacedObject!!! Wär noch die Frage das Aufbaus der Dll mit der implemtierten Klasse(n). Und der Interface Unit. Aber da schau ich mir erst mal Plugin Quelltexte an in denen auch sowas gemacht wird.

.

[Mavarik]

Zitat von DualCoreCpu:

Habe jetzt gerade eben diesen ganz spontan diesen Link dazu gefunden:

http://docs.oracle.com/javase/7/docs...ctFactory.html

Java?

Zitat von DualCoreCpu:

Muss das in Delphi selber gebaut werden oder gibt es da schon irgendwo was? Letzteres hoffentlich nicht erst in den Delphi Versionen nach 2006.

Es gibt "bald" etwas... Momentan muss man das selber bauen...sind aber "nur" ein paar Zeilen...

[amoibos]

Wenn das ein paar Zeilen sind, hast du denn eine Implementierung hierfür?
Deine ist ja keine Lösung und die im Netz verkürzen das Problem auf eine Methode die überladen wird.
Sicher eine Lösung aber danach hab ich ja nicht gefragt.

[Sir Rufo]

Zitat von DualCoreCpu:

Klar, TInterfacedObject!!! Wär noch die Frage das Aufbaus der Dll mit der implemtierten Klasse(n). Und der Interface Unit. Aber da schau ich mir erst mal Plugin Quelltexte an in denen auch sowas gemacht wird.

Ob man wirklich von TInterfacedObject oder TInterfacedPersistent oder von TAggregatedObject oder doch eher von TContainedObject ableitet ... oder sogar die Implementierung ganz anders vollzieht (über eine Eigenschaft) ... das kann man pauschal nicht sagen, denn alle haben ihr spezielles Einsatzgebiet.

[DualCoreCpu]

@Uwe Raabe: Ich frage da mal, ab welcher Delphi Version das mit dem Typecast von TObject auch Interface überhaupt klappt.

Der TE weiß nicht was Du überhaupt gemeint hast, laut Angabe in seinem Beitrag hat er Delphi 5. Wenn der Typecast wirklich erst ab Delphi XE klappt, kann der TE das Feature mit dem Typecast nicht nutzen mit Delphi 5. Auch ich nicht ich habe Delphi 7 und Turbo Delphi (2006).

Mich interessiert die Frage aber auch weil ich demnächst eine Freepascal Klassensammlung nach Delphi portieren will. Da will ich mir die frustrierende Schritt für Schritt Übersetzung mit Delphi und dioe aufwendige Quellcodeanpassung sparen und auch auf Interfaces setzen, die dann dieselben öffentlichen Mthoden haben wie die Fpc Klassen.

Da ergibt sich aber die zweite Frage. Normalerweise sind die Getter und Setter in den Klassen private. Im Interface müssen die aber public sein, wie die Eigenschaften (properties) die von den Gettern und Settern gelesen und geschrieben werden. Gibt es da einen Workaround, der mir erspart, die Getter und Setter in den Fpc Klassen alle public zu setzen?

Ich versteh die Frage von @amoibos so das er Klassen hat, die er per Interface ansprechen will. So wie ich, der ich Klassen aus Freepascal auch in Delphi nutzen will, mir aber gerne die aufwendige Quellcodeanpassung ersparen will, stattdessen will ich eine DLL bauen, in der die Klassendefinition, direkt oder als eingebundene Unit mit der Klasse und das zugehörige Interface steht. Auf der Delphi Seite hab ich dann nur das Interface. Die Implementation der Klasse befindet sich in der Dll. Nun will die Klasse in Delphi verwenden. In genau diesem Sinne versthe ich auch @amoibos Frage. Nun muss ja dem Interface mitgeteilt werden, auf welche Klassenimplementierung sich das Interface beziehen soll. Ich will dann das Interface anstelle der Klasse nutzen und das genauso, als ob ich die Fpc Klasse portiert hätte. Tprocess aus Lazarus ist so eine überaus sinnvolle Komponente, wenn ich von meiner Anwendung aus ein externes Programm aufrufen will. Es gibt noch einige andere, die es für Delphi so nicht gibt.

[amoibos]

Die klassische Factory ist ja statisch in dem Sinne, dass mir zur Laufzeit alle Implementierungen bekannt sein müssen, damit ich nach Typ unterscheiden kann. Das brauch und wollte ich eigentlich nicht. Ich will offen sein.