AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Auf Task warten ohne zu bremsen

Ein Thema von lxo · begonnen am 26. Mai 2023 · letzter Beitrag vom 13. Jun 2023
Antwort Antwort
Benutzerbild von Uwe Raabe
Uwe Raabe

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

AW: Auf Task warten ohne zu bremsen

  Alt 26. Mai 2023, 13:50
Das Auslagern in einen Thread/Task und blockierendes Warten auf dessen Ende ist doch irgendwie kontraproduktiv und in der Regel eher schädlich als hilfreich.

Lass doch die Task einfach laufen und prüfe z.B. in einem Timer ob sie schon fertig ist. Währenddessen disable alle Benutzereingaben, die dabei nicht ausgeführt werden können/sollen.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.277 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Auf Task warten ohne zu bremsen

  Alt 26. Mai 2023, 13:59
Hallo,
such hier mal nach "semimodal".
Damit geht das in Deinem speziellen Fall auch, ohne Performance zu verlieren.
Heiko
  Mit Zitat antworten Zitat
Der schöne Günther

Registriert seit: 6. Mär 2013
6.212 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: Auf Task warten ohne zu bremsen

  Alt 26. Mai 2023, 14:07
Wenn man sich nicht schämt das direkt auf dem Formular zu machen:

Delphi-Quellcode:
unit GUI.MainForm;

interface uses
   System.SysUtils,
   System.Classes,
   System.Threading,

   Vcl.Graphics,
   Vcl.Controls,
   Vcl.Forms,
   Vcl.Dialogs,
   Vcl.StdCtrls;

type
   TMainForm = class(TForm)
      Button1: TButton;
      Label1: TLabel;
      procedure Button1Click(Sender: TObject);
   private var
      myTask: ITask;
      waitingForm: TForm;
   private
      procedure someWork();
      procedure signalCompletion();
   end;

var
   MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.Button1Click(Sender: TObject);
begin
   myTask := TTask.Run(someWork);
   waitingForm := TForm.Create(self);
   waitingForm.ShowModal();
end;

procedure TMainForm.signalCompletion();
begin
   waitingForm.ModalResult := mrClose;
end;

procedure TMainForm.someWork();
begin
   TThread.Sleep(2000);
   TThread.Queue(TThread.Current, signalCompletion);
end;

end.
PS: Freigabe des Popups nicht vergessen.
  Mit Zitat antworten Zitat
freejay

Registriert seit: 26. Mai 2004
Ort: Nürnberg
276 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Auf Task warten ohne zu bremsen

  Alt 31. Mai 2023, 13:05
Also ich würde überhaupt nicht auf das Ende des Threads warten sondern als letzte Aktion in dem Thread einfach eine Event-/Callback-Prozedur aufrufen. Oder spricht da was dagegen?
[Delphi 11.3.1 Enterprise; Win10/11; MySQL; VCL]
  Mit Zitat antworten Zitat
lxo

Registriert seit: 30. Nov 2017
303 Beiträge
 
Delphi 12 Athens
 
#5

AW: Auf Task warten ohne zu bremsen

  Alt 13. Jun 2023, 20:36
Also ich würde überhaupt nicht auf das Ende des Threads warten sondern als letzte Aktion in dem Thread einfach eine Event-/Callback-Prozedur aufrufen. Oder spricht da was dagegen?
Jetzt mache Ich es genau so. Klappt wunderbar.
Da ich eh ein InfoForm Modal öffne ist alles weiter im Hintergrund blockiert und am Ende des Threads wird das Form einfach geschlossen.

Danke für eure Anregungen und Tipps.

Habe bisher nicht ganz so viel mit Threads gearbeitet aber so langsam machts immer mehr Klick und schafft auch viele neue Ideen und Lösungen.
  Mit Zitat antworten Zitat
Antwort Antwort


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 02:22 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz