Timer im Thread

[Florian_Meyer]

Hallo,
ich möchte einen timer in einem Thread zur Laufzeit erstellen...
Das Problem ist, dass bei Execute des Threads der Inhalt ja nur einmal durchlaufen wird und danach wird beendet, d. h. der timer geht einmal an und gleich wieder aus.

Delphi-Quellcode:

procedure TConnectPHP.Execute;
begin
  MyTimer := TTimer.Create(nil);
  MyTimer.Enabled := True;
  MyTimer.Interval := 10000;
  MyTimer.OnTimer := TimerEvent;
end;

Das Problem ist, ich kann auch nicht while not terminated verwenden, da ja dann jedes mal ein neuer Timer erstellt wird, das möchte ich ja gar nicht.

Hat da jemand ne Idee zur Lösung?


MfG
F.M.

[Khabarakh]

Fangen wir mal ganz von der anderen Seite an: Wozu soll denn bitte ein Timer in einem Nebenthread gut sein :gruebel: ? Da er den Hauptthread nicht blockiert, kannst du reinen Gewissens Sleep einsetzen.

[DocE]

Hallo Florian,

das lässt sich folgendermaßen lösen:

Delphi-Quellcode:

procedure TConnectPHP.Execute; 
var Msg: TMsg;
begin 
  
  MyTimer := TTimer.Create(nil); 
  MyTimer.Enabled := True; 
  MyTimer.Interval := 10000; 
  MyTimer.OnTimer := TimerEvent; 


  while not Terminated do
  begin

    while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do 
    begin 
    
      if Msg.Message <> WM_QUIT then // bekommt ein Thread vermutlich nie, aber gut 
      begin  

        TranslateMessage(Msg); 
        DispatchMessage(Msg); 

      end; 
  
    end; 

  end;


  try MyTimer.Free; except end;

end;

Grüsse
...Doc

[Florian_Meyer]

Aus dem Grunde, weil der Thread bei mir irgendwie abstürzt, wenn ich sleep drin habe und deswegen wollte ich es mal mit nem timer ausprobieren.

@DocE: Danke, ich werde das gleich mal ausprobieren.


//EDIT:
Danke, es haut hin!! :-D

[Khabarakh]

Zitat:

Zitat von Florian_Meyer

Aus dem Grunde, weil der Thread bei mir irgendwie abstürzt, wenn ich sleep drin habe und deswegen wollte ich es mal mit nem timer ausprobieren.

Dann würde ich lieber nach einem Fehler im ersten Versuch suchen oder hier um Hilfe fragen, als das Problem mit solch einer - sorry - unsinnigen Lösung zu umgehen ;) .

[Thorben_K]

das try bei Timer.Free muss auch net sein, weil Free eh erst abcheckt ob es das Objekt gibt ;)