hallo,

ich habe bereits im forum gesucht (auch etwas "ungefähres" gefunden) aber nicht das richtige.

ich versuche gerade eine art "überwachungsprozedur" zu schreiben. diese prüft die uhrzeit und guckt ob diese einen entsprechenden wert in der zukunft bereits erreicht hat.

hiermier starte ich meinen thread:

zusammenfalten · markieren

Delphi-Quellcode:

type
 TMyThread = procedure;

var
 ThreadHandle: THandle;

procedure TForm1.StartThread(Thread: TMyThread);
var
 ThreadID: DWORD;
begin
 ThreadHandle := BeginThread(nil, 0, TFNThreadStartRoutine(@Thread), nil, CREATE_SUSPENDED, ThreadID);

 if ThreadHandle <> 0 then
  begin
   SetPriorityClass(GetCurrentProcess, IDLE_PRIORITY_CLASS);
   SetThreadPriority(ThreadHandle, THREAD_PRIORITY_IDLE);

   ResumeThread(ThreadHandle);
  end;
end;

und meine überwachungsprozedur sieht so aus (ich verwende gewiss kein TThread!)

zusammenfalten · markieren

Delphi-Quellcode:

procedure watcher(iNextRun: LongInt);
var
 bTerminated: Boolean;
begin
 bTerminated := False;

 while not bTerminated do
  begin
   if DateTimeToUnix(now) = iNextRun then
    bTerminated := True;
  end;

 refreshListView;
// hier ist der thread nun am ende!
// aber auch durch aufruf von "StartThread" in der prozedur "refreshListView" wird kein neuer thread gestartet
end;

procedure watcherA;
begin
 // iNextRunA ist ein Integer, hat nichts zu bedeuten
 watcher(iNextRunA);
end;

in der prozedur "refreshListView" steht u.a. folgendes:

markieren

Delphi-Quellcode:

iNextRunA := 123; // hier wird eigentlich ein timestamp, welcher sich in der zukunft befindet, übergeben
StartThread(watcherA);

warum funktioniert das nicht?

Du triffst den richtigen Zeitpunkt vermutlich nicht genau (schon gar-nicht mit Idle-Priorität).

markieren

Delphi-Quellcode:

  begin
   if DateTimeToUnix(now) >= iNextRun then // <- so kann das klappen
    bTerminated := True;
  end;

wenn ich
Form1.StartThread(watcherA); innerhalb des threads aufrufe, funktioniert es, aber er startet und beendet mir dann gefühlte zehn threads. lass ich diese zeile weg, wird der thread nie neu aufgerufen. selbst nicht, wenn es so in der prozedur refreshListView steht.

kann denke ich geschlossen werden, da lösung gefunden

das ständige neustarten der threads war unsinnig, da die doch eh jederzeit gebraucht werden.
die variable iNext setze ich nun innerhalb des threads nach oben (jetztige zeit + 10 sekunden um beispiel).
so habe ich einen fortlaufenden prozess.

ich merke gerade dass mein vorhaben sehr ins schwanken gerät.

durch die threads (mindestens einer, maximal "n") schießt es die cpu-auslastung sehr hoch.

wie kann man sonst eine art "prüfe ob uhrzeit X erreicht ist"-funktion realisieren, wenn nicht mit threads?

Hallo,

wenn die Zeit noch nicht erreicht ist, dann kannst Du den Thread ja eine gewisse Zeit schlafen legen (sleep(zielzeitInSekunden - nowInSekunden)).

Warum nutzt Du keinen Timer (TTimer)?

Grüße
Klaus