Windows Messages in einem (TThread-)Thread empfangen

[Bummi]

@DeddyH
:thumb: hatte der TE eh drin, ist mir beim Debuggen passiert und übersehen worden

[Viktorii]

Hmmm... Wird so das Fenster nicht im Kontext des Hauptthreads erzeugt?

Das Fenster wird im Constructor des TThread Objekts erzeugt. Und der Constructor läuft ja im Kontext des Hauptthreads, oder?

Somit würde doch sowohl das neue Fenster als auch die WndProc im Haupthread laufen, auch wenn die WndProc zum TThread gehört?

Oder habe ich da jetzt einen Denkfehler?


Wie kann ich das verifizieren?

Im TThread Objekt kann ich das mit

Delphi-Quellcode:

OutputDebugString(PWideChar('ThreadID: ' + IntToStr(Self.ThreadID)));

machen, weil ThreadID eine Eigenschaft von TThread ist.

Wie kann ich die ThreadID in einer Methode von TForm abgeleiteten Objekts herausbekommen?

[DeddyH]

Das ist ein MessageOnly-Window, das nicht an irgendwelche Steuerelemente gebunden ist. Es läuft somit auch nicht im Kontext des MainThreads. Und was meinst Du mit der 2. Frage? Du kannst doch auf ThreadInstanz.ThreadId (lesend) zugreifen, oder meinst Du etwas anderes?

[himitsu]

Wenn man Messages in einem Thread empfangen will, dann muß das Window auch innerhalb des Threads erzeugt werden, da PostMessage und Co. die Nachrichten an die Nachrichtenschleife des Threads sendet, welcher mit dem Wiondows verbunden ist.
Auch SendMessage wird dann innerhalb des entsprechenden Threads ausgeführt.

Also sollen die Messages im Thread ankommen und verarbeitet werden, dann muß das Windows auch im Thread erstellt werden.
Ansonsten kann man auch gleich das Handle seiner Form oder von Applivation verwenden.

Falls ihr noch etwas Zeit habt, dann kann ich nach der Arbeit mal eine Message-Thread-Klasse hochladen. (hab da was rumliegen)

[sirius]

@visktorii

Deine whileschleife ist falsch.

Die sollte so lauten:

Delphi-Quellcode:

while getmessage(msg,0,0,0) do dispathcmessage(msg);

Dann musst du noch die Methode Terminate verdekcen und darin Postquitmessage(0);Postthreadmessage(... wm_Quit ...); dazufügen.

[Viktorii]

Zu meiner zweiten Frage: Ich habe sowas hier gesucht: http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx


Nun habe ich mir mal anzeigen lassen, was in welchem Thread läuft:

Delphi-Quellcode:

Debug-Ausgabe: TFormMain.WndProc - ThreadID: 32408 Prozess reDesign.exe (24708)
Debug-Ausgabe: TFormMain.WndProc - ThreadID: 32408 Prozess reDesign.exe (24708)
Debug-Ausgabe: TFormMain.WndProc - ThreadID: 32408 Prozess reDesign.exe (24708)
Debug-Ausgabe: TMyThread.Create - ThreadID: 32408 Prozess reDesign.exe (24708)
Debug-Ausgabe: TFormMain.Create - ThreadID: 32408 Prozess reDesign.exe (24708)
Debug-Ausgabe: TMyThread.Execute - ThreadID: 23024 Prozess reDesign.exe (24708)
Debug-Ausgabe: TMyThread.WndProc - ThreadID: 32408 Prozess reDesign.exe (24708)
Debug-Ausgabe: TFormMain.WndProc - ThreadID: 32408 Prozess reDesign.exe (24708)
Debug-Ausgabe: TMyThread.WndProc - ThreadID: 32408 Prozess reDesign.exe (24708)
Debug-Ausgabe: TFormMain.WndProc - ThreadID: 32408 Prozess reDesign.exe (24708)

Und wie ich hier glaube zu sehen läuft die WndProc von TThread im Thread 32408 was der Hauptthread wäre und nicht im neu erzeugten Thread mit der ID 23024 (siehe TMyThread.Execute).

Oder interpretiere ich hier irgendwas falsch?


Edit: Oh die Beiträge von himitsu uns sirius hatte ich noch nicht gesehen... aber die Frage bleibt :)

[DeddyH]

Du hast ja 2 WndProcs, einmal im MainThread und einmal im TestThread. Nimm die im MainThread doch einmal raus.

[Bummi]

Am schnellsten bekommst Du es wenn Du mal 2 Threads startest und deren ThreadIds mit ausgeben lässt...

[himitsu]

So, bevor ich's wieder vergeß...

Hab den Code auch mal mit ein paar Debuginfos versehn. (siehe Ereignisprotokoll Strg+Alt+V)

[edit]
Für D2010 und älter müßte man die zweite Threadklasse entfernen, welche mit in der Unit rumliegt.