Discussion :

[michastro]

Bonjour,
J'ai un module GPS sous RS232 branché sur mon Raspberry Pi3, avec le petit script suivant sous Python, cela affiche bien les trames NMEA qui arrivent:

Code python :

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
#!/usr/bin/env python
import time
import serial
 
ser=serial.Serial(
port='/dev/ttyS0',
baudrate = 9600,
parity=serial.PARITY_NONE,
stopbits=serial.STOPBITS_ONE,
bytesize=serial.EIGHTBITS
)
counter=0
 
while 1:
	x=ser.readline()
	print x

Par contre impossible de lire quoi que ce soit avec Lazarus et synaser de Synapse, voila 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
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
var
  Form1: TForm1;
  ser:TBlockSerial;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
var s:string;
begin
  s:='/dev/ttyS0';
  ser:=TBlockSerial.Create;
  ser.Connect(s);
  ser.config(9600,8,'N',SB1,false,false);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  s:ansistring;
begin
    while true do
    begin
      s:=ser.Recvstring(2000);
      LabelGPS.caption:=s;
   end;
end;

C'est du archi simple, brut de fonderie pour tester le port com, mais cela me renvoie systématiquement une chaine s nulle.
Des idées?

[tourlourou]

lu ici : synaser.TBlockSerial

function Recvstring(timeout: integer): AnsiString; virtual;

This method waits until a terminated data string is received. The string is terminated by a CR/LF sequence. The resulting string is returned without the terminator (CR/LF)! If no data is received within the Timeout (in milliseconds) period, LastError is set to ErrTimeout.

If ConvertLineEnd is used, then the CR/LF sequence may not be exactly CR/LF. See the description of ConvertLineEnd.

This method serves for line protocol implementation and uses its own buffers to maximize performance. Therefore do NOT use this method with the RecvBuffer method to receive data as it may cause data loss.

property ConvertLineEnd: Boolean read FConvertLineEnd Write FConvertLineEnd;

Indicates if non-standard line terminators should be converted to a CR/LF pair (standard DOS line terminator). If True, line terminators CR, single LF or LF/CR are converted to CR/LF. Defaults to False. This property has effect only on the behavior of the RecvString method.

La chaîne envoyée est-elle bien une AnsiString terminée par CRLF ?

[jurassic pork]

hello,
mon composant lazarus Tlazserial a justement comme exemple un simulateur , recepteur GPS série. Il est basé sur synaser.
voir ici

Ami calmant, J.P

[michastro]

Une trame NMEA se termine toujours par CR/LF.
J'ai changé un chouia le code pour avoir une eventuelle erreur. J'obtiens:
'Instance not yet connected'!!!!!!!
Je ne comprends pas.

[tourlourou]

Peut-être faut-il d'abord configurer, puis connecter. Voire tester si Connected si Connect n'est pas une fonction avec un code de retour.

[michastro]

La doc de l'unit synaser dit au sujet de la methode de configuration:
Reconfigure communication parameters on the fly. You must be connected to port before!

[michastro]

TROUVE!!!
En fait je lançais systématiquement mon script Python pour voir si le GPS était bien connecté, visiblement celui ci ne referme pas le port série en étant tué. Donc si je teste en direct mon programme ça marche, c'est vraiment tout C..
Merci quand même de vos messages.