Object (Interface) <> nil

[EWeiss]

Ich erstelle ein Interface.

Delphi-Quellcode:

  PopUpMenu := CTRL_PopUpMenuCreate;

Wenn ich nun ein Item des PopUpMenu klicke beende ich das Interface bsp. TSkinPopUpMenu mit Free. (In der DLL)

Das Object ist nun NIL nur wie soll ich das der Anwendung mitteilen? Ohne extra Funktionen dafür erstellen zu müssen. (soll Automatisiert ablaufen)
Ein Prüfen auf

Delphi-Quellcode:

if not Assigned(PopUpMenu) then

würde in dem Fall nichts bringen.
Wieder so ein Spezial fall.

Das ist die Fehlermeldung die ich bekomme wenn PopUpMenu in der DLL NIL ist aber nicht in der Anwendung.
Ich könnte das Object selbst auf NIL setzen

Delphi-Quellcode:

    IDM_About:
      begin
        PopUpMenu := nil;

Nur das ist nicht der sinn der Sache.

gruss

[himitsu]

Das Menü oder mindestens das Interface, für den Zugriff darauf, gibt sich nicht frei, sondern erst wenn es keine Referenz mehr gibt ... Interface halt :zwinker:

[EWeiss]

Zitat:

Zitat von himitsu (Beitrag 1380776)

Das Menü oder mindestens das Interface, für den Zugriff darauf, gibt sich nicht frei, sondern erst wenn es keine Referenz mehr gibt ... Interface halt :zwinker:

Meine Classe aber oder?

Delphi-Quellcode:

  TSkinPopUpMenu = class(TInterfacedPersistent, ISkinPopUpMenu)

gruss

[mkinzler]

Dzu gibtst die nstanz der Klasse frei, diese verringert den Referenzzähler des Interfaces. Ist dieser dann 0 wird dieses auch Freigeben.

[EWeiss]

Zitat:

Zitat von mkinzler (Beitrag 1380785)

Dzu gibtst die nstanz der Klasse frei, diese verringert den Referenzzähler des Interfaces. Ist dieser dann 0 wird dieses auch Freigeben.

Die Classe TSkinPopUpMenu ist frei.
Nur die Anwendung bekommt ja nichts davon mit das ist mein Problem.

Und selbst setze ich sie nicht auf NIL in der DLL das geschieht automatisch sobald wie du sagst alle Referenzzähler auf 0 sind.

gruss

[sakura]

Zitat:

Zitat von EWeiss (Beitrag 1380787)

Nur die Anwendung bekommt ja nichts davon mit das ist mein Problem.

Solange Du in der Anwendung eine Variable hast, welche auf das Interface des Objektes zeigt, wird dieses nicht automatisch freigegeben.

Wenn Du also willst, dass das Objekt, zu welchem das Interface gehört, freigegeben wird, musst Du zuvor auch in der Anwendung die Variable auf nil setzen.

...:cat:...

[sakura]

Des Weiteren werden Variablen nicht irgendwie durch "Magie" auf nil gesetzt, sobald ein Objekt zerstört wird. Dazu müsste das Programm jederzeit jede Kopie - egal wie diese erstellt wurde - des Pointers kennen. Und das ist so nicht möglich.

...:cat:...

[jaenicke]

Zitat:

Zitat von EWeiss (Beitrag 1380769)

Wenn ich nun ein Item des PopUpMenu klicke beende ich das Interface bsp. TSkinPopUpMenu mit Free. (In der DLL)

Zwei Grundregeln musst du bei der Arbeit mit Interfaces beachten:

• Niemals eine Referenz auf das Objekt behalten und nutzen! Immer nur mit dem Interface arbeiten. Schon gar nicht das Objekt mit Free freigeben und damit allen Interfaces unter dem Allerwertesten wegziehen. Das gibt sehr schöne Fehler...
• Vor der Freigabe der DLL müssen alle Interfacereferenzen auf Interfaces der DLL im Hauptprogramm auf nil gesetzt werden und umgekehrt. Dafür sollte die DLL-Schnittstelle sinnvollerweise entsprechende Mechanismen anbieten.

Hintergrund ist, dass beim Setzen des Interfaces auf nil immer dessen Methode Release aufgerufen wird. Ist das Objekt dahinter dann schon freigegeben, knallt es logischerweise.

[EWeiss]

Zitat:

musst Du zuvor auch in der Anwendung die Variable auf nil setzen.

warum zuvor und nicht nachher?

Ok ich versuche es mal auf dem weg

Delphi-Quellcode:

    WM_NCRBUTTONDOWN:
      begin
        if Assigned(PopUpMenu) then
          PopUpMenu := Nil;
        CreatePopupMenu(WinHandle);

        GetCursorPos(p);
        GetWindowRect(gPMenu.PopUpMenu, rc);
        ClientToScreen(gPMenu.PopUpMenu, p);

        MenuWahl := PopUpMenu.TrackPopupMenu(gPMenu.PopUpMenu, p.x, (p.y - rc.Bottom), rc.Right,
          rc.Bottom);

        if MenuWahl then
          SendMessage(WinHandle, WM_COMMAND, Makelong(word(MenuWahl), 0), 0);
      end;

Irgendwie widerspricht das jeglicher Logik.
Denn die Anwendung weis nicht ob das Object in der DLL frei ist oder nicht.

gruss

[sakura]

Zitat:

Zitat von EWeiss (Beitrag 1380794)

Denn die Anwendung weis nicht ob das Object in der DLL frei ist oder nicht.

Wie sollte es die Anwendung den wissen, wenn diese nicht informiert wird? :gruebel:

...:cat:...