DllExpert unit wird finalisiert bevor richtig unregistriert

[mattia72]

Hallo,

ich habe ein DLL Expert, der gut funktioniert bis ich die IDE schließe.
Dann tritt nämlich eine EAccessViolation Exception auf.

Ich habe herausgefunden, dass die Unit wo ich die IOTAWizard Interface implementiert habe, wird finalisiert before der Destructor aufgerufen wird.

Soviel ich weiß es reicht, wenn man die Extension so registriert:

Delphi-Quellcode:

var
   GDRipExtension : IOTAWizard;

procedure Register;
begin
   GDRipExtension := TDRipExtension.Create;
   RegisterPackageWizard(GDRipExtension);
end;

Hat jemand eine Idee, wie das frühzeitige Entladen vermieden werden kann?

[Uwe Raabe]

Ich vermute, die globale Variable hält das Interface zu lange. Solange du die nicht noch woanders nutzt, solltest du daraus eine lokale Variable in der Register procedure machen.

[mattia72]

Das hat leider nicht geholfen. Ursprünglich gab es überhaupt keine Variable und so ging es auch nicht.

Delphi-Quellcode:

procedure Register;
var
   dripExtension : IOTAWizard;
begin
   dripExtension := TDRipExtension.Create;
   RegisterPackageWizard(GDRipExtension);
end;

Der Konstruktor wird an keiner anderen Stelle verwendet, also es wird keine Referenz gehalten.
Egal was ich mache, in welche Reihenfolge die Units in der DPR Datei aufgelistet sind, Finalization wird zu früh aufgerufen, obwohl diese Unit sollte eigentlich zuletzt entladen werden.

[Uwe Raabe]

Die Methode RegisterPackageWizard habe ich selbst noch nicht benutzt. Der MMX Code Explorer registriert sich über eine exportierte

Delphi-Quellcode:

function InitExpert

:

Delphi-Quellcode:

procedure FinalizeWizard;
begin
  if MMOTAExpertIndex <> -1 then (BorlandIDEServices as IOTAWizardServices).RemoveWizard(MMOTAExpertIndex);
  MMOTAExpertIndex := -1;
end;

function InitExpert(const BorlandIDEServices: IBorlandIDEServices;
    RegisterProc: TWizardRegisterProc;
    var Terminate: TWizardTerminateProc): Boolean stdcall;
begin
  Result := True;
  Terminate := FinalizeWizard;
  MMOTAExpertIndex := (BorlandIDEServices as IOTAWizardServices).AddWizard(TMMXBDSExpert.Create);
end;

exports InitExpert name WizardEntryPoint;

Vielleicht hilft dir das ja weiter.

[Uwe Raabe]

Womöglich relevant: In der Doku wird bei RegisterPackageWizard immer von design-time packages gesprochen. Der MMX Code Explorer ist aber eine DLL, die im Experts Registry-Key eingetragen ist - also kein Design-BPL.

[mattia72]

Danke.
Mit IOTAWizardServices.AddWizard und IOTAWizardServices.RemoveWizard funktioniert es ohne Exception :-D