Comment échanger des données entre 2 applications Delphi7 ?

Version imprimable

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:

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:

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

20/01/2005, 16h15
Pedro
Salut
Faut pas initialiser tes messages avec une valeur? Du style
Code:

1 2 WM_MESSAGE_FMS:=WM_USER+1;
à vérifier...

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:

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:

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é, à+

20/01/2005, 19h19
Wilco

Merci Sub0

Quel bohneur ce forum :)

Un grand merci à toi Sub0.

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

:merci:
Wilco