Variable eines Record geht beim Multithreading verloren

[Rollo62]

Erstmal, TMessageManager ist nicht threadsafe.
Wenn man was drumrum synchronisiert, zum Beispiel um das SendMessage, dann sollte es aber funktionieren.

[Uwe Raabe]

Zitat von Rollo62:

Erstmal, TMessageManager ist nicht threadsafe.

Zumindest ist das aber so vorgesehen:

Delphi-Quellcode:

procedure TMessageManager.SendMessage(const Sender: TObject; AMessage: TMessage; ADispose: Boolean);
var
  Subscribers: TListenerList;
begin
  if AMessage = nil then
    raise Exception.CreateRes(@SArgumentInvalid);

  TMonitor.Enter(FListeners);
  try
    try
      if FListeners.TryGetValue(AMessage.ClassType, Subscribers) then
        Subscribers.SendMessage(Sender, AMessage);
    finally
      if ADispose then
        AMessage.Free;
    end;
  finally
    TMonitor.Exit(FListeners);
  end;
end;

Kannst du konkrete Fälle aufzeigen bei denen TMessageManager nicht thread-safe ist? (Ich will ja gar nicht ausschließen dass es die gibt.)

[Rollo62]

Ja, ich benutze das auch mit Queue und Synchronize, das macht es ja threadsafe.
Warum es nicht threadsafe ist, da ist Dalija sehr stark der Meinung, dass es das auf gar keinen Fall ist,
und hat deshalb NxHorizon rausgebracht
https://en.delphipraxis.net/topic/42...&comment=37053

https://en.delphipraxis.net/topic/70...us-nx-horizon/

Das kommt so an mehreren Stellen und verschiedenen Threads, wird wohl was dran sein.
Ich habe jetzt explizit auch keine Probleme damit, aber synchronisiere auch auch alles, da wo es nötig ist.

Vermutlich ist gemeint, dass man sich von außen um die Synchronisation kümmern muss, und das nicht implizit in TMessage eigebaut ist.