Hallo,

ich erzeuge in einem Thread folgende while schleife:

markieren

Delphi-Quellcode:

      while not terminated do
      begin
        if output= true then
          break;
      end;

da der rückgabewert der methode output von äußeren faktoren
abhängt ist es möglch das die while-schleife zu einer endlosschleife mutiert,
darum wollte ich mit hilfe von WaitForSingleObject einen timeout
in die while schleife basteln um diese nach ablauf verlassen zu können.

könnte mir vielleicht jemand kurz erklären wie ich das am besten bewerkstellige?
die geschichte mit dem thandle ist mir nämlich nicht so ganz klar

Verstehe ich das richtig, du willst deinen Thread laufen lassen und wenn er nach einer bestimmten Zeit noch nicht durchgelaufen ist, beenden?

Das machst du am besten in einem separaten Thread:

markieren

Delphi-Quellcode:

AndererThread.FreeOnTerminate := False;
WaitForSingleObject(AndererThread.Handle, DeinTimeout);
if not AndererThread.Terminated then
  AndererThread.Terminate;
AndererThread.Free;

Ungetestet, aber so sollte es prinzipiell gehen

nein ich möchte den thread nicht beenden,
lediglich die while schleife, der thread soll
dann noch weiter arbeiten

Dann verpass deinem Thread mit der Schleife eine Property "ShouldBreak" und mach es dann so:

markieren

Delphi-Quellcode:

WaitForSingleObject(AndererThread.Handle, DeinTimeout);
AndererThread.ShouldBreak := True;

Deine Thread-Schleife muss dann so aussehen:

markieren

Delphi-Quellcode:

while not terminated do
  begin
    if output or ShouldExit then
      break;
    end;

Ich hoff es hilft

hmm jain *g

also die threads werden im hauptthread in einem array erzeugt,
ich weiß jetzt nicht so genau wie und welches handle ich übergeben soll

//MainForm

markieren

Delphi-Quellcode:

    for Loop:= 0 to length(ThreadArray) - 1 do
    begin
      ThreadArray[Loop]:= TMyThreads.Create(true);
      ThreadArray[Loop].FIndex:= Loop;
      ThreadArray[Loop].Priority:= tpIdle;
      ThreadArray[Loop].FreeOnTerminate:= True;
      ThreadArray[Loop].Resume;
    end;

die while schleife läuft zudem noch in einer for schleife,
wenn ich das nun halbwegs richtig verstanden habe müßte das dann
ungefähr so aussehen:

//TMyThreads = class(TThread)

markieren

Delphi-Quellcode:

   for i:= 0 to ....
      WaitForSingleObject(???, 30000);
        ???.ShouldExit := True;
      while not terminated do
        if output or ShouldExit then
          break;