Datenaustausch zwischen Threads (Sync)

[chaosben]

[QUOTE=Sir Rufo;1126379]

Zitat:

Zitat von chaosben (Beitrag 1126360)

Der Aufwand die beiden zu implementieren bleibt aber gleich, somit würde ich dem TMultiReadExclusiveWriteSynchronizer wohl doch den Vorzug geben :)

Seit ich weiß, wie langsam der TMREWS ist, mag ich ihn nicht mehr. :)
Oder anders gesagt: Wenn man keine rekursiven Aufrufe oder Elevation braucht, ist SlimReadWriteLock die viel schnellere Variante.

[fuchsle]

Hallo,

vielen Dank für eure Antworten, durch eine Erkältung komm ich erst jetzt wieder zur Sache.

Habe mich nun was die kritischen Bereiche betrifft versucht kundig zu machen.
Mit einem kritischen Bereich schütze ich Speicherbereiche.
Wenn ich nun eine Property damit schützen möchte, so muss ich die Methode für den kritischen Bereich in die Lese- und in die Schreibmethode der Property packen?

Delphi-Quellcode:

function ThreadValue.getNO2_10: Double;
begin
  try
    CSNO2_10.Acquire; // lock out other threads 
    Result := FNO2_10;
  finally
    CSNO2_10.Release;
  end;
end;

Delphi-Quellcode:

procedure ThreadValue.setNO2_10(const Value: Double);
begin
  try
    CSNO2_10.Acquire; // lock out other threads 
    FNO2_10 := Value;
  finally
    CSNO2_10.Release;
  end;
end;

So habe ich die Kritischen Bereiche definiert:

Delphi-Quellcode:

type
  ThreadValue = class(TThread)

  private
    { Private-Deklarationen }

    CSNO2_10: TCriticalSection;
    CSNO2_06: TCriticalSection;
    CSCompAir: TCriticalSection;
    CSCoolant: TCriticalSection;

Delphi-Quellcode:

{ ThreadGetValue }

procedure ThreadValue.Execute;
begin
  CSNO2_10 := TCriticalSection.Create;
  CSNO2_06 := TCriticalSection.Create;
  CSCompAir := TCriticalSection.Create;
  CSCoolant := TCriticalSection.Create;

Wenn ich nun mit meinem anderen Thread

Delphi-Quellcode:

type
  ThreadTCP = class(TThread)
  private
    { Private-Deklarationen }
    media: ThreadValue;

Versuche eine der Propertys aus zu lesen:

Delphi-Quellcode:

Self.FNO2_10 := media.NO2_10;

so sehe ich, beim debuggen, dass die Methode

Delphi-Quellcode:

CSNO2_10.Acquire; // lock out other threads

Immer einen Fehler verursacht und dadurch nie ein Wert gelesen werden kann.

Ich bin davon ausgegangen, dass mir eine lokale CriticalSection genügt, wenn diese in der "set" und "get" Methode eingebunden ist.

Vielen Dank für die weitere Hilfe runter vom Holzweg :(

[chaosben]

Die allseits beliebte Frage lautet: Welcher Fehler tritt auf?

Desweiteren brauchst du bei simplen Typen (Integer, ...) nur die Schreibzugriffe schützen.
Nur bei Daten, die nicht in einer Aktion geschrieben werden können, sollte man andere lesende Threads aussperren, damit sie keine "halben" Daten lesen.

[FredlFesl]

Zitat:

Zitat von fuchsle (Beitrag 1127480)

Delphi-Quellcode:

function ThreadValue.getNO2_10: Double;
begin
  try
    CSNO2_10.Acquire; // lock out other threads 
    Result := FNO2_10;
  finally
    CSNO2_10.Release;
  end;
end;

Das Acquire muss vor das try.

Delphi-Quellcode:

MyCriticalSection.Acquire;
Try
  DoSomethingWhichMightCrash();
Finally
  MyCriticalSection.Release
End;

[schlecki]

Zitat:

Zitat von chaosben (Beitrag 1127596)

Desweiteren brauchst du bei simplen Typen (Integer, ...) nur die Schreibzugriffe schützen.

Und das afaik auch nur, wenn man den Wert vor dem Ändern ausliest, oder?
Wenn es denn eine atomare Änderung ist, braucht die nicht geschützt werden...

[fuchsle]

Zitat:

Zitat von schlecki (Beitrag 1127617)

Zitat:

Zitat von chaosben (Beitrag 1127596)

Desweiteren brauchst du bei simplen Typen (Integer, ...) nur die Schreibzugriffe schützen.

Und das afaik auch nur, wenn man den Wert vor dem Ändern ausliest, oder?
Wenn es denn eine atomare Änderung ist, braucht die nicht geschützt werden...

Wenn ich nur beim Schreiben schützen muss und nur ein Thread schreibt, so sollte ich mir jeglichen Schutz sparen können?
Geht es nicht darum zu verhindern, dass gelesen wird, wärend geschrieben wird?

Zitat:

Zitat von FredlFesl (Beitrag 1127601)

Zitat:

Zitat von fuchsle (Beitrag 1127480)

Delphi-Quellcode:

function ThreadValue.getNO2_10: Double;
begin
  try
    CSNO2_10.Acquire; // lock out other threads 
    Result := FNO2_10;
  finally
    CSNO2_10.Release;
  end;
end;

Das Acquire muss vor das try.

Delphi-Quellcode:

MyCriticalSection.Acquire;
Try
  DoSomethingWhichMightCrash();
Finally
  MyCriticalSection.Release
End;

Habe ich gemacht.
sobald nun über den anderen Thread versucht wird die Property aus zu lesen, wird in der Funktion beim versuch das Aquire zu setzen abgebrochen.

Zitat:

Zitat von chaosben (Beitrag 1127596)

Die allseits beliebte Frage lautet: Welcher Fehler tritt auf?

Desweiteren brauchst du bei simplen Typen (Integer, ...) nur die Schreibzugriffe schützen.
Nur bei Daten, die nicht in einer Aktion geschrieben werden können, sollte man andere lesende Threads aussperren, damit sie keine "halben" Daten lesen.

Fehler: Zugriffsverletzung bei Adresse 005E4D 10 in Modul 'MediaController.exe'. Lesen von Adresse 00000064.

[fuchsle]

Erstmal Herzlichen Dank Euch allen!!

Ich habe einiges dazu gelernt und bin wirklich dankbar.
Leider muss ich zugeben, dass es, nicht anderst wie erwartet an mir lag.
Nach einigem hin und her, habe ich vergessen eine Zeile wieder aus zu kommentieren,
leider das Create für den Thread auf den ich zugriefen will.

Schande über mein Haupt :wall:

Nach dem Auskommentieren und der Berücksichtigung der letzten Kommentare geht es nun.