Discussion :

[PhilLU]

Bonjour à tous,
J'essaie de capturer des messages type json via un port USB (COM3)

La première ligne du fichier contient une accolade ouvrante, puis un CRLF
puis des lignes du genre: "Unix_TS":1572817717,CRLF
...
Et enfin la dernière ligne est :
}
(fin du json)

Via CoolTerm, pas de problème.

Code :

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

1
2
3
4
5
6
{
"Unix_TS":1572817717,
"GW_ID":GW_A,
"Ctr_ID":CTR_01,
"Probe_ID":28FFD1A9921604A1
}

Via TComPort, à chaque ligne , je n'ai pas de retour chariot (mais bien un saut de ligne)

Code :

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

1
2
3
4
5
6
7
 
{
 "Unix_TS":1572817717,
                      "GW_ID":GW_A,
                                   "Ctr_ID":CTR_01,
                                                   "Probe_ID":28FFD1A9921604A1
                                                                              }

(alors que quand j'ouvre le fichier avec notepad++ ces lignes se terminent bien par des CRLF


Question auxiliaire, je n'arrive pas à importer ces lignes dans un mémo???

Merci pour votre aide

[sergio_is_back]

Bonjour à tous,

Via CoolTerm, pas de problème.

Code :

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

1
2
3
4
5
6
{
"Unix_TS":1572817717,
"GW_ID":GW_A,
"Ctr_ID":CTR_01,
"Probe_ID":28FFD1A9921604A1
}

Via TComPort, à chaque ligne , je n'ai pas de retour chariot (mais bien un saut de ligne)

Code :

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

1
2
3
4
5
6
7
 
{
 "Unix_TS":1572817717,
                      "GW_ID":GW_A,
                                   "Ctr_ID":CTR_01,
                                                   "Probe_ID":28FFD1A9921604A1
                                                                              }

C'est un comportement normal si ça vient d'un serveur sous Unix ou Linux, ou d'un objet fonctionnant avec Linux comme base d'OS
Sous UNIX le saut de ligne c'est juste LF (sans CR)
Il suffit lorsque ta réception est terminée de remplacer les LF par des CRLF dans la chaine

Code :

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

1
2
 
ChaineRecue=StringReplace(ChaineRecue,#10,#13+#10,[rfReplaceAll]);

Pour les importer dans un TMemo après remplacement du LF par CRLF :

Code :

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

1
2
 
Memo1.Lines.Text:=ChaineRecue;

Note bien que dans le format JSON, les séparateurs de ligne (CR, LF ou CRLF) ne sont pas obligatoires, il ne servent qu'a rendre le contenu plus facilement lisible, mais il ne servent à rien d'autre
En conséquence la chaîne JSON que tu reçoit est parfaitement correcte (même elle semble mal formaté)
Tu pourrais aussi supprimer tous les LF et les espaces et tout mettre sur une seule ligne :

Code :

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

1
2
 
{"Unix_TS":1572817717,"GW_ID":GW_A,"Ctr_ID":CTR_01,"Probe_ID":28FFD1A9921604A1}

Ce serai OK aussi

J'ai noté aussi qu'il manque des " sur les valeur chaines dans ton JSON c'est normal ou c'est un oubli ?

{"Unix_TS":1572817717,"GW_ID":"GW_A","Ctr_ID":"CTR_01","Probe_ID":"28FFD1A9921604A1"}

[PhilLU]

Merci Sergio,
En Fait d'utiliser
ChaineRecue=StringReplace(ChaineRecue,#10,#13+#10,[rfReplaceAll]);
je reçois une chaine contenant des #$D#$A
j'utilise donc:

Code :

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

1
2
3
req := StringReplace(Str,#$A,#$D+#$A,[rfReplaceAll]);
req := StringReplace(req,#$D#$D#$A,#$D#$A,[rfReplaceAll]);
Memo3.Lines.Add(req);

merci pour ton aide