Unterschied TTread.Synchronize / TThread.Queue

[Harry Stahl]

Hallo,

ich habe gerade male eine Verständnisfrage zur Verwendung von TThread.Synchronize und TThread.Queue.

Beide proceduren verwendet man ja im Prinzip, um von einem Thread außerhalb des MainThreads auf Daten bzw. GUI-Elemente des Hauptthreads zuzugreifen.

Während ich bei der Verwendung der beiden Proceduren bislang in TTask keinen großen Unterschied bemerkt habe, frage ich mich gerade, warum in dem folgenden TParallel-For Beispiel der Aufruf mit Queue funktioniert, der mit Synchronize sich aber aufhängt:

Delphi-Quellcode:

procedure TForm14.Button1Click(Sender: TObject);
var
  L: Integer;
begin
  Listbox1.Clear;

  TParallel.For (1,10, procedure (i:Integer)
  begin
    //TThread.Synchronize(NIL,  //--> funktioniert nicht, Programm hängt
    TThread.Queue(NIL, // das geht
    procedure
    begin
      ListBox1.Items.Add( 'Nummer' + i.tostring);
    end);
  end);
end;

Mir ist durchaus bekannt, dass Synchronize eine "blocking" Methode ist, "Queue" aber nicht, dennoch hätte ich angenommen, dass die Abarbeitung grundsätzlich hier auch mit Synchronize funktionieren würde. Tut es aber nicht.

Hat jemand eine Erklärung dafür?

[jaenicke]

Du bleibst ja während der Ausführung der einzelnen Threads im Hauptthread im Aufruf von TParallel.For. Deshalb können die anderen Threads in dieser Zeit auch nicht mit dem Hauptthread synchronisieren, da der gleichzeitig auf die einzelnen Schleifenthreads wartet.

Das ist ein klassischer Deadlock.

[Harry Stahl]

Verstehe ich das richtig, dass TParallel.for dann so eine Art Mischung zwischen Ablauf im Hauptthread und eigener Thread ist?

Im Gegensatz zu TTask, was ja wirklich ein eigener Thread ist, daher kann man dort beides (also Queue oder Synchronize) verwenden?

[Uwe Raabe]

Du kannst das in deinem Beispiel sehen, wenn du nach dem TParallel.For einfach noch eine Zeile

  ListBox1.Items.Add('Ende'); einfügst.

[Sir Rufo]

Das TParallel.&For() ist wie ein

Delphi-Quellcode:

LTask := Task.Run( ... );
LTask.Wait();

Und dort würde auch ein Synchronize einen Deadlock erzeugen.

[Harry Stahl]

Zitat von Sir Rufo:

Das TParallel.&For() ist wie ein

Delphi-Quellcode:

LTask := Task.Run( ... );
LTask.Wait();

Und dort würde auch ein Synchronize einen Deadlock erzeugen.

Aber nur wegen des LTask.Wait.

Zitat von Uwe Raabe:

Du kannst das in deinem Beispiel sehen, wenn du nach dem TParallel.For einfach noch eine Zeile

  ListBox1.Items.Add('Ende'); einfügst.

Das wird dann als erstes in die Liste eingefügt und erst später die Einträge aus dem Parallel.Loop. Daraus kann ich dann folgern, dass ich die ganze Zeit noch im Mainthread war, oder?

Aber grundsätzlich Danke, ich glaube, ich komme der Sache vom Verständnis her näher.