Discussion :

[Linkin]

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

Code :

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

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

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

Code :

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

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

[ShaiLeTroll]

Peut-être faire

Code :

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

TObject(M.WParam) is TMonObject

ou encore

Code :

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

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

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

[TicTacToe]

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

[Linkin]

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.

[ShaiLeTroll]

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

Code :

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

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, ...

[Linkin]

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

Mais apparemment ce n'est pas possible.