Discussion :

[chourmo]

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 ?

[MD Software]

Non, pas la peine d'utiliser un comdatapacket, il te suffit de tester le nombre de caractères. Tant que tu n'as pas tes 26 caractères, tu concatènes. Dès que tu les as, tu fais le traitement que tu veux.

[chourmo]

ok merci,
mais à quoi sert donc ce comdatapacket ?

[MD Software]

C'est pour regrouper les lectures par paquet.
Perso, je ne m'en suis jamais servis.

[chourmo]

ok