wieso rufst Du Execute auf? Start wäre im Threadkontext, oder create ohne suspended

ich habe die Berechnung der jeweiligen Teilmatrix in die Routine Thread.execute gepackt.

Vom Verständnis müsste er doch Thread.Execute starten, aber nicht auf die Beendigung dieser Anweisung warten sondern
gleich den nächsten THREAD erzeugen und starten.... sehe ich etwa falsch ?

Auf die Art wird das Execute im Kontext des Hauptthreads ausgeführt, wie eine normale Prozedur.
Der Thread ruft nach dem starten intern Execute auf, ein Aufruf von außen macht keinen Sinn.

Habe die Antwort nicht ganz verstanden

wenn ich die Zeile tread.execute auskommentiere, rechnet der Thread aber nicht mehr.



------
http://radstudiodemos.svn.sourceforg...i/RTL/Threads/

Dann schreib doch im Konstruktor (des Threads) als letzte Zeile "Start;" hin.

Falls Du den Thread suspended erstellt hast kannst Du ihn einfach mit Resume starten.
In dem Fall ersetze einfach aFastNCCThread.Execute; durch aFastNCCThread.Resume; .
Du kannst die Threads aber auch nicht suspended erstellen, dann rennen sie sofort nach ihrer Erstellung los.

mein Problem besteht darin, ich kann in meiner Schleife i Threads erzeugen

markieren

Delphi-Quellcode:

   for i:= 0 to Anzahl Threads do
       
         aThread := TMyThread.Create( Übergabe der Ausgangsmatrizen, Überhabe der Ergbnismatrix);

         aThread.Execute // Berechne hier eine Teilmatrix und dann das Ergebnis in die große Matrix schreiben

      end;

, jeder erzeugte Thread berechnet auch eine TeilMatrix meines Problems, das Endergebnis ist richtig.
leider Ist die Zeit für die Berechnung der Matrizen ohne Threads genauso lange wie für die Berechnung der Matrizen mit 8 Threads auf einem System mit 4 Cores. Meine Erwartung :
T _Threads ~ T_Ohne_Threads / Anzahl_der_Threads.
Ich frage mich halt ob der Code auf die Abarbeitung von thread.execute wartet, die Parallelberechnung klappt irgendwie nicht

Wäre es nicht bequemer, auf etwas Fertiges wie z.B. Andreas' AsyncCalls oder die OmniThreadLibrabry zurückzugreifen?

So geht das!

zusammenfalten · markieren

Delphi-Quellcode:

   for i:= 0 to Anzahl Threads do
     TMyThread.Create( Übergabe der Ausgangsmatrizen, Überhabe der Ergbnismatrix);
...
...
Constructior TMyThread.Create (...params);
Begin
  inherited Create(False);
  FreeOnTerminate := True;
  ... initialize your Ausgangsmatrizen and stuff
  Resume; // Nicht nötig, aber lesbar
End;

Zitat von bernhard_LA:

mein Problem besteht darin, ich kann in meiner Schleife i Threads erzeugen

markieren

Delphi-Quellcode:

   for i:= 0 to Anzahl Threads do
       
         aThread := TMyThread.Create( Übergabe der Ausgangsmatrizen, Überhabe der Ergbnismatrix);

         aThread.Execute // Berechne hier eine Teilmatrix und dann das Ergebnis in die große Matrix schreiben

      end;

Nein, dein Problem ist, daß du nicht lesen kannnt.

Dir wurde mehrmals gesagt, daß man Execute nicht aufruft. (wird auch in jedem Thread-Tutorial erklärt)
PS: Execute ist mit Absicht als Protected deklariert, damit sollte eigentlich klar werden, daß man dieses nicht von extern aufruft.

Wobei ich die Möglichkeiten der Generics und anonymen Methoden sehr zu schätzen lernte.

zusammenfalten · markieren

Delphi-Quellcode:

TThread.CreateAnonymousThread(procedure
  begin
    ...
    // läuft in einem Thread
    ...
    TThread.Synchronize(nil, procedure
      begin
        ...
        // läuft im Hautthread/VCL-Thread
        ...
      end);
    ...
    // läuft in einem Thread
    ...
    TThread.Synchronize(nil, procedure
      var
        i: Integer;
      begin
        ...
        // läuft im Hautthread/VCL-Thread
        for i := 0 to ...
        ...
      end);
    ...
    // läuft in einem Thread
    ...
  end).Start;