[D2007] message WM_INPUT keyboard

Version imprimable

Bonjour,

je suis en train de développer une application prenant comme source de sécurité un lecteur de clé (identifié comme keyboard, sous-type HID).
J'utilise pour cela le rawinput (ou du moins j'apprend à l'utiliser), ce qui me permet de différencier les différents claviers.

J'intercepte donc les messages windows par WM_INPUT

Mon problème, qui peut sembler bénin, est que j'ai beau identifier mon périphérique envoyant le message, je ne sais pas du tout comment lire ce qui a été saisi (le texte en lui-même donc !!)

voici un bout du code utilisé :

déclaration :

Code:

procedure HandleWM_INPUTMessage (var Msg : TMessage); message WM_INPUT;

procedure :

Code:

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
procedure TFTestRawInput.HandleWM_INPUTMessage (var Msg : TMessage);
var
  i,l: Integer;
  RI: PRAWINPUT;
  dwSize: UINT;
  lpb: PBYTE;
  DataSize: DWORD;
  HID_DATA:array [0..15] of DWORD;
  P:PByte;
  tmpX,tmpY: Integer;
  pData: Pointer;
  devName: PChar;
  deviceName : string;
  NameSize: Integer;
  DevInfo: TRidDeviceInfo;
  KeyboardInfo: TRidDeviceInfoKeyboard;
  RIKey: PRAWINPUT;
  strOut: String;
  strListName : TStringList;
begin
  GetRawInputData(HRAWINPUT(Msg.LParam), RID_INPUT, nil, dwSize, SizeOf(TRAWINPUTHEADER));
 
  if dwSize = 0 then Exit;
 
  DataSize := SizeOf(BYTE) * dwSize;
 
  GetMem(lpb,DataSize);
  try
    GetRawInputData(HRAWINPUT(Msg.LParam), RID_INPUT, lpb, dwSize, SizeOf(TRAWINPUTHEADER));
    RI := PRAWINPUT(lpb);
 
    // clavier
    if RI.header.dwType = RIM_TYPEKEYBOARD then
    begin
      try
        // ne réagir que sur un KEYDOWN
        if (RI.keyboard.Message = WM_KEYDOWN) then
          begin
            GetRawInputDeviceInfoA(RI.header.hDevice, RIDI_DEVICENAME, nil, dwSize);
            GetMem(devName,dwSize);
            GetRawInputDeviceInfoA(RI.header.hDevice, RIDI_DEVICENAME, Pointer(devName), dwSize);
            deviceName := copy(StrPas(devName), 5);
            strListName := TStringList.Create;
            Split('#', deviceName, strListName);
 
            if strListName[2] = "#le protocole de mon périphérique#" then
            begin
////////    saisie := ''; // j'aimerais enregistrer ici la saisie de cet évènement !!
              Msg.Result := 0;
              if RI.keyboard.VKey = 13 then
              begin
                Application.ProcessMessages;
                saisie := '';
              end;
            end else
            begin
              Msg.Result := 1232;
            end;
 
          end;
        except on e: exception do
          showmessage('erreur : '+#13+e.message);
        end;
      end;
  finally
    FreeMem(lpb,DataSize);
    FreeMem(devName,dwSize);
  end;
end;

Merci d'avance pour toute information qui me permettrait d'enfin avancer un peu là-dedans ^^

PS : désolé pour la liste de variables, je passe mon temps à changer de code et je n'ai pas vraiment fais le ménage là...

13/08/2008, 14h41
darkendorf

hum... bon c'est pas clair ^^

en gros je cherche à capter le message qui est contenu dans l'évènement WM_INPUT... si bien sûr il est effectivement contenu dedans...

donc en faisant :

Code:

procedure HandleWM_INPUTMessage (var Msg : TMessage); message WM_INPUT;

est-il possible de récupérer la valeur de la touche enfoncée du clavier dans Msg : TMessage ?

autre possibilité (je n'y connais rien dans ce domaine...) je peux récupérer une valeur numérique de la touche : RI.keyboard.VKey, genre 13 pour la touche entrée (qui correspond à la constante système WM_KEYDOWN), peut-être qu'il existe un tableau de correspondance universel ou une fonction windows permettant de traduire ce nombre...

non ?

Edit : bon en fait il me suffisait de faire un CHR sur RI.keyboard.VKey... pffff
13/08/2008, 16h53
darkendorf

Bon en fait, je butte sur l'étape suivante...

Mon identification se fait bien, je sais quand on insère la clé de sécurité ou quand on l'extrait, le problème est que l'identifiant envoyé par mon périphérique, considéré comme un clavier, s'inscrit dans le champs actif lors de son insertion...

n'y a-t-il pas un moyen, toujours par l'événement WM_INPUT, en plus d'intercepter le message, de l'empêcher d'aller plus loin ?

en gros si j'identifie mon périphérique, je dois bloquer tout ses messages.

modifier msg.Result apparemment ne bloque pas le message... une idée, une info ?

Bonjour,

As-tu essayé de tuer le message lui même :

Code:

1
2
3
4
5
6
7
8
9
10
 
procedure HandleWM_INPUTMessage (var Msg : TMessage);
begin
  try
    ......
    .....
  finally
    Msg.Msg := 0;
  end;
end;

14/08/2008, 08h13
darkendorf

Tout d'abord merci de ta réponse ^^

Apparemment, l'objet ne doit être accessible qu'en lecture seule... enfin je n'ai pas d'erreur en faisant Msg.Msg := 0, mais mon message passe sans modifications... il existe peut être un moyen de valider les modifications, d'affecter grâce au handle par une autre procédure les nouvelle caractéristiques du message directement dans la pile...

encore merci ^^
14/08/2008, 12h53
tourlourou

et msg:=nil ?
14/08/2008, 16h20
darkendorf

msg n'accept pas nil, ni msg.msg, et msg.result ne change rien.

apparemment en passant pas application.OnMessage pour appeler ma fonction (et donc en supprimant " message WM_INPUT; " ) j'ai un paramètre booleen qui soit disant permet de définir si le message a été traité ou pas, donc de le stopper.
théoriquement puisque je n'arrive toujours pas à le stopper pour l'instant...
14/08/2008, 17h43
tourlourou

en traitant le message et basculant Handled à True dans le Appli.OnMessage, il n'est pas passé à un autre gestionnaire (de la même appli).

Citation:

je n'arrive toujours pas à le stopper pour l'instant

s'il n'est pas stoppé, où arrive-t-il ce message ?
18/08/2008, 11h10
darkendorf

désolé, ce long weekend m'a mené loin de la technologie...

Le message est traité par tout champs de saisie ayant le focus, que ce soit une autre fenêtre de mon application ou même une autre application, bien que dans ces deux cas je sois capable d'intercepter le message et m'en servir.

si je met pour tout les messages handled := true manuellement, mon appli est figée durant le démarrage, donc c'est censé marcher. je me contente là de mettre handled := true si le message vient de mon périphérique, comme si ma procédure était traitée après que windows ait traité le message de son côté (remplir le champs avec focus).

j'avoue que je me fais des nœuds au cerveau là... pourtant je n'ai pas fais l'erreur de mettre un processmessage, ou tout autre chose qui rende la main à windows pendant mon traitement et avant mon retour de proc...