Classe/Interface aus WinProc aufrufen

[EWeiss]

Zitat:

Zumindest hier kann ich nichts finden, das SkinPopupMenu Nil zuweist.

Den Status Nil erhält das SkinPopupMenu wenn der Reverenz Zähler auf 0 ist.

Nur das wird er nie.
Das ist doch mein Problem das ich dir über Mail mitgeteilt habe.
Deshalb wollte ich alle Variablen des SkinPopupMenu mit FillChar auf 0 setzen um den Status bzw. den Reverenz Zähler auf 0 zu bekommen.
Du sagtest das soll ich nicht tun.

Im Netzt ist leider nichts zu finden ohne das man sich ein Buch dafür zulegen muss.

Der eine sagt man darf ein Interface selber nicht auf NIL setzen.
Der andere sagt doch ist kein Problem
Der nächste sehe zu das der Reverenz Zähler auf 0 geht dann ist SkinPopupMenu automatisch Nil.

Langsam blicke ich da selbst nicht mehr durch da jeder etwas anderes sagt.

gruss

[stahli]

Den Referenzzähler verwaltet Delphi für Dich.
Und zwar wird er erhöht, wenn Du einer Interfacevariable Dein InterfaceObject zuweist und verringert, wenn Du Nil zuweist.

Intf1 := TInterfacedObject.Create; // RefCount = 1
Intf2 := Intf1; // RefCount = 2
Intf1 := Nil; // RefCount = 1
Intf2 := Nil; // RefCount = 0 --> InterfaceObject.Free wird "von Delphi" ausgeführt.

In dem anderen Thread hatte ich Dir das erklärt.

Zitat:

Den Status Nil erhält das SkinPopupMenu wenn der Reverenz Zähler auf 0 ist.

kann also nicht funktionieren, da der Referenzzähler erst auf 0 fällt, wenn alle Referenzvariablen Nil sind.


Also setze SkinPopupMenu auf Nil, wenn das Ding nicht mehr gebraucht wird.
Dann wird der Callback ausgeführt und auch im Hauptprogramm die Referenzvariable auf Nil gesetzt und das Objekt freigeben.


Du musst den Interfacevariablen Nil zuweisen. Den Rest macht Delphi für Dich.

In dem anderen Projekt scheint das ja auch zu klappen.

[Fritzew]

Ich habe versucht jetzt durchzusteigen wo das Problem ist.

Zitat:

Den Status Nil erhält das SkinPopupMenu wenn der Reverenz Zähler auf 0 ist.

das widerspricht allem was mit Interfaces zu tun hat.

Andersherum wird ein Schuh daraus:
Wenn alle!!! Referenzen auf das Interface nil sind geht der Referenz Zähler auf 0 und das darunter liegende Objekt wird freigegeben.

Du weist wie Du mich erreichen kannst......

[stahli]

Zitat von Fritzew:

Wenn alle!!! Referenzen auf das Interface nil sind geht der Referenz Zähler auf 0 und das darunter liegende Objekt wird freigegeben.

Noch genauer wäre: "... wenn alle Referenzen auf das InterfaceObject Nil sind ..."

Das ist zum Verständnis vielleicht wichtig, da wir hier schon so lange um den Brei herum reden.
Wenn ein Objekt 5 Interfaces unterstützt und 3 Interfaces je einer Interfacevariablen zugewiesen sind, ist der RefCounter des Objektes = 3.

[Fritzew]

Zitat von stahli:

Noch genauer wäre: "... wenn alle Referenzen auf das InterfaceObject Nil sind ..."

Oder so

[EWeiss]

Zitat:

das widerspricht allem was mit Interfaces zu tun hat.

Aber das ist was man mir hier verklickert.

Ich suche das jetzt raus.

Zitat:

•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...

Free ist für mich das gleiche wie als wenn ich das Interface auf NIL setze. Darf man aber anscheinend nicht.

Dann tue ich folgendes..

Delphi-Quellcode:

  // TODO
FillChar(SkinPopUpMenu, SizeOf(SkinPopUpMenu), 0);

  if not Assigned(SkinPopUpMenu) then
    PopUpCallback(OnPopupDestroyed);

Hier setze ich alle variablen auf 0, NIL oder wie auch immer danach ist mein Interface NIL (Da keine Variable mehr in gebrauch ist.)
Darf man aber anscheinend auch nicht.

Und ja ich weis das man eine Variable direkt auf Nil setzen kann wäre es nicht so dann sollte man es direkt lassen.
Aber da hat man mir dann wieder zwischen gepfuscht mit der Meldung nein man darf kein Interface selbst auf NIL setzen.
SkinPopUpMenu := Nil;
Ehrlich keine Ahnung was das noch soll.
Wie man es macht, macht man es falsch.

Hätte man mich nicht so irritiert mit den Referenz Zähler dann hätte ich schon lange einfach vor

PopUpCallback(OnPopupDestroyed);

Einfach

SkinPopUpMenu := Nil;

gesetzt und fertig.
Wäre ja nicht das erste mal das ich eine Variable auf NIL setze LOL.

Zitat:

Noch genauer wäre: "... wenn alle Referenzen auf das InterfaceObject Nil sind ..."

Sorry! Das ist genau mein Problem jeder sagt was anderes...
Mich interessiert das überhaupt nicht ob der Zähler 0 oder auf 3 steht.

Mich interessiert nur eins kann ich mein Interface selbst auf NIL setzen oder nicht.

Dann wäre meine Lösung diese

Delphi-Quellcode:

  SkinPopUpMenu := nil;
  PopUpCallback(OnPopupDestroyed);

und fertig .. alles so wie gehabt. (Bei normalen Classen)


gruss

[stahli]

Genau so ist es korrekt. Berichte mal, ob dann alles funktioniert.

Wenn Du mit Interfaces incl. Referenzzählung arbeitest, dann nie bei dem Objekt hinter dem Interface Free aufrufen!
Immer nur Interfacevariablen Nil zuweisen.
Bei der letzten Nil-Zuweisung wird Free automatisch ausgeführt. Dafür ist die Referenzzählung da.

Wie schon mal gesagt: "InterfaceObject.Free" ist etwas völlig anderes als "MyInterfaceVariable := Nil"

[EWeiss]

Zitat von stahli:

Genau so ist es korrekt. Berichte mal, ob dann alles funktioniert.

Wenn Du mit Interfaces incl. Referenzzählung arbeitest, dann nie bei dem Objekt hinter dem Interface Free aufrufen!
Immer nur Interfacevariablen Nil zuweisen.
Bei der letzten Nil-Zuweisung wird Free automatisch ausgeführt. Dafür ist die Referenzzählung da.

Wie schon mal gesagt: "InterfaceObject.Free" ist etwas völlig anderes als "MyInterfaceVariable := Nil"

Da muss ich nichts berichten das funktioniert hat immer schon.
Warum auch nicht.
Ich habe mich hier einfach nur verrückt machen lassen weil entschuldige kein Angriff gegen irgend jemanden jeder etwas anderes gesagt hat.

Zitat:

Wie schon mal gesagt: "InterfaceObject.Free" ist etwas völlig anderes als "MyInterfaceVariable := Nil"

Ok das war wohl das Missverständnis warum das jetzt so ausgeartet ist.


gruss

[stahli]

Du hast das m.E. nur falsch verstanden. Ist auch kein Vorwurf.

Ich habe auch Interfaces schon eine Weile genutzt, bis ich die Zusammenhänge wirklich verstanden habe.
Jetzt ist mir gar nicht klar, was daran so schwierig war.

Auch durch so eine Diskussion hier festigt man die eigenen Kenntnisse.
Insofern profitieren hier alle.

[EWeiss]

Ich denke da ich kein Informatiker bin .. ist es mir auch nicht so geläufig die richtigen Ausdrücke für ein Problem zu definieren.
Auf Grund dessen entstehen die Probleme mit denen ich zu kämpfen habe. (siehe Spaghetti Code) usw... für mich stellt dann so etwas einen Angriff gegen meine Person dar.

Ich bin ja nicht blöd.. hab ich wohl schon bewiesen aber mir fehlt es halt an den Dingen die ein Informatiker als selbstverständlich voraussetzt.
Aber das muss man nicht alles wissen.

PS:
EurekaLog ist ein mächtiges Werkzeug Habe mal die 30Tage Test Version versucht.
Feines Teil.

gruss