Frage zu TCriticalSection

[Errraddicator]

Hiho,

ich habe 1 Programm, das aus 1 Fenster und 2 dazugehörigen Threads besteht.
Das Fenster erstellt anfangs eine Liste (clientList) an Mandanten, die verarbeitet werden sollen.
Dann erzeugt es 2 Threads (TWorkerThread) welche dann diese Liste abwechselnd abarbeiten sollen.

Jetzt habe ich im Fenster 2 Funktionen, auf die die Beiden Threas zugreifen müssen.
- function TfrmMain.getNextClient(): String;
Diese Funktion gibt den 1. Eintrag aus clientList zurück und löscht diesen dann aus der Liste.
Diese Funktion soll halt so lange von beiden Threads in beliebiger Reihenfolge aufgerufen werden,
bis die Liste abgearbeitet ist.

- procedure TfrmMain.updateStatus(msg: String; panelNr: Integer);
Diese Funktion schreibt wie der Name sagt einen String in das Panel <panelNr> der TStatusBar.
Jeder Thread hat dabei 1 eigenes Panel, in das er Statusmeldungen schreibt.

In welcher Form muss ich da jetzt Critical Sections einbinden, dass sich die Threads nicht beim Zugriff auf diese beiden Funktionen behaken, sondern wie gewünscht funktionieren?

...

Ich hab zuerst versucht, die TCriticalSection in den entsprechenden Funktionen selbst einzubinden.
Das funktioniert dann 1, 2 x und dann hängt sich das Programm beim Aufruf dieser Funktionen auf.

Dann habe ich es versucht, die CriticalSection in meiner Thread.Execute() Funktion um die Funktionsaufrufe drumherum zu setzen, aber dann funktioniert das gar nicht mehr.

Hat wer ne Idee?


Besten Dank im Voraus

cu Patrick

[sirius]

1. Warum nimmst du hier nicht synchronize?

2. Du musst due CriticalSections an den Anfang und das Ende der Methoden setzen. Die CS dürfen aber nicht lokal definiert sein.
Edit: Und natürlich ein try..finally drumherum

[littleDave]

Wenn du von einem Thread aus auf die VCL-Komponenten zugreifen willst, solltest du Synchronize verwenden. CriticalSections reichen da nicht ganz aus (imho)

Edit: kein roter kasten

[sirius]

Zitat von littleDave:

CriticalSections reichen da nicht ganz aus (imho)

Ahja, das stimmt. Mit den CS tust du ja nur deine beiden Threads synchronisieren. du schaffst es aber niemals auch die VCL damit zu synchronisieren, dazu musst du schon den Mainthread anhalten (->synchronize)

[Apollonius]

Hier ist vielleicht sogar TThread.Queue besser als TThread.Synchronize. Der Thread muss ja nicht warten, bis die Statusmeldung eingetragen ist.

[sirius]

Zitat von Apollonius:

Hier ist vielleicht sogar TThread.Queue besser

Was ist das? --> Google -->

Zitat:

It is a somewhat newer method, so not so many Delphi developers are
aware of it.

Kennt mein D7 nicht

[Apollonius]

Hm. TThread.Queue funktioniert ähnlich wie Synchronize, wartet jedoch nicht darauf, dass der Hauptthread die Beendigung der Bearbeitung der Methode meldet.

[sirius]

Ja, die Online-Hilfe hat mir das mittlerweile auch schon gesagt.

[Errraddicator]

Zuerst hatte ich es auch mit Synchronize probiert, aber ich hab irgendwo im Netz (hier ??? ) gelesen, dass Synchronize ab Delphi6 wohl Probleme machen würde und man statt dessen Critical Section nehmen sollte...

D.h. ich muss jetzt wie vorgehen?
Die beiden Funktionen innerhalb des Freds mit Synchronize aufrufen und die Critical Section-Geschichte komplett vergessen?
Oder beides zusammen verwenden?

...

Ausserdem hatte ich noch ein Problem mit Synchronize:
TfrmMain.getNextClient() gibt mir ja nen String zurück und wenn ich diese Funktion jetzt mit Synchronize aufrufe:
Wie komm ich denn da an den Rückgabewert?

[sirius]

1. Synchronize macht Probleme. Zum Beispiel und vorwiegend in einer DLL. Da funktioniert es nämlich nicht. Ansonsten ist es ganz ok.

2. Du musst dir eine Hilfmethode in deine Threadklasse bauen. die rufst du über synchronize auf und die kann dann deine Zielmethode aufrufen und die Variablenübergabe erledigen

3. alternavtie zu Synchronize (Vielleicht klappt es ja)