Utilisation du port serie TQCcom32
Bonjour,
Comment réinitialiser le paramètre SerialPort2.InCount à 0 pour le prochain lecture? J'ai une application qui doit attendre sur le port série les données.
Pour la première passage cela passe mais par contre pour le deuxième
passage comme Form3.SerialPort2.InCount <> 0 alors cela ne marche
plus. C'est une propriété que je peux seulement lire mais pas réinitialiser
à 0. Avez vous rencontrer ce genre de problème ?
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13
| function TForm3.ReadResponse_carte: string;
begin
do
While (Form3.SerialPort2.InCount=0) do
ReadResponse_carte:=Form3.serialport2.ReadStr(15);
exit;
Application.ProcessMessages;
Form3.TimeOut2.Enabled:=False;
if Form3.SerialPort2.InCount=0 then ReadResponse_carte:='TimeOutError'
else ReadResponse_carte:=Form3.serialport2.ReadStr(10);
end; |
Merci pour la proposition