TMessageManager/SendMessage

[TigerLilly]

Ich habe in meinem Formular dieses, um Messages zu empfangen + als Status ausgeben zu können:

Delphi-Quellcode:

 MessageManager := TMessageManager.DefaultManager;
  SubscriptionId := MessageManager.SubscribeToMessage(TMessage<UnicodeString>,
    procedure(const Sender: TObject; const M: TMessage)
    begin
      lblStatus.Text := (M as TMessage<UnicodeString>).Value;
    end);

Eine Methode, die länger braucht, wird so aufgerufen:

Delphi-Quellcode:

    TTask.Run(procedure()
    begin
      LoadXML(dlgOpenXML.FileName);
    end);

Im LoadXML wird so der Status versandt:
Die Nachricht wird so versandt:
    TMessageManager.DefaultManager.SendMessage(nil, TMessage<UnicodeString>.Create(xNode.Text), True);
Das führt aber nach ein paar 100 Nachrichten zu einer Zugriffsverletzung. Übersehe ich da etwas?

[TurboMagic]

1. Zugriffsverletzung an welcher Stelle?

2. Soweit mir bekannt arbeitet dieses Messagjng synchron,
wenn du also im Empfangsevent der Nachricht mit GUI
Controls interagierst und die Message von einem Thread
verschickt wurde muss es Mal knallen.

[TigerLilly]

Die Zugriffsverletzung entsteht irgendwo in der RTL bei den Threads. Ohne Sender Message läuft das ohne Probleme.

In einem anderen Thread
https://www.delphipraxis.net/202390-...alisieren.html

wurde dieses Vorgehen vorgeschlagen.

[TiGü]

Delphi-Quellcode:

 MessageManager := TMessageManager.DefaultManager;
  SubscriptionId := MessageManager.SubscribeToMessage(TMessage<UnicodeString>,
    procedure(const Sender: TObject; const M: TMessage)
    begin
      if TThread.Current.ThreadID <> MainThreadID then
        raise EProgrammerNotFound.Create('Ich komme aus dem Thread-Kontext des Tasks, also muss ich den Zugriff auf das Label lblStatus im Mainthread synchronisieren!');

      lblStatus.Text := (M as TMessage<UnicodeString>).Value;
    end);

[TigerLilly]

Das heisst, das Problem ist, dass ich hier auch auf Messages reagiere, die gar nicht von mit selber komen?

Ich müsste also TMessage<TnurVonMirString> registrieren und alles ist gut?

[TiGü]

Nein, dass ist die völlig falsche Schlussfolgerung.

Du hast einen Workerthread, in dessen Kontext die Task ausgeführt wird.
Innerhalb dieses Kontextes greifst du auf ein VCL-TLabel zu.
Auf VCL-Komponenten darf nur innerhalb des Mainthreads zugegriffen werden.
Das weißt du, dass wird hier auch an jeder Ecke oft erklärt.
In dem von dir verlinkten Thread hast du die richtige Vorgehensweise mit TThread.Synchronize schon drin, einfach wieder mit übernehmen.