AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Ist die Verwendung von TTask so korrekt?
Thema durchsuchen
Ansicht
Themen-Optionen

Ist die Verwendung von TTask so korrekt?

Ein Thema von a.def · begonnen am 1. Jan 2017 · letzter Beitrag vom 2. Jan 2017
Antwort Antwort
Seite 2 von 3     12 3      
a.def
(Gast)

n/a Beiträge
 
#11

AW: Ist die Verwendung von TTask so korrekt?

  Alt 1. Jan 2017, 23:45
Danke! TTask benötigt also kein Synchronize.
Wo steht das?
Zitat:
Eine weitere Funktionalität von TTask ist das Verhindern der Sperrung der Benutzeroberfläche, wenn Sie im Hintergrund etwas starten möchten. Im folgenden Beispiel wird gezeigt, wie Sie eine einzelne Aufgabe ausführen und starten
Für mich bedeutet das, dass man es nicht benötigt. Selbst im offiziellen Emba-Beispiel wird kein Synchronize verwendet.

Mein Beispiel ist ja auch nonsense, keine Frage. Ist ja auch nur ein Beispiel zu einer dummen Frage.
Die eigentliche Arbeit meiner TTasks besteht aus ganz anderen Sachen und nicht so etwas Dummes wie "Caption alle 10ms verändern".

Zitat:
(von Emba)
Eine weitere Funktionalität von TTask ist das Verhindern der Sperrung der Benutzeroberfläche, wenn Sie im Hintergrund etwas starten möchten. Im folgenden Beispiel wird gezeigt, wie Sie eine einzelne Aufgabe ausführen und starten:
Delphi:

Delphi-Quellcode:
 
procedure TFormThreading.Button1Click(Sender: TObject);
var
 aTask: ITask;
begin
 aTask := TTask.Create (procedure ()
   begin
     sleep (3000); // 3 seconds
     ShowMessage ('Hello'); // <= kein Synchronize
   end);
 aTask.Start;
end;

Geändert von a.def ( 1. Jan 2017 um 23:51 Uhr)
  Mit Zitat antworten Zitat
Delphi-Laie

Registriert seit: 25. Nov 2005
1.474 Beiträge
 
Delphi 10.1 Berlin Starter
 
#12

AW: Ist die Verwendung von TTask so korrekt?

  Alt 2. Jan 2017, 00:06
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.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.071 Beiträge
 
Delphi 12 Athens
 
#13

AW: Ist die Verwendung von TTask so korrekt?

  Alt 2. Jan 2017, 00:08
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
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.

Geändert von himitsu ( 2. Jan 2017 um 00:13 Uhr)
  Mit Zitat antworten Zitat
HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
970 Beiträge
 
Delphi 6 Professional
 
#14

AW: Ist die Verwendung von TTask so korrekt?

  Alt 2. Jan 2017, 05:35
Hmm..

Zitat:
Abschnitt Eine weitere Funktionalität von TTask ist das Verhindern der Sperrung der Benutzeroberfläche, wenn Sie im Hintergrund etwas starten möchten.
Da steht nur das die Benutzeroberfläche NICHT gesperrt wird!
Somit läuft etwas im Hintergrund (Thread) ohne das der MainThread und somit die Benutzereingabe gesperrt wird.
Sprich, dass wenn Du z.B. auf einem Button.Click eine laaaaannngggeee Verarbeitung machts, dann ist die Oberfläche gesperrt. Selbst Aktualisierungen werden ohne ProzessMessages nicht mehr auf z.B. Edits angezeigt.
  Mit Zitat antworten Zitat
t.roller
(Gast)

n/a Beiträge
 
#15

AW: Ist die Verwendung von TTask so korrekt?

  Alt 2. Jan 2017, 08:30
Sprich, dass wenn Du z.B. auf einem Button.Click eine laaaaannngggeee Verarbeitung machts, dann ist die Oberfläche gesperrt. Selbst Aktualisierungen werden ohne ProzessMessages nicht mehr auf z.B. Edits angezeigt.
Das ist falsch.

Füge doch meinem Beispiel in #10
das hinzu:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
Button3.Tag:= Button3.Tag +1;
Label4.Caption:= INTTOSTR(Button3.Tag);
end;
Das bleibt bedienbar.
  Mit Zitat antworten Zitat
Daniel
(Co-Admin)

Registriert seit: 30. Mai 2002
Ort: Hamburg
13.920 Beiträge
 
Delphi 10.4 Sydney
 
#16

AW: Ist die Verwendung von TTask so korrekt?

  Alt 2. Jan 2017, 08:33
Fettschrift hilft da auch nicht, um die eigene Position zu unterstreichen. Wirklich.
In Deinem Beispiel in Beitrag #10 wird die langlaufende Operation (im Beispiel das Sleep) ja in dem Thread ausgeführt. Die Synchronisation mit dem MainThread ist immer nur sehr kurz. Es ist klar, dass das bedienbar bleibt.
Setze das Sleep mal in das OnClick-Ereignis. Dann legt sich auch die GUI zur Ruhe nieder.
Daniel R. Wolf
mit Grüßen aus Hamburg
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
11.453 Beiträge
 
Delphi 12 Athens
 
#17

AW: Ist die Verwendung von TTask so korrekt?

  Alt 2. Jan 2017, 10:31
Zitat von a.def;1357704[QUOTE:
(von Emba)
Eine weitere Funktionalität von TTask ist das Verhindern der Sperrung der Benutzeroberfläche, wenn Sie im Hintergrund etwas starten möchten. Im folgenden Beispiel wird gezeigt, wie Sie eine einzelne Aufgabe ausführen und starten:
Delphi:

Delphi-Quellcode:
 
procedure TFormThreading.Button1Click(Sender: TObject);
var
 aTask: ITask;
begin
 aTask := TTask.Create (procedure ()
   begin
     sleep (3000); // 3 seconds
     ShowMessage ('Hello'); // <= kein Synchronize
   end);
 aTask.Start;
end;
Ich wage mal zu behaupten, daß das Beispiel dort schlichtweg falsch ist. In den Tiefen von ShowMessage wird irgendwann ein Application.ModalStarted und ein Application.ModalEnded aufgerufen. Darin ist das Verändern von FModalLevel schon mal nicht wirklich threadsicher. Weiterhin wird gegebenfalls ein OnModalBegin bzw. OnModalEnd aufgerufen (auch nicht auf thread-sichere Weise). Sind diese Events verlinkt, wird der dortige Code im Thread-Context aufgerufen, was der Event-Verlinker vermutlich gar nicht auf dem Schirm hat. Das obige Beispiel in einer hinreichend komplexen Anwendung führt zu sporadischen Fehlfunktionen, die nur sehr schwer zu analysieren sind.

Grundsätzlich würde ich mich nicht darauf verlassen, daß der Code in den Beispielen für den produktiven Einsatz geeignet ist. Auch TTask ist keine Magie, die plötzlich Thread-Programmierung zu einem Kinderspiel macht.

Um den Beispielcode kümmere ich mich noch. Wenn jemand in C++ fit ist, wäre ich für entsprechende Hinweise zu dem dort ebenfalls vorhandenen und potentiell ebenso falschen C++-Code dankbar.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.624 Beiträge
 
Delphi 12 Athens
 
#18

AW: Ist die Verwendung von TTask so korrekt?

  Alt 2. Jan 2017, 10:48
Grundsätzlich würde ich mich nicht darauf verlassen, daß der Code in den Beispielen für den produktiven Einsatz geeignet ist. Auch TTask ist keine Magie, die plötzlich Thread-Programmierung zu einem Kinderspiel macht.
Diese Worte sollte man sich in Stein meißeln
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
HolgerX

Registriert seit: 10. Apr 2006
Ort: Leverkusen
970 Beiträge
 
Delphi 6 Professional
 
#19

AW: Ist die Verwendung von TTask so korrekt?

  Alt 2. Jan 2017, 13:11
Hmm..

Wer lesen kann ist im Vorteil!

Sprich, dass wenn Du z.B. auf einem Button.Click eine laaaaannngggeee Verarbeitung machts, dann ist die Oberfläche gesperrt. Selbst Aktualisierungen werden ohne ProzessMessages nicht mehr auf z.B. Edits angezeigt.
Das ist falsch.

Füge doch meinem Beispiel in #10
das hinzu:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
Button3.Tag:= Button3.Tag +1;
Label4.Caption:= INTTOSTR(Button3.Tag);
end;
Das bleibt bedienbar.


Ich schrieb:

Zitat:
Sprich, dass wenn Du z.B. auf einem Button.Click eine laaaaannngggeee Verarbeitung machts, dann ist die Oberfläche gesperrt. Selbst Aktualisierungen werden ohne ProzessMessages nicht mehr auf z.B. Edits angezeigt.

Platziere auf einer Form ein Memo und einen Button!
Packe dies ins Button Click rein:

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add('Begin');
  Sleep(10000);
  Memo1.Lines.Add('Finish');
end;
Und beobachte!!!!

Was passiert..

Button Click -> 10 Sekunden lang nichts und dann kommt direkt 'Begin' und 'Finish'.

Während der 10 Sekunden kannste auf der Form versuchen, was Du willst, es klappt nichts..

Wieso, weil der Button.Click im MainThread läuft und die Acktualisierung erst erfolgt, wenn die Procedure fertig ist!

Wenn Du nun in einem Separaten Threat ( TTask,TThreat..) das Sleep machst, dann kannste die Form weiter bedienen.

Jedoch kümmert sich weder TTask noch TThread um Sync..

Jeder Zugriff aus einem Separaten Thread mit gesynct werden! Sei es durch Synchronize(), Mutex, CriticalSection oder ähnliches. Selbst bei Verwendung von SendMessage würdest Du eine Sync-Routine verwenden, nur gekapselt durch Windows...
  Mit Zitat antworten Zitat
a.def
(Gast)

n/a Beiträge
 
#20

AW: Ist die Verwendung von TTask so korrekt?

  Alt 2. Jan 2017, 14:01
Sicherheitshalber (und auch weil es wohl korrekt ist), habe ich meine GUI-Zugriffe nun alle mit Synchronize abgesichert.
Zuvor habe ich noch das alte BeginThread verwendet und immer ohne Synchronize. Zum Glück ist nie was passiert.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 2 von 3     12 3      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 23:14 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz