Discussion :

[OR34a]

Bonjour à tous,

Je reviens encore vers vous car, si en suivant les conseils de J. Pork (un grand merci !!) j'ai pu accéder aux données émises par le port Com :

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
procedure TF_balanc.Laz_serieRxData(Sender: TObject);  // accès au Port série - lecture des données
    Var CurPos : integer ;
    Var Strbal : String ; // chaine lecture du port série
  //  Var chainStock , Caract_lu2 : String ;
    Var Totol : integer ;
    Var  iii, ijk  : integer ;
begin
 
    Strbal := Laz_serie.readData ; // instruction de lecture des données émises
    Sleep(200) ;
    CurPos :=Pos(Char(10), Strbal) ;
    if length(StrPoidsActu) > 10 then StrPoidsActu:= '' ;  // Chaine de carcatère à stocker
    if CurPos = 0 then
       Begin
          StrPoidsActu := StrPoidsActu + Strbal ;
        end
       Else
       Begin
          StrPoidsActu := StrPoidsActu + Copy(StrBal , 1, CurPos -1) ;
      end;

Je n'arrive pas à isoler dans la chaine constituée StrPoidsActu Les données qui m'intéressent qui sont la suite de carcatères Nombres ( 0 ..9) et le point décimal (.) pour pouvoir ensuite les utiliser pour la suite du programme.
J'obtiens par exemple dans StrPoidsActu ' + 1025.3 g' #13et il m'est impossible d'isoler 1025.3 .

Dans mon ancien programme sous Delphi4 je stoppais la lecture du port série par Laz_Serie.PurgeRead et je travaillais ensuite la chaine StrPoidsActu pour en sortir une chaine ne contenat que ce qui pouvait constituer un nombre, mais je n'ai pas trouvé pour LazSerial l'instruction adéquate.

Qui peut me renseigner sur la dynamique détaillée des instructions déjà écrites et à écrire pour arriveer à mes fins ?

Merci

R.O.

[jurassic pork]

hello,
tu peux essayer d'utliser les expressions régulières pour extraire un flottant d'une chaîne de caractère comme ceci par exemple :

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
implementation
uses regexpr;
{$R *.lfm}
{ TForm1 } 
procedure TForm1.Button1Click(Sender: TObject);
 var ChaineATester : string;
       re: TRegExpr;
begin
try
  ChaineATester :=  '+ 1025.3 g' +  #13;
  re := TRegExpr.Create;
  // pattern to extract float number
  re.Expression := '[+-]?([0-9]*[.])?[0-9]+';
  if re.Exec(ChaineATester) then
     showMessage('Extraction valeur : ' + re.Match[0]);
finally
  re.Free;
end;
end;

Ami calmant, J.P

[tourlourou]

Je pense que la logique d'utilisation de l'ensemble n'est pas adéquate.

Je comprends que lorsque le composant série détecte l'envoi de caractère, il déclenche l'événement OnRxData où on va lire le tampon et traiter ce qui a été reçu. Par exemple l'ajouter à une chaîne.

Il faut donc lire et analyser ce caractère. Et lorsqu'on reçoit le caractère de fin de trame (#10 = LF), il faut déclencher le traitement de la chaîne.

Au passage, je pense qu'il serait souhaitable de ne pas mettre de Sleep(200) après le ReadData : à quoi sert-il ?

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
34
35
procedure TF_balanc.Laz_serieRxData(Sender: TObject);  // accès au Port série - lecture des données
    Var CurPos : integer ;
    Var Strbal : String ; // chaine lecture du port série
  //  Var chainStock , Caract_lu2 : String ;
    Var Totol : integer ;
    Var  iii, ijk  : integer ;
begin
 
    Strbal := Laz_serie.readData ; // instruction de lecture des données émises
 
    CurPos :=Pos(Char(10), Strbal) ;
 
    if CurPos = 0 then // pas de LF reçu
       Begin
          StrPoidsActu := StrPoidsActu + Strbal ; // élongation de la chaîne
        end
       Else
       Begin
          StrPoidsActu := StrPoidsActu + Copy(StrBal , 1, CurPos -1) ; // ajout jusqu'au LF
 
          TraiteMessage(StrPoidsActu); // procédure à écrire
 
          if length(Strbal) > CurPos // cela se peut-il ?
            then StrPoidsActu := Copy(StrBal , CurPos +1, length(Strbal)-CurPos); // on colle ce qui suit le LF en début de nouvelle ligne
 
      end;
 
procedure TraiteMessage(var Chaine: string);
begin
  // lire les caractères un par un
  // éliminer les caractères non numériques en début de chaîne
  // recopier ceux numériques dont point décimal jusqu'au premier caractère différent
  // envoyer cette chaîne à une fonction TraitePoidsRecu  
 
end;

[jurassic pork]

je n'avais pas trop regardé le code d'OR34A. Effectivement le code de Tourlourou est beaucoup plus adéquate et il suffit d'utiliser le Tregexpr dans son TraiteMessage pour récupérer la valeur numérique. Attention les variables CurPos et StrBal doit être globale et pas locale pour garder la valeur entre 2 appels.

Code :

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

1
2
3
/ variables globales définies  au début : 
// CurPos : integer;
//  StrPos: String;

[tourlourou]

jurassic pork a raison ; les variables sont d'ailleurs mal nommées : LFPos plutôt que CurPos, par exemple ? Et +1 à l'utilisation des expressions régulières, que je ne connais pas suffisamment !

Mais surtout, si on ne veut traiter que certaines trames, le débit d'envoi étant trop important, plutôt que d'utiliser des Sleep ou Timer, il suffit d'ajouter un test dans le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Begin
          StrPoidsActu := StrPoidsActu + Copy(StrBal , 1, CurPos -1) ; // ajout jusqu'au LF
 
          if Now > LastDate + IntervalleLecture // intervalle à fixer en global et LastDate à initialiser en dehors de la procédure 
            then begin
              TraiteMessage(StrPoidsActu); // procédure à écrire
              Lastdate := Now;
            end;
 
          if length(Strbal) > CurPos // cela se peut-il ?
            then StrPoidsActu := Copy(StrBal , CurPos +1, length(Strbal)-CurPos); // on colle ce qui suit le LF en début de nouvelle ligne
 
      end;

[jurassic pork]

hello,
bon j'ai transformé le projet de test de simulateur GPS de mon composant série TLazserial en simulateur de balance série .
Le projet est en pièce jointe.
Le principe : j'envoie une chaîne de caractères ressemblant à ce qu'envoie la balance série toutes les 10 secondes.
Pour tester j'ai besoin de deux liaisons séries reliées entre elles par un cordon croisé série. Je lance deux fois le programme. Sur un j'ouvre le port d'entrée et j'attends que les données arrivent. Sur l'autre j'ouvre le port de sortie et je lance le simulateur.
Dans le programme il y a la procédure AnalyseData(qui utilise un Tregexpr) pour extraire le poids de la chaîne reçue.





Ami calmant, J.P

[OR34a]

Bonjour,


Merci beaucoup d'être aussi réactif à mon problème.

Je récupère le fichier Zip à l'instant et vais le regarder avec attention.

Cordialement

R.O.