TLazSerial communique (mal) avec Arduino UNO

Version imprimable

30/08/2018, 17h43
Eric Beaumard

TLazSerial communique (mal) avec Arduino UNO

Bonjour,

J'ai écris un petit programme avec Lazarus 1.8.4 permettant d'échanger
des données via la liaison série avec une carte arduino UNO.

J'utilise le composant TLazSerial.

Je rencontre le problème suivant : Quand la carte UNO émet, par exemple "911111000109"
je reçois parfois le paquet (la chaîne de caractère) découpé en deux morceaux dont les longueurs peuvent
varier, par exemple "9111" puis "11000109", dans l'évènement RxData du composant.

J'ai tenté la même chose avec Delphi 7.1 et le composant Comport, idem, même
découpage aléatoire ...

Les paramètres du protocole (bit de stop, parité, vitesse etc.) ont été soigneusement
vérifiés et accordés, le problème ne semble pas venir de là.

Mes expériences tendent à montrer que le problème vient de la carte arduino
mais j'écris ici dans l'hypothèse où quelque-chose m'aurait échappé coté
programme en pascal (Lazarus ou Delphi).

Quelqu'un a-t-il eu ce problème ? (et la résolu ... ;) )

Eric
30/08/2018, 18h27
jurassic pork

hello,
ce n'est pas TLazserial qui communique mal avec l'arduino, mais c'est certainement qu'il n'est pas utilisé de façon optimale. Je ne sais pas ce qui est généré par l'arduino et si c'est suite à une commande ou une capture à la volée mais si il n'y a pas de marqueur de fin d'un envoi de données, on aura du mal à se synchroniser avec ce qui arrive, sinon on bufferise jusqu'à l'arrivée du marqueur de fin de trame ou alors on attend un nombre précis d'octets si celui-ci est constant.
Ami calmant, J.P
30/08/2018, 19h42
Eric Beaumard

Citation:

Envoyé par jurassic pork

hello,
ce n'est pas TLazserial qui communique mal avec l'arduino, mais c'est certainement qu'il n'est pas utilisé de façon optimale. Je ne sais pas ce qui est généré par l'arduino et si c'est suite à une commande ou une capture à la volée mais si il n'y a pas de marqueur de fin d'un envoi de données, on aura du mal à se synchroniser avec ce qui arrive, sinon on bufferise jusqu'à l'arrivée du marqueur de fin de trame ou alors on attend un nombre précis d'octets si celui-ci est constant.
Ami calmant, J.P

Ok, je comprends mieux. J'utilise la commande serial.print(String) de l'arduino. J'ai essayé PrintLn qui envoie un CR/LN à la fin, ça n'a rien changé. Comment synchroniser ces deux appareils ? Comment spécifier un marqueur de fin et/ou un nb d'octets à attendre ?

Quel est ton code de réception ? si l'arduino envoie un CRLF avec un println utilises-tu ce qui est fait dans l'exemple sertest qui permet de se synchroniser avec le caractère 10 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TFMain.SerialRxData(Sender: TObject);var Str : string;
begin
  Str :=  Serial.ReadData;
  CurPos := Pos( Char(10) ,Str);
  if CurPos = 0 then begin
    FTempStr := FTempStr + Str;
  end
  else begin
    FTempStr := FTempStr + Copy( Str, 1, CurPos-1);
    Memo.Lines.BeginUpdate;
    Memo.Lines.Add(FtempStr);
     Memo.Lines.EndUpdate;
    Memo.SelStart := Length(Memo.Lines.Text)-1;
    Memo.SelLength:=0;
    AnalyseTrames(FtempStr);
    FTempStr := Copy(Str,CurPos +1, Length(Str) - CurPos);
  end;
end;

08/09/2018, 16h15
naute

Bonjour :D .

Question idiote, peut-être mais est-ce que les vitesses (en Bauds) sont bien les mêmes sur Arduino et LazSerial?

Désolé, je viens de voir en relisant le premier post que ce point était vérifié. :oops:

Merci. Je m'inspire de cela.
Citation:
Envoyé par jurassic pork
Quel est ton code de réception ? si l'arduino envoie un CRLF avec un println utilises-tu ce qui est fait dans l'exemple sertest qui permet de se synchroniser avec le caractère 10 :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 procedure TFMain.SerialRxData(Sender: TObject);var Str : string; begin Str := Serial.ReadData; CurPos := Pos( Char(10) ,Str); if CurPos = 0 then begin FTempStr := FTempStr + Str; end else begin FTempStr := FTempStr + Copy( Str, 1, CurPos-1); Memo.Lines.BeginUpdate; Memo.Lines.Add(FtempStr); Memo.Lines.EndUpdate; Memo.SelStart := Length(Memo.Lines.Text)-1; Memo.SelLength:=0; AnalyseTrames(FtempStr); FTempStr := Copy(Str,CurPos +1, Length(Str) - CurPos); end; end;

08/09/2018, 16h34
Eric Beaumard

Oui, c'est le cas. Le problème semble venir du fait, comme l'a explique jurassic pork, que le récepteur, coté Lazarus,
"attrape" les morceaux de paquets à volée sans rien connaitre à priori du nombre de caractères les constituants
et/ou quel est leur délimiteur. Il faut donc stocker les morceaux reçus dans une chaine et
et en extraire les paquets selon le codage choisi (délimiteur ou longueur du paquet).

Citation:

Envoyé par naute

Bonjour :D .

Question idiote, peut-être mais est-ce que les vitesses (en Bauds) sont bien les mêmes sur Arduino et LazSerial?

Désolé, je viens de voir en relisant le premier post que ce point était vérifié. :oops: