Discussion :

[Montor]

voici ce petit code qui permet de sélectionner une opération parmi d'autres...
la solution que jamais vu quelqu'un l'utilise (hormis le VCL et opérations liées aux handles mais pas sur un TList ,TDataSet)consistait à utiliser des messages pour selectionner ladite operation.
Le but c'est pour enlever une zone d'ombre sur le traitement des messages...

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
unit Unit2;
interface
 
const
   OP_ADD =   1;
   OP_SUS =   2;
   OP_MUL =   3;
   OP_DIV =   4;
type
 
 TOperationStruct=record
  OperationKind :Word;
  Operand1      :Integer;
  Operand2      :Integer;
  Result        :Integer;
 end;
 
 TMathOperation=class
 private
   procedure xAdd(var Data:TOperationStruct);message OP_ADD;
   procedure xSus(var Data:TOperationStruct);message OP_SUS;
   procedure xMul(var Data:TOperationStruct);message OP_MUL;
   procedure xDiv(var Data:TOperationStruct);message OP_DIV;
 public
   procedure DefaultHandler(var message);override;
   function Calc(Opd1,Opd2:integer;Okind:Word):integer;
 end;
 
implementation
 uses SysUtils;
{ TMathOperation }
 
function TMathOperation.Calc(Opd1, Opd2: integer;
  Okind: Word): integer;
var
  V:TOperationStruct;
begin
   V.OperationKind :=Okind;
   V.Operand1      :=Opd1;
   V.Operand2      :=Opd2;
   Dispatch(V);
   Result :=V.Result;
end;
 
procedure TMathOperation.DefaultHandler(var message);
begin
 raise Exception.Create('Opération non supportée !');
end;
 
procedure TMathOperation.xAdd(var Data: TOperationStruct);
begin
   with Data do
    Result :=Operand1+Operand2;
end;
 
procedure TMathOperation.xDiv(var Data: TOperationStruct);
begin
   with Data do
    Result :=Operand1 div Operand2;
end;
 
procedure TMathOperation.xMul(var Data: TOperationStruct);
begin
  with Data do
    Result :=Operand1 * Operand2;
end;
 
procedure TMathOperation.xSus(var Data: TOperationStruct);
begin
   with Data do
    Result :=Operand1 - Operand2;
end;
 
 
end.

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
uses unit2;
procedure TForm1.Button1Click(Sender: TObject);
var
 C:TMathOperation;
begin
  C:=TMathOperation.Create;
  try
    ShowmessageFmt('%d',[C.Calc(10,2,OP_ADD)]);
  finally
    C.Free;
  end;
end;

[Andnotor]

Disons que tu appliques l'exemple de l'aide Delphi (Dispatch) en fournissant d'autres méthodes. Dire que ça retire certaines zones d'ombre est peut-être surfait. Les messages étant tout de même destinés à la communication inter-composants ou inter-processus .

De plus, si nous parlons vraiment de messages (contrôles fenêtrés => handle), des constantes inférieur à WM_USER sont à proscrire...

[sjrd]

Perso j'utilise ça énormément dans mon logiciel FunLabyrinthe.

Mais donner un exemple de moins de deux mille lignes qui montre en quoi ça répond à une problématique qu'on ne peut pas résoudre avec des méthodes virtual, c'est vraiment très dur...

[Kaféine]

Salut,

Je trouve normal que personne l'utilise....
Ca apporte quoi de plus (peut une migraine inutile) que la déclaration d'un type énuméré et un case sur ce type avec appel des méthodes appropriées?

[sjrd]

Comme je l'ai dit, je ne peux pas te donner un exemple court qui exprime bien le besoin.

Mais les méthodes message apporte ceci : tu peux "appeler des méthodes" sur un objet alors que ces méthodes n'ont jamais été déclarées. Et certaines sous-classes choisissent d'attraper certains de ces messages.

Imaginons une hiérarchie de classes relativement complexe dont la classe racine est TRootObject. À un certain point, tu veux qu'une classe TSomeObject propose une méthode TrucMachin. Et à un autre point, tu veux appeler la méthode TrucMachin sur un objet de type TRootObject.

Tu pourrais bien sûr faire ceci :

Code :

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

1
2
if Obj is TSomeObject then
  TSomeObject(Obj).TrucMachin;

Mais quid si à cet endroit tu ne peux pas avoir de référence à la classe TSomeObject (par exemple parce que celle-ci est définie dans un plugin de ton application). Tu ne peux donc pas savoir comment appeler la méthode TrucMachin.
Tu as aussi un problème si beaucoup de classes descendantes de TRootObject veulent proposer la méthode TrucMachin. Tu n'as pas envie de devoir toutes les tester.

Pour remédier à cela, tu vas déclarer TrucMachin comme une méthode message CM_TRUCMACHIN. Et tu pourras écrire :

Code :

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

1
2
Msg.MsgID := CM_TRUCMACHIN;
Obj.Dispatch(Msg);

Ainsi, si la classe effective de Obj est TSomeObject ou toute autre classe (inconnue au moment de la compilation) qui propose la méthode de message CM_TRUCMACHIN, eh bien elle sera appelée, et sinon rien ne se passera. Et c'est gagné !

[Franck SORIANO]

En fait à la base, les procédures de message ont été introduites pour avoir un code plus lisible pour répondre aux messages Windows.

Lorsque Windows a été conçu, la programmation objet existait à peine. La technique de l'époque pour avoir du polymorphisme consistait à travailler par messages qu'on envoyait à un point d'entrée unique.

Au moment de développer la VCL, Borland devait gérer tous les messages windows dans les composants. Ils ont dû trouver plus claire et plus lisible d'implémenter le case du numéro de message et l'appel à la méthode correspondante directement dans le langage plutôt que dans les procédures de fenêtre.

Personnellement aujourd'hui, mis à part pour dialoguer avec les messages Windows, ou pour exécuter un code après le traitement courant (avec un PostMessage), je ne vois pas trop l'utilité de la chose non plus.
On dispose de beaucoup mieux : Les interfaces permettent de résoudre le problème de sjrd bien plus efficacement. De même pour l'exemple de Montor, ce serait plus simple et plus performant avec un pointeur de procédure.

[Montor]

Les messages windows ne sont pas si moches on peut les utilisées pour récupérer un membre privé...seul exemple que je peux citer TDataLink dans les contrôles DB