Discussion :

[JP CASSOU]

Bjr à vous,

Je bataille depuis un bon moment avec les composants de port série proposés pour Lazarus

Aucun de ces composants n'est stable, facile d'utilisation ou multiplateformes

TLazSerial:
Note : **... (D)
Fonctionne assez bien sous Windows, mais pas mal de problèmes (perte de connexion, blocages, etc). Documentation insuffisante

5dpo:
Note: *.... (FX)
Ouvre un port série, contient l'événement OnRXData, cet événement est déclenché mais la lecture avec .synser.Read ne retourne rien. Documentation inexistante

Synaser
Note: *:... (FX)
A la base des deux composants ci-dessus
Ne propose pas le OnRXData. Documentation inexistante

ComPort for Linux v.1.1
Note: ..... (G)
Composant shareware https://torry.net/pages.php?id=198
Echec d'installation sous Lazarus, alors qu'il est indiqué pour cette plateforme.


D'autres propositions ?

[BeanzMaster]

Salut tu as les composants DataPort disponibles dans le gestionnaire de paquet en ligne de Lazarus

DataPort - thread-safe abstract port for data exchange. You can open DataPort and push some data into - data will appear on other side. And if other side send some data, you will get notified and can pull data from port at any time.
- network (TCP/UDP/HTTP)
- serial port (UART, COM-port)
- device files (ioctl supported) and conventional files
- named pipes

https://github.com/serbod/dataport

A+

Jérôme

[JP CASSOU]

Salut tu as les composants DataPort disponibles dans le gestionnaire de paquet en ligne de Lazarus



A+

Jérôme

Merci.
DataPort
Note: *.... (F)

Un membre de DataPort dérive de TBlockSerial
Part systématiquement en erreur, freezes
Echec si le port demandé est occupé (ie: tout le temps)
Ne fonctionne pas avec les ports virtuels sous Linux
Doc succincte, aucun exemple

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
 
procedure TForm1.Button3Click(Sender: TObject);
var
  MyPort: TCaption;
begin
  MyPort := Trim(editComPort.Text);
  DataPortSeral1.Port        := MyPort;
  DataPortSerial1.BaudRate    := 9600;
  DataPortSerial1.DataBits    := 8;
  DataPortSerial1.FlowControl := sfcNone;
  DataPortSerial1.StopBits    := stb1;
  DataPortSerial1.MinDataBytes:= 8;
  DataPortSerial1.SoftFlow    := false;
  DataPortSerial1.HardFlow    := false;
  DataPortSerial1.Open();
 
end;