bonjour , sur un evènement "onrxchar", voici mon code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 ?