hi,

ich möchte mehrere Threads eines Typs gleichzeitig ausführen.

dazu habe ich mir überlegt:

ich schreibe mir ganz normal meinen Thread als ableitung von TThread
dann mache ich mir nen array davon und erstelle in ner schleife alle und führe sie aus.

das ganze sieht dann so aus:

zusammenfalten · markieren

Delphi-Quellcode:

    Thr: array [1..Cnt] of TMyThread;

procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
  for i:=1 to Cnt do
    begin
    Thr[i]:=TMyThread.Create(True);
    //Noch paar Property setzen
    Thr[i].Execute;
    ShowMessage('Thread '+IntToStr(i)+' Executed');
    end;
end;

interessanterweise wird aber nur ein Thread erstellt und ausgeführt...(Cnt ist natürlich >1 )

Anhaltspunkte:
- ShowMessage erscheint nicht
- Ausgabe (via Synchronize) kommt nur vom ersten Thread
- Access Violation beim freigeben ab dem zweiten Thread...

warum macht der nicht einfach in der schleife weiter?

Wenn du als Parameter bei create True übergibst, musst du die Threads per Name.Resume; wieder starten.

Zitat von ste_ett:

Wenn du als Parameter bei create True übergibst, musst du die Threads per Name.Resume; wieder starten.

könnte ich auch einfach false übergeben?

Natürlich.

Allerdings rennen die Thread dann sofort los.
Wenn du erst noch Werte innerhalb deiner TMyThread-Instanz setzen willst/musst, musst du das im Konstruktor machen, oder bei dem True bleiben und dann mit .Resume; (kein Execute mehr) den Thread wieder starten.

Statt
Thr[i].Execute; musst Du
Thr[i].Resume; schreiben, da sonst keine Properties mehr gesetzt werden können (bzw. es mach dann keinen Sinn)

Thomas

ok, also das geht jetzt...

aber direkt das nächste problem

wie mach ich die wieder aus?

markieren

Delphi-Quellcode:

var i:Integer;
begin
  for i:=1 to Cnt do
    begin
    Thr[i].Suspend;
    Thr[i].Free;
    end;
end;

er bleibt nun beim Thr[i].Free einfach hängen...
und die Threads laufen weiter

markieren

Delphi-Quellcode:

var i:Integer;
begin
  for i:=1 to Cnt do
  begin
    Thr[i].Terminate;
    Thr[i].Priority=tpHigher;
    Sleep(0);
    Thr[i]:=nil;
  end;
end;

Um auf die Beendigung zu warten kannst Du das Ereignis OnTerminate auswerten.

Thomas

Zitat von TGR:

markieren

Delphi-Quellcode:

var i:Integer;
begin
  for i:=1 to Cnt do
  begin
    Thr[i].Terminate;
    Thr[i].Priority=tpHigher;
    Sleep(0);
    Thr[i]:=nil;
  end;
end;

Um auf die Beendigung zu warten kannst Du das Ereignis OnTerminate auswerten.

Thomas

Also im OnTerminate setze ich dann eine Variable auf True, woraufhin dann die Hauptschleife des Threads aufhören sollte...

aber sie tut es nicht.
ich hab so das gefühl das OnTerminate kommt nicht an

Das Suspend ist falsch. Bamit haelst du den Thread ja an und er kann sich garnicht beenden.

Oder du stellst FreeOnTerminate auf True und dann zum ausmachen einfach Thread.Terminate;
(im thread natürlich ein while not Terminated do ... )