Eine DLL freigeben. (CallBack)

[geskill]

Ich habe das doch so gemacht wie du meinst.
Die Variable auf NIL im Destroy ist doch okay.
Wenn ich dich richtig verstanden habe darf ich das nicht im Destroy freigeben oder?
Ja wann dann?

[Bernhard Geyer]

Zitat von geskill:

Ich habe das doch so gemacht wie du meinst.
Die Variable auf NIL im Destroy ist doch okay.
Wenn ich dich richtig verstanden habe darf ich das nicht im Destroy freigeben oder?
Ja wann dann?

Der Teil mit der Freigabe Formular passt, aber du darfst die DLL nicht im Callback freigeben. Verwende wie schon angemerkt einen Event den du der Exe per PostMessage mitteilst.

[geskill]

argghhh...
dann hat Muetze1 mich auf den falschen Pfad gelockt... :-(((

[Bernhard Geyer]

Zitat von geskill:

argghhh...
dann hat Muetze1 mich auf den falschen Pfad gelockt... ((

Häst doch nur seine Vorschläge von oben abarbeiten müssen

[Muetze1]

Zitat von geskill:

argghhh...
dann hat Muetze1 mich auf den falschen Pfad gelockt... ((

Wieso? Du kannst über den Callback sehr gut der Anwendung Bescheid geben, dass sie die DLL entladen kann. Ich habe nichts gesagt, dass die Hauptanwendung dies direkt im Callback machen soll. Sie kann sich aus dem Callback die DLL zum freigeben vermerken, etc. Die Hauptanwendung kann zum entkoppelt in dem DLL Callback sich selber per PostMessage entsprechend einen Auftrag senden, etc. Es gibt so viele Möglichkeiten und der Callback ist nun nicht eine ungehbare Version.

Und ich habe zuvor schon eine gewisse Sortierung in Richtung des Umfangs/Schwierigkeit gegeben, da hat Bernhard Geyer schon Recht.

[geskill]

Ihr schreibt so als wäre ich jetzt richtig böse, mal lernt halt dazu, jetzt kann ich CallBack wieder hervorkrammen wenn ichs brauche...

Zitat von Muetze1:

Und ich habe zuvor schon eine gewisse Sortierung in Richtung des Umfangs/Schwierigkeit gegeben, da hat Bernhard Geyer schon Recht.

Ich habe zum Thema CallBack am meisten gefunden, naja dann werde ich mir jetzt mit "Windows Message an das Hauptprogramm" senden beschäftigen... Hätte nichts gegen links wo dies erklärt wird, hier im Forum und Google spucken nicht so viel aus :(

[oki]

Hallo,

in der hilfe nach PostMessage suchen. Am besten du definierst dir einen eigene Nachricht

Delphi-Quellcode:

const
  wm_FreeMyLibrary = wm_User + 100;

Abschicken mit
  PostMassage(Mainform.Handle, wm_FreeMyLibrary, 0, 0); Empfangen in der eigenen Procedure

Delphi-Quellcode:

  procedure WMFreeMyLibrary(var Message: TMsg); message WM_FreeMyLibrary;


procedure TMainForm.WMFreeMyLibrary(var Message: TMsg);
begin
  // DLL frei geben
end;

Gruß oki

[geskill]

Wie ich in den Debugger schaue und auf diesen Satz hoffe: "Modul entladen: ...". Und er kommt, erstmal danke an alle und besonders an oki aber, auch die anderen haben wieder super geholfen. So und an alle die gleiches Vorhaben werde ich hier mal meinen Code präsentieren:

MainForm

Delphi-Quellcode:

type
  TMainForm = class(TForm)
    bDllLaden: TButton;
    bClose: TButton;
    procedure bCloseClick(Sender: TObject);
    procedure bDllLadenClick(Sender: TObject);
  private
    // die Variable muss global gespeichert werden damit FreeLibrary ein Ziel hat
    class var hLib:cardinal;
    const
      wm_FreeMyLibrary = wm_User + 100;
  public
    procedure WMFreeMyLibrary(var Message: TMsg); message WM_FreeMyLibrary;
  end;

  // Die dynamische dekleration einer dll
  TYPE Tcreatedll = PROCEDURE (FormHandle:HWND);

//[...]
procedure TMainForm.bDllLadenClick(Sender: TObject);
VAR  Mcreatedll : Tcreatedll;
BEGIN
  hLib := LoadLibrary(PChar('pDLL.dll'));
  IF hLib <> 0 THEN BEGIN
  @Mcreatedll := GetProcAddress(hLib, 'createDll');
  IF @Mcreatedll <> NIL
   // nun wird zusätzlich das handle übergeben, was später benötigt wird
   THEN Mcreatedll(MainForm.Handle);
  END;
end;

procedure TMainForm.WMFreeMyLibrary(var Message: TMsg);
begin
  // hier kann auch alles mögliche stehen, aber dass kann man dann auch in einem callback schreiben
  freelibrary(hLib);
end;

In der DLL.dpr habe ich nichts verändert nur die export Procedure...

DLL Formular

Delphi-Quellcode:

type
  TDllAddons = class(TForm)
    bClose: TButton;
    procedure bCloseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
  private
    const 
      wm_FreeMyLibrary = wm_User + 100;
  public
    { Public-Deklarationen }
  end;

//[...]

  AFormHandle:HWND;

  PROCEDURE createDll(FormHandle:HWND);

//[...]

PROCEDURE createDll(FormHandle:HWND);
BEGIN
  IF NOT (Assigned(DllAddons))
    THEN DllAddons := TDllAddons.Create(NIL);

  // parameterübergabe 
  AFormHandle := FormHandle;

  DllAddons.Show;
END;

procedure TDllAddons.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;

procedure TDllAddons.FormDestroy(Sender: TObject);
begin
  // den parameter schön freigeben
  DllAddons := NIL;
  // die nachicht senden
  PostMessage(AFormHandle, wm_FreeMyLibrary, 0, 0);
end;

Und nochmal als Download, damit es auch jeder ausprobieren kann; man bin ich glücklich :dancer: :-D :drunken: :firejump:

[oki]

hi,

schön, dass es klappt. Mein Codeschnipsel hat aber nur den Rest gebracht. Den Weg haben die anderen gewiesen.

Gruß oki

[geskill]

vielleicht noch ein wichtiger Hinweis, das mit dem PostMessage muss in der Hauptunit stehen, von welcher das Handle stammt....