Threads: Variablen zwischen zwei Threads austauschen / Messages

[a.def]

Situation:
ich habe zwei Threads. Der eine erledigt die Arbeit und weist an bestimmten Stellen Variablen einen Wert zu. Hier wird ein String zugewiesen und eine Ganzzahl.

Der zweite Thread ließt diese Variablen aus. Der alte Wert wird immer zwischengespeichert. Sobald eine Änderung vorhanden ist wird die GUI aktualisiert.
Zusätzlich achte ich darauf, dass das in nicht weniger als 100ms passiert. Also maximal 10 GUI-Änderungen pro Sekunde.

Wie kann man Daten zweier Threads untereinander austauschen wenn man Messages benutzen möchte?
Mein aktueller Ansatz funktioniert einwandfrei und ohne Probleme. Aber hier im Forum wurde erwähnt, dass das nicht optimal sei und Messages besser wären.

Mein Problem: um die Variablen komme ich nicht herum. Die brauche ich in jedem Fall.

[hoika]

Hallo,
wo hast du das mit den Messages gelesen?
Vielleicht ist gemeint, dass der Datenthread bei einer Änderung einen anderen Thread informiert,
dass es Änderungen gibt.
Das geht z.B. über Events, also so ähnlich wie ein FormCreate, was ja auch eine Event ist.

Sollen es mehrere Anzeigethreads sein, wäre eine Eventliste nötig
(nennt sich auch Publisher-Subscriber-Pattern).

[a.def]

Es gibt in der Tat mehrere Anzeigethread. Insgesamt zwei. Die habe ich damals erstellt, damit der Arbeiterthread nichts mit mit der GUI zu tun hat.
Das mit den Messages kam hier her: http://www.delphipraxis.net/newreply...ime=1485363465
EventList? Spanisch :(

Ich sehe gerade das hier

Delphi-Quellcode:

procedure TForm2.Button2Click(Sender: TObject);
begin
 Fmsg.Msg := 12345;
 FMsg.WParam := 2345;
 SendMessage(FMyThread.GetWNDHandle,FMsg.Msg,FMsg.WParam,FMsg.LParam);
end;

http://www.delphipraxis.net/136578-w...empfangen.html

Damit und dann im Thread mit PeekMessage müsste ich doch eigentlich alles realisieren können oder ist das auch wieder nicht-optimal? Es muss nicht perfekt sein. Aber besser als aktuell wäre toll :stupid: (ständig pollen, Integer-Vergleiche usw)

[himitsu]

Windows-Controls verarbeiten ihre Messages in dem Thread, wo sie erstellt wurden. (dafür kann man sich im Thread etwas wie ein MessageOnlyWindow erstellen)
Und dann gibt es auch noch PostThreadMessage, womit man Messages direkt an einen Thread senden kann, also quasi ein PostMessage mit HWND=0.

Man muß in dem entsprechenden Thread natürlich die Messages verarbeiten.
Für den Hautptthread/VCL-Thread macht das die VCL von sich aus. (Application.Run und Application.ProcessMessages)
Im Prinzip nutzt man so eine Queue des System, welche sich auch noch selber synchronisiert.

PS: in dem Beispielcode von Antwort #9 sind Fehler drin.
Das Erstellen

Delphi-Quellcode:

FWNDHandle := AllocateHWnd(WndProc);

und Freigeben des Message-Windows muß natürlich in den Thread (Execute) rein.
Nur Execute und von dort aus Aufgerufenes läuft in dem anderen Thread und das Create noch in dem aufrufenden Thread, der das Create aufrief.

[a.def]

Ich teste gerade ein bisschen mit PostThreadMessage und PeekMessage herum.
Das Ergebnis von PostThreadMessage ist komischerweise immer false, obwohl der Thread existiert den ich anpeile.

Mein Aufruf sieht so aus:

Delphi-Quellcode:

type
 TThreadMessages = packed record
 const
  THREAD_UPDATE_UI = 1;
  // ....
  // ...
 end;

var
 aThreadMessages: TThreadMessages;

// Arbeiterthread ruft auf ...
PostThreadMessage(GUIThread.ThreadID, aThreadMessages.THREAD_UPDATE_UI, 0, 0); // immer false

// GUI-Thread fragt ab ...
var
 MessageData: TMsg;

if (PeekMessage(MessageData, 0, 0, 0, PM_REMOVE)) then
 if MessageData.message = aThreadMessages.THREAD_UPDATE_UI then
  // ...

Die Fehlermeldung lautet "ungültiger Threadbezeichner" :roll:

Edith
ein Aufruf von

Delphi-Quellcode:

PeekMessage(MessageData, 0, 0, 0, PM_NOREMOVE);

ganz am Anfang im Thread hat für Abhilfe gesorgt.
Nur ist das jetzt alles OK so?