Kommunikation zwischen Hauptanwendung und Plugin

[Apollonius]

Du übergibst der DLL doch gar kein Interface.

[RWarnecke]

Zitat:

Zitat von Apollonius

Du übergibst der DLL doch gar kein Interface.

Das kann ich doch als Property übergeben oder ?

[Apollonius]

Als Property wovon? Du solltest deine TLoadPlugin-Definition um einen Parameter für das Interface erweitern.

[RWarnecke]

Zitat:

Zitat von Apollonius

Als Property wovon? Du solltest deine TLoadPlugin-Definition um einen Parameter für das Interface erweitern.

Ich setze eine Variable in die Definition und wie kann ich dann darauf zugreifen ? Ich komme da irgednwie gerade nicht ganz mit.

[Apollonius]

Aus dem Hauptprogramm rufst du doch die vom Plugin exportierte Funktion LoadPlugin auf. Das ist die Gelegenheit, um dem Plugin das Interface zu übergeben.

[RWarnecke]

Zitat:

Zitat von Apollonius

Aus dem Hauptprogramm rufst du doch die vom Plugin exportierte Funktion LoadPlugin auf. Das ist die Gelegenheit, um dem Plugin das Interface zu übergeben.

Ok, das mache ich ja jetzt schon. Nur wenn ich jetzt in der Execute-Function in der DLL die Funktion des Interfaces aufrufe, bekomme ich immer eine EAccessViolation in der folgenden Zeile :

Delphi-Quellcode:

var
  PlgApp : IApp;

{...}

  Form1.Label1.Caption := PlgApp.GetTheCaption;

[Apollonius]

Zitat:

Zitat von RWarnecke

Ok, das mache ich ja jetzt schon.

Wo?

[RWarnecke]

Zitat:

Zitat von Apollonius

Zitat:

Zitat von RWarnecke

Ok, das mache ich ja jetzt schon.

Wo?

Die aktualiseirten Dateien im Anhang. Mittlerweile habe ich es hinbekommen, dass er die Funktion aus der Hauptanwendung ausführt. Nur beim Schliessen der Form, kommt wieder eine EAccessViolation. Ich schätze, dass ich da irgendwas nicht freigebe oder zuviel. So sieht die Startfunktion für das Plugin aus :

Delphi-Quellcode:

procedure TMainForm.ExecutePlugIn(Sender: TObject);
begin
  if Sender = nil then
    Exit;
  if not (Sender is TMenuItem) then
    Exit;
  if FPlugIns[TMenuItem(Sender).Tag].PlugIn <> nil then
    FPlugIns[TMenuItem(Sender).Tag].PlugIn.Execute;
end;