Ist die Verwendung von TTask so korrekt?

[a.def]

Wie der Titel schon erahnen lässt bezweifle ich die Richtigkeit meines Code-Stücks hier.
Ich möchte eine Arbeit starten und dabei den Hauptthread nicht einfrieren lassen.

Delphi-Quellcode:

        TTask.Run(
          procedure
         var
          i: Integer;
         begin
          i := 0;

          while i < 500 do
           begin
            inc(i);
            Sleep(10);
            Caption := IntToStr(i);
           end;
         end);

Das funktioniert einwandfrei. Aber sollte man das nicht eigentlich mit einem

Delphi-Quellcode:

          TThread.Synchronize(nil,
            procedure
           begin
           end);

Ummanteln? Wenn ich das mache, bleibt mein Hauptthread leider stehen bis die 5 Sekunden abgelaufen sind.

[DeddyH]

Sollte das Synchronize nicht einfach nur die Caption-Zuweisung umschließen?

[a.def]

Selbst das hängt die GUI auf. Ich sehe zwar wie sich die Caption ändert aber ich kann sonst nichts mehr machen.
Wenn ich Synchronize einfach weg lasse funktioniert alles. Aber darf man das?

[Luckie]

Ist ja irgendwie logisch. Die Schleife macht ja nichts anders als ein Steuerelement im Formular hochzuzählen. Wenn du das jetzt synchronisierst läuft das ganze quasi im Thread des Formulares.

[a.def]

Aber es heißt doch immer, dass man Zugriffe auf die VCL synchronisieren muss oder ist das hier nicht nötig?

[t.roller]

Verwenden von TTask aus der Parallel Programming Library

[stahli]

Mit Tasks habe ich keine Erfahrungen aber mit Threads schon.

Synchronisieren musst Du Zugriffe auf das Formular, um Zugriffsprobleme zu vermeiden.
Ohne Synchronisation kann es zwar klappen, aber Du kannst auch unvorhersehbare Probleme bekommen (von unauffälligen Datenfehlern bis Abstürzen).

Delphi-Quellcode:

  TThread.Synchronize(nil,
    procedure
      begin
        MyForm.Caption := IntToStr(i);
      end); 
  Sleep(1000);

Wenn Du Dein Sleep auf 1000 einstellst, solltest Du auch den gewünschten Effekt sehen.
Sonst ist die Pause m.E. zu kurz, um etwas zu bemerken und der Mainthread ist voll belastet.

[Delphi-Laie]

Zitat von Luckie:

Ist ja irgendwie logisch. Die Schleife macht ja nichts anders als ein Steuerelement im Formular hochzuzählen. Wenn du das jetzt synchronisierst läuft das ganze quasi im Thread des Formulares.

Hallo Luckie / Michael, wenn es um Threads in Delphi geht, wessen bzw. welches Skript ist dann auch heute noch wohl erste Anlaufstelle, die Referenz schlechthin?

Nach dieser Schleimeinheit eine ganz vorsichtige Anregung: Wäre nicht die Klasse "TTask" (ab welcher Delphiversion?) es wert, dort mit aufgenommen zu werden, so als Ergänzung? Immerhin sind jetzt schon sogar die Fiber enthalten.

[Luckie]

Zitat von Delphi-Laie:

Zitat von Luckie:

Ist ja irgendwie logisch. Die Schleife macht ja nichts anders als ein Steuerelement im Formular hochzuzählen. Wenn du das jetzt synchronisierst läuft das ganze quasi im Thread des Formulares.

Hallo Luckie / Michael, wenn es um Threads in Delphi geht, wessen bzw. welches Skript ist dann auch heute noch wohl erste Anlaufstelle, die Referenz schlechthin?

Nach dieser Schleimeinheit eine ganz vorsichtige Anregung: Wäre nicht die Klasse "TTask" (ab welcher Delphiversion?) es wert, dort mit aufgenommen zu werden, so als Ergänzung? Immerhin sind jetzt schon sogar die Fiber enthalten.

Wennich eine Delphi Version hätte, die dies unterstützt.

[himitsu]

Zitat von Luckie:

Ist ja irgendwie logisch. Die Schleife macht ja nichts anders als ein Steuerelement im Formular hochzuzählen. Wenn du das jetzt synchronisierst läuft das ganze quasi im Thread des Formulares.

Jupp, Synchronisieren muß man mit der VCL/FMX.
Also Threads lohnen sich nur, wenn der enthaltene Code mehr im Thread macht, als in der GUI.

Man kann jetzt die Anzeige-Zugriffe verringern.
z.B. nur jeden 1000. Schleifendurchlauf in die GUI geben
oder die GUI per Timer/Event triggern, welche sich dann ab und an vom Thread den aktuellen Wert holt.

Die Parallel Computing Library (TTask und Co.) ist seit XE7 enthalten.
http://docwiki.embarcadero.com/RADSt...amming_Library