AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Object-Pascal / Delphi-Language Delphi Windows Messages in einem (TThread-)Thread empfangen

Windows Messages in einem (TThread-)Thread empfangen

Ein Thema von Viktorii · begonnen am 3. Jul 2009 · letzter Beitrag vom 5. Feb 2011
Antwort Antwort
Seite 2 von 2     12
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#11

AW: Windows Messages in einem (TThread-)Thread empfangen

  Alt 3. Feb 2011, 14:12
@DeddyH
hatte der TE eh drin, ist mir beim Debuggen passiert und übersehen worden
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
Viktorii

Registriert seit: 19. Jul 2007
358 Beiträge
 
#12

AW: Windows Messages in einem (TThread-)Thread empfangen

  Alt 3. Feb 2011, 14:50
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 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?
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.400 Beiträge
 
Delphi 11 Alexandria
 
#13

AW: Windows Messages in einem (TThread-)Thread empfangen

  Alt 3. Feb 2011, 14:57
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?
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
39.647 Beiträge
 
Delphi 11 Alexandria
 
#14

AW: Windows Messages in einem (TThread-)Thread empfangen

  Alt 3. Feb 2011, 15:02
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)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#15

AW: Windows Messages in einem (TThread-)Thread empfangen

  Alt 3. Feb 2011, 15:17
@visktorii

Deine whileschleife ist falsch.

Die sollte so lauten:
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.
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
  Mit Zitat antworten Zitat
Viktorii

Registriert seit: 19. Jul 2007
358 Beiträge
 
#16

AW: Windows Messages in einem (TThread-)Thread empfangen

  Alt 3. Feb 2011, 15:36
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

Geändert von Viktorii ( 3. Feb 2011 um 15:38 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.400 Beiträge
 
Delphi 11 Alexandria
 
#17

AW: Windows Messages in einem (TThread-)Thread empfangen

  Alt 3. Feb 2011, 15:39
Du hast ja 2 WndProcs, einmal im MainThread und einmal im TestThread. Nimm die im MainThread doch einmal raus.
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#18

AW: Windows Messages in einem (TThread-)Thread empfangen

  Alt 3. Feb 2011, 15:53
Am schnellsten bekommst Du es wenn Du mal 2 Threads startest und deren ThreadIds mit ausgeben lässt...
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
39.647 Beiträge
 
Delphi 11 Alexandria
 
#19

AW: Windows Messages in einem (TThread-)Thread empfangen

  Alt 5. Feb 2011, 01:32
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.
Angehängte Dateien
Dateityp: 7z MessageThread.7z (3,1 KB, 63x aufgerufen)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu ( 5. Feb 2011 um 01:37 Uhr)
  Mit Zitat antworten Zitat
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 21:09 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf