Strings thread-safe übergeben

[jus]

Hallo,

ich möchte paar Sachen in mehreren Threads auszulagern. Ich möchte aber in meinem Hauptprogramm von Threads auch Strings empfangen können. Da komme ich zu der grundsätzlichen Frage, wie empfängt man sauber, sprich thread-safe, im Hauptprogramm Strings von mehreren laufenden Threads? Bisher habe ich im Thread mit Postmessage Integer Werte zum Hauptprogramm verschickt, doch wie verschickt man Strings threadsafe?

lg,
jus

[Medium]

Strings, bzw. alles an nichtelementaren Typen, übergebe ich sehr gerne über Listen. Dem Thread also in deinem Fall einfach eine TSringList-Property mitgeben, an die der Thread selbst nur anhängt, aber nie selber etwas draus löscht bzw. ändert. Bei einem neuen Eintrag eine Windows-Message an alles was so zu benachrichtigen wäre verschicken, und dort dann lesen und löschen. (Bietet zudem die Option, eine LIFO oder FIFO Queue zu basteln.)
Grad bei Objekten mache ich es zudem ganz gerne so, dass ich zunächst eine lokale Arbeitsinstanz im Thread erstelle, diese komplett vorbereite, und dann das TList.Add() in einer CriticalSection erledige, so dass auch die letzte knall-gefährliche Ecke raus ist, und ich nicht auf die Implementierung von TList angewiesen bin threadsafe Add() zu haben. (Ich hab's aber auch ohne CS noch nie kaputtgehen sehen.)
Hat vor allem den Vorteil, dass ein zeitweise ausgebremster "Abholer" sobald wieder Luft ist alles verpasste in der richtigen Reihenfolge nachholen kann. Ob das wünschenswert ist, oder ob man sowas lieber skipped ist dann wieder vom konkreten Fall anhängig.

Bei der Übergabe zwischen zwei Threads übergehe ich dann noch ganz gern die Messages, und habe im Empfänger-Execute sowas stehen:

Delphi-Quellcode:

procedure TRecipientThread.Execute;
begin
  repeat
    if JobObjectList.Count > 0 then
    begin
      CurrentJobObject := JobObjectList[0];
      DoAllKindsOfStuffWith(CurrentJobObject);
      JobObjectList.Delete(0); // Das ist ne TObjectList mit OwnsObjects = true, daher kein .Free hier.
    end;
  until Terminated;
end;

Sowas ist im Thread der MainForm eher unpraktisch, daher dahin lieber die Messages.

Einzig unschöne daran ist, dass der Objektersteller nicht der Zerstörer ist, was mindestens einen entsprechenden Kommentar im Code bedarf. Aber ohne GC würden mir da wenige andere gute Wege einfallen, ausser die Gegenrichtung genau so zu gestalten: Nachricht an Thread: "Lösche bitte gleich deinen ersten Listeneintrag." - konsequenter, aber irgendwie auch nicht so wirklich viel schöner.

[Sir Rufo]

Wenn die Übergabeliste eine TObjectList (OwnsObjects) dann ist das nicht unschön.
Die Objekte werden beim Abholen aus der TObjectList dort entnommen (Extract), also die Zuständigkeit übernommen.

Somit können auch keine Speicherlecks entstehen.

[Medium]

Extract ist auch fein, stimmt. Dann am besten noch über eine Property "NextObject", so dass der Abholer nichtmals mehr den Fehler machen kann nur die Referenz zu kopieren, und nicht zu Extracten. (Die Liste selbst also Private.) Das klingt noch runder, danke :)

[jus]

Wiedermal was dazugelernt. :thumb: Vielen Dank für eure Antworten!

Lg,
jus