Discussion :

[Papy214]

Bonjour

Sous XE3, j'avais fait une application metropolis pour Windows en Firemonkey.
Cette application tourne des tablettes samsung qui sont affublées d'un clavier détachable.

Je cherche désespérément une façon de détecter si le clavier physique est disponible ou pas mais je ne trouve rien.

Quelqu'un aurait-il une idée sur le sujet ?

Papy !

[ShaiLeTroll]

je ne retrouve pas le code mais il a été mis sur le forum, via les WMI on peut détecter le clavier Win32_Keyboard class
Est-ce que dans une application FMX, tu peux glisser des appels au WMI, normalement, oui, mais faut juste bien l'écrire avec une pattern strategy
voir les codes de FMX qui sont un parfait exemple comme avec l'implémentation de IFMXMouseService dans TPlatformCocoa et TPlatformWin
Avec un jeu de directive, tu inclus l'une ou l'autre unité d'implémentation d'une IFMXKeyBoardService ... c'est curieux que cela n'existe pas !

[Andnotor]

En générale, on ne détecte le clavier que quand une touche est pressée. Un clavier bluetooth pourrait être "connecté" (in-range) sans qu'on veuille pour autant l'utiliser.

Pour cela, on passe par RawInput et teste hDevice. S'il est différent de 0, c'est un clavier physique.

Sous FMX, à voir..

[ShaiLeTroll]

RawInput ! C'est ça, j'ai confondu !
Je savais bien qu'il y avait eu un code sur une gestion multi-clavier, comme pour différencier un clavier d'une douchette

Sous FMX, à voir..

Si l'on veut être multi-plateforme et tant que l'on respecte un code avec un couplage faible avec Interface et Implémentations multiples comme le fait TPlatformServices, cela ne pose aucun problème.

Faudrait regarder IFMXDeviceService pour t'inspirer d'un code multi-plateforme, pour Windows tu utilises RawInput, pour le reste tu fournis une implémentation par défaut qui retourne False à défaut de mieux

Exemple d'un appel à l'une des interfaces de TPlatformServices qui détecte si l'on est en Desktop, Phone, Tablet, Watch, ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var
  DeviceService: IFMXDeviceService;
begin
    if TPlatformServices.Current.SupportsPlatformService(IFMXDeviceService, IInterface(DeviceService)) then
    begin
      case DeviceService.GetDeviceClass() of
        Desktop: ...;
        Phone: ...;
        Tablet: ...;
        Watch: ...;
        ...

[Papy214]

Tout d'abord, merci pour ces infos !

Le multi plateformes n'est pas mon objectif pour cette application qui ne tourne que sous Windows.

Je viens de regarder le code exemple avec rawinput mais il nécessite la JCL.
De plus, il traite plutôt la frappe de touche pour détecter dynamiquement le périphérique d'entrée et faire un filtrage.
C'est du moins ce que j'ai cru comprendre.

Ce qu'il me faut plutôt c'est un bout de code qui me renvoie un genre ClavierPhysiqueAttaché qui répondrait vrai si l'utilisateur a bien lié sa tablette au claver physique.
Il semble que ça soit possible avec WMI en vérifiant win32_Keyboard qui renvoie la liste des claviers disponibles.
Le clavier de la tablette en question (modèle identique pour chaque utilisateur) est reconnu comme clavier USB.
En vérifiant le DeviceID je peux savoir si le clavier physique est dispo. SI je trouve un USB\UIDxxxxxxxx , c'est ok.

Je me base sur https://blogs.technet.microsoft.com/...eyboard-mouse/


Je vais me tourner vers solution qui répond plus à mon besoin actuel.

Bonne journée

[Papy214]

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
 
unit WMI_Win32_KeyboardInfo;
 
interface
 
uses
  SysUtils, ActiveX, ComObj, Variants, System.Generics.Collections, FMX.Dialogs, System.UITypes;
 
function PhysicalKeyboardEnabled: Boolean;
 
implementation
 
type
 
  TWMI_KeyboardInfo = record
    Description, DeviceID, PNPDeviceID: string;
  end;
 
  TWMI_KeyboardInfoList = TList<TWMI_KeyboardInfo>;
 
  // La classe Win32_Keyboard représente un clavier installé sur un système Win32.
  // Exemple*: Un clavier Microsoft Natural(R) Keyboard
 
procedure GetWin32_KeyboardInfo(WMI_KeyboardInfoList: TWMI_KeyboardInfoList);
const
  WbemUser = '';
  WbemPassword = '';
  WbemComputer = 'localhost';
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator: OLEVariant;
  FWMIService: OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject: OLEVariant;
  oEnum: IEnumvariant;
  iValue: LongWord;
  K: TWMI_KeyboardInfo;
begin;
 
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService := FSWbemLocator.ConnectServer(WbemComputer, 'root\CIMV2', WbemUser, WbemPassword);
  FWbemObjectSet := FWMIService.ExecQuery('SELECT * FROM Win32_Keyboard', 'WQL', wbemFlagForwardOnly);
  oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumvariant;
  while oEnum.Next(1, FWbemObject, iValue) = 0 do
  begin
    K.Description := String(FWbemObject.Description);
    K.DeviceID := String(FWbemObject.DeviceID);
    K.PNPDeviceID := String(FWbemObject.PNPDeviceID);
    WMI_KeyboardInfoList.Add(K);
    FWbemObject := Unassigned;
  end;
end;
 
function PhysicalKeyboardEnabled: Boolean;
var
  WMI_KeyboardInfoList: TWMI_KeyboardInfoList;
  Kb: TWMI_KeyboardInfo;
begin
  Result := False;
  WMI_KeyboardInfoList := TWMI_KeyboardInfoList.Create;
  GetWin32_KeyboardInfo(WMI_KeyboardInfoList);
  for Kb in WMI_KeyboardInfoList do
  begin
    if Pos('USB', Kb.PNPDeviceID) > 0 then
    begin
      Result := True;
      Break;
    end;
  end;
  WMI_KeyboardInfoList.Free;
end;
 
end.

[SergioMaster]

Bonjour,

tu aurais peut être plus simplifié ton WQL et donc ton traitement

Code SQL :

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

1
2
Select DeviceID,Name from Win32_Keyboard
WHERE DeviceID like "%USB%"

et ainsi tu sais si tu as un clavier USB si ton résultat est non null

Rem. Le LIKE est à peaufiner, mais comme je n'ai ni tablette ni clavier usb .....

[Papy214]

C'est pas faux ! En fait, j'ai pris directement le code généré par le très bon outil WMI Delphi code creator.
Je n'ai pas approfondi.
Merci pour cette remarque pertinente.

[SergioMaster]

En fait, j'ai pris directement le code généré par le très bon outil WMI Delphi code creator.

et moi je n'ai fait que prendre ce même outil pour tester cette requête
le plus dur étant de trouver la syntaxe possible de la clause WHERE car WQL n'est quand même pas SQL ! je me demande même si la casse des noms de colonne n'est pas à prendre en compte