Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Prüfen, ob sich ein Befehl bereits im Stack befindet? (https://www.delphipraxis.net/191694-pruefen-ob-sich-ein-befehl-bereits-im-stack-befindet.html)

uups 10. Feb 2017 21:45

Prüfen, ob sich ein Befehl bereits im Stack befindet?
 
Guten Abend,

besteht eine Möglichkeit zu prüfen, ob sich ein Befehl bereits im Stack befindet, bevor man den gleichen Befehl nochmal hinzufügt?

In meinem Projekt benutze ich QuantumGrid von DevExpress in Verbidnung mit einer CustomDataSource, die ununterbrochen mit neuen Daten gefüllt wird. Damit die neuen Daten im Grid angezeigt werden, muss ich immer wieder eine und dieselbe Methode
Delphi-Quellcode:
DataChanged()
ausführen. Da die Daten von Theads bereitgestellt werden und die Ausführung der Methode unbedingt synchronisiert erfolgen muss und anderseit keinesfalls vom Thread abhängig ist, packe ich den Befehl in eine anonyme Thread-Methode und lege diese auf den Stack:

Delphi-Quellcode:
TThread.Queue(nil, procedure() begin cdsAllData.DataChanged; end);


Darüber hinaus müssen für alle Gridrecords noch die Bilder nachgeladen und auch wieder mit
Delphi-Quellcode:
DataChanged()
im Grid sichbtar gemacht werden.

Manchmal kommen auf einmal so viele Datenpakete rein, dass der sich im Stack bereits mehrere o.g. Befehle warten, während ein Thread im Begriff ist, den gleichen Befehl erneut hinzuzufügen. Dabei hatte die nächste
Delphi-Quellcode:
DataChanged()
aus dem Stack bereits alles erledigt.

bepe 11. Feb 2017 07:31

AW: Prüfen, ob sich ein Befehl bereits im Stack befindet?
 
Hi,

der Titel ist etwas verwirrend. Es geht dir nicht um den Stack sondern um die Queue des Mainthread.

In deinem Fall würde ich die Threads gar nicht das Aktualisieren des Grids anstoßen lassen. Die sollten nur ein Event feuern oder ein Signal setzen, welches den Mainthread veranlasst etwas zu machen.

Du könntest z.B. eine globale Variabel definieren (Integer). Diese wird von Threads per InterlockedIncrement hochgezählt sobald Daten vorliegen. Im App Idle (TApplicationEvents OnIdle (so ungefähr)) prüfst du mit InterlockedExchange ob der Wert ungleich 0 ist. Wenn ja, dann Daten anzeigen.

Es gibt noch mehr Möglichkeiten; eleganter und aufwändiger. Stichworte wären ggf. Events, Sempahore, Monitor...Man könnte auch eine eigene Queue implementieren, welche keine Dubletten gestattet. Wichtig ist halt, die Threads dürfen nur ein Signal geben.


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:50 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