Bonjour,

Au cours d’une émission sur le port avec TComPort je voudrais avoir la possibilité
D’arrêter l’émission.
Lorsque je ferme le port avec la procédure ComPort1.Close au milieu d’une émission mon application reste bloquer.

Comment arrêter l’émission proprement ?
merci.

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
 
procedure TForm1.BntTransmissionClick(Sender: TObject);
begin
ComPort1.Open;//Ouverture du port
 
ComPort1.WriteStr(Memo1.Text);//Ecriture sur le port
 
ComPort1.Close;//Fin de l’émission
 
end;
 
procedure TForm1.BntOuvrirClick(Sender: TObject);
begin
if OpenDialog1.Execute then
    Memo1.Lines.LoadFromFile(OpenDialog1.FileName);
end;
 
procedure TForm1.BntAnnulerClick(Sender: TObject);
begin
     ComPort1.Close;
end;