Apptype Console

[Ramses]

Hallo.

Ich habe ein Konsolenprog. entwickelt, das ich sowohl unter Delphi als auch Kylix erzeugen lässt. In dem Programm wird nur ein Indy TCP Server gestartet der auf Kommandos wartet. Der einfachheit halber habe ich alles in ein Thread - Object gepackt.

Jetzt mein Problem.
Ich starte den Server in der Methode Execute. Dann passiert ja eigendlich nicht mehr, sprich es sollte einfach nur noch laufen. Wenn ich aber jetzt einfach eine Repeat Until Terminated einsetze verheitze ich ja sämtliche CPU Zeit. Wie gebe ich die bei einem Konsolenprgramm frei? Application.ProcessMessages steht mir ja nicht zur Verfügung.

Viele Grüsse,
Björn

[choose]

Hallo Ramses,

sieh mal in der OH unter TThread.WaitFor nach. Vielleicht lässt sich Dein Problem so schon lösen?

[Ramses]

Nein, leider nicht so einfach.
'Waitfor' wartet ja nur, bis die Methode Execute beendet ist. Nur die darf nicht beendet werden, solange nicht Terminated = True ist.

Hier mal der Problem Code:

Delphi-Quellcode:

procedure Tossrv.Execute;
begin
 server.active := true;

 repeat
  if not server.Active then terminate;
 until Terminated;
end;

Ist ja nicht wirklich schön. Saugt CPU - Time ohne Ende. Unter Windows wüsste ich rat, aber als Konsolenanwendung ?!

[choose]

Wenn Du wirklich pollen willst, solltest Du den Thread kurze Zeit anhalten. Wie sähe Deine Lösung unter Windows aus?

[Ramses]

Unter Windows würde ich Application.ProcessMessages einfügen.
Nur steht mir unter der Konsolenanwendung dieses nicht zur Verfühgung.

[BungeeBug]

Gibt GetTickCount unter Linux?

Wenn ja kannst du die Delay Funktion von Luckie hier aus dem Forum nehmen ...

[cYaONE]

Mach mal Sleep(1000) in die Schleife rein, dann sollte das ohne Probleme laufen!

[Chewie]

Zitat von cYaONE:

Mach mal Sleep(1000) in die Schleife rein, dann sollte das ohne Probleme laufen!

Sleep ist auch eine Funktion der WinAPI. Ein Linux-Äqivalent heißt mglweise anders.

[Ramses]

Das mit dem Sleep geht auch unter Linux. Hatte ich nicht mehr dran gedacht.
Es reicht schon ein Sleep(500).

Danke nochmal an alle.