Hi,
ich habe leider nichts passendes gefunden, deshalb hier meine Frage:
Es geht um Interfaces in Verbindung mit einer dynamisch geladenen Klasse über LoadPackage und mehreren Instanzen.
IClassCLCPump300 ist das Interface zu der Klasse
Die Klasse sind so aus:
Delphi-Quellcode:
type
TfrmCLCPump300 =
class(TForm, IClassCLCPump300)
//Das Package wird so geladen:
FPackageModule := LoadPackage(FPackageName);
FMyClass := GetClass('
TfrmCLCPump300');
//Danach soll eine (oder mehrere) Instanz erzeugt werden:
FCLCPump300 := TComponentClass(FMyClass).Create(Self)
as TCustomForm;
if Supports(FCLCPump300, IClassCLCPump300, ICLCPump300)
then
begin
// hier soll eine Funktion von der erzeugten Klasse aufgerufen werden
Result:=IClassCLCPump300(FCLCPump300).GetObject;
und hier beginnt das Dilemma:
Typecasting IClassCLCPump300(FCLCPump300) führt zu einem Compilerfehler,
da IClassCLCPump300 und TCustomform inkompatible Typen sind.
Hat einer eine Idee ?
Gruß
Gargano