Discussion :

[chekkal]

Bonjour à tous,

Ma question est simple. Dans l’événement onkeypress d'un Tedit, comment connaître le périphérique transmetteur (clavier,douchette..) ? J'ai vu que l'objet Tapplicationevents sert à contenir les événements de l'application, mais je ne sais pas comment l'utiliser .

[tourlourou]

Je ne suis pas sûr que ce soit possible. A ce niveau, en tout cas.

[acaumes]

Bonjour,

Deux discussions qui pourraient te donner des pistes
http://www.developpez.net/forums/d38...igine-donnees/
http://www.developpez.net/forums/d15...ur-code-barre/

Cordialement

[tourlourou]

Je crains que ce ne soit possible qu'en gérant les périphériques (de tête, donc syntaxe pê mal restituée) au niveau RawInput sur le modèle des drivers HID ou de la gestion de ce style d'I/O. Voir pê ici : http://www.usb.org/developers/hidpage/microhid/. Les n° de HID seront différents entre clavier et douchette, alors que leurs drivers oublieront l'origine en sortie.

[chekkal]

bonjour à tous et merci pour vos réponses. Malheureusement aucun des liens ne résout mon problème. Pour faire simple, est-ce que une application delphi peut trouver le périphérique transmetteur?

[solilog]

Salut
Si mes souvenirs sont exacts, pour Delphi, la douchette EST le clavier. En d'autres termes, il faut utiliser l'évènement Keypressed de la form.
solilog

[Andnotor]

Comme le dit tourlourou, il est possible de faire une distinction entre systèmes de saisie par RawInput. Voici un exemple.

[chekkal]

Bonjour,
l'unité "JwaWinUser" n'existe pas dans delphi xe2

[Andnotor]

l'unité "JwaWinUser" n'existe pas dans delphi xe2

Librairie JEDI.

[tourlourou]

Je comptais bien sur la mémoire et les compétences d'Andnotor sur ce sujet !

[chekkal]

Bonjour,

j'ai télécharger la bibliothèque "JEDI", mais j'ai pas voulu l'installer en entier, alors j'ai récuperé cette procedure

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
procedure TForm1.WMInput(var Message :TMessage);
var
  Data :PRawInput;
  Size :dword;
  i    :integer;
 
begin
  Message.Result := 1;
 
  if Assigned(ActiveControl) then
  begin
    GetRawInputData(Message.LParam, RID_INPUT, nil, Size, SizeOf(TRawInputHeader));
    GetMem(Data, Size);
 
    if GetRawInputData(Message.LParam, RID_INPUT, Data, Size, SizeOf(TRawInputHeader)) = Size then
    begin
      //Est-ce un clavier ?.. (ça devrait, mais pour être sûr !)
      if Data.header.dwType = RIM_TYPEKEYBOARD then
      begin
        //...oui. Ce handle est dans notre liste ?..
        i := CheckListBox1.Items.IndexOfObject(pointer(Data.header.hDevice));
 
        //...oui. Est-il coché ?..
        if (i > -1) and CheckListBox1.Checked[i] then
        begin
          //...oui => Traitement du WM_KEYDOWN
          if Data.keyboard.Message = WM_KEYDOWN then
            ActiveControl.Perform(WM_CHAR, Data.keyboard.VKey, 0);
 
          Message.Result := 0;
        end;
      end;
    end;
  end;
end;

qui m’intéresse particulièrement parce-que je veut seulement récupérer le périphérique transmetteur,mais le problème maintenant c'est quoi "Message"

[Andnotor]

Cette procédure seule ne sert à rien si tu ne demandes pas spécifiquement à recevoir WM_INPUT par RegisterRawInputDevices.

[chekkal]

mais comment l'utliser dans un onkeypress d'un Tedit.
par ailleurs, j'ai trouvé cette partie d'instructions traitant du sujet sans utiliser JEDI,mais j'arrive pas à l'exploiter

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
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
type
  TMyCustomControl = class(TCustomControl)
    ..
  protected
    ..
    procedure CreateWindowHandle(const Params: TCreateParams); override;
    procedure WMInput(var Message: TMessage); message WM_INPUT;
  ..
  end;
 
uses
  types;
 
type
  tagRAWINPUTDEVICE = record
    usUsagePage: USHORT;
    usUsage: USHORT;
    dwFlags: DWORD;
    hwndTarget: HWND;
  end;
  RAWINPUTDEVICE = tagRAWINPUTDEVICE;
  TRawInputDevice = RAWINPUTDEVICE;
  PRawInputDevice = ^TRawInputDevice;
  LPRAWINPUTDEVICE = PRawInputDevice;
  PCRAWINPUTDEVICE = PRawInputDevice;
 
function RegisterRawInputDevices(
  pRawInputDevices: PCRAWINPUTDEVICE;
  uiNumDevices: UINT;
  cbSize: UINT): BOOL; stdcall; external user32;
 
const
  GenericDesktopControls: USHORT = 01;
  Keyboard: USHORT = 06;
  RIDEV_INPUTSINK = $00000100;
 
procedure TMyCustomControl.CreateWindowHandle(const Params: TCreateParams);
var
  RID: TRawInputDevice;
begin
  inherited;
 
  RID.usUsagePage := GenericDesktopControls;
  RID.usUsage := Keyboard;
  RID.dwFlags := RIDEV_INPUTSINK;
  RID.hwndTarget := Handle;
  Win32Check(RegisterRawInputDevices(@RID, 1, SizeOf(RID)));
end;
 
type
  HRAWINPUT = THandle;
 
function GetRawInputData(
  hRawInput: HRAWINPUT;
  uiCommand: UINT;
  pData: LPVOID;
  var pcbSize: UINT;
  cbSizeHeader: UINT): UINT; stdcall; external user32;
 
type
  tagRAWINPUTHEADER = record
    dwType: DWORD;
    dwSize: DWORD;
    hDevice: THandle;
    wParam: WPARAM;
  end;
  RAWINPUTHEADER = tagRAWINPUTHEADER;
  TRawInputHeader = RAWINPUTHEADER;
  PRawInputHeader = ^TRawInputHeader;
 
  tagRAWKEYBOARD = record
    MakeCode: USHORT;
    Flags: USHORT;
    Reserved: USHORT;
    VKey: USHORT;
    Message: UINT;
    ExtraInformation: ULONG;
  end;
  RAWKEYBOARD = tagRAWKEYBOARD;
  TRawKeyboard = RAWKEYBOARD;
  PRawKeyboard = ^TRawKeyboard;
  LPRAWKEYBOARD = PRawKeyboard;
 
//- !!! bogus declaration below, see winuser.h for the correct one
  tagRAWINPUT = record
    header: TRawInputHeader;
    keyboard: TRawKeyboard;
  end;
//-
  RAWINPUT = tagRAWINPUT;
  TRawInput = RAWINPUT;
  PRawInput = ^TRawInput;
  LPRAWINPUT = PRawInput;
 
const
  RIM_INPUT = 0;
  RIM_INPUTSINK = 1;
  RID_INPUT = $10000003;
  RIM_TYPEKEYBOARD = 1;
  RI_KEY_MAKE = 0;
  RI_KEY_BREAK = 1;
 
procedure TMyCustomControl.WMInput(var Message: TMessage);
var
  Size: UINT;
  Data: array of Byte;
  RawKeyboard: TRawKeyboard;
begin
  if (Message.WParam and $FF) in [RIM_INPUT, RIM_INPUTSINK] then
    inherited;
 
  if not Focused and
      (WindowFromPoint(SmallPointToPoint(SmallPoint(GetMessagePos))) = Handle) and
      (GetRawInputData(Message.LParam, RID_INPUT, nil, Size,
      SizeOf(TRawInputHeader)) = 0) then begin
    SetLength(Data, Size);
    if (GetRawInputData(Message.LParam, RID_INPUT, Data, Size,
        SizeOf(TRawInputHeader)) <> UINT(-1)) and
        (PRawInput(Data)^.header.dwType = RIM_TYPEKEYBOARD) then begin
      RawKeyboard := PRawInput(Data)^.keyboard;
 
      if (RawKeyboard.VKey = VK_CONTROL) then begin
        if RawKeyboard.Flags and RI_KEY_BREAK = RI_KEY_BREAK then
          Cursor := crDefault
        else
          Cursor := crSizeAll; // will call continously until key is released
      end;
      // might opt to reset the cursor regardless of pointer position...
 
 
      if (RawKeyboard.VKey = VK_MENU) then begin
        ....
      end;
 
    end;
 
  end;
end;