Ist die Verwendung von TTask so korrekt?

[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.

[stahli]

Zitat von 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.

http://www.delphipraxis.net/1263046-post45.html
... könnten ja Tutorialschreiber mal drunter fallen

(...vor allem wenn man weiß (oder davon ausgehen kann), dass diese sich mit Delphi keine goldene Nase verdienen, sondern das eher aus Interesse unterstützen...)

[Uwe Raabe]

Zitat von stahli:

http://www.delphipraxis.net/1263046-post45.html
... könnten ja Tutorialschreiber mal drunter fallen

Meine Stimme hast du

[Delphi-Laie]

Zitat von Luckie:

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

Och, 10.1 ist sogar kostenlos und wird das bestimmt "schon" beherrschen.

[a.def]

Zitat von Delphi-Laie:

Zitat von Luckie:

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

Och, 10.1 ist sogar kostenlos und wird das bestimmt "schon" beherrschen.

Wollte ich eigentlich auch schreiben. Aber in 10.1 Starter fehlt leider der Debugger. Vielleicht auch Threading.

[Uwe Raabe]

Zitat von a.def:

Aber in 10.1 Starter fehlt leider der Debugger. Vielleicht auch Threading.

Nee, ist dabei.

[Mavarik]

Zitat von himitsu:

Also Threads lohnen sich nur, wenn der enthaltene Code mehr im Thread macht, als in der GUI.

Im "Normalfall" würde ich Dir nicht widersprechen.

Aber es stimmt für die mobilen Plattformen und FMX nicht.

Beispiel:

Delphi-Quellcode:

procedure TForm202.Button1Click(Sender: TObject);
begin
  Sleep(1000);
  Caption := '42';
end;

procedure TForm202.Button2Click(Sender: TObject);
begin
  TTask.Run(Procedure 
    begin
      TThread.Queue(NIL,Procedure
        begin
          Sleep(1000);
          Caption := '42';
        end;
    end;      
end;

hat nicht das gleiche verhalten!

Besser wäre natürlich:

Delphi-Quellcode:

Uses
  Delphiprofi.FDK.Idleworker;

procedure TForm202.Button3Click(Sender: TObject);
begin
  TIdleworker.Default.Execute(
    Procedure
      begin
        Sleep(1000);
        Caption := '42';
      end,true);
end;

[Uwe Raabe]

Zitat von Mavarik:

Delphi-Quellcode:

procedure TForm202.Button2Click(Sender: TObject);
begin
  TTask.Run(Procedure 
    begin
      TThread.Query(NIL,Procedure
        begin
          Sleep(1000);
          Caption := '42';
        end;
    end;      
end;

Das ergibt aber überhaupt keinen Sinn. Zunächst ist mir TThread.Query völlig unbekannt. Sollte es sich dabei um TThread.Queue handeln, verlagerst du das Sleep ja wieder in den Hauptthread.

Ich hätte jetzt eher diesen Ansatz gewählt:

Delphi-Quellcode:

procedure TForm202.Button2Click(Sender: TObject);
begin
  TTask.Run(
    Procedure 
    begin
      Sleep(1000);
      TThread.Query(NIL,
        Procedure
        begin
          Caption := '42';
        end;
    end;      
end;

[Mavarik]

Zitat von Uwe Raabe:

Das ergibt aber überhaupt keinen Sinn. Zunächst ist mir TThread.Query völlig unbekannt. Sollte es sich dabei um TThread.Queue handeln, verlagerst du das Sleep ja wieder in den Hauptthread.

Klar, sorry Schreibfehler...

Der Sinn ist ganz einfach.

Bei einem Button Klick oder anderen User-Aktionen, starten diese im UI-Thread einen Timer der die Änderungen auf dem Bildschirm (Mouseover/Buttondown/ButtonUp usw.) anzeigt.

Über den TTask.Run starte ich meine Aktionen verzögert. Der Queue Befehl sorgt dafür, dass ich dem UI_Thread die Ausführung überlasse.

Wie gesagt der bessere Weg hierfür ist der OnIdleEvent!

Zitat von Uwe Raabe:

Ich hätte jetzt eher diesen Ansatz gewählt:

Delphi-Quellcode:

procedure TForm202.Button2Click(Sender: TObject);
begin
  TTask.Run(
    Procedure 
    begin
      Sleep(1000);
      TThread.Query(NIL,
        Procedure
        begin
          Caption := '42';
        end;
    end;      
end;

Logisch!!

Mavarik