Zugriff auf TProgressbar.Position aus TThread.Queue

[TurboMagic]

Benutze D11.2 und Versuche mittels TThread.Queue ein Progressbar aus einem Task heraus zu aktualisieren. Das crasht jedoch. Ein Label das in der selben Methode den selben Wert ausgibt crasht nicht.

Woran kann es liegen?

[Uwe Raabe]

Zitat von TurboMagic:

Benutze D11.2 und Versuche mittels TThread.Queue ein Progressbar aus einem Task heraus zu aktualisieren. Das crasht jedoch. Ein Label das in der selben Methode den selben Wert ausgibt crasht nicht.

Woran kann es liegen?

Wie genau machst du es?

[himitsu]

https://www.delphipraxis.net/196442-...ml#post1512030

[Dennis07]

Und wenn du es mit TTask.Run machst? (Vergiss nicht das Synchronize, ansonsten ruft der das aus einem anderen Thread auf!)

[himitsu]

TThread.Queue = Synchronize .... nur nicht jetzt, sondern später

Darum ist auch das Wie wichtig.
z.B. Variable benutzen, die es "dann" nicht mehr gibt = ungünstig
oder Variable benutzen, die "dann" im Thread überschrieben sein/werden kann = ungünstig, weil nicht mehr synchron
oder ...

[TurboMagic]

Sitze gerade vor einem anderen PC aber im Prinzip so:

Delphi-Quellcode:

type
  TOnProgress = procedure(Sender: TObject; Progress: UInt32) of Object;

  TMyWorker = class(TObject)
  private
   FOnProgress : TOnProgress;
   procedure ReportProgress(Progress: UInt32); 
  public
    procedure DoIt;
    property OnProgress : TOnProgress read FOnProgress write FOnProgress;
  end;

procedure TMyWorker.Dot;
begin
  TTask.Run(
    for var i := 0 to 100 do
    begin
      ReportProgress(i);
      sleep(50);
    end);
end;

procedure TMyWorker.ReportProgress(Progress: UInt32); 
begin
  TThread.Queue(procedure
                 if Assigned(FOnProgress) then
                   FOnProgress(self, Progress);
                end);
end;

[..]

TMainForm = class(TForm)
  pb_Progrsss : TProgressBar;
  Label1: TLabel;
private
  FWorker : TMyWorker ;
public
  procedure OnProgress(Sender: TObject; Progress: UInt32);
  procedure DoSomething;
end;

[..]

procedure TMainForm.OnProgress(Sender: TObject; Progress: UInt32);
begin
  Label1.Caption := Progress.ToString;
  pb_Progress.Position := Progress;
end;

procedure TMainForm.DoSomething;
begin
  FWorker.DoIt;
end;

So ungefähr. Ja, was wirklich im Task läuft ist noch etwas demo mäßig und wird später ersetzt.

[DieDolly]

Zitat von himitsu:

https://www.delphipraxis.net/196442-...ml#post1512030

Naja bei mir war es anders. Ich versuche nicht direkt aus einem Thread heraus die ProgressBar zu setzen. Ich gehe da über PostMessage.

[TurboMagic]

Komisch, ich habe jetzt das gewünschte Testprogramm geschrieben, siehe Anhang.
Nur: es knallt da nicht beim Zugriff auf den Progressbar, das Label wird aber
nie aktualisiert

Bin verwirrt.

Grüße

TurboMagic

[jaenicke]

Zitat von TurboMagic:

Nur: es knallt da nicht beim Zugriff auf den Progressbar, das Label wird aber
nie aktualisiert

Da du im Kontext des Hauptthreads (in Queue) ein Sleep drin hast, blockierst du den Hauptthread.

Ja, bei mir gibt es auch keinen Fehler. Da muss etwas anderes los sein. Kannst du vielleicht einen Screenshot von Delphi machen, wenn der Fehler im echten Projekt auftritt? Damit man den Stacktrace usw. sieht?