WaitForSingleObject und Threads

[endeffects]

Hallo,

ich erzeuge in einem Thread folgende while schleife:

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

[Dax]

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:

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 ;)

[endeffects]

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

[Dax]

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

Delphi-Quellcode:

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

Deine Thread-Schleife muss dann so aussehen:

Delphi-Quellcode:

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

Ich hoff es hilft ;)

[endeffects]

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

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)

Delphi-Quellcode:

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