![]()
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;
Partager