Discussion :

[Sephiroth Lune]

Bonjour à tous

Je cherche à faire un SendMessage avec 2 paramètres en wParam et lParam : un float, et un int.

Le problème étant que wParam et lParam sont tous les deux des int, je ne trouve pas de solution à mon problème ...

Si quelqu'un a une idée, je suis preneur

[Cl@udius]

Salut

Et si tu envoyais l'adresse de ce float au lieu de sa valeur ?

[Sephiroth Lune]

au début je n'y avais pas pensé, et le temps d'écrire ce message, j'y ai pensé ... du coup c'est ce que j'ai fait pour l'instant.

mais ça ne m'arrange pas trop, parceque ce sendmessage est dans une boucle, et pour être sur de ne pas perdre la valeur entre l'envoi et la réception, je dois stocker ce float du lParam dans un array temporaire ...

pour l'instant ça passe, mais si quelqu'un a mieux, je prend

[Sephiroth Lune]

par contre mon code n'a pas l'air de fonctionner ... il me semblait que je faisais ça (longtemps que j'ai plus fait de Delphi ^^) :

Code :

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

1
2
3
4
5
6
 
// envoi
PostMessage (FindWindow (nil, 'XXX'), PM_NEW_VALUE, i, Integer (@Values[i]));
 
// réception
String (Pointer (TMessage (Msg).LParam))

quand je lis Msg.WParam (à savoir i dans l'envoi donc), aucun problème. quand je veux lire la valeur du pointer donné dans LParam, j'ai un accès violation

[ShaiLeTroll]

Passé un pointeur, cela nécessiterait pas que l'application qui reçoit le message puisse lire dans l'espace mémoire de l'application qui émet ?

Utilise WM_COPYDATA si tu veux sur : Envoyer une chaine a une application externe

Après tout WM_SETTEXT fonctionne bien entre une application Delphi et Notepad
Est-ce valable pour tout les messages ou Windows dans sa tambouille copie la chaine du processus émetteur dans l'espace du processus recepteur ?

Une QR était en cours à ce sujet en 2008, je ne crois pas qu'elle a été publié

Attention !

PostMessage, effectivement, comme il n'attend pas la traitement, il ne faut pas libérer ou modifier le contenu du pointeur float
Vérifie via IsBadReadPtr si tu as le droit de lire le pointeur (ce qui m'étonnerait en fait)
Déjà qu'entre DLL et EXE c'est la plaie les string alors entre EXE ???

Même par ta gestion de tableau tampon, tu conserves toutes les données, combien de temps après la fin du traitement (après tout tu n'as pas la garantie que le recepteur aie lu rapidement tes données)

SendMessage, il a attend patiemment le traitement donc pas de soucis de libération prématurée, mais encore une fois, je suis persuadé qu'en fonction du message windows triche avec la mémoire inter-processus !

[Nono40]

Est-ce qu'un Single te suffirait ? Il tient sur 32Bits et tu pourras le passer dans un Integer juste avec un transtypage (pas un round ni trunc bien sûr).

[Paul TOTH]

WM_COPYDATA c'est pour des données inter process.

si c'est à l'intérieur d'un même process il suffit d'allouer d'un côté et de libérer de l'autre.

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
  p: PDouble;
begin
  New(P);
  P^ := Value;
  PostMessage(Handle, PM_NEW_VALUE, i, Integer(P));
end;
 
procedure TForm1.PMNewValue(var Msg: TMessage);
var
  P: PDouble;
begin
  P := Pointer(Msg.lParam);
  try
    ...
  finally
    Dispose(P);
  end;
end;

[ShaiLeTroll]

Tout a fait Paul, en fait, en relisant la question, je me suis rendu compte qu'il n'y avait pas mention à de l'inter-process, j'ai tout de même laissé ma réponse intact

Un SendMessage au sein du même process, ne pose aucun problème sur les Pointeurs c'est pour cela que j'ai pensé qu'il avait à de l'inter-process
Pour PostMessage, il faut l'utiliser uniquement si la durée de vie de la mémoire associé au pointeur est suffisament longue ou permanente pour ce permet un pseudo-asynchronisme !

SendMessage à l'intérieur d'un programme Delphi, je ne comprends pas trop !
Je triche avec parfois avec PostMessage pour différer des traitements et donner une illusion d'Asynchrone d'une Fenêtre, certains utilisent par exemple un Timer qui ne s'active qu'une fois ou alors le OnActivate

En interne dans un programme cela pourrait être fait par du CallBack comme un Evènement ou encore un TEvent + FIFO TThreadList

[Sephiroth Lune]

Est-ce qu'un Single te suffirait ? Il tient sur 32Bits et tu pourras le passer dans un Integer juste avec un transtypage (pas un round ni trunc bien sûr).

oui ça me suffirait, mais je ne vois pas comment envoyer ce Single avec SendMessage (c'est ma toute 1ère question en fait )