Classe/Interface aus WinProc aufrufen

[EWeiss]

Bekomme meine Referenz Zähler nicht herunter.
Das einzige was ich mir vorstellen könnte was das Problem verursacht ist das ich das Interface aus der WinProc heraus aufrufe\muss.

bsp.

Delphi-Quellcode:

WM_COMMAND:
  begin
    ShowWindow(WinHandle, SW_HIDE);
    SkinPopUpMenu.DlgItem := wP;
    SkinPopUpMenu.DestroyWindow;
  end;

Mein Problem ist das ich die Winproc nicht in das Interface integrieren kann.
deshalb muss ich eine globale Variable definieren.
Eventuell ist das mein Problem mit dem Reverenz Zähler

SkinPopUpMenu : TSkinPopUpMenu;

gruss

[jaenicke]

Zitat von EWeiss:

SkinPopUpMenu : TSkinPopUpMenu;

Diese Deklaration an sich ist schon problematisch. Ich denke du benutzt das als Interface. Dann muss die Variable auch vom Typ des Interfaces sein. Objekt- und Interfacereferenzen mischen geht meistens schief, wenn man nicht 100%ig weiß was man da tut.

[EWeiss]

Zitat von jaenicke:

Zitat von EWeiss:

SkinPopUpMenu : TSkinPopUpMenu;

Diese Deklaration an sich ist schon problematisch. Ich denke du benutzt das als Interface. Dann muss die Variable auch vom Typ des Interfaces sein. Objekt- und Interfacereferenzen mischen geht meistens schief, wenn man nicht 100%ig weiß was man da tut.

Ok werde es ändern.

TSkinPopUpMenu = class(TInterfacedObject, ISkinPopUpMenu, ISkinPopUpMenuEx)
SkinPopUpMenu : ISkinPopUpMenuEx;

Edit:
Das ist erledigt meine Frage aber damit nicht beantwortet.

gruss

[Aviator]

Ich hänge mich mal an die Frage mit ran, weil ich gerade ein ähnliches Problem habe. Meine DLL wird nämlich nicht sauber entladen, da irgendwo noch eine einzelne Referenz existiert, die ich aber ums verrecken nicht finden kann. Mich würde auch mal interessieren ob es irgendwie möglich ist, die Referenzen "aufzulösen". Also praktisch eine Art Liste in der ich sehe, wo ich meine Interface Instanz überall hin referenziert habe.

Ist so etwas möglich und wenn ja, wie?

[EWeiss]

Zitat:

Ich hänge mich mal an die Frage mit ran

Bitte kein Problem

gruss

[stahli]

Ist das hier die Fortsetzung von dem: http://www.delphipraxis.net/193802-o...ml#post1381069 ?

Du hast m.E. im Projekt als auch hier in Deinen Fragen zu wenig Ordnung bzw. Übersicht.

Wenn Du mit Interfaces arbeitest und die Referenzzählung nutzen willst, musst Du halt den Ablauf soweit überschauen, dass Du weißt wo Referenzen zugewiesen und ob die wieder aufgelöst werden.

Evtl. kann ein Tool wie EurekaLog helfen, hängende Referenzen zu finden.

Da Du aber vermutlich nur 2 oder 3 Referenzen verwendest, findet man die Stelle aber evtl. auch so.


Was hast Du denn geändert, nachdem Du im anderen Thread gesagt hattest, die Freigabe funktioniert?

Wenn Du z.B. danach noch eine Interfacevariable MeineNeuePopupVariable: IMyPopup; deklariert und zugewiesen hast, dann müsstest Du dieser Variablen auch wieder Nil zuweisen, damit Dein Objekt freigegeben wird.

So von außen ist das schwer zu beurteilen.

Vielleicht kannst Du die Ursache eingrenzen, wenn Du die Änderungen seit dem letzten Erfolgs-Post nochmal anschaust...

[EWeiss]

Zitat:

Da Du aber vermutlich nur 2 oder 3 Referenzen verwendest, findet man die Stelle aber evtl. auch so.

Es wird nur eine Referenz verwendet
Und die wird nicht freigegeben.

Ich habe nichts geändert im anderen Projekt wird diese korrekt freigegeben.
Das einzige was im anderen Projekt anders ist, ist das ich kein Submenu verwende.
Nur was nicht initialisiert wird (SubMenu) muss auch nicht freigegeben werden.

Zitat:

Ist das hier die Fortsetzung von dem: http://www.delphipraxis.net/193802-o...ml#post1381069 ?

Nein meine Frage bezog sich darauf ob es vielleicht an der Winproc liegen könnte da ich von hier SkinPopUpMenu aufrufen muss.
Aber im nachhinein dann dürfte im anderen Projekt die Referenz auch nicht freigegeben werden wenn es daran läge.


gruss

[stahli]

Sorry, ich kann Deine Fragen nicht ausreichend nachvollziehen.

Sind das zwei Threads zu zwei verschiedenen Projekten?
Existiert das Problem der Nicht-Freigabe im anderen Thread noch - und wenn, dann in dem anderen Projekt oder nur in diesem hier?

Wenn die Fragestellung nicht eindeutig klar ist, kann man darauf natürlich auch nicht hilfreich antworten.

Aber ich orakle mal etwas...

Wenn Du eine Interfacevariable MyPopupMenu hast, und dann noch eine Interfacevariable MySubMenu dann könnten diese u.U. gegenseitige Referenzen aufeinander halten.

Also falls Du so etwas machen solltest wie:
MySubMenu.RegisterOwnerPopupMenu(MyPopupMenu) und darin dem MyPopupMenu auch das SubMenu zugewiesen wird,
dann halten beide eine Referenz aufeinander. Es kann dann keine automatische Freigabe mehr erfolgen, weil Interface1 in Interface2 referenziert wird und somit nicht freigegeben werden kann, weil noch eine Referenz existiert und andersrum auch.

Um das aufzulösen, müsste man eine der beiden zirkulären Referenzen auflösen (z.B. MySubMenu.UnregisterOwnerPopupMenu(MyPopupMenu)).

Vielleicht sind ja solche hängenden oder zirkulären Referenzen Dein Problem.

Wie gesagt, so von außen ist das schwer zu beurteilen.

[EWeiss]

Zitat:

Sind das zwei Threads zu zwei verschiedenen Projekten?
Existiert das Problem der Nicht-Freigabe im anderen Thread noch - und wenn, dann in dem anderen Projekt oder nur in diesem hier?

Ich habe 2 Projekte

KVPlayer, OTTB

Beide verwenden das gleiche Interface.
KVPlayer mit SubMenus
OTTB ohne

KVPLayer gibt alle Reverenzen korrekt frei.
OTTB nicht.

So nun bin ich am Rätzeln denn eigentlich wäre das Problem verständlich wenn OTTB mit Submenu laufen würde.
Das gibt es hier aber nicht und trotzdem wird die Reverenz nicht freigegeben.

Also beide verwenden das selbe Interface das eine geht das andere nicht.

gruss

[stahli]

Ah, ok.
Dann tippe ich wirklich auf gegenseitige Referenzierung.

Wenn das Submenu sein Hauptmenu kennt (also ein einem Property oder ein einer Liste speichert) und auch das Hauptmenu sein Submenü verwaltet (was ja zu vermuten ist ) dann wird genau dieses Problem vorliegen.


Quatsch. In der Eile hatte ich das falsch gelesen.
Also dann wir es im OTTB noch irgendeine Referenz geben, der nicht NIL zugewiesen wird.

Das zu finden kann aufwendig werden.