Wieviele Prozessoren/Kerne hast du denn im PC
und wieviele Threads startest du?
2 Dualcore.
Threads soviele wie ich in der schleife starten lasse.
Hab es auch mit einer kleinen Anzahl versucht von 10 KindThreads
Delphi-Quellcode:
for o:= 0 to 9 do
Begin
KatScanThread:= TKatScanThread.Create(o);
KatScanThread.Start;
End;
Sleep(60000); // warte 60 Sekunden Testweise
Brachte auch keinen Erfolg.
Das heißt der NebenThread wurde noch nicht terminated, aber dennoch liefen die kleinen Threads nicht durch(kein Showmessage bei KindThread aufgerufen).
So sieht der Konstruktor vom KindThread aus
Delphi-Quellcode:
constructor TKatScanThread.Create(o: Integer);
Begin
Fo:= o;
inherited create(true);
FreeOnTerminate := True
End;