Einzelnen Beitrag anzeigen

Bambini
(Gast)

n/a Beiträge
 
#2

AW: Problem: Mehrere Threads auf ein Dictionary

  Alt 11. Mai 2015, 14:29
Das Suchen und hinzufügen in TDictionay muß bei Threads gegen parallele Zugriffe geschützt werden.
D.h. sollte das ContainsKey false zurück liefern und den Eintrag hinzugefügt werden,
müss man diesen Bereich in ein TCriticalSection Bereich durchgeführt werden.

Wenn zur gleichen Zeit eine weitere Abfrage kommt, wird diese diesen Eintrag
auch in das Dictinary einstellen wollen. Was dann zu den genannten Fehlermeldung führt.

Delphi-Quellcode:
var
  FLock : TCriticalSection;

procedure TTeItemInfo.AddSmallDataFromListAsync(list: TList<TeItemDB.TTeItemDBData>; lang: TTeLanguage);
begin
  FEs := TTask.Create(procedure()
  var
    i: Integer;
    s: String;
  begin
    if not Assigned(FLock) then
      FLock := TCriticalSection.Create

    for i := 0 to list.Count -1 do
    begin
      FLock.Enter;
      if smalldata.ContainsKey(list[i].id) = false then
      begin
        s := DownloadInfo(list[i].id, lang.LoadedLanguage);
        AddSmallInfo(s,list[i].id,lang);
      end;
      FLock.Leave;
    end;
    if Assigned(FOnUpdate) then FOnUpdate(self);
  end);
  FEs.Start;
end;

Geändert von Bambini (11. Mai 2015 um 14:34 Uhr)
  Mit Zitat antworten Zitat