BPL- Packages zur Laufzeit laden-Typecasting geht nicht ganz

[alias5000]

Hallo!
Ich beschäftige mich im Moment mit den BPL- Packages, sowie dem dynamischen Einbinden von in BPLs ausgelagerte Klassen.
Dazu habe ich jetzt eine Frage, bei der ich absolut nicht weiterkomme.

Ich habe in meinem Hauptprogramm eine Klasse:

Delphi-Quellcode:

type
TCustomConnection = class(TComponent)
  private
    Function GetDescription: string;
  public
    Property Description: string read GetDescription;
end;

implementation

{...}

function GetDescription: string;
begin
  Result := 'Das ist die Basisklasse';
end;

So und mein Ziel ist es jetzt, von TCustomConnection abgeleitete Klassen in BPLs zu packen. Dabei führen die abgeleiteten Klassen keine neuen Methoden oder Properties ein, sondern überschreiben nur bereits in der TCustomConnection bekannte Methoden und Properties. Wenn ich jetzt im Hauptprogramm (was selber nur die Klasse TCustomConnection kennt) die entsprechende abgeleitete BPL-Klasse lade, möchte ich die Methoden der Abgeleiteten Klasse ausführen, nicht die von TCustomConnection.

Im Hauptprogramm hole ich mir die Klasse auf folgende Weise, wobei die BPL zu dem Zeitpunkt bereits erfolgreich in den Speicher geladen ist.

Delphi-Quellcode:

Procedure LoadClass(ClassName: string; var Connection: TCustomConnection);
var AClass: TPersistenClass;
begin
  AClass := GetClass(HelpComponent.ConnectionComponentName);
  Connection := TConnectionClass(AClass).Create(self) as TCustomConnection; // TConnectionClass = class of TCustomConnection
end;

Das Problem leigt jetzt ganz einfach darin, dass ich für Connection.Description 'Dies ist die Basisklasse' angezeigt bekomme und nicht den Text, den ich in der Nachfolgeklasse vorgebe.

Auf welchem Weg komme ich aber da hin? Das Problem liegt halt darin, dass das Hauptprogramm selber die abgeleitete Klasse zur Entwurfszeit nicht kennt. Ich kann daher hierarchisch gesehen höchstens bis TCustomConnection gehen, oder?

Vielen Dank und beste Grüße
alias5000

PS: Die Basisklasse TCustomConnection ist sowohl im Package als auch in der Hauptanwendung bekannt

[uligerhardt]

Zitat von alias5000:

Das Problem leigt jetzt ganz einfach darin, dass ich für Connection.Description 'Dies ist die Basisklasse' angezeigt bekomme und nicht den Text, den ich in der Nachfolgeklasse vorgebe.

Mach GetDescription virtuell.

Uli.

[TBx]

..

Zitat von uligerhardt:

Mach GetDescription virtuell.

und am besten in der Basisklasse auch noch abstract, sodaß jeder Nachfahre auch garantiert die gewünsachte Methode selbst implementiert.


Gruß

onlinekater

[alias5000]

In dem Fall bekomme ich dann einen AbstractError, an der Stelle, an der ich in der Hauptanwendung ein Connection.Description ausführe

[uligerhardt]

Zitat von alias5000:

In dem Fall bekomme ich dann einen AbstractError, an der Stelle, an der ich in der Hauptanwendung ein Connection.Description ausführe

Du musst die Routine dann natürlich auch in den abgeleiteten Klassen überschreiben. Dabei "override" nicht vergessen.