Discussion :

[messahel]

Bonsoir;
mon lecteur code à barres affiche des caractères spéciaux quand le clavier est "azerty" mais fonctionne normale si le clavier est "qwerty"
comment puis-je lire le code à barres sans changer la langue du clavier en "ENG" ?

[Andnotor]

Ca se fait au niveau du lecteur. Tu devrais avoir reçu une notice avec incluant des codes à scanner pour modifier sa config.

[der§en]

Je confirme, tu dois définir la langue dans les paramètres de ta « douchette » !

[messahel]

je vais voir

[messahel]

bonsoir et désolé pour l'absence; la notice du lecteur n'a pas de configuration de la langue, et je crois qu'il existe une méthode pour lire le code à barres sans changer la langue du système d'exploitation par ce que j'ai utilisé une application qui lis le code à barres correctement avec ce lecteur et la lecture dans le bloc notes donne une lecture avec caractères spéciaux.
normalement il existe un code qui détecte la lecture du lecteur et le convertir.

[Invité]

Regardez dans cette discussion

https://www.developpez.net/forums/d2...cture-code-qr/

[ShaiLeTroll]

le lien ci-dessus concernait les QRCode et la discussion était particulière poussive, cela n'aidera pas messahel mais le code ci-dessus peut être intéressant, il peut résoudre un problème de translation de clavier (touche virtuelle) :

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
 
procedure SwitchCharLayout(var Key :char; aKeyboardLayout :dword = $409);
var
  KL       :hKL;
  Data     :word;
  VK       :byte;
  Shift    :boolean;
  ScanCode :byte;
  KeyState :TKeyboardState;
  Output   :string;
 
begin
  KL := LoadKeyboardLayout(IntToHex(aKeyboardLayout, 8), 0);
 
  // Décodage complet pour le traitement maj/min, VK seul pas suffisant
  Data  := VkKeyScan(Key);
  VK    := Lo(Data);
  Shift := Hi(Data) and 1 = 1;
 
  ZeroMemory(@KeyState, SizeOf(KeyState));
  KeyState[VK] := $80;
  if Shift then KeyState[VK_SHIFT] := $80;
 
  ScanCode := MapVirtualKey(VK, MAPVK_VK_TO_VSC);
  VK       := MapVirtualKeyEx(ScanCode, MAPVK_VSC_TO_VK, KL);
 
  SetLength(Output, 10);
  SetLength(Output, ToUnicodeEx(VK, ScanCode, KeyState, PChar(Output), Length(Output), $4, KL));
 
  if Length(Output) > 0
  then Key := Output[1]
  else Key := #0;
end;

Code :

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

1
2
3
4
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  SwitchCharLayout(Key);
end;

une application qui lis le code à barres correctement avec ce lecteur

Dommage de ne pas indiquer laquelle, savoir que cela existe mais sans plus de détail ne nous sert pas à grand chose.


Au final, tu reçois quoi ?
Un exemple serait intéressant, la version ENG et FR
On peut supposer qu'en "qwerty", les codes clavier sont correctement traduit mais en "azerty", les codes claviers sont non décodés, tu obtiens le caractère à l'emplacement "azerty" mais qui correspond à une lettre en "qwerty"

Une douchette sans livret pour changer le charset, c'est de la véritable camelote, c'est un peu la base, pourquoi s'équiper d'un si mauvais matériel ?

Il te faut détecter le clavier en cours, GetKeyboardLayout, si 0000040C c'est le FR-fr, il faut se faire une table de correspondance

voici une fonction tapée sur le forum et non testée, ça devrait t'inspirer :

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
function QwertyToAzerty(const S: string): string;
const
  AZERTY = 'aAqQwWzZ,?mM'; // Faut peut-être ajouter + '1234567890'
  QWERTY = 'qQaAzZwWmM;:'; // en théorie + '!@#$%^&*()' 
var
  I, K: Integer;
begin
  Result := S;
  for I := 1 to Length(Result) do
  begin
    K := Pos(S[I], QWERTY);
    if K >= 1 then
      Result[S] := AZERTY[K];
  end;
end;

Evidemment, c'est dans l'idée que si ta douchette lit a et que cela affiche q à la place, idem pour le reste, peut-être que la table de correspondance est différence, il suffit de tester tous les caractères dont tu as besoin pour trouver la table source.

[ALWEBER]

Si tu as la marque et le modèle on a peut être le manuel