GetModuleHandle gibt zurück - FreeLibrary schlägt fehl

[DGL-luke]

Hallo,

ich habe eine DLL mit einer Form:

Delphi-Quellcode:

library PFormularMan;

uses
  SysUtils,
  Classes,
  ufoMainForm in 'ufoMainForm.pas' {Mainform},
  uFormElements in 'uFormElements.pas',
  uPageManagement in 'uPageManagement.pas';


{$R *.res}

var mf: TMainform;

function Execute(param: Integer):Boolean; stdcall;
begin
 mf := TMainform.Create(nil);
 mf.Show;
 Result := true;
end;

procedure DeInit; stdcall;
begin
  if assigned(mf) then
    begin
      mf.Close;
      mf.Free;
    end;
end;

exports
  Execute,DeInit;

begin
end.

Das ist der komplette Code.

Wenn ich das Formular schließe und dann FreeLibrary aufrufe (von aussen natürlcih), bekomme ich eine AV an 0. Ich wollte deswegen vorher prüfen, ob die DLL noch da ist:

Delphi-Quellcode:

function UnLoad(Rec: TModuleRec): Boolean;
begin
  Result := false;
  Rec.Handle := GetModuleHandle(PChar(rec.Name));
  Showmessage(PChar('ModuleHandle by GetNoduleHandle: ' + IntToStr(Rec.Handle)));
  if Rec.Handle <> 0 then
    begin
      Rec.DeInitFunc;
      FreeLibrary(Rec.Handle); <-- AV hier
      Result := true;
    end;
end;

GetModuleHandle gibt ein Handle zurück - allerdings kann ich das nicht mit FreeLibrary freigeben, wie bereits gesagt, FreeLibrary löst eine AV an 0 aus.

Rufe ich FreeLibrary (also UnLoad) auf, während die Form noch angezeigt wird, gibt es keine Probleme.

[Bernhard Geyer]

Da wir nicht genau Wissen was die Funktion macht, foglende Vermutung:

Es ist schlecht eine geladene DLL von dem Du den Handle mittels GetModuleHandle bekommst mittels FreeLibrary freizugeben, da ja dann die DLL von woanders als noch "geladen" angesehen wird. Jetzt könnte es sein das:

- Es in der DLL noch "lebende" Objekte gibt die beim entladen zu dieser Exception führt
- Die DLL eh beim Appstart geladen wird und irgendwelche Threads/Timer mit dieser DLL noch kommunizieren und wenn diese nun weg ist kracht es.

Hast Du denn die DLL überhaupt dynamisch geladen?

[SirThornberry]

bist du dir sicher das die av in der genannten zeile ist und nicht eine zeile weiter oben? Ist eventuell Rec.DeinitFunc = nil? Wie kommst du darauf das der Fehler in der besagten Zeile kommt? Bist du im Einzelschritt durchgesteppt?

Ich würde dir empfehlen die DLL zu debuggen und nicht das Hauptprogramm. Dann solltest du auch sehen in welcher Zeile der DLL der Fehler auftritt.

[DGL-luke]

verdammt... die AV kommt tatsächlich bei DeInit :wall: Blöder Debugger.

Ich werd das mal durchschauen...

EDIT: Ok... bescheuert, das...

Delphi-Quellcode:

procedure DeInit; stdcall;
begin
  if (Assigned(mf)) and (mf is TObject) then
    begin
      mf.Close;
      mf.Free;
    end;
end;

Wenn ich die Form schließe, wird sie freigegeben... Und die VCL nillt natürlich den Pointer nicht. Was mich wundert ist, dass "mf is TObject" erfolgreich ist.

[Bernhard Geyer]

Ersetze

Delphi-Quellcode:

mf.Free

durch

Delphi-Quellcode:

FreeAndNil(mf);

Und das mf is TObject erfolgreich ist, ist mit dem Default-Memorymanager von Delphi klar. Bei einer Freigabe wird der freigegebene Speicher nicht initialisiert, so das es Speichertechnisch ausschaut als gäbe es die Instanz (vom passenden Typ) noch.

[DGL-luke]

Das FreeAndNil nutzt rein gar nichts, die Form gibt sich ja selber frei beim Schließen. Ich kann natürlich im OnClose einfach Action := caHide reinschreiben...