Discussion :

[NGeVtC87]

Bonjour,

Je développe sous l'IDE delphi 2005. Dans mon programme j'ai une fonction qui réceptionne les messages. Je réceptionne un message contenant une chaine de caractère comme indiqué ci-dessous:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.RecepMessage(var msg : TMessage);
var
  str : string;
begin
 if Msg.Message = WM_UPDATEDATA then
  begin
     str := PChar(Msg.lparam);
     Edit1.text := UpdateDisplayMessage (str);     
  end
end;

Pour information. La fonction UpdateDisplayMessage me permet de modifier le message s'il est pas complétement conforme à ce que je veux afficher dans le champs de texte Edit1.

Je voulais savoir si cette manière de réceptionner un message type chaine de caractère est complétement safe avec l'utilisation d'une variable string.

Merci

[Andnotor]

La façon de faire n'est pas exceptionnelle et ne fonctionnera à coup sûr que par SendMessage (synchrone) dans l'exe lui-même (envoi et réception).

Il serait plus sage de créer un buffer dédié à ce message (libéré à la réception) par VirtualAlloc.

[Paul TOTH]

c'est plus ou moins "safe"

1- cela ne fonctionnera qu'à l'intérieur d'un même process, impossible d'utiliser cette méthode vers une autre application
2- la chaîne source doit exister au moment du traitement du message (pas de soucis avec un SendMessage, attention au PostMessage)

[NGeVtC87]

Bonjour,

Je pourrais peut être directement réceptionner dans l’éditeur de texte comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
   procedure TForm1.RecepMessage(var msg : TMessage);
   var
    str : string;
   begin
   if Msg.Message = WM_UPDATEDATA then
   begin
     Edit1.text := PChar(Msg.lparam);
     Edit1.text := UpdateDisplayMessage (Edit1.text);     
   end

Est ce que vous pensez que ça change vraiment quelque chose?

Merci

[Andnotor]

Ce n'est pas le remplissage du champ qui peut poser problème mais la validité de LParam.

[Paul TOTH]

Bonjour,

Je pourrais peut être directement réceptionner dans l’éditeur de texte comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
   procedure TForm1.RecepMessage(var msg : TMessage);
   var
    str : string;
   begin
   if Msg.Message = WM_UPDATEDATA then
   begin
     Edit1.text := PChar(Msg.lparam);
     Edit1.text := UpdateDisplayMessage (Edit1.text);     
   end

Est ce que vous pensez que ça change vraiment quelque chose?

Merci

comme dit Andnotor ça ne change pas le problème, et c'est même moins performant que de passe par Str:string

ce que je voulais dire c'est quand dans cet exemple, c'est ok

Code :

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

1
2
3
4
5
6
7
8
 
var
  s: string;
begin
  s := 'Hello';
  SendMessage(Handle, WM_UPDATEDATA, Length(s), Integer(s)); // autant utiliser wParam pour donner la taille :)
  // arrivé, ici le message a déjà été traité
end;

mais dans celui-ci ça ne fonctionnera pas

Code :

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

1
2
3
4
5
6
7
8
 
var
  s: string;
begin
  s := 'Hello';
  PostMessage(Handle, WM_UPDATEDATA, Length(s), Integer(s)); // autant utiliser wParam pour donner la taille :)
  // arrivé ici, le message n'a pas encore été traité mais s va être supprimé et Integer(s) pointera sur une adresse mémoire invalide
end;