Einzelnen Beitrag anzeigen

Benutzerbild von alcaeus
alcaeus

Registriert seit: 11. Aug 2003
Ort: München
6.537 Beiträge
 
#1

Problem mit Interfaces und LoadPackage

  Alt 17. Jun 2005, 01:23
Hallo ihr,

ich hol jetzt mal ein bisschen aus. Ich arbeite zur Zeit an einem Modulsystem, das sich die Module zur Laufzeit aus Packages holt. Dies sieht z.Zt. so aus:
Delphi-Quellcode:
TModuleItem = class(TCollectionItem)
private
   fModuleClassName: String;
   fModuleHandle: LongInt;
   fModuleAbsFileName: String;
public
   MainFormClass: TPersistentClass;
   MainForm: IModuleMainForm;
end;

//
//...
//

//Load package
Module.fModuleHandle := LoadPackage(Module.fModuleAbsFileName);
InitializePackage(Module.fModuleHandle);

//Now grab this class. If it's not there, get out
Module.MainFormClass := GetClass(Module.fModuleClassName);
if not Assigned(Module.MainFormClass) then
begin
   Result := ERR_MCS_MAINFORM_NOT_FOUND;
   Module.ModuleActive := False;
   exit;
end; //if not Assigned(Module.MainFormClass) then

//Actually load the module and initialize it
Module.MainForm := TFormClass(Module.MainFormClass).Create(Application);
with Module.MainForm do
begin
   Align := alClient;
   BorderStyle := bsNone;
   Parent := Self.fMainFormParent;
   Visible := False;
end; //with Module.MainForm do

Dies funktioniert bis jetzt auch ganz gut. Nun will ich aber, dass die Hauptklasse des Moduls bestimmte funktionen bereitstellt, da gewisse Dinge beim Laden erledigt werden muessen. Nachdem der Versuch mit einer Klasse, welche eine virtual abstract-Methode bereitstellt, nicht geklappt hat, habe ich mich fuer Interfaces entschieden. Also hab ich mir mal mein Interface deklariert:
Delphi-Quellcode:
IModuleMainForm = interface
['{EBAE57B3-3C1A-4695-9927-C56D641F6486}']
   procedure SetProgramStyle(const aStyle: String);
end; //type IModuleMainForm = interface
und im Modul die Deklaration entsprechend abgeaendert:
TForm1 = class(TForm, IModuleMainForm)
Nun stehe ich aber vor dem Problem, dass ich nicht weiss wie ich das Dingen verwenden soll.
Wenn ich den Code versuche zu compilieren, laeuft das Ding ja, aber ich komm immer noch nicht auf die Interface-Methoden ran. Also habe ich testweise die Deklaration von MainForm von TForm auf mein Interface geaendert.

Nun bekomme ich aber logischerweise einen Fehler, dass das Interface und TForm inkompatibel waeren (wen wunderts? *g*), und zwar genau hier:
Module.MainForm := TFormClass(Module.MainFormClass).Create(Application); Wie muss ich den Konstrukt nun umschreiben, so dass ich mein Form erstelle, aber gleichzeitig auch auf die Interface-Methoden zugreifen kann? Ich hab hier irgendwie voll die Denkblockade

Greetz
alcaeus
Andreas B.
Die Mutter der Dummen ist immer schwanger.
Ein Portal für Informatik-Studenten: www.infler.de
  Mit Zitat antworten Zitat