Discussion :

[Wilco]

Bonjour à tous,


J' ai 2 appli A et B et je jouhaite que A reçoive un message windows en provenance de B

j'ai donc lu le tutorial sur l'échange de données entre 2 applications et ça ne marche pas.

Voici le code des 2 appli

Application A - Celle qui reçoit le message Windows

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
 
...
  public
  procedure DefaultHandler(var WinMSG); override;
  end;
 
var
  Form1: TForm1;
  WM_MESSAGE_FMS, WM_MESSAGE_FRE: integer;
 
 
implementation
{$R *.dfm}
 
procedure TForm1.DefaultHandler(var WinMSG);
begin
inherited DefaultHandler(WinMSG);
 
if (TMessage(WinMSG).Msg = WM_MESSAGE_FRE)
then Begin
     Label_MSG.Caption :=  IntToStr(TMessage(WinMSG).WParam);
     Label_MSG.Update;
     end;
end;
 
// Création fiche
procedure TMAIN.FormCreate(Sender: TObject);
begin
WM_MESSAGE_FMS := RegisterWindowMessage('WM_MESSAGE_FMS');
WM_MESSAGE_FRE := RegisterWindowMessage('WM_MESSAGE_FRE');
end;

Application B - Celle qui envoie le message Windows

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
...
 
  public
  WM_MESSAGE_FMS, WM_MESSAGE_FRE: integer;
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.pb_MSGClick(Sender: TObject);
var
   h: THandle;
begin
h := FindWindow(nil, PChar('Application A'));
if h = 0
   then ShowMessage('Le receveur (application A) est inactif')
else Begin
     SendMessage(h, WM_MESSAGE_FRE, 121, 0);
     end;
end;
 
// Création fiche
procedure TMAIN.FormCreate(Sender: TObject);
begin
WM_MESSAGE_FMS := RegisterWindowMessage('WM_MESSAGE_FMS');
WM_MESSAGE_FRE := RegisterWindowMessage('WM_MESSAGE_FRE');
end;

Qu'est ce que je n'ai pas compris ?


Merci d'avance pour vos réponses.

Wilco

[Pedro]

Salut
Faut pas initialiser tes messages avec une valeur? Du style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
WM_MESSAGE_FMS:=WM_USER+1;

à vérifier...

[Sub0]

Salut!

Je suppose que tu parles de cet article:
http://alphomega.developpez.com/EchangeVal/
J'ai souvent utilisé cette méthode. Je vais essayer de t'expliquer rapidement comment je l'utilise.
Voici un exemple de code que j'utilise souvent et qui me semble le plus "facile" à mettre en oeuvre :

ENVOI DU MESSAGE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Var
  WM_TEST_ENVOI: Integer;
 
{----------------------------------------------------------------}
Procedure TForm1.Button1Click(Sender: TObject);
Begin
  WM_TEST_ENVOI := RegisterWindowMessage('WM_TEST_ENVOI');
  PostMessage(HWND_BROADCAST, WM_TEST_ENVOI, 100, 200);
End;

Le message doit avoir une valeur constante. On utilise en général la fonction RegisterWindowMessage. L'application qui émet le message doit soit envoyer le message à toutes les applications (avec HWND_BROADCAST), soit spécifier l'handle de l'application de destination. Autrement dit, il est préférable de connaître l'handle des applications qui communiquent.
-> Application.Handle
Utilise PostMessage (ou SendMessage) pour l'envoi du message -> F1 pour plus de détails sur les fonctions.

RECEPTION DU MESSAGE

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var
  WM_TEST_ENVOI: Integer;
 
{----------------------------------------------------------------}
Procedure TForm1.FormCreate(Sender: TObject);
Begin
  WM_TEST_ENVOI := RegisterWindowMessage('WM_TEST_ENVOI');
  Application.OnMessage := ProcMess;
End;
 
 
{----------------------------------------------------------------}
Procedure TForm1.ProcMess(Var msg: TMsg; Var Handled: boolean);
Begin
  If (msg.message = WM_TEST_ENVOI) Then
    ShowMessage(
      'Message test reçu!' + #13#10 + 
      'wparam : ' + IntToStr(msg.wparam) + #13#10 +
      'lparam : ' + IntToStr(msg.lparam) );
End;

Tu peux soit créer un évènement (comme dans ton code actuel), soit utiliser une procédure de récepetion des messages définie avec Application.OnMessage comme dans l'exemple ci-dessus. Cette procédure receptionne tous les messages destinés à l'application. On peut y récupérer par exemple les messages de la souris et du clavier entre autres, sans oublier les paramètres wparam et lparam passés avec le message...

Sinon, un autre moyen pour réceptionner les messages est d'utiliser une boucle avec GetMessage ou PeekMessage.

J'espère t'avoir éclairé, à+

[Wilco]

Quel bohneur ce forum

Un grand merci à toi Sub0.


J'ai mis en application ta méthode et ça marche



Wilco