Discussion :

[louay02]

Bonjour ,

Je veux copier un flux de données à traves de port COM avec le composant (ComPort) j’ai téléchargé un exemple sur le net et j’ai la connexion avec succès,comment je peux prendre chaque ligne chuté dans cet port (COM) (Affiché sur ComDataPacket) afin de la mettre dans un fichier texte ?

Merci.
Cdt

[louay02]

Pour la lecture:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Str: String;
begin
  ComPort.ReadStr(Str, Count);
  Memo.Text := Memo.Text + Str;
end;

Pour l'enregistrement (Par exemple à partir d'un Memo):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TForm1.Button1Click(Sender: TObject);
beginMemo.Lines.SaveToFile(ExtractFilePath(Application.ExeName)+
'Fichier.txt');
Memo.Clear;
end;