Récupérer un objet par message

Je passe un objet par message au sein de la même application:

Code:

---

1 2	SendMessage(MonHandle,WM_MonMessage,Integer(MonObjet),0);

---

Mon problème est la récupération dans une form par exemple:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

procedure TfForm1.MessageAddMonObject(var M: TMessage); begin try if (M.WParam > 0) and (M.LParam = 0) then begin AddMonObject(TMonObject(M.WParam)); end; except // A finaliser end; end;

---

Etant donné que je n'ai pas trouvé d'autre solution que de transtyper M.WParam en TMonObject, les tests Assigned, is TMonObject sont toujours vrai.

Auriez-vous une idée pour traiter le cas où un message est envoyé par une autre application (et du coup pas le même espace mémoire) pour vérifier la validité de TMonObject(M.WParam).

En espérant avoir été assez clair

Merci

Peut-être faire

Code:

---

TObject(M.WParam) is TMonObject

---

ou encore

Code:

---

SameText(TObject(M.WParam).ClassName, TMonObject.ClassName)

---

Tu auras des violations d'accès si cela ne passe, à toi de simuler des envoies incorrectes ...

Salut,

Pour le test Assigned, il est valide je pense, si la valeur envoyée est nulle -> pas assigné.

Pour le type de l'objet, tu pourrais le passer via le 2eme parametre du message, ce qui ferait office de "clef" ?

Ce n'est qu'une idée :)

:Edit: grilled par ShaiLeTroll ;)

Pour le Assigned, j'avais testé, il le passe tant que la valeur est différente de 0.

pour le TObject(M.WParam) is TMonObject ou SameText(TObject(M.WParam).ClassName, TMonObject.ClassName) , il y a une exception si ce n'est pas un objet valide.

Je cherche à éviter d'avoir à traiter une exception(dans le pire des cas je ferais comme ça mais bon), mais là je sèche.

Il n'y a rien de mal de tester une exception

Code:

---

1 2 3 4 5 6

try ... except on ece : EClassError do begin ... end; else raise; end;

---

tu ne gère que ce qu'il faut une EClassError, un EAccessViolation ... et l'idée d'une clé dans l'autre paramètre peut améliorer ton mécanisme, ...

Je voulais éviter de gérer une exception, si une simple vérification suffisait.

Mais apparemment ce n'est pas possible.