EnumWindowsProc -> EAccessError, OutOfResources

[Motzi]

Die Callback-Funktion für EnumWindows muss mit Hilfe eines @ übergeben werden, da TFNWndEnumProc als TFarProc und das wiederum als Pointer definiert ist (in Delphi 2005)..

Callback-Funktionen können _immer_ auch "nested" sein, ABER: der Vorteil dieser nested functions ist ja, dass man auch auf die Parameter und lokalen Variablen der übergeordneten Funktion zugreifen kann. Um dies möglich zu machen muss Delphi im Hintergrund einige Spielchen mit dem Stack anstellen. Sobald eine nested function aber als Callback übergeben wird darf man diesen Vorteil innerhalb dieser Funktion NICHT MEHR ausnutzen, da der Stack durch den Caller der Callback-Funktion ganz anders ausschaut, als wenn die Funktion direkt aus der übergeordneten Funktion aufgerufen worden wäre. Man erhält daher falsche Werte und das Ergebnis kann sich jeder selbst ausmalen...
Verzichtet man innerhalb der nested function jedoch auf solche Spielchen und gestaltet sie völlig unabhängig von der übergeordneten, so kann sie auch jederzeit als Callback verwendet werden!

Gruß, Motzi

[Jonas]

Danke für den funktionierenden Code. Löst in meiner Anwendung jedoch genau den gleichen Fehler aus. Ich werde mich morgen nochmals genauer damit befassen vielleicht liegt mein Fehler auch eher in meiner Procedure.
Ich dachte nur es wäre interessant für euch das zu erfahren ^^

Edit: Ich hab nochmal was rumprobiert und naja es funktioniert halt so lange man keine Fenster schließt. Im Grunde nicht viel anders als bei mir. Sobald man eben fenster schließt bekomm ich nen EAccesserror.

[Muetze1]

Kann es sein, das du deine Liste nicht aktualisierst in der ListBox und somit auf nicht mehr existierende Einträge zugreifst?

Schonmal die Bereichsprüfung eingeschaltet und Projekt komplett neu erzeugt?

[Jonas]

Ähm, naja ich benutz ja keine Listbox. Ich erstelle die Labels und Images ja direkt aus WindowList ohne vorher 'ne Listbox zu benutzten.

Delphi-Quellcode:

procedure TForm2.Tasks();
var
i: Integer;
begin
  SetLength(WindowList, 0);

  EnumWindows(@EnumWindowsProc, Integer(@WindowList));

  if oldCount <> high(WindowList) then begin

    oldCount := high(WindowList);
    for i := 0 to high(Blabel) do
    Blabel[i].Free;
    for i := 0 to high(task) do
    task[i].Free;
    for i := 0 to high(taskicon) do
    taskicon[i].Free;



For i := Low(WindowList) To High(WindowList) Do
begin
taskhandle[i]:= WindowList[I].Handle;
end;

For i := Low(WindowList) To High(WindowList) Do
begin
task[i]:= TImageEx.Create(nil);

Komischerweise meckert er erst wenn ich das 2. Fenster schließe.


Außerdem hab ich noch ne Frage. Wie unterscheidet sich For i := Low(WindowList) To High(WindowList) Do genau von for i := 0 to Length(WindowList) - 1 do ?

[Jonas]

Auch wenn keiner mehr Antwortet ^^. Mittlerweile denke ich aufjedenfall zu wissen warum ich nach 2 min, auch ohne irgendwas getan zu haben einen OutOfResources Error bekomme. Wie ich ihn jedoch so recht beheben kann, weiss ich nicht.
Wenn man sich mal meine Procedure anschaut, welche ja in einem Timer sitzt. Das heisst sie wird alle 250ms ausgeführt. Somit würde ich ja die kompletten Timageexs und auch Labels immer wieder neu erstellen, auch wenn sich nichts tut. Ich denke, dass es dann irgendwann soo viele sind das ich einen OutOfResources Error bekomme. Bin mir jedoch nicht 100%ig sicher.
Hat jemand eine Idee wie man dieses Problem möglicherweise umgehen könnte?

[Muetze1]

Zitat von Jonas:

Delphi-Quellcode:

  if oldCount <> high(WindowList) then begin

    oldCount := high(WindowList);

Count wäre Length() von einem Array, High() ergibt den höchsten Index, nicht die Anzahl. Count heisst aber nunmal Anzahl.

Zitat von Jonas:

Delphi-Quellcode:

    for i := 0 to high(Blabel) do
    Blabel[i].Free;
    for i := 0 to high(task) do
    task[i].Free;
    for i := 0 to high(taskicon) do
    taskicon[i].Free;

Du gibst die Elemente frei, aber wo machst du das Array kleiner bzw. setzt es auf 0 etc? Wo ist das SetLength() ?

Zitat von Jonas:

Außerdem hab ich noch ne Frage. Wie unterscheidet sich For i := Low(WindowList) To High(WindowList) Do genau von for i := 0 to Length(WindowList) - 1 do ?

Gar nicht in dem Sinne. Du benutzt dynamische Arrays und die sind immer 0-basierend beim Index. Daher wäre von 0 bis Length()-1 das gleiche. Ich verwende aber immer Low() to High(), weil ich dadurch einen Code schreibe der immer funktioniert. Egal ob ich in einem halben jahr ein dynamisches Array zu einem 1 basierendem statischen Array umstelle oder nicht. Auch solche klassischen Fehler wie die Übergabe eines nicht 0-basierenden statischen Arrays an eine Procedure die einen dynamische Array als Parameter hat und dann in der Procedure mit der alten Indizierung auf das Array zugreifen, kann mir dadurch nicht passieren. (bei der Übergabe wird das Array automatisch zu einem 0-basierenden).

Aber wie gesagt, in deinem Fall hier, macht es keinen Unterschied.

[Jonas]

Naja das mit dem Kleiner machen hast du recht. Das habe ich bisher nicht gemacht.

Dennoch, ich bekomme wenn ich das Programm laufen lasse nach ca. 5 Minuten einen OutOfResources Error, was nicht an meiner Procedure, sondern ganz klar an der Funktion liegt. Denn die Procedure erstellt ja nur in dem Falle ein Fenster sobald sich wirklich ein neues Öffnet oder eins geschlossen wird, erst dann reagiert sie ja wirklich 'aktiv'. Aber auch wenn dies genau nicht der Fall ist, bekomme ich nach 5 Minuten nichts tun einen OutOfResources error.

[Muetze1]

Tja, dann ist das Problem so jetzt für uns schlecht nachvollziehbar. Grundlegend sollte meine Funktion in Ordnung sein, daher vermute ich das Problem eher an dem Programmcode von dir drumherum. Daher kann ich ohne das Programm schwer was dazu sagen. Entweder debuggst du weiter und schaust dir deinen Code (White Box Test/Black Box Test) oder du postest die Aktionen um den Aufruf der Funktion...