Fehlermeldung "Nicht genügend Timer verfügbar"

[Sinspin]

Hey, ich erinnere mich sowas vor Jahren mal gesehen zu haben. Da hatte ich versucht Timer mehrmals pro Sekunde an und aus zu schalten.
Es scheint so zu sein dass jedesmal intern ein neuer Timer erzeugt wird. Die alten aber nicht sofort freigegeben werden.
Damals konnte man damit den Rechner zu einem Freeze/Bluescreen bewegen.

Ich verwende so gut wie überhaupt keine TTimer mehr. Sondern eigene Threads die via QueryPerformanceCounter arbeiten.

[DeddyH]

http://www.delphigroups.info/2/35/440863.html

Zitat:

If you have a look in the VCL source you will see that this message is generated whenever SetTimer fails - regardless of the reason for that failure, which might have nothing to do with insufficient timers being available. Bear in mind that TTimer component calls SetTimer a LOT - everytime enabled is changed or the interval is altered. I recall a case once when this error was being generated because the FWindowHandle field of TTimer was being corrupted. This caused SetTimer to fail (InvalidHandle) but the error message was 'Not enough timers available' - which was very misleading in this case.

[haentschman]

Danke...

Zitat:

Da hatte ich versucht Timer mehrmals pro Sekunde an und aus zu schalten.
Es scheint so zu sein dass jedesmal intern ein neuer Timer erzeugt wird.

...again what learned.

Zitat:

error message was 'Not enough timers available' - which was very misleading in this case

+ 1

Fazit: Kannst machen nix, mußt du gucken zu...

Zitat:

Da hatte ich versucht Timer mehrmals pro Sekunde an und aus zu schalten.

...das passiert ja mit dem Scrollen.
...wieder Arbeit...Umbau auf Thread.

[himitsu]

SetTimer kennt nicht nur OutOfRessources ... tja, wenn man GetLastError/SysErrorMessage vergisst und nicht den "richtigen" Fehler anzeigt.

[Sinspin]

TTimer ist aus meiner Sicht gruselig implementiert. Erfüllt aber sicher seinen Zweck für den er gedacht ist.

Wenn ich deinen Fall richtig verstehe, also eine verzögerte Aktion nach einer Scrollaction auszuführen, ist villeicht ein ganz anderer Ansatz sinnvoller.
Am Ende brauchst du ja nur ein Event für deine Aktion, aber sicher nicht für jedes ScollEvent, sondern nur einmal nach dem letzten ScrollEvent.

[himitsu]

Nunja, es gibt/gab keine Möglichkeit rauszufinden welcher Timer vorhanden/aktiviert ist.

Drum nutzen die einfach immer blind ID 0, mit jeweils einem eigenem Fenster.
Die andere Variante wäre ja z.B. im Owner-Fenster den Timer zu nutzen, aber wenn du mehrere TTimer und/oder sonstwas hast, dann müssten irgendwie die IDs verteilt werden.

Und im FMX dann nochmal verschachtelt, oder gar ganz anders, für andere Platformen.




Es gibt noch eine/mehrere andere uralte MultiMediaTimer-APIs, welche z.B. mit einem Thread arbeiten, anstatt mit Window-Messages.
z.B. CreateTimerQueueTimer

[Delphi.Narium]

Ein weiteres Problom könnte sein, dass der Timer bereits wieder ausgelöst wird, während die Timerroutine noch nicht vollständig abgearbeitet ist.

Seit dem ich bei Timerroutinen zuerst den Timer ausschalte und am Ende wieder einschalte, hab' ich das Problem nicht mehr gehabt.

Delphi-Quellcode:

procedure Tform1.tmTimer(Sender: TObject);
begin
  tm.Enabled := false;
  // tu mal was
  tm.Enabled := true;
end;