TList in Thread synchronisieren (CriticalSection)

[Zacherl]

Hey,

ich habe ein kleines Problem. Und zwar habe ich eine von TThread abgeleitete Klasse, welche in einer Schleife Daten aus einer Liste bearbeitet:

Delphi-Quellcode:

while not Terminated do
begin
  for I := 0 to FList.Count - 1 do
  begin
    // blabla ..
  end;
end;

Der Thread hat entsprechende Methoden, um Daten zur Liste hinzuzufügen, zu entfernen oder zu verschieben. Jetzt habe ich ein paar Fragen:
:arrow: Muss ich hier die Zugriffe überhaupt synchronisieren oder regelt TList das intern?
:arrow: Wenn ja, wie mache ich das am geschicktesten?

Ich hatte mal testweise ein privates Feld CS: TCriticalSection angelegt, welches ich folgendermaßen innerhalb des Threads verwende:

Delphi-Quellcode:

while not Terminated do
begin
  CS.Enter;
  for I := 0 to FList.Count - 1 do
  begin
    // blabla ..
  end;
  CS.Leave;
end;

Die Methoden zum Ändern der Liste wurden entsprechend mit Enter und Leave geklammert.
:arrow: Das Problem war nun, dass beim Aufruf von z.B. AddData() der Main Thread dauerhaft blockiert wurde, die CriticalSection im Thread also scheinbar nie released wurde.

Hat jemand da paar Tips für mich? :) Achso der Thread ist zeitkritisch. Einbauen von Sleep oder Ähnlichem ist hier keine Lösung.

Viele Grüße
Zacherl

[Astat]

Hallo Zacherl, wenn die TList nur intern im Thread verwendet wird, brauchst Du keine Synchronisation.
Sobald ein anderer Thread auf diese Liste zugreift, musst Du synchronisieren.
Für soetwas gibt es die TThreadList (sollte in Delphi auch so heissen)

lg. Astat

[Zacherl]

Ah vielen Dank, diese TThreadList sieht gut aus. Da die Methoden wie AddData(), etc. vom Main Thread aus aufgerufen werden sollen, nehme ich mal an, dass eine Synchronisation notwendig sein wird.

[Astat]

Zitat:

Zitat von Zacherl

Ah vielen Dank, diese TThreadList sieht gut aus. Da die Methoden wie AddData(), etc. vom Main Thread aus aufgerufen werden sollen, nehme ich mal an, dass eine Synchronisation notwendig sein wird.

Ja, mit LockList Liste sperren, dann damit arbeiten.

lg. Astat

[Zacherl]

Danke dir, ich probier mal ob das dann besser funktioniert als mit TCriticalSection :lol:

[himitsu]

Jupp, TList ist nicht threadsicher.

(Wenn auf irgendwas nur innerhalb irgendeines Threads und nur in diesem, zugegriffen wird, dann muß man nichts absichern)


PS: um Daten einer Liste abzuarbeiten, hatt ich mir mal dieses gebastelt
http://www.delphipraxis.net/internal...t.php?t=167796

Zitat:

Das Problem war nun, dass beim Aufruf von z.B. AddData() der Main Thread dauerhaft blockiert wurde, die CriticalSection im Thread also scheinbar nie released wurde.

erstmal der Resourcen-Schutzblock:

Delphi-Quellcode:

while not Terminated do
begin
  CS.Enter;
  try
    for I := 0 to FList.Count - 1 do
    begin
      // blabla ..
    end;
  finally
    CS.Leave;
  end;
end;

Denn wenn etwas passiert (z.B. eine Exception), dann wird da wirklich kein .Leave aufgerufen. :warn:

Und dann rufst du praktisch direkt nach dem .Leave fast sofort wieder .Enter auf.
Wenn also hier Windows nicht rein zufällig an dieser Stelle eine Pause einlegt und den anderen Threads so überhaupt die Möglichkeit gibt hier einzusteigen, dann kann auch nie ein anderer Thread an der Stelle die CS "übernehmen".

Delphi-Quellcode:

while not Terminated do
begin
  CS.Enter;
  try
    for I := 0 to FList.Count - 1 do
    begin
      // blabla ..
    end;
  finally
    CS.Leave;
  end;
  Sleep(0);
end;

0 gibt nur für einen "Zyklus" die Kontrolle ab,
so daß die anderen Threads überhaupt 'ne Chance bekommen.
Unter Umständen könnte hier aber auch eine noch längere Pause hilfreich sein.

[Zacherl]

Danke dir für deine ausführliche Antwort. Deinen Stack werde ich mir mal ansehen, das sieht interessant aus :) Der kleine Code eben war nur ein Beispiel. Im richten Programm hatte ich natürlich mit try .. finally gearbeitet. Mit der ThreadList funktioniert es bisher auch ohne Sleep() relativ gut. Manchmal muss der Main Thread allerdings schon einige Zeit warten. Ich teste das ganze mal mit einem Sleep(0) oder Sleep(1). Das könnte von der Performance her grade noch vertretbar sein.

Edit: Mit Sleep(0) sieht es ziemlich perfekt aus :love:

[himitsu]

Zitat:

Zitat von Zacherl

Edit: Mit Sleep(0) sieht es ziemlich perfekt aus :love:

:angel:

Zitat:

Zitat von Zacherl

Deinen Stack werde ich mir mal ansehen, das sieht interessant aus :)

Nur D2005 und Generics könnte etwas problematisch werden :oops:

[Zacherl]

Zitat:

Zitat von himitsu

Nur D2005 und Generics könnte etwas problematisch werden :oops:

Oh das benutze ich zum Glück schon länger nicht mehr :mrgreen: Hab nur mein Profil lange nicht aktualisiert.