Problème avec TBlockSerial de la bibliothèque Synaser et Raspberry

Version imprimable

Bonsoir à toutes et à tous,

Dans une application GPS que je développe, j'utilise le composant TBlockSerial pour lire les infos que me délivre mon module GPS (via Bluetooth). Avec mon PC sous Windows, cela se passe bien, mais avec mon Raspberry Pi3B (Raspbian Stretch), ça plante au bout de quelques minutes avec le message d'erreur "'Timeout during operation" Voilà le code que j'exécute dans un thread:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 procedure TMyThread.Execute; begin {$IFDEF WIN32} PortCOM.Connect('COM21'); // Port de mon PC sous Windows {$ENDIF} {$IFDEF LINUX} {$IFDEF CPUARM} PortCOM.Connect('/dev/rfcomm0'); // Port de mon Raspberry {$ELSE} PortCOM.Connect('/dev/ttyS21'); {$ENDIF} {$ENDIF} PortCOM.Config(4800, 8, 'N', 1, False, False); while not Terminated do begin // Réception de 6 trames toutes les secondes InfoNMEA:= PortCOM.Recvstring(2000); // Le fait de mettre autre chose que 2000 ne change rien à l'affaire if PortCOM.LasrError = ErrTimeout then InfoNMEA:= InfoNMEA; Synchronize(@Showstatus); end; PortCOM.CloseSocket; FreeAndNil(PortCOM); end;
Grâce au débogueur, qui fonctionne bien dans le thread, je vois que ça tourne en boucle à l'intérieur de mon "while" et, comme à chaque lecture, l'erreur persiste, je passe à chaque tour par mon " InfoNMEA:=InfoNMEA;" que j'ai mis là juste pour mettre en évidence le problème. NOTA : à ce moment, InfoNMEA est une chaîne vide.

Question, comment sort-on de cette boucle infernale ?

Cordialement.

Pierre

Salut, peut-être en ajoutant une section critique (TCriticalSection)

Code:

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
procedure TMyThread.Create;
begin
  ....
  tcs := TCriticalSection.Create;
  ...
 
end;
procedure TMyThread.Execute;
begin
   tcs.Enter;
  {$IFDEF WIN32}
      PortCOM.Connect('COM21'); // Port de mon PC sous Windows
  {$ENDIF}
  {$IFDEF LINUX}
    {$IFDEF CPUARM}
      PortCOM.Connect('/dev/rfcomm0'); // Port de mon Raspberry
    {$ELSE}
      PortCOM.Connect('/dev/ttyS21');
    {$ENDIF}
  {$ENDIF}
  PortCOM.Config(4800, 8, 'N', 1, False, False);
  while not Terminated do
  begin // Réception de 6 trames toutes les secondes
    InfoNMEA:= PortCOM.Recvstring(2000); // Le fait de mettre autre chose que 2000 ne change rien à l'affaire
    if PortCOM.LasrError = ErrTimeout then
     InfoNMEA:= InfoNMEA;
    Synchronize(@Showstatus);
  end;
  PortCOM.CloseSocket;
  FreeAndNil(PortCOM);
  tcs.Leave;
end;

Question : pourquoi te connecter et te déconnecter de ton port à chaque fois ? Pourquoi ne pas utiliser une variable globale dans ta classe ?

Code:

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
36
37
38
39
procedure TMyThread.Create;
begin
  ....
  tcs := TCriticalSection.Create;
  ...
// Ou a placer ailleurs
{$IFDEF WIN32}
      PortCOM.Connect('COM21'); // Port de mon PC sous Windows
  {$ENDIF}
  {$IFDEF LINUX}
    {$IFDEF CPUARM}
      PortCOM.Connect('/dev/rfcomm0'); // Port de mon Raspberry
    {$ELSE}
      PortCOM.Connect('/dev/ttyS21');
    {$ENDIF}
  {$ENDIF}
  PortCOM.Config(4800, 8, 'N', 1, False, False);
 
end;
procedure TMyThread.Execute;
begin
  tcs.Enter;  
  while not Terminated do
  begin // Réception de 6 trames toutes les secondes
    InfoNMEA:= PortCOM.Recvstring(2000); // Le fait de mettre autre chose que 2000 ne change rien à l'affaire
    if PortCOM.LasrError = ErrTimeout then
     InfoNMEA:= InfoNMEA;
    Synchronize(@Showstatus);
  end;
  PortCOM.CloseSocket;
  tcs.Leave;
end;
 
procedure TMyThread.Destroy;
begin
  ...
  FreeAndNil(PortCOM);
  FreeAndNil(tcs);
  ...

A+

Citation:

Envoyé par BeanzMaster

Salut peut-être ne ajoutant une section critique (TCriticalSection) ...

Je n'ai pas l'impression que cela ait modifié grand chose. Apparemment, une section critique empêche un thread concurrent d'intervenir : je n'en ai pas ici.

Citation:

Envoyé par BeanzMaster

..Question : pourquoi te connecter et te deconnecter de ton port à chaque fois ? pourquoi ne pas utiliser une variable globale dans ta classe ? ...

J'ai été amené à modifier tel que suit ma procédure "Execute" car je me suis aperçu que lorsque j'avais l'erreur "ErrTimeout", le fait de me déconnecter et me reconnecter fonctionnait.
Code:

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 procedure TThreadGPS.Execute; begin {$IFDEF WIN32} PortCOM.Connect('COM21'); {$ENDIF} {$IFDEF LINUX} {$IFDEF CPUARM} PortCOM.Connect('/dev/rfcomm0'); {$ELSE} PortCOM.Connect('/dev/ttyS21'); {$ENDIF} {$ENDIF} tcs.Enter; Reprendre:= False; PortCOM.Config(4800, 8, 'N', 1, False, False); while (not Terminated) and (not Reprendre) do begin InfoNMEA:= PortCOM.Recvstring(2000); if InfoNMEA <> '' then Synchronize(@Showstatus); if PortCOM.LastError = ErrTimeout then // sur cette erreur, je vis me déconnecter puis me reconnecter begin PortCOM.Purge; Reprendre:= True; Inc(Pb); // Nombre de fois où apparaît le problème -> transmis au thread principal par "synchronise" end; end; tcs.Leave; PortCOM.CloseSocket; // Déconnexion if Reprendre then Execute // Reprise de la connexion else FreeAndNil(PortCOM); end;
La parade ne semble pas totale, mais assez efficace pour l'instant. Mais je reconnais que ce n'est qu'une rustine :?

Cordialement.

Pierre