Warum funktionieren meine Messages nicht?

[Masteric]

Hi,

also ich habe das mit dem Hooken hinbekommen, so jetzt möchte ich die Daten die der Hook abfaängt an meine Anwendung über Messages senden, es kommt nur, wie wahrscheinlich erwartet, nichts an.

Ich habe dann um es überhaupt zu testen noch eine 2. Anwendung programmiert.

Die Erste, die die Daten erstmal nur Empfangen und in einem Edit anzeigen soll, sieht so aus:

Delphi-Quellcode:

unit Unit1;

interface

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

const WM_mymessage=WM_User+2;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
  private
    procedure WndProc(var msg : TMessage); override;
      { Private-Deklarationen }
  public
       { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.WndProc(var msg : TMessage);
begin
  if msg.Msg = WM_mymessage then
  begin
    Edit1.Text:=inttostr(msg.WParam);
  end  else begin
    inherited WndProc(msg);
  end;
end;

end.

Die Zweite, die ich zum testen benutze sieht so aus:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
const WM_mymessage=WM_User+2;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
postmessage(HWND_BROADCAST,WM_mymessage,5,5);
end;

end.

Da ich das Fensterhandle der Anwendung nicht immer rausfinden will, broadcaste ich sie einfach an alle. Eigentlich sollte doch jetzt im Edit 1 eine Message ankommen, wenn das Empfangsprogramm läuft und das 2. gestartet wird, oder?

Gruß Materic

[Flips]

Hi,

also ich bin nich so der Fachmann für Messages, aber ich glaube nicht, dass sie für den Datenverkehr bzw. den Austausch größerer Datenmengen konzipiert wurden ;-)
Da eignen sich eher Memory Mapped Files (MMF).
Oder du suchst mal nach WM_SETTEXT.

[1234588]

mit HWND_BROADCAST sendest du die message eben nicht an alle fenster. folgendes hab ich hier dazu gefunden:
http://www.delphipraxis.net/internal...ct.php?t=87443

Zitat:

also ich bin nich so der Fachmann für Messages, aber ich glaube nicht, dass sie für den Datenverkehr bzw. den Austausch größerer Datenmengen konzipiert wurden

das ist richtig. aber einen 4 byte großen integer sehe ich nicht als riesen datenmenge an :P

[Luckie]

Zitat:

Zitat von 1234588

mit HWND_BROADCAST sendest du die message eben nicht an alle fenster.

Natürlich wird eine Nachtricht mit dem Adressaten HWND_BROADCAST an alle Toplevel Fenster geschickt. Nur leider macht ihm hier die VCL einen Strich durch die Rechnung mit dem unsichtbaren Anwendungsfenster, welches bei einer VCL-Anwendung das Hauptfenster ist.

[Masteric]

ist den der Empfang der Messages richtig? Weil selbst wenn ich genau an das Handle des Fensters sende, kommt nichts an....

[Luckie]

Das Empfangen dürfte passen, aber stimmt auch das Handle?

[Masteric]

ich habe via Winspy das handle des Form1 rausgesucht, ist das falsch? Weil ya das Hauptfenster unsichtbar ist?

EDIT: Okay muss mich korrigieren, jetzt geht es mit dem richtigen Handle, nur wie mache ich das, wenn ich das nicht weis.....

[_frank_]

wie "unsichtbar" ist es? per hide oder minimiert?

evtl. ist ja TApplication.OnMessage was für dich, hat mir schon öfters bei solchen Sachen geholfen...

das handle kann du z.B. mittels FindWindow oder EnumWindows herausfinden.

//edit irgendwie war nur der halbe Text sichtbar...hier beim editieren steht alles :gruebel:

HTH Frank

[Luckie]

Such dein Fenster mit FindWindow.

[extrem]

Zitat:

Zitat von Masteric

EDIT: Okay muss mich korrigieren, jetzt geht es mit dem richtigen Handle, nur wie mache ich das, wenn ich das nicht weis.....

In Beitrag #3 wurde dir ein Link genannt, wo es mit HWND_BROADCAST funktioniert. Mit FindWindow bei sowas zu machen wäre mir viel zu primitiv.
Wenn du mit HWND_BROADCAST arbeiten möchtest dann benutze RegisterWindowMessage(), außerdem wäre es notwendig, wenn du die Nachricht mit der Komponente TApplicationEvents im Ereignis onMessage abfängst.