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 1 von 2  1 2   
Viktorii

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

Windows Messages in einem (TThread-)Thread empfangen

  Alt 3. Jul 2009, 09:24
Meine Applikation muss Windows Messages einer anderen Anwendung empfangen. Nach Recherche habe ich das so realisiert:

Als erstes habe ich in meiner MainForm eine private Methode implementiert:

Delphi-Quellcode:
function TMainFormWCM.AppHookFunc (var Message : TMessage) : Boolean;
begin

   if Message.Msg = WM_MEINE_MSG then
  begin
      case Message.WParam of
        …
        …
  end;
end;

Dann habe ich unter FormCreate die Funktion gehookt:
  Application.HookMainWindow(AppHookFunc); Funktioniert soweit alles super.

Nun möchte ich das Empfangen und Abarbeiten der Messages in einen separaten Thread (mit TThread) auslagern. Wie kann ich eine Methode dort denn entsprechend hooken?

Noch eine Zusatzfrage: Es ist doch so, dass nur der Code in Execute Methode in einem separatem Thread ausgeführt wird, oder? Fügt mal weitere (public-)Methoden zu dem Tthread Objekt hinzu, so werden diese in dem Thread ausgeführt von dem sie aufgerufen worden sind. Hab ich das richtig verstanden?

Vielen Dank
  Mit Zitat antworten Zitat
quendolineDD

Registriert seit: 19. Apr 2007
Ort: Dresden
781 Beiträge
 
Turbo Delphi für Win32
 
#2

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

  Alt 3. Jul 2009, 10:34
Zitat:
Fügt mal weitere (public-)Methoden zu dem Tthread Objekt hinzu, so werden diese in dem Thread ausgeführt von dem sie aufgerufen worden sind
Nur wenn du in Execute diese Methoden mit Synchronize() aufrufst. Ansonsten läuft die Bearbeitung im Kontext des Threads.

Meiner Meinung nach hat ein Thread keine Nachrichtenschleife, wodurch das abfangen von Nachrichten sich als Schwer erweist.
Zitat:
Nun möchte ich das Empfangen und Abarbeiten der Messages in einen separaten Thread (mit TThread) auslagern. Wie kann ich eine Methode dort denn entsprechend hooken?
Du könntest in AppHookFunc einen Thread starten und ihm die Message übergeben. Damit kehrst du aus der Proc zurück und der Thread arbeitet die Message entsprechend ab.
Lars S.
Wer nicht mit der Zeit geht, geht mit der Zeit.
  Mit Zitat antworten Zitat
fajac

Registriert seit: 1. Jul 2009
60 Beiträge
 
#3

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

  Alt 3. Jul 2009, 11:53
Nachrichten, die an deine Anwendung (heißt, an deren Hauptfenster) geschickt werden, kannst du nur im Hauptthread bearbeiten.
Wenn es darum geht, selbstdefinierte Nachrichten zwischen zwei Applikationen auszutauschen, kann man das durchaus mit einem Thread machen. Allerdings muss man dann die Nachrichten per "PostThreadMessage" versenden, SendMessage und PostMessage gehen nicht.

P.S.: Was deine Frage zum Aufruf der Methoden eines TThread-Objekts betrifft, hast du Recht: Aufrufe dieser Methoden laufen immer im Kontext des aufrufenden Threads.
  Mit Zitat antworten Zitat
Benutzerbild von jfheins
jfheins

Registriert seit: 10. Jun 2004
Ort: Garching (TUM)
4.579 Beiträge
 
#4

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

  Alt 3. Jul 2009, 12:25
Du könntest einen thread erstellen, der sich ein message-only Fenster erstellt. Damit sollte er dann Fensternachrichten empfangen können.
In der Anwendung kannst du dann ebim erhalten der Nachricht den Inhalt an den Thread weiterschicken (mit postmessage oder so)

Dann kommt die Nachricht zwatr erstmal beim Hauptfenster an, wird aber sofort und mit wenig Zeitverlust weitergeleitet - der Thread kann sich dann abarbeiten...
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
39.424 Beiträge
 
Delphi 11 Alexandria
 
#5

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

  Alt 3. Jul 2009, 13:17
Erstmal hat jeder Thread einen eigenen MessagePool.
alle Fensternachrichten, welche per PostMessage verwendet werden, landen in dem Thread-Message-Pool des Threads, worin das Fenster erstellt wurde.

Die passende Nachrichtenschleife der VCL (oder eigene Schleifchen) lesen dann den Pool ihres Threads aus und teilen die Nachrichten erst dann den Fenstern zu.

PS: also kannst du auch ein eigenes Nachtichtennfenster für/in deinen Thread erstellen und mußt dann natürlich eine eigene Nachrichtenbehandlung für diesen Thread implementieren.
Oder du sendest Nachrichten direkt an den Thread (MSDN-Library durchsuchenPostThreadMessage), wofür natürlich auch eine Nachrichtenbehandlung erforderlich ist.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014
  Mit Zitat antworten Zitat
Viktorii

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

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

  Alt 3. Feb 2011, 10:44
So, alten Thread ausgebuddelt, aber ich habe genau dieses Problem...

also kannst du auch ein eigenes Nachtichtennfenster für/in deinen Thread erstellen und mußt dann natürlich eine eigene Nachrichtenbehandlung für diesen Thread implementieren.
Wie genau geht das?

Ich habe mir mit Neu->Weitere->Thread Objekt das Grundgerüst für einen von TThread abgeleitete Klasse erstellt.

Wie kann ich mir jetzt das Nachtichtenfenster für diese Klasse erstellen, damit ich diesem Thread Nachrichten empfangen kann?
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

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

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

  Alt 3. Feb 2011, 11:22
Schau Dir mal AllocateHWnd an.
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
Viktorii

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

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

  Alt 3. Feb 2011, 13:29
So habe ich es versucht:

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
  FMyThread := TMyThread.Create(false);
end;

procedure TForm1.WndProc(var Msg: TMessage);
begin
  if assigned(FMyThread) then
  begin
    OutputDebugString(PWideChar('TForm1.WndProc - Msg: #' + IntToStr(Msg.Msg)));
    PostMessage(FMyThread.GetWNDHandle,Msg.Msg,Msg.WParam,Msg.LParam);
  end;
  inherited;
end;
Delphi-Quellcode:
type
  TMyThread = class(TThread)
  private
    FWNDHandle: Cardinal;
    procedure WndProc(var Msg: TMessage);
  protected
    procedure Execute; override;
  public
    property GetWNDHandle: Cardinal read FWNDHandle;
  end;

implementation

uses
  Windows, SysUtils;

procedure TMyThread.Execute;
begin
  FWNDHandle := AllocateHWnd(WndProc);

  while not Terminated do
  begin
    //suspend();
  end;

  DeallocateHWnd(FWNDHandle);
end;

procedure TMyThread.WndProc(var Msg: TMessage);
begin
  OutputDebugString(PWideChar('TMyThread.WndProc - Msg: #' + IntToStr(Msg.Msg)));
end;

Aber es scheint nichts im Thread anzukommen
  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
 
#9

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

  Alt 3. Feb 2011, 13:50
probiers mal so
Delphi-Quellcode:
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TMyThread = class(TThread)
  private
    FWNDHandle: Cardinal;
    procedure WndProc(var Msg: TMessage);
  protected
    procedure Execute; override;

  public
    Constructor Create(CreateSuspended: Boolean);Reintroduce;overload;
    Constructor Create; Reintroduce;overload;
    Destructor Destroy; override;
    property GetWNDHandle: Cardinal read FWNDHandle;
  end;

  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
  FMyThread :TMyThread;
    { Private-Deklarationen }
  public

  Fmsg:TMessage;
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}
constructor TMyThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
  FWNDHandle := AllocateHWnd(WndProc);
end;

constructor TMyThread.Create;
begin
  inherited Create;
  FWNDHandle := AllocateHWnd(WndProc);
end;
destructor TMyThread.Destroy;
begin
  DeallocateHWnd(FWNDHandle);
  inherited;
end;

procedure TMyThread.Execute;
begin


  while not Terminated do
  begin
    Sleep(10);
  end;


end;

procedure TMyThread.WndProc(var Msg: TMessage);
begin
  OutputDebugString(PWideChar('TMyThread.WndProc - Msg: #' + IntToStr(Msg.Msg) + '-'+ IntToStr(Msg.WParam)));
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
  FMyThread := TMyThread.Create(false);
end;

procedure TForm2.Button2Click(Sender: TObject);

begin
  Fmsg.Msg := 12345;
  FMsg.WParam := 2345;
  SendMessage(FMyThread.GetWNDHandle,FMsg.Msg,FMsg.WParam,FMsg.LParam);
end;

end.
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 DeddyH
DeddyH

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

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

  Alt 3. Feb 2011, 14:06
Wenn man nicht aufpasst, kann SendMessage zu einem Deadlock führen, ich würde lieber PostMessage verwenden.
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
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 18:17 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