[TComPort] Analyse des données reçues avec ReadStr
bonjour , sur un evènement "onrxchar", voici mon code :
Code:
1 2 3 4 5 6 7 8 9 10 11
| procedure Tform2.ComPort1RxChar(Sender: TObject;
Count: Integer);
Var Chaine:String;
i : integer;
begin
ComPort1.ReadStr(Chaine,count);
for i:=1 to length(chaine) do
Edit1.Text:=Edit1.Text+'-'+inttohex(ord(chaine[i]),2);
showmessage( inttostr(length(chaine)));
// collecte du num de série
lbTypemateriel.Caption:= 'Matériel connecté :' +chaine[9]+chaine[10]; |
ce qu'il se passe, c'est que j'ai d'abord un showmessage de valeur 1 puis un autre de valeur 25 car la trame que je reçois 26 caractères dont je connais le premier et le dernier.
dois je utiliser un comdatapacket ?