Delphi Comport ne pas obtenir l'ensemble des données

Question

J'ai ce code:

procedure Tfrm_main.cport_scanningRxChar(Sender: TObject; Count: Integer); 
begin 
    cport_scanning.ReadStr(data, Count); 
    memo3.Text := data; 
end; 

Le résultat réel est:

memo3.text := M000000; 

Ensuite, il a changé en:

memo3.text := 021111D; 

Le résultat attendu:

memo3.text := M000000021111D; 

Answer 1

À l'avenir, il serait utile d'indiquer ce composant que vous utilisez, d'autant plus que TComPort ne vient pas avec Delphi.

La réponse est parce que OnRxChar peut être appelé avant que toutes les données ont été reçues. Votre code doit indiquer:

procedure Tfrm_main.cport_scanningRxChar(Sender: TObject; Count: Integer); 
begin 
    cport_scanning.ReadStr(data, Count); 
    memo3.Text := memo3.Text + data; 
end;