AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

TMessageManager/SendMessage

Ein Thema von TigerLilly · begonnen am 9. Jan 2020 · letzter Beitrag vom 12. Jan 2020
Antwort Antwort
Seite 1 von 2  1 2   
TigerLilly

Registriert seit: 24. Mai 2017
Ort: Wien, Österreich
1.172 Beiträge
 
Delphi 11 Alexandria
 
#1

TMessageManager/SendMessage

  Alt 9. Jan 2020, 18:35
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?
  Mit Zitat antworten Zitat
TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
2.772 Beiträge
 
Delphi 12 Athens
 
#2

AW: TMessageManager/SendMessage

  Alt 9. Jan 2020, 20:46
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.
  Mit Zitat antworten Zitat
TigerLilly

Registriert seit: 24. Mai 2017
Ort: Wien, Österreich
1.172 Beiträge
 
Delphi 11 Alexandria
 
#3

AW: TMessageManager/SendMessage

  Alt 10. Jan 2020, 08:07
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.
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.058 Beiträge
 
Delphi 10.4 Sydney
 
#4

AW: TMessageManager/SendMessage

  Alt 10. Jan 2020, 08:51
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);
  Mit Zitat antworten Zitat
TigerLilly

Registriert seit: 24. Mai 2017
Ort: Wien, Österreich
1.172 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: TMessageManager/SendMessage

  Alt 10. Jan 2020, 09:14
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?
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.058 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: TMessageManager/SendMessage

  Alt 10. Jan 2020, 10:20
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.
  Mit Zitat antworten Zitat
TigerLilly

Registriert seit: 24. Mai 2017
Ort: Wien, Österreich
1.172 Beiträge
 
Delphi 11 Alexandria
 
#7

AW: TMessageManager/SendMessage

  Alt 10. Jan 2020, 10:49
FMX, nicht VCL.

Ich greife ja nicht im gliechen Kontext auf den Label zu. Ich habe einen Task, der tut was und versendet Messages.
Mein MainThread ist derweil im Leerlauf und arbeitet die messages ab. Synchronize braucht es da nicht.

PS: Eigentlich wollte ich auf diesen Thread verlinken:
https://www.delphipraxis.net/202388-...alisieren.html
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.058 Beiträge
 
Delphi 10.4 Sydney
 
#8

AW: TMessageManager/SendMessage

  Alt 10. Jan 2020, 11:40
FMX, nicht VCL.

Ich greife ja nicht im gliechen Kontext auf den Label zu. Ich habe einen Task, der tut was und versendet Messages.
Mein MainThread ist derweil im Leerlauf und arbeitet die messages ab. Synchronize braucht es da nicht.

PS: Eigentlich wollte ich auf diesen Thread verlinken:
https://www.delphipraxis.net/202388-...alisieren.html
FMX oder VCL spielt keine Rolle, für beide gelten die gleichen Regeln.

Wenn dem so ist, wie du glaubst und behauptest, dann könntest du ja einfach meine If-Abfrage mit der EProgrammerNotFound-Exception einfügen.
Wenn die Exception kommt, dann hast du einen Denkfehler und musst das einfach umsetzen, was dir schon empfohlen wurde.
Wenn die Exception nicht kommt, dann enthältst du uns Informationen vor, die dir zwar klar sein mögen, aber uns aufgrund des Nichtvorhandenseins des Quelltextes der Funktion LoadXML() nicht ersichtlich sind.

PS: Im neuen verlinkten Thread wird von Mavarik in der Methode TForm319.UpdateUI auch mithilfe von TThread.Queue() aus dem Thread-Kontexts des Tasks heraus in den Mainthread synchronisiert.
  Mit Zitat antworten Zitat
TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.058 Beiträge
 
Delphi 10.4 Sydney
 
#9

AW: TMessageManager/SendMessage

  Alt 10. Jan 2020, 11:45
Um nochmal sicher zu gehen - weil ich hier eine Wissenslücke vermute - wenn du TTask.Run() schreibst, machst du einen Thread auf (bzw. benutzt einen vorhandenen Workerthread) der UNGLEICH des Mainthreads ist.

Wenn du darin Dinge tust, wie zum Beispiel den TMessageManager zu benutzen, der dann für die jeweilige Message die angemeldete Callback/Event-Methode aufruft und in der auf visuelle Komponenten zugegriffen werden, dann ist das falsch!

Der TMessageManager ist kein abgekoppeltes Gelumpe wie die Windows PostMessage-Funktion.
Das ist ein ganz schnödes Observer-Pattern.
Du musst als Benutzer/Client dafür sorgen, dass alles in seinen richtigen Threadkontext passiert.
  Mit Zitat antworten Zitat
Rollo62

Registriert seit: 15. Mär 2007
3.882 Beiträge
 
Delphi 12 Athens
 
#10

AW: TMessageManager/SendMessage

  Alt 10. Jan 2020, 16:21
Delphi-Quellcode:
  // in TTask.Run
  //

  ...
  LTxt := xNode.Text;

  TThread.Queue(
    nil,
    procedure
    begin
         TMessageManager.DefaultManager.SendMessage(nil, TMessage<UnicodeString>.Create(LTxt) );
    end);

   ...
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:51 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz