Discussion :

[Pouthou]

Bonjour tout le monde ! Je suis entrain de travailler sur le composant COMPORT qui me permet de faire des traitements sur des codes barres que je scanne à la main. Je souhaiterai lors d'un scan de supprimer les 4 premiers digits et de garder le reste de la donnée, en sachant que la douchette (outils pur scanner) écrit en mode "clavier" et ne scanne pas automatiquement. (Si je ne suis pas clair sur cette partie faite le savoir)

Ce que j'ai traduit par :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
  var   str_chaine : string;
        i : integer;
        str_chaineFinale : string;
begin
  ComPort1.ReadStr(str_chaine,Count);
  for i:=5 to count do
  begin
    str_chaineFinale := str_chaineFinale + str_chaine[i];
  end;
  // fonction de renvoi de la donnée à l'écriture en utilisant str_chaineFinale comme nouvelle donnée
end;

Mais comme c'est la première fois que j'utilise ce composant je me demandé si j'étais sur le bon événement ou non, et s'il existé un moyen de remplacer la donnée précédente par la nouvelle à l'écriture en utilisant une fonction ou writeStr. J'ai lu le tuto de nono et fait quelques recherches avant de poster ici et je n'ai rien trouvé correspondant à mon "problème"

Merci de toute aide pour me faire avancer, je suis à votre disposition pour toutes questions

[djiga4me]

Salut,
Je sais pas si j'ai bien saisi, tu veux formater le contenu str_chaineFinale, si c'est chaine qui contient les digits que tu veux supprimer, tu peux utiliser soit la fonction Copy, StrLeft, StrRight, qui toutes se trouvent dans l'unisté StrUtils.
Je vois que la boucle for débute à 5, tu peux aussi utilser ça.
Si je suis complètement à côté de la plaque, peux tu, s'il te plait, préciser quelle chaine (variable) exactement tu veux modifier.

[Pouthou]

En fait l formatage de ma chaine était déja effectué par la boucle, donc aucun formatage à faire, ce que je souhaité faire c'est à partir de ce logiciel intercepter la donnée, la modifiée et la renvoyer tout simplement, j'ai donc contourné mon problème avec l'utilisation d'un logiciel externe pour me crée un port virtuel où j'envoi la donnée traitée et qui la renvoi ! (Logiciel : VSPE – Virtual Serial Ports Emulator)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
  var   str_chaine : string;
        i : integer;
        str_chaineFinale : string;
begin
  ComPort1.ReadStr(str_chaine,Count);
  for i:=5 to count-2 do
  begin
    str_chaineFinale := str_chaineFinale + str_chaine[i];
  end;
  ComPort2.WriteStr(str_chaineFinale);
end;

Merci de ton aide tout de même =)