TComPort gestion du CRLF et import dans un memo

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:

---

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:

---

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 :koi:


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

Merci pour votre aide :merci:

Citation:

---

Envoyé par PhilLU

Bonjour à tous,

Via CoolTerm, pas de problème.

Code:

---

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:

---

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:

---

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

---

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

Code:

---

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:

---

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"}

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:

---

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 :ccool: