Mehrere Threads gleichzeitig...

[glkgereon]

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:

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?

[ste_ett]

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

[glkgereon]

Zitat:

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?

[ste_ett]

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.

[TGR]

Statt

Delphi-Quellcode:

Thr[i].Execute;

musst Du

Delphi-Quellcode:

Thr[i].Resume;

schreiben, da sonst keine Properties mehr gesetzt werden können (bzw. es mach dann keinen Sinn)

Thomas

[glkgereon]

ok, also das geht jetzt...

aber direkt das nächste problem :)

wie mach ich die wieder aus?

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 :(

[TGR]

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

[glkgereon]

Zitat:

Zitat von TGR

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 :(

[Robert Marquardt]

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

[jfheins]

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