TThread.Queue landet nicht in der Queue

[himitsu]

Da ist es noch nie zu einer Endlosschleife gekommen ... ich wüsste jetzt auch nicht, wie es dazu kommen sollte.
OK, ich könnte mir eventuell denken, wie es dazu kommen könnte, aber das liegt halt an dem "falschen" Verhalten. (würde nicht passieren, wenn es "richtig" funktionieren würde )

Zitat von Sir Rufo:

Es gibt auch noch eine ganz billige Methode ohne Thread. Dabei wird der Code am Ende der Methode/Prozedur ausgeführt:

Ist noch zu früh ... erstmal muß der ganze DevExpress- und VCL-Rotz "hinter" dem END auch noch ausgeführt werden, weil es sonst knallt.

Sieht bei mir praktisch so aus.
Heißt nur deshalb nicht .Queue, damit der Compiler meckert, wenn man vergessen hat die Unit mit dem Helper einzubinden.

Delphi-Quellcode:

type
  TThreadHelper = class helper for TThread
  public
    {$REGION 'Documentation'}
    ///   <summary>
    ///     BUGFIX: Da TThread.Queue vom Hauptthread aus nicht in der Queue landet, sondern sofort ausgeführt wird.
    ///   </summary>
    {$ENDREGION}
    class procedure Queue_Bugfix(AThread: TThread; AThreadProc: TThreadProcedure); overload; static;
  end;

class procedure TThreadHelper.Queue_Bugfix(AThread: TThread; AThreadProc: TThreadProcedure);
begin
  if (MainThreadID = CurrentThread.ThreadID) and not Assigned(AThread) then begin
    // wenn im Hauptthread aufgerufen, dann an Thread übergeben
    // die **** führen das sonst sofort aus, anstatt es an die Queue zu übergeben
    CreateAnonymousThread(procedure
      begin
        try
          Queue(AThread, AThreadProc);
        except
          on E: Exception do
            ShowException(E, nil);
        end;
      end).Start;
  end else
    Queue(AThread, AThreadProc);
end;

[BUG]

Man könnte die Semantik von Queue so sehen: Eine an Queue übergebene Prozedur wird zu einem beliebigen Zeitpunkt nach dem Aufruf im Hauptthread ausgeführt.
Dein eigentliches Problem ist (mit etwas Schielen) eine Race-Condition mit dem Code, der nach Queue ausgeführt wird. Analog gibt es dieses Problem auch aus anderen Threads, nur da achtest du mehr darauf.

Zitat von himitsu:

Sieht bei mir praktisch so aus.

Das ist aber schon ein ziemlicher Hammer, für solche Workarounds einen zusätzlichen Thread zu benutzen.

[Der schöne Günther]

Nur wie gesagt, ich bin da jetzt kein Spezialist für, aber je nachdem, wie "async"-verdorben man schon ist und wie oft man so etwas macht, wäre es vielleicht besser, sich einmal so einen Thread anzulegen, der dann dafür immer mittels Event aufgeweckt wird. Vielleicht noch den "Delay", wann es reingequeued wird, einstellbar machen

Aber ganz ehrlich, ja, so mache ich das auch

Application.OnIdle habe ich mir noch nicht angeschaut. Gibt das vielleicht noch etwas tolles her?

[himitsu]

Ja, der Code ist halt schön kurz/einfach.

Aber dafür wird das auch sehr selten, wenn überhaupt, aufgerufen.