Frage zu TTimer

[chamop87]

Hallo,
ich habe folgende frage zu TTimer.
wenn man timer1.interval := 50 setzt und in der TTimer-procedure den Quellcode der zb. 10ms benötigt, is aber eigendlich auch egal. führt die procedure dann den code aus und wartet dann die 50ms (also 10ms + 50ms) oder wartet die procedure dann nur 40 ms damit die gesamtzeit bei 50ms liegt?

Danke schon mal im voraus!

slan

[mkinzler]

Die Methode wird alle 50ms gestartet, egal wie lange sie dauert

[chamop87]

danke für die antwort, das wars was ich wissen wollte;)

[Viktorii]

Zitat:

Zitat von mkinzler

Die Methode wird alle 50ms gestartet, egal wie lange sie dauert

Aber doch auch nur, wenn der auszuführende Code in der Timer Routine weniger als 50 ms benötigt, oder? Wenn der Code beispielsweise 60 ms benötigt, springt der Timer nach dem verlassen sofort wieder in die Routine und das 'Aufrufintervall' wäre somit 60 ms, oder sehe ich das falsch?

[mkinzler]

Der Code im Timer läuft in einem Thread. Ich weiss nicht, was passiert wenn der Thraed noch läuft, ob der 2. Aufruf ignoriert wird oder der 1. abgebrochen

[DeddyH]

Zitat:

Zitat von mkinzler

Der Code im Timer läuft in einem Thread.

Bist Du Dir da ganz sicher? Wenn ich das richtig in Erinnerung habe, wird einfach ein Event bei der Message WM_TIMER ausgelöst, da ist nix mit Thread.

[itashadow]

soweit ich weiss läuft so nen timer in nem eigenen thread und wenn das event vom timer zu lange braucht wird einfach ein 2. gestartet

[DeddyH]

Unter Delphi 5 sieht das so aus:

Zitat:

Delphi-Quellcode:

procedure TTimer.WndProc(var Msg: TMessage);
begin
  with Msg do
    if Msg = WM_TIMER then
      try
        Timer;
      except
        Application.HandleException(Self);
      end
    else
      Result := DefWindowProc(FWindowHandle, Msg, wParam, lParam);
end;

...

procedure TTimer.Timer;
begin
  if Assigned(FOnTimer) then FOnTimer(Self);
end;

Nicht mehr und nicht weniger.